Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContabilidad.vb

@@ -6576,14 +6576,17 @@ Public Class ClsContabilidad
     End Function
 
 #Region "F L U C T U A C I O N - C A M B I A R I A"
-    Public Function UpdateVentaTCValuacion(CveVenta As Integer, TCValuacion As Decimal) As Boolean
+    Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean
         Dim Retorno = False
 
-        DataAdapter("PA_Conta_VentasTCValuacionUpdate")
+        DataAdapter("PA_Conta_TipoCambioValuacionUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
             .Add("@TCValuacion", SqlDbType.Decimal).Value = TCValuacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -6615,6 +6618,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
 #End Region
 
 #Region "IDisposable Support"

App_Code/ClsGenerales.vb

@@ -1,6 +1,7 @@
 Option Strict On
 Option Explicit On
 
+Imports System
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
@@ -4111,6 +4112,32 @@ Public Class ClsGenerales
 
 #End Region
 
+
+    Public Function GetMediosTransporte(CveOrigen As Integer, Estatus As Boolean, CveEmpresa As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, Tipo As Integer, GPO As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Agro_OrigenGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@GPO", SqlDbType.Int).Value = GPO
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError($"Ocurrió un error al obtener los medios de transporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
 End Class
 
 

App_Code/ClsPaginas.vb

@@ -1091,13 +1091,17 @@ Public Class ClsPaginas
     '        Application("GlobalDTSucursales") = value
     '    End Set
     'End Property
-    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
+    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1, Optional RegimenFiscalReceptor As String = "-1") As DataTable
         Get
             If EsPersonaFisica <> -1 Then
-                Dim Tipo As String = ""
+                Dim Tipo As New StringBuilder
-                If EsPersonaFisica = 1 Then Tipo = "AplicaPersonaFisica = 1" Else Tipo = "AplicaPersonaMoral = 1"
+                If EsPersonaFisica = 1 Then Tipo.Append("AplicaPersonaFisica = 1") Else Tipo.Append("AplicaPersonaMoral = 1")
 
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTSATUsosCFDI"), DataTable), Tipo, " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
+                If RegimenFiscalReceptor <> "-1" Then
+                    Tipo.AppendFormat("AND RegimenFiscalReceptor LIKE '%{0}%'", RegimenFiscalReceptor)
+                End If
+
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTSATUsosCFDI"), DataTable), Tipo.ToString(), " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
                 GlobalDTSATUsosCFDI = Dv.ToTable
                 Dv.Dispose()
             Else

App_Code/ClsVentas.vb

@@ -745,7 +745,8 @@ Public Class ClsVentas
     Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer,
                                          Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
                                          Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1",
-                                         Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional EstadoCancelacion As String = "") As Boolean
+                                         Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional EstadoCancelacion As String = "",
+                                         Optional CveEstadoCancelacion As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasUpdateEstatus")
@@ -765,6 +766,7 @@ Public Class ClsVentas
             .Add("@CveMotivoCancelacion", SqlDbType.Int).Value = CveMotivoCancelacion
             .Add("@MotivoCancelacion", SqlDbType.VarChar).Value = MotivoCancelacion
             .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
+            .Add("@CveEstadoCancelacion", SqlDbType.TinyInt).Value = CveEstadoCancelacion
         End With
 
         Try
@@ -855,7 +857,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional EstadoCancelacion As String = "") As Boolean
+    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional EstadoCancelacion As String = "", Optional CveEstadoCancelacion As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasCancelacion")
@@ -868,6 +870,7 @@ Public Class ClsVentas
             .Add("@CvePAC", SqlDbType.SmallInt).Value = CvePAC
             .Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
             .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
+            .Add("@CveEstadoCancelacion", SqlDbType.TinyInt).Value = CveEstadoCancelacion
             .Add("@Cancelada", SqlDbType.SmallInt).Direction = ParameterDirection.Output
         End With
 

App_Code/Modelos.vb

@@ -4636,8 +4636,8 @@ Namespace Modelos
         ''' Cancela la factura para poder realizar la refacturacion
         ''' </summary>
         ''' <returns></returns>
-        Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False) As MCancelacionVentaMensaje
+        Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje
-            Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT)
+            Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion)
         End Function
         ''' <summary>
         ''' Cancela la factura y realiza las operaciones correspondientes
@@ -4645,15 +4645,15 @@ Namespace Modelos
         ''' <param name="RealizarDevolucionAlmacen"></param>
         ''' <param name="ListaRemisionesCancelar"></param>
         ''' <returns></returns>
-        Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True) As MCancelacionVentaMensaje
+        Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje
             'Comprobante emitido con errores sin relación
-            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo)
+            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion)
         End Function
 
         Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False,
-                                      Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1,
+                                      Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1",
-                                      Optional FechaCancelacion As String = "-1", Optional AcuseCancelacion As String = "",
+                                      Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "",
-                                      Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True) As MCancelacionVentaMensaje
+                                      Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje
             Dim Retorno As New MCancelacionVentaMensaje()
             Dim ErrorList As New List(Of String)
 
@@ -4801,6 +4801,7 @@ Namespace Modelos
 
             Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
 
+
             If Not EsRefacturacion Then
                 CveEstatusRefacturacion = 0
             End If
@@ -4828,7 +4829,7 @@ Namespace Modelos
             Dim Continuar As Boolean = False
             Dim ContinuarCancelacion As Boolean = False
             Dim ObtenerAcuse As Boolean = False
-            Dim RequiereAceptacion As Boolean = False
+            Dim RequiereAceptacion As Boolean = True
             Dim Mensaje As String = ""
 
             Dim CveSATMotivoCancelacion As Integer = -1
@@ -4845,6 +4846,14 @@ Namespace Modelos
                 CveEstatusFacturaAsignado = 23
             End If
 
+            'SI NO SE ASIGNA EL ESTATUS DE CANCELACION, TOMA EL GUARADO DE LA FACTURA
+            CveEstadoCancelacion = If(CveEstadoCancelacion <= 0, ObjFactura.CveEstadoCancelacion, CveEstadoCancelacion)
+
+            'SI YA SE CONOCE EL ESTADO DE CANCELACION, NO LO VERIFICA ANTE EL SAT
+            If CveEstadoCancelacion > 0 Then
+                ValidarSAT = False
+            End If
+
             If CveEstatusFacturaAsignado <= 0 Then
                 Try
                     If ObjFactura.FolioFiscal <> "" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
@@ -4919,22 +4928,26 @@ Namespace Modelos
                                         If Vigencia.EstatusCancelacion.ToUpper() = "EN PROCESO" Then
                                             CveEstatus = 20
                                             ContinuarCancelacion = False
+                                            RequiereAceptacion = True
                                         ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE CON ACEPTACIÓN" Then
                                             CveEstatus = 20
                                             ContinuarCancelacion = True
                                             RequiereAceptacion = True
                                         ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then
                                             ContinuarCancelacion = True
+                                            RequiereAceptacion = False
                                             CveEstatus = 5
                                         End If
 
                                     Else
                                         If Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then
                                             ContinuarCancelacion = True
+                                            RequiereAceptacion = False
                                             CveEstatus = 5
                                         Else
                                             CveEstatus = 20
                                             ContinuarCancelacion = False
+                                            RequiereAceptacion = True
                                             CancelacionFecha = Now.Date
                                             CancelacionAcuse = ""
                                         End If
@@ -4951,10 +4964,19 @@ Namespace Modelos
                                 CancelacionFecha = Now.Date
                                 CancelacionAcuse = ""
 
-                                Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, Now)
+                                'VERICA SI YA SE TIENE EL ESTADO DE CANCELACION, PARA SABER SI REQUIERE ACEPTACION
+                                If CveEstadoCancelacion > 0 Then
+                                    If CveEstadoCancelacion = 1 Then
+                                        RequiereAceptacion = False
+                                    ElseIf CveEstadoCancelacion = 2 Then
+                                        RequiereAceptacion = True
+                                    End If
+                                Else
+                                    Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, Now)
 
-                                If ObjFactura.Total < 5000D OrElse diasTimbrado <= 3 OrElse ObjFactura.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+                                    If ObjFactura.Total < 1000D OrElse diasTimbrado <= 1 OrElse ObjFactura.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then
-                                    RequiereAceptacion = False
+                                        RequiereAceptacion = False
+                                    End If
                                 End If
 
                             End If
@@ -5596,13 +5618,14 @@ Namespace Modelos
 
 
                     If CveEstatus.Contiene(4, 5) Then
-                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion, EstadoCancelacion:=EstadoCancelacion) Then
+                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion) Then
                             ErrorCancelar = True
                             MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
                         End If
                     Else
                         If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
-                                  CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion) Then
+                                                              CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion,
+                                                              MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion) Then
                             ErrorCancelar = True
                             MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
                         End If
@@ -6257,6 +6280,7 @@ Namespace Modelos
         Public Property RFCReceptor As String = ""
         Public Property ServicioDomicilio As Boolean
         Public Property CveEstatusRefacturacion As Integer = 0
+        Public Property CveEstadoCancelacion As Integer = 0
         Public Property NuevaFactura As Integer
         Public Property EnviarCorreo As Boolean = False
         Public Property ErrorList As List(Of String)

Bancos/FluctuacionCambiaria.aspx

@@ -232,7 +232,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoCompras" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoCompras.ClientID.ToString()%>">
@@ -241,26 +241,26 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-6" style="text-align: right!important">
+                            <div class="col-md-2" style="text-align: right!important">
                                 <asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
-                            </div>
+                                <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
-                             <div> <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
+                                <asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" /></div>
-                                 <asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" OnClick="BtnProveedoresRemove_Click" /></div>
 
                         </div>
                          
                         <br />
                         <asp:GridView ID="GvCompras" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria"
+                            DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
-                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank"  DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:BoundField HeaderText="# Facturas" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                 <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Fluctuación Pesos" DataField="FluctuacionTotal" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="PerdidaGanancia" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="PerdidaGanancia" ItemStyle-Width="100"  />
                             </Columns>
                         </asp:GridView>
                         <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
@@ -339,7 +339,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlsubProyectoVentas" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlsubProyectoVentas.ClientID.ToString()%>">
@@ -362,12 +362,13 @@
 
 
                         <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria" EmptyDataText="No se Encontraron Cuentas Bancarias."
+                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto,CveIE" EmptyDataText="No se Encontraron Cuentas Bancarias."
                             ToolTip="Listado de Cuentas Bancarias" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
-                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
+                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
-                                <asp:BoundField DataField="SerieFolio" HeaderText="SerieFolio" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="Diferencia" HeaderText="Diferencia TC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N4}" />
@@ -393,7 +394,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubproyectoBancos.ClientID.ToString()%>">
@@ -453,7 +454,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoDeudores.ClientID.ToString()%>">
@@ -504,7 +505,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoAcreedores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoAcreedores.ClientID.ToString()%>">
@@ -512,10 +513,7 @@
                                 </label>
                                 <asp:RequiredFieldValidator ID="RFVDdlSubProyectoAcreedores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoAcreedores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedores"></asp:RequiredFieldValidator>
                                 <i></i>
-                            </div>
+                            </div> 
-
-
-
                             <div class="col-md-6" style="text-align: right!important">
                                 <asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
                             </div>
@@ -524,7 +522,7 @@
 
 
                         <asp:GridView ID="GvAcreedores" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio"
+                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio,IdCtaContComplementaria,CveIE"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
@@ -553,7 +551,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoFiliales" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoFiliales.ClientID.ToString()%>">

Bancos/FluctuacionCambiaria.aspx.vb

@@ -132,8 +132,10 @@ Partial Class Bancos_FluctuacionCambiaria
 
             Dim Final As Double = GanaciaAux - PerdidaAux
             HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
-            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
-
+            BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0
+
             IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
 
             LtIndicador_ExistenciaPerdida.Text = PerdidaAux.ToString.FormatoNumero
@@ -320,37 +322,38 @@ Partial Class Bancos_FluctuacionCambiaria
             ErrorRegistrar = True
         End If
 
-        'Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        'If CveBitacora <= 0 Then
+        If CveBitacora <= 0 Then
-        '    ErrorRegistrar = True
+            ErrorRegistrar = True
-        'End If
+        End If
-
+
-
+        If Not ErrorRegistrar Then
-        'saco las cuentas de pérdida y ganancia
+            'saco las cuentas de pérdida y ganancia
-        For Each gvr As GridViewRow In GvCompras.Rows
+            For Each gvr As GridViewRow In GvCompras.Rows
-            Total = gvr.DataKey("Fluctuacion").ToDecimal
+                Total = gvr.DataKey("Fluctuacion").ToDecimal
-            'si es pérdida o ganancia
+                'si es pérdida o ganancia 
-
+                IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
-            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
+
-            'movimiento de complementaria
+                'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
-                ErrorRegistrar = True
+                    ErrorRegistrar = True
-                Exit For
+                    Exit For
-            End If
+                End If
+
+                If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                    ErrorRegistrar = True
+                    Exit For
+                End If
+
+            Next
+
+            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
+
+        End If
 
-            'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
-            '    ErrorRegistrar = True
-            '    Exit For
-            'End If
-
-        Next
-
-        'Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
-
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-
         Else
             Conta.RollBack()
         End If
@@ -409,7 +412,8 @@ Partial Class Bancos_FluctuacionCambiaria
             ErrorRegistrar = True
         End If
 
-        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
             ErrorRegistrar = True
         End If
 
@@ -421,24 +425,30 @@ Partial Class Bancos_FluctuacionCambiaria
 
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
-            If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
+            If (gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0) OrElse (gvr.DataKey("CveVenta").ToEntero > 0 AndAlso gvr.DataKey("TipoDocto") = "Ant") Then
                 CveConconceptoCliente = 226
             Else
                 CveConconceptoCliente = 203
             End If
 
-            'If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
-            '    ErrorRegistrar = True
-            '    Exit For
-            'End If
-
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
+
+            If Not Conta.UpdateTCValuacion(gvr.DataKey("CveVenta").ToEntero, -1, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+
         Next
 
+        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+
+
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
@@ -718,7 +728,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -748,24 +758,40 @@ Partial Class Bancos_FluctuacionCambiaria
             CveCuenta = CveCuentaPerdida
             idCta = idCtaPerdida
             TipoMovto = False
-        End If
+        End If
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
-        End If
+        End If
-
+
-
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        'saco las cuentas de pérdida y ganancia
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
+        'saco las cuentas de pérdida y ganancia
         For Each gvr As GridViewRow In GvAcreedores.Rows
             Total = gvr.DataKey("Fluctuacion").ToDecimal
-            'si es pérdida o ganancia
+            'si es pérdida o ganancia 
-
+            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
             If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria) Then
                 ErrorRegistrar = True
                 Exit For
-            End If
+            End If
-        Next
+
+            'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+            '    ErrorRegistrar = True
+            '    Exit For
+            'End If
+
+        Next
+
+        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
+
 
         If Not ErrorRegistrar Then
             Conta.Commit()
@@ -774,160 +800,11 @@ Partial Class Bancos_FluctuacionCambiaria
             Conta.RollBack()
         End If
         Conta.Dispose()
+        Banco.Dispose()
     End Sub
 
 #End Region
-
+     
-#Region "FLUCTUACION GENERAL"
-
-    '    Protected Sub BtnGenerar_Click(sender As Object, e As EventArgs)
-    '        Dim AcumuladoGananciaCompras = 0.0, AcumuladoPerdidaCompras = 0.0, AcumuladoGananciaBancos = 0.0, AcumuladoPerdidaBancos = 0.0
-    '        Dim IDPoliza = -1
-
-    '        'Valida datos de Compras
-    '        For Each gvr As GridViewRow In GvCompras.Rows
-    '            If gvr.DataKey("SinTipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                Alert("No se puede Generar la Fluctuación ya que faltan datos en Compras")
-    '                'Exit Sub
-    '            Else
-    '                If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                    If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
-    '                        AcumuladoGananciaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    Else
-    '                        AcumuladoPerdidaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
-    '                    End If
-    '                End If
-
-    '            End If
-    '        Next
-
-    '        'Valida datos de Bancos
-    '        For Each gvr As GridViewRow In GvCuentas.Rows
-    '            If Not gvr.DataKey("TipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                Alert("No se puede Generar la Fluctuación ya que faltan datos en Cuentas Bancarias")
-    '                'Exit Sub
-    '            Else
-    '                If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                    If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
-    '                        AcumuladoGananciaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    Else
-    '                        AcumuladoPerdidaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
-    '                    End If
-    '                End If
-
-    '            End If
-    '        Next
-
-    '        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-    '        ObjConta.IniciaTransacSQL()
-    '        Dim ObjBancos As New ClsBancos
-    '        ObjBancos.IniciaTransacSQL()
-    '        Dim ErrorGenerar = False
-    '        Dim Fecha As Date = TxtFecha.Text.ToDate
-
-    '        IDPoliza = ObjConta.AddPoliza(3, "Fluctuación Cambiaria", (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, UsuarioActual.CveUsuario, Fecha)
-
-    '        If IDPoliza > 0 Then
-
-    '            'COMIENZA: AGREGA CUENTAS BANCARIAS
-    '            If AcumuladoGananciaBancos > 0 Or AcumuladoPerdidaBancos > 0 Then
-    '                'Agrega movimientos
-    '                Dim Fluc As Double
-    '                For Each gvr As GridViewRow In GvCuentas.Rows
-    '                    Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                        If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Cuentas Bancarias", If(Fluc > 0, "Ganancia", "Perdida")), 0, Fecha, "") Then
-    '                            ErrorGenerar = True
-    '                            Exit For
-    '                        End If
-    '                    End If
-    '                Next
-
-    '                'Agrega acumulados
-    '                If Not ErrorGenerar AndAlso AcumuladoGananciaBancos > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, 2195, AcumuladoGananciaBancos > 0, AcumuladoGananciaBancos, "", "Acumulado Ganancia Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '                If Not ErrorGenerar AndAlso AcumuladoPerdidaBancos > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, 4695, AcumuladoPerdidaBancos > 0, AcumuladoPerdidaBancos, "", "Acumulado Pérdida Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '            'TERMINA: AGREGA CUENTAS BANCARIAS
-
-
-    '            'COMIENZA: AGREGA COMPRAS
-    '            If AcumuladoGananciaCompras > 0 Or AcumuladoPerdidaCompras > 0 Then
-    '                'Agrega movimientos
-    '                Dim Fluc As Double
-    '                For Each gvr As GridViewRow In GvCompras.Rows
-    '                    Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                        If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Compras", If(Fluc > 0, "Ganancia", "Pérdida")), 0, Fecha, "") Then
-    '                            ErrorGenerar = True
-    '                            Exit For
-    '                        End If
-    '                    End If
-    '                Next
-
-    '                'Agrega acumulados
-    '                If Not ErrorGenerar AndAlso AcumuladoGananciaCompras > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, Not AcumuladoGananciaCompras > 0, AcumuladoGananciaCompras, "", "Acumulado Ganancia Cambiaria de Compras", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '                If Not ErrorGenerar AndAlso AcumuladoPerdidaCompras > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, Not AcumuladoPerdidaCompras > 0, AcumuladoPerdidaCompras, "", "Acumulado Pérdida Cambiaria de Compras", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '            'TERMINA: AGREGA COMPRAS
-
-
-    '        Else
-    '            ErrorGenerar = True
-    '        End If
-
-
-    '        'Agrega en Bitacoras
-    '        If Not ErrorGenerar Then
-    '            If ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-    '                If Not ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-    '                    ErrorGenerar = True
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '        End If
-
-
-    '        If Not ErrorGenerar Then
-
-    '            ObjConta.AjustaPoliza(IDPoliza)
-
-    '            ObjConta.Commit()
-    '            ObjBancos.Commit()
-    '            Alert(String.Format("Fluctuación realizada con exito.<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza))
-    '        Else
-    '            ObjConta.RollBack()
-    '            ObjBancos.RollBack()
-    '            Alert("Ocurrio un error al generar la poliza", TipoMensaje.MsgAdvertencia)
-    '        End If
-
-    '        ObjConta.Dispose()
-    '        ObjBancos.Dispose()
-    '    End Sub
-
-
-#End Region
-
 #Region "GRIDVIEWS"
 
     Protected Sub GvCompras_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompras.RowDataBound
@@ -996,11 +873,15 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Protected Sub BtnProveedoresRemove_Click(sender As Object, e As EventArgs)
         Dim Banco As New ClsBancos
-        If Not Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, 1, UsuarioActual.CveEmpresa) Then
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
             Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
         End If
         Banco.Dispose()
 
-
     End Sub
 End Class

Bancos/IE.aspx

@@ -1370,9 +1370,9 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%">
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                       <ItemTemplate>
-                                          <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
+                                          <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible ="false">
                                           </asp:DropDownList>
                                           <asp:Literal runat="server" ID="LtlMotivoCancelacion"  Text='<%# Eval("MotivoCancelacion") %>'>  </asp:Literal>
                                        </ItemTemplate>

Bancos/IE.aspx.vb

@@ -4606,7 +4606,7 @@ Partial Class Bancos_IE
                     End If
 
 
-                    If Not ErrorCancelarComplemento Then
+                    If CveMotivoCancelacion > 0 AndAlso CveSATMotivoCancelacion > 0 Then
 
                         Dim ObjCancelacion As New Timbrado
                         If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
@@ -4621,7 +4621,7 @@ Partial Class Bancos_IE
                         Else
                             If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
                                     CargaComplementosPago()
                                     RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                     ErrorCancelarComplemento = False
@@ -5902,16 +5902,20 @@ Partial Class Bancos_IE
                     e.Row.FCDropDownList("DdlMotivoCancelacion").DataBind()
                     e.Row.FCDropDownList("DdlMotivoCancelacion").Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
+                    If e.Row.DataKey("Estatus").ToEntero = 1 Then
+                        e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
+                    End If
+
                 Else
                     e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
                     e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
+
+                    If e.Row.DataKey("Estatus").ToEntero = 2 Then
+                        e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
+                    End If
                 End If
 
-                If e.Row.DataKey("Estatus").ToEntero = 2 Then
+
-                    e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
-                Else
-                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
-                End If
 
             ElseIf e.Row.DataKey("Tipo") = "Egs" Then
 

RH/CatPersonal.aspx

@@ -1141,7 +1141,10 @@
 
 
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
+                                            <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                                DataTextField="Nombre" DataValueField="CveOrigen" ValidationGroup="GrpGuardar">
+                                            </asp:DropDownList>
+                                           <%-- <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                 <asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
                                                 <asp:ListItem Value="2" Text="Taxi-1"></asp:ListItem>
@@ -1151,7 +1154,7 @@
                                                 <asp:ListItem Value="7" Text="Taxi-5"></asp:ListItem>
                                                 <asp:ListItem Value="6" Text="Taxi-6"></asp:ListItem>
                                                 <asp:ListItem Value="8" Text="Costa"></asp:ListItem>
-                                            </asp:DropDownList>
+                                            </asp:DropDownList>--%>
                                             <asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
                                         </div>
                                     </div>

RH/CatPersonal.aspx.vb

@@ -62,7 +62,7 @@ Partial Class RH_CatPersonal
             CargaJornada()
             CargaEstados()
             CargaSatRiesgoPuesto()
-
+            CargaMedioTransporte()
             LoadDefaultValues()
 
 
@@ -288,6 +288,18 @@ Partial Class RH_CatPersonal
         'End If
         UpSubProyecto.Update()
     End Sub
+    Private Sub CargaMedioTransporte()
+        Dim objgenerales As New ClsGenerales()
+        objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+        DdlMedioTransporte.Items.Clear()
+        DdlMedioTransporte.DataSource = objgenerales.DtResultados
+        DdlMedioTransporte.DataBind()
+        'filtro por usuario subproyecto/sucursal vsh
+        'If UsuarioActual.CveEmpresa = 7 Then
+        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
+        'End If
+        'UpSubProyecto.Update()
+    End Sub
 
     Private Sub CargaTipoCentroCosto()
 

Ventas/ClientesAbonar.aspx

@@ -187,11 +187,18 @@
                                     <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
                                 </div>
                             </div>
-                            <div class="row" runat="server" id="rowComisiones">
+                            <div class="row">
-                                <label class="col-md-2" runat="server" id="lblpagocomisiones">Otros Ingresos:</label>
+                                <div class="col-md-2"   runat="server" id="rowComisiones1">Otros Ingresos:</div>
-                                <div class="col-md-3">
+                                <div class="col-md-3"  runat="server" id="rowComisiones2">
                                     <asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />
                                 </div>
+
+
+                                 <div class="col-md-2"   runat="server" id="DvLiquidacion1" visible="false">Liquidación:</div>
+                                <div class="col-md-3"  runat="server" id="DvLiquidacion2" visible="false">
+                                    <asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
+                                </div>
+
                             </div>
 
                             <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
@@ -264,6 +271,8 @@
                 DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento,ClaveMetodoPagoSAT"
                 CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                 <Columns>
+                    
+                    <%--0--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             <input type="checkbox" id="ChkAll" onclick="CheckAll();" />
@@ -272,58 +281,84 @@
                             <asp:CheckBox ID="Chk" CssClass="chkgv" runat="server"></asp:CheckBox>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--1--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                         <HeaderTemplate>Venta</HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink ID="HplF" CssClass="Texto" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>' Text='<%# Eval("SerieFolio")%>' runat="server"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField HeaderText="Tipo Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
+                    <%--2--%>
-                    <%--<asp:HyperLinkField DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" HeaderText="Factura" ControlStyle-CssClass="Texto" />--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                        <HeaderTemplate>Fecha Venta</HeaderTemplate>
+                        <HeaderTemplate>Tipo<br> Docto</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+                    <%--3--%>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                        <HeaderTemplate>Fecha<br> Venta</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--4--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                        <HeaderTemplate>Fecha Vencimiento</HeaderTemplate>
+                        <HeaderTemplate>Fecha <br> Vencimiento</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaVenci" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--5--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                        <HeaderTemplate>Días Vencidos</HeaderTemplate>
+                        <HeaderTemplate>Días<br> Vencidos</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>&nbsp;
+                            <asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField HeaderText="Método de Pago" DataField="ClaveMetodoPagoSAT" ItemStyle-HorizontalAlign="Left" />
+                    <%--6--%>
-                    <asp:BoundField HeaderText="Forma de Pago" DataField="FormaPago" ItemStyle-HorizontalAlign="Left" />
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate>Método<br> de Pago</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("ClaveMetodoPagoSAT", "{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--7--%>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate>Forma<br> de Pago</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFormaPago" runat="server" Text='<%# Eval("FormaPago", "{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+                    <%--8--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>Monto Compra</HeaderTemplate>
+                        <HeaderTemplate>Monto <br> Compra</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--9--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                         <HeaderTemplate></HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink ID="LtlMoneda" runat="server" Text='<%# Eval("TMoneda", "{0}") %>' Style="text-decoration: none" Enabled="false" ForeColor="#333333"></asp:HyperLink>&nbsp;
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField>
                         <HeaderTemplate>Abonado</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
                     <asp:TemplateField>
                         <HeaderTemplate>Saldo</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--12--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                         <HeaderTemplate>Abonar</HeaderTemplate>
                         <ItemTemplate>
@@ -331,6 +366,7 @@
                             <asp:RangeValidator ID="RVAbonar" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtAbonar" Display="Dynamic"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--13--%>
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>Ot. Ing.</HeaderTemplate>
                         <ItemTemplate>
@@ -338,33 +374,96 @@
                             <asp:RangeValidator ID="RVComision" runat="server" Enabled="false" ErrorMessage="*" ControlToValidate="TxtComision" Display="Dynamic" Type="Double"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--14--%>
                     <asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Center">
-                        <HeaderTemplate>Descuento Pronto Pago</HeaderTemplate>
+                        <HeaderTemplate>Descuento<br>Pronto Pago</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlDescuentoProntoPago" runat="server" Text='<%# Eval("DescuentoProntoPago", "{0:N2}") %>'></asp:Literal>&nbsp;
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Generar NC" Visible="false" >
+                    <%--15--%>
+                    <asp:TemplateField  Visible="false" >
+                         <HeaderTemplate>Generar<br> NC</HeaderTemplate>
                         <ItemTemplate>
                             <asp:CheckBox ID="ChkGenerarNC" CssClass="chkgv" runat="server" Visible="false" Enabled="false"></asp:CheckBox>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+
+                       <%--16--%>
+                    <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 1</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol1" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--17--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 2</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol2" Width="50px" runat="server"  Style="text-align: right;" ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--18--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 3</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol3" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--19--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 4</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol4" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--20--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 5</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol5" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--21--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 6</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol6" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--22--%>
+                     <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Col. 7</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol7" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--23--%>
+                      <asp:TemplateField Visible="false">
+                        <HeaderTemplate>Total<br>Liquidación</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtLiquidacionCol8" Width="50px" runat="server"  Style="text-align: right;" onkeypress="return  disablekeys();"></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%--24--%>
                     <asp:TemplateField ItemStyle-Width="300px">
                         <HeaderTemplate>Auxiliar</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlAux" runat="server"></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--25--%>
                     <asp:TemplateField Visible="False">
                         <HeaderTemplate>CveVenta</HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink ID="HplF2" CssClass="btn-success" Text='<%# Eval("CveVenta")%>' runat="server"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-
+                    <%--26--%>
-
                       <asp:TemplateField >
-                        <HeaderTemplate>Complemento Pago</HeaderTemplate>
+                        <HeaderTemplate>Complemento<br> Pago</HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal runat="server" ID="LtlComplemento"  Text="<i class='fa fa-check text-success ' aria-hidden='true'></i>"   ></asp:Literal>
                         </ItemTemplate>
@@ -508,7 +607,7 @@
     <script type="text/javascript">
         var Ventas = '';
 
-        function FnSuma(t, txt, importe) {
+        function FnSuma(t, txt, importe, CveVenta) {
              
             var chkPesosBancos = $get("ChkPagarPesos");
             var chkDolaresBancos = $get("ChkPagarDolares");
@@ -518,6 +617,14 @@
                 txt.value = FormatoNumero(importe, 2);
             } else {
                 txt.value = "";
+
+                let ClsSelLiquidacionVenta = ".ClsSelLiquidacionVenta" + CveVenta;
+                let ClsSelLiquidacionVentaTotal = ".ClsSelLiquidacionVentaTotal" + CveVenta;
+
+                $(ClsSelLiquidacionVenta).val('');
+                $(ClsSelLiquidacionVentaTotal).val('');
+                
+
             }
             //if (typeof t2 === "undefined") {
 
@@ -548,6 +655,8 @@
             var facDolares = false;
             var div = document.getElementById("DivTC")
 
+            let totalLiquidacion = 0.0;
+
             if ($get('TxtTC') != null) {
                 tc = ToDouble($get('TxtTC').value);
             }
@@ -602,6 +711,22 @@
             }
             $get('TxtObservaciones').value = $get('HdnObs').value + ' Ventas: ' + Ventas;
 
+
+
+            
+            $(".ClsSelLiquidacion").each(function () {
+
+                let valorString = $(this).val();
+                valorString = valorString.replace(/,/g, '');
+
+                if (valorString.trim().length > 0) {
+                    totalLiquidacion = totalLiquidacion + parseFloat(valorString);
+                }
+
+            });
+
+
+
             if ($get('TxtOtrosImportes') != null) {
                 if (pagoMultiple != 0) {
                     $get('TxtOtrosImportes').value = FormatoNumero(Comision, 2);
@@ -612,12 +737,12 @@
 
                 }
                 else {
-                    return Importe + parseFloat(Comision);
+                    return Importe + parseFloat(Comision) - totalLiquidacion;
                 }
 
             }
             else {
-                return Importe
+                return Importe - totalLiquidacion
             }
         }
 
@@ -790,5 +915,44 @@
                 TipoCambioActual = TipoCambioTxt;
             }
         }
+
+
+
+        function SumaLiquidacion(txt, CveVenta, pagoMultiple, monedaPago) {
+
+            let ClsSelLiquidacionVenta = ".ClsSelLiquidacionVenta" + CveVenta;
+            let ClsSelLiquidacionVentaTotal = ".ClsSelLiquidacionVentaTotal" + CveVenta;
+            let Total = 0.0;
+
+
+            $( ClsSelLiquidacionVenta).each(function () {
+
+                let valorString = $(this).val();
+                valorString = valorString.replace(/,/g, '');
+                
+                if (valorString.trim().length > 0) {
+                    Total = Total + parseFloat(valorString);
+                }                
+
+            });
+
+            $(ClsSelLiquidacionVentaTotal).each(function () {
+                $(this).val(Total);
+                FormatoMoneda2($(this));
+            });
+
+           
+            FormatoMoneda(txt);
+
+            var Suma = SumaValores(pagoMultiple, monedaPago);
+            $get('TxtImporte').value = FormatoNumero(Suma, 2);
+            
+        }
+
+        function disablekeys()
+        {
+            return false;
+        }
+
     </script>
 </asp:Content>

Ventas/ClientesAbonar.aspx.vb

@@ -257,7 +257,7 @@ Partial Class Ventas_ClientesAbonar
 
                     IdCuentaBancaria = 0
 
-                    TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1});", "TxtTotal", 0))
+                    TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1},-1);", "TxtTotal", 0))
 
                     If CveMoneda > 0 Then LbTipoMoneda.Text = String.Format("Pago en {0}", GlobalDTMonedas.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)).Rows(0)("Moneda"))
 
@@ -292,6 +292,12 @@ Partial Class Ventas_ClientesAbonar
 
             RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy")
 
+
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
+                DvLiquidacion1.Visible = True
+                DvLiquidacion2.Visible = True
+            End If
+
         End If
 
         If (CveMonedaFiltro = 2 And ChkPagarPesos.Checked) Then
@@ -497,6 +503,7 @@ Partial Class Ventas_ClientesAbonar
     End Sub
 
     Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim moneda As Integer = 0
             If e.Row.RowIndex = 0 Then
@@ -507,6 +514,19 @@ Partial Class Ventas_ClientesAbonar
                 e.Row.Cells(3).Visible = False
                 e.Row.Cells(4).Visible = False
                 e.Row.BackColor = Drawing.Color.LightGray
+
+
+                e.Row.FCTextBox("TxtLiquidacionCol1").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol2").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol3").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol4").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol5").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol6").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol7").Visible = False
+                e.Row.FCTextBox("TxtLiquidacionCol8").Visible = False
+
+
+
             End If
             If e.Row.RowIndex = 1 Then
                 e.Row.Cells(0).Width = Unit.Pixel(25)
@@ -548,9 +568,9 @@ Partial Class Ventas_ClientesAbonar
             End Select
 
             If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 Then
-                e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4}); FnSeleccionaNC({5},{6},{0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("ChkGenerarNC").ClientID))
+                e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnSeleccionaNC({5},{6},{0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("ChkGenerarNC").ClientID, e.Row.DBCampo("CveVenta")))
             Else
-                e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
+                e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4},{5});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta")))
             End If
 
             If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
@@ -578,9 +598,32 @@ Partial Class Ventas_ClientesAbonar
 
                 If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 0 Then
                     e.Row.FCCheckBox("ChkGenerarNC").Visible = True
-                    e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda))
+                    e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta")))
                 End If
 
+                e.Row.FCTextBox("TxtLiquidacionCol1").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol2").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol3").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol4").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol5").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol6").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol7").Attributes.Add("class", $"ClsSelLiquidacion ClsSelLiquidacionVenta{e.Row.DBCampo("CveVenta").ToEntero}")
+                e.Row.FCTextBox("TxtLiquidacionCol8").Attributes.Add("class", $"ClsSelLiquidacionVentaTotal{e.Row.DBCampo("CveVenta").ToEntero}")
+
+
+                e.Row.FCTextBox("TxtLiquidacionCol1").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol2").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol3").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol4").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol5").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol6").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+                e.Row.FCTextBox("TxtLiquidacionCol7").Attributes.Add("onkeyup", $"SumaLiquidacion(this,{e.Row.DBCampo("CveVenta").ToString},{CveMonedaFiltro},{ moneda})")
+
+
+
+
+
+
             Else
                 e.Row.FCTextBox("TxtAbonar").Visible = False
                 e.Row.FCTextBox("TxtComision").Visible = False
@@ -823,7 +866,9 @@ Partial Class Ventas_ClientesAbonar
 
                     'inserto las ventas que voy a pagar
                     For Each gvr As GridViewRow In GvCxC.Rows
+
                         If gvr.FCCheckBox("Chk").Checked Then
+
                             Dim ObjFactura As Modelos.Factura = Nothing
 
                             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -861,6 +906,7 @@ Partial Class Ventas_ClientesAbonar
                             If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then EsAnticipoEspecial = True
 
                             If dtConceptos IsNot Nothing Then
+
                                 For Each Row As DataRow In dtConceptos.Rows
 
                                     Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
@@ -1487,7 +1533,84 @@ Partial Class Ventas_ClientesAbonar
                                         End If
 
                                     End If
+
                                 Next
+
+
+                                Dim ImporteLiquidacion1 As Decimal = gvr.FCTextBox("TxtLiquidacionCol1").Text.ToDecimal
+                                Dim ImporteLiquidacion2 As Decimal = gvr.FCTextBox("TxtLiquidacionCol2").Text.ToDecimal
+                                Dim ImporteLiquidacion3 As Decimal = gvr.FCTextBox("TxtLiquidacionCol3").Text.ToDecimal
+                                Dim ImporteLiquidacion4 As Decimal = gvr.FCTextBox("TxtLiquidacionCol4").Text.ToDecimal
+                                Dim ImporteLiquidacion5 As Decimal = gvr.FCTextBox("TxtLiquidacionCol5").Text.ToDecimal
+                                Dim ImporteLiquidacion6 As Decimal = gvr.FCTextBox("TxtLiquidacionCol6").Text.ToDecimal
+                                Dim ImporteLiquidacion7 As Decimal = gvr.FCTextBox("TxtLiquidacionCol7").Text.ToDecimal
+
+                                Dim CveClasificacionCol1 As Integer = 21267
+                                Dim CveClasificacionCol2 As Integer = 21229
+                                Dim CveClasificacionCol3 As Integer = 21520
+                                Dim CveClasificacionCol4 As Integer = 21519
+                                Dim CveClasificacionCol5 As Integer = 21547
+                                Dim CveClasificacionCol6 As Integer = 21572
+                                Dim CveClasificacionCol7 As Integer = 21571
+
+                                Dim CveSubProyectoLiquidacion As Integer = gvr.DataKey("CveSubProyecto").ToEntero
+
+                                Dim CveConceptoLiquidacion As Integer = 51
+
+                                If ImporteLiquidacion1 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion1, "Liquidacion Col 1", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion1 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+                                If ImporteLiquidacion2 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion2, "Liquidacion Col 2", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion2 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+                                If ImporteLiquidacion3 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion3, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 3", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion3 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+
+                                If ImporteLiquidacion4 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion4, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 4", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion4 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+
+
+                                If ImporteLiquidacion5 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion5, "Liquidacion Col 5", CveConceptoLiquidacion, "Liquidacion Col 5", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion5 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+                                If ImporteLiquidacion6 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion6, "Liquidacion Col 6", CveConceptoLiquidacion, "Liquidacion Col 6", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion6 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+                                If ImporteLiquidacion7 <> 0 Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion7, "Liquidacion Col 7", CveConceptoLiquidacion, "Liquidacion Col 7", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion7 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7) Then
+                                        MsgError = "No se pudo insertar la póliza"
+                                        Exit For
+                                    End If
+                                End If
+
+
+
                             End If
                             If gvr.FCCheckBox("ChkGenerarNC").Checked AndAlso ObjFactura IsNot Nothing Then
                                 ObjFactura.DescuentoProntoPago = gvr.DataKey("DescuentoProntoPago").ToDecimal()
@@ -3136,4 +3259,46 @@ Partial Class Ventas_ClientesAbonar
         Calendario.EndDate = DateTime.Now
 
     End Sub
+
+
+#Region "LIQUIDACION"
+
+    Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs)
+
+
+        If ChkLiquidacion.Checked Then
+            '16-23
+            GvCxC.Columns(16).Visible = True
+            GvCxC.Columns(17).Visible = True
+            GvCxC.Columns(18).Visible = True
+            GvCxC.Columns(19).Visible = True
+            GvCxC.Columns(20).Visible = True
+            GvCxC.Columns(21).Visible = True
+            GvCxC.Columns(22).Visible = True
+            GvCxC.Columns(23).Visible = True
+
+            GvCxC.Columns(26).Visible = False
+
+        Else
+            GvCxC.Columns(16).Visible = False
+            GvCxC.Columns(17).Visible = False
+            GvCxC.Columns(18).Visible = False
+            GvCxC.Columns(19).Visible = False
+            GvCxC.Columns(20).Visible = False
+            GvCxC.Columns(21).Visible = False
+            GvCxC.Columns(22).Visible = False
+            GvCxC.Columns(23).Visible = False
+
+            GvCxC.Columns(26).Visible = True
+
+
+        End If
+
+        UPVentas.Update()
+
+    End Sub
+
+#End Region
+
+
 End Class

Ventas/MetasVendedores.aspx

@@ -52,7 +52,7 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Metas de Vendedores
+  Scorecard Ventas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>

Ventas/ProductosServicios.aspx

@@ -264,7 +264,7 @@
                                             <i></i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright col-xs-3" id="divLitraje" visible="false" runat="server">
-                                            <asp:TextBox ID="TxtLitraje" CssClass="form-control " runat="server" ReadOnly="true"></asp:TextBox>
+                                            <asp:TextBox ID="TxtLitraje" CssClass="form-control " runat="server" ></asp:TextBox>
                                             <%--<ajax:FilteredTextBoxExtender ID="FTBETVentaMinima" TargetControlID="TxtVentaMinima" FilterType="Numbers" runat="server" ValidChars=".," />--%>
                                             <label class="truncate" style="padding-left: 16px;" for="<%= TxtLitraje.ClientID.ToString()%>">Litraje:</label>
                                             <i></i>

Ventas/ProductosServicios.aspx.vb

@@ -1372,7 +1372,7 @@ Partial Class ProductosyServicios
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                 CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) > 0 Then
+                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1423,7 +1423,7 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                   CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) Then
+                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -451,12 +451,13 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlGrupo.SelectedValueExist(GPO)
         RblTipoCambio.SelectedValue = TipoCambio.ToString
         If TipoCambio > 1 Then CveMoneda = -1
+        CargarMarcas(CveMarca)
 
         CargaProvedores(CveProveedorCompra)
         'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra
         DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle)
-        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca, ModalidadContable)
+        CargaDatos()
-        CargarMarcas(CveMarca)
+
     End Sub
 #End Region
 
@@ -497,32 +498,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
-    Private Sub CargaDatos(CveProyecto As String, CveSubProyecto As String, CveCategoria As String, CveClasificacion As String, CvePS As String, Mes As String, MesEjec As String, CveCliente As Integer, CveSubProyectoEjecucion As String, CveVendedor As Integer, CveUsuario As String, CveEstatus As String, Gpo As Integer, TipoDocto As String, CveMarca As Integer, ModalidadContable As Boolean)
-        Dim ObjVentas As New ClsVentas()
-        Dim FechaI, FechaF, FechaIEjec, FechaFEjec As Date
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
-        FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.ToDate, MinFecha)
-        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
-        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
-        Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
-
-        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
-
-        If ObjVentas.GetRepProductosServiciosDetalle(CveProyecto.ToEntero, CveSubProyecto.ToEntero, CveCategoria.ToEntero, CveClasificacion.ToEntero, CvePS.ToEntero,
-                                                     FechaI, FechaF, Mes.ToEntero, FechaIEjec, FechaFEjec, MesEjec.ToEntero, CveCliente.ToEntero, CveSubProyectoEjecucion.ToEntero,
-                                                     CveVendedor, CveUsuario.ToEntero, CveEstatus.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
-                                                     GPO:=Gpo, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                                     CveProveedorCompra:=CveProveedorCompra, CveMarca:=CveMarca, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
-            GvDatos.DataSource = ObjVentas.DtResultados
-            TmpDT = ObjVentas.DtResultados
-        Else
-            GvDatos.DataSource = Nothing
-        End If
-        ObjVentas.Dispose()
-        GvDatos.DataBind()
-        Agrupador = DdlGrupo.SelectedItem.Text
-    End Sub
     Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs)
         CargaDatos()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
@@ -533,14 +508,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
             DivMarca.Visible = True
             LblMarca.Visible = True
 
-            Dim ObjMarcas As New ClsProductosServicios
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarcaPSDes.DataBind()
-                DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                ObjMarcas.Dispose()
-                DdlMarcaPSDes.DataBind()
-            End If
         End If
-        DdlMarcaPSDes.Items.Insert(0, New ListItem(" - ", "-1"))
+        DdlMarcaPSDes.Items.Insert(0, New ListItem("Todas", "-1"))
         DdlMarcaPSDes.Items.FindByValue(CStr(CveMarca)).Selected = True
     End Sub
 #End Region
@@ -573,14 +544,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                 End If
             Else
                 If Not e.Row.DBCampo("CveVenta").ToEntero > 0 Then
-                    'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
+
-                    'e.Row.Cells(0).Width = Unit.Pixel(200)
-                    'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-                    'e.Row.Cells(1).Width = Unit.Pixel(60)
-                    'e.Row.Cells(2).Width = Unit.Pixel(90)
-                    'e.Row.Cells(3).Width = Unit.Pixel(90)
-                    'e.Row.Cells(5).Width = Unit.Pixel(80)
-                    'e.Row.Cells(8).Width = Unit.Pixel(100)
                     If e.Row.DBCampo("Gpo") = "" Then
                         e.Row.Cells(5).Text = e.Row.DBCampo("Moneda").ToString
                         e.Row.CssClass = "Totales"
@@ -593,9 +557,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             End If
 
 
-
-
-
             'Dim FechaI, FechaF As String
             'FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
             'FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
@@ -663,7 +624,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
             DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
         Else
-
             DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
             DdlProveedor.DataBind()
             DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))

Ventas/RepRecuperacion.aspx.vb

@@ -182,13 +182,13 @@ Partial Class Ventas_RepRecuperacion
 
             Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, -1, e.Row.DBCampo("CveTipoTransaccion"))
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
 
             e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
 
             Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, -1, e.Row.DBCampo("CveTipoTransaccion"))
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 

Ventas/RepRecuperacionDetalle.aspx

@@ -179,8 +179,8 @@
                             </asp:DropDownList>
                         </div>
                         
-                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
+                            <div class="col-md-1 truncate">Fecha Aplicado I: </div>
-                            <div class="col-md-1"  style="padding-left: 0px !important;">
+                            <div class="col-md-2"  style="padding-left: 0px !important;">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -194,8 +194,8 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Fecha Aplicado Fin: </div>
+                            <div class="col-md-1 truncate">Fecha Aplicado F: </div>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -225,8 +225,8 @@
                                         
                                     </asp:DropDownList>
                                 </div>
-                                <div class="col-md-1 truncate">F. Registro IE inicio:</div>
+                                <div class="col-md-1 truncate">F. Registro IE Inicio:</div>
-                                <div class="col-md-1" style="padding-left: 0px !important;">
+                                <div class="col-md-2" style="padding-left: 0px !important;">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; ">
                                         <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">
@@ -241,7 +241,7 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                                 <div class="col-md-1 truncate">F. Registro IE Fin:</div>
-                                <div class="col-md-1" >
+                                <div class="col-md-2">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding-left: 0px !important;">
                                         <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">
@@ -257,6 +257,16 @@
                                 </div>
 
                             </div>
+                    <div class="row">
+                        <div class="col-md-1 truncate">Condiciones de Pago</div>
+                            <div class="col-md-2">
+                            <asp:DropDownList ID="DdlCondicionesPago" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -147,11 +147,11 @@ Partial Class Ventas_RepRecuperacionDetalle
             txtFechaI.Text = FechaI
         End If
 
-        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing And Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
+        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing AndAlso Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
-        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing And Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
+        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing AndAlso Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
 
-        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing And Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
+        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing AndAlso Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
-        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing And Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
+        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing AndAlso Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
 
         If FechaAplicadoF <> "-1" Then
             TxtFechaAplicadoF.Text = FechaAplicadoF
@@ -187,7 +187,6 @@ Partial Class Ventas_RepRecuperacionDetalle
         CveClienteClasificacion = IfNull(Request("CveClienteClasificacion"), "-1").ToString.ToEntero
         Tipo = IfNull(Request("Tipo"), "-1").ToString.ToEntero
         EsDistribuidor = IfNull(Request("EsDistribuidor"), "-1").ToString.ToEntero
-        Dim CveTipoTransaccion As Integer = IfNull(Request("CveTipoTransaccion"), "-1").ToString.ToEntero
 
         'Carga Clasificacion Cliente'
         Dim ObjCliente As New ClsClientes
@@ -232,7 +231,8 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion)
         DdlClienteSucursal.SelectedValueExist(CveClienteSucursal)
         DdlDistribuidor.SelectedValueExist(EsDistribuidor)
-        DdlTipoTransaccion.SelectedValueExist(CveTipoTransaccion)
+        DdlTipoTransaccion.SelectedValueExist(IfNull(Request("CveTipoTransaccion"), "-1").ToString.ToEntero)
+        DdlCondicionesPago.SelectedValueExist(IfNull(Request("CveCondicionesPago"), "-1").ToString.ToEntero)
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             lblEsDistribuidor.Visible = True
@@ -260,7 +260,7 @@ Partial Class Ventas_RepRecuperacionDetalle
                                    DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
                                    TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
                                    EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF,
-                                    CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero) Then
+                                    CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados

Ventas/Ventas.aspx

@@ -1170,11 +1170,13 @@
                                                     </ItemTemplate>
                                                     <EditItemTemplate>
                                                         <asp:Literal ID="LtlPU" runat="server" Text='<%# Eval("PU") %>' Visible="false"></asp:Literal>
-                                                        <asp:TextBox ID="TxtPrecio" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("PU") %>' ValidationGroup="GprGV" Width="78px" Height="24px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtPrecio" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("PU", "{0:0.00####}") %>' ValidationGroup="GprGV" Width="78px" Height="24px"></asp:TextBox>
                                                         <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
                                                         <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GprGV"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+
                                                         <asp:CustomValidator ID="CVPrecioEdit" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprGV"></asp:CustomValidator>
+
                                                         <ajax:ValidatorCalloutExtender ID="VCEPrecioEdit" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecioEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </EditItemTemplate>
                                                 </asp:TemplateField>

Ventas/Ventas.aspx.vb

@@ -1267,6 +1267,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property CveEstadoCancelacion As Integer
+        Get
+            Return If(IsNothing(ViewState("CveEstadoCancelacion")), 0, CType(ViewState("CveEstadoCancelacion"), Integer))
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstadoCancelacion") = value
+        End Set
+    End Property
+
     Private Property PermiteCredito As Boolean
         Get
             Return If(IsNothing(ViewState("PermiteCredito")), False, CBool(ViewState("PermiteCredito")))
@@ -1321,6 +1330,14 @@ Partial Class Ventas
             ViewState("RFCReceptorVenta") = value
         End Set
     End Property
+    Private Property RegimenFiscalCliente As String
+        Get
+            Return IfNull(ViewState("RegimenFiscalCliente"), "").ToString()
+        End Get
+        Set(value As String)
+            ViewState("RegimenFiscalCliente") = value
+        End Set
+    End Property
     Private Property Adjunto As String
         Get
             Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString())
@@ -2245,6 +2262,7 @@ Partial Class Ventas
             SeCancelaRemisionProceso = False
             TotalOriginal = 0
             CveAlmacenDevolucion = 0
+            Me.CveEstadoCancelacion = 0
 
             txtFechaICot.Text = Now.AddMonths(-3).ToShortDateString
             TxtFechaIRem.Text = Now.AddMonths(-3).ToShortDateString
@@ -5681,8 +5699,12 @@ Partial Class Ventas
         'End If
     End Sub
     Private Sub CargaUsoCFDI()
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+            RegimenFiscalCliente = "-1"
+        End If
+
+        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
 
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
@@ -5964,6 +5986,10 @@ Partial Class Ventas
                 ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
                 ViewState("CliPais") = ObjCliente.Pais
                 ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
+                    CargaUsoCFDI()
+                End If
                 'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
                 ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
                 If Not ClienteDesglosaIEPS Then
@@ -10111,8 +10137,8 @@ Partial Class Ventas
         'si es cancelacion, debe de conservar el folio actual
         If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero(), -1)
 
-        'SI ES FACTURACION DE REMISION O COTIZACION NO TOMAR EL FOLIO QUE SE MUESTRA
+        'SI NO ESTABLECIO UN FOLIO FIJO Y SI ES FACTURACION DE REMISION O COTIZACION NO TOMAR EL FOLIO QUE SE MUESTRA
-        If Not EsCancelacion AndAlso ObjFactura.Folio > 0 AndAlso TipoDoctoViejo.Contiene("Rem", "Cot") Then
+        If Not EstablecioFolio AndAlso (Not EsCancelacion AndAlso ObjFactura.Folio > 0 AndAlso TipoDoctoViejo.Contiene("Rem", "Cot")) Then
             ObjFactura.Folio = -1
         End If
 
@@ -19258,6 +19284,7 @@ Partial Class Ventas
     End Sub
     Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
         ViewState("EstablecioFolio") = True
+        Alert("Se estableció el Folio Fijo para el nuevo documento.")
     End Sub
     Private Sub HabilitarFacturacionSucursal()
         trsucursalciente.Visible = True
@@ -20735,12 +20762,14 @@ Partial Class Ventas
 
                     If Vigencia.EsCancelable = "Cancelable sin aceptación" Then
                         'script = "BtnRefacturacionConfirmarAceptacion();"
+                        Me.CveEstadoCancelacion = 1
                         sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                         sb.Append("Está seguro de realizar la refacturación?.")
                     End If
 
                     If Vigencia.EsCancelable = "Cancelable con aceptación" OrElse String.IsNullOrEmpty(Vigencia.EsCancelable) Then
                         'script = "BtnRefacturacionConfirmar();"
+                        Me.CveEstadoCancelacion = 2
                         sb.AppendFormat("<b>{0}</b> <br/>", "Cancelable con aceptación")
                         sb.Append("Está seguro de cancelar el documento para realizar la refacturación?.")
                     End If
@@ -23129,7 +23158,7 @@ Partial Class Ventas
 
             If ObjVentas.EliminarVenta(CveVenta) Then
                 ObjVentas.Commit()
-                Alert("La venta ha sido eliminada correctamente.", TipoMensaje.MsgInformacion)
+                Alert("La venta ha sido eliminada correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Clientes.aspx?CveCliente=" & CveCliente & """;")
             Else
                 ObjVentas.RollBack()
             End If
@@ -23460,6 +23489,13 @@ Partial Class Ventas
                     sb.Append("<b>No encontrado</b> <br/>")
                     sb.Append("Está seguro de cancelar el documento?.")
                 Else
+                    'GUARDA EL ESTADO DE CANCELACION
+                    If Vigencia.EsCancelable.ToUpper() = "CANCELABLE CON ACEPTACIÓN" Then
+                        Me.CveEstadoCancelacion = 2
+                    ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then
+                        Me.CveEstadoCancelacion = 1
+                    End If
+
                     sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                     If Vigencia.EsCancelable.ToUpper() <> "NO CANCELABLE" Then
                         sb.Append("Está seguro de cancelar el documento?.")
@@ -23647,7 +23683,7 @@ Partial Class Ventas
                     'ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
                     'ObjE.Dispose()
 
-                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim())
+                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
                 Else
                     Dim ListaRemisionesCancelar As New List(Of Integer)
                     If ChkCanRem.Checked Then
@@ -23660,7 +23696,7 @@ Partial Class Ventas
 
                     ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
 
-                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim())
+                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
                 End If
 
                 SWatch.Stop()
@@ -30562,7 +30598,11 @@ Partial Class Ventas
 
         BtnEmitirImprimir.Text = "Facturar"
         DdlTipoComprobante.SelectedValue = "Ing"
-        TxtFecha.Text = Now.ToShortDateString()
+
+        If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
+            TxtFecha.Text = Now.ToShortDateString()
+        End If
+
         UpPS.Update()
         UpFacturar.Update()
 
@@ -31280,7 +31320,9 @@ Partial Class Ventas
 
             Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
             DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
-            TxtFecha.Text = Now.ToString()
+            If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
+                TxtFecha.Text = Now.ToString()
+            End If
             TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
             TxtFechaEjecucion.Text = Now.ToString()