diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 927c851d8..79de443d4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9544,91 +9544,93 @@ Public Class ClsPaginas
         If Pago.TipoPago = "NC" Then ConPreP.CveConcepto = If(VentaActual.CveMoneda <> 1, 301, 251)
 
         'movimiento de pago cliente
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, ConPreP.CveConcepto, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
-        'movimiento de pago cliente Complementaria
-        If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
-        End If
-
-        If Pago.AplicaTraslado Then
-            'si tiene iva y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.IVA <> 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-
-                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+        If Pago.ImportePagoVenta > 0 Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, ConPreP.CveConcepto, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
+            'movimiento de pago cliente Complementaria
+            If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
             End If
-            'si tiene RET IVA y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.RetIVA > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+
+
+            If Pago.AplicaTraslado Then
+                'si tiene iva y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.IVA <> 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+
+                    'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene RET IVA y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.RetIVA > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                    'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene Ret ISR y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                    'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene IEPS y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.IEPS).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    Dim Ret As New ConceptosRetenciones
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                    'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
             End If
-            'si tiene Ret ISR y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-            End If
-            'si tiene IEPS y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.IEPS).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                Dim Ret As New ConceptosRetenciones
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+
+            If Pago.AplicaConceptoImpuestoPendiente Then
+                'si tiene iva y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.IVA <> 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene RET IVA y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.RetIVA > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene Ret ISR y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
+                'si tiene IEPS y su proporcion
+                If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
+                    ImporteMovimiento = (PorcentajePago * VentaActual.IEPS).RoundSQL
+                    ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
+                    If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                    Dim Ret As New ConceptosRetenciones
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
+                End If
             End If
         End If
-
-        If Pago.AplicaConceptoImpuestoPendiente Then
-            'si tiene iva y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.IVA <> 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-            End If
-            'si tiene RET IVA y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.RetIVA > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-            End If
-            'si tiene Ret ISR y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-            End If
-            'si tiene IEPS y su proporcion
-            If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
-                ImporteMovimiento = (PorcentajePago * VentaActual.IEPS).RoundSQL
-                ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
-                If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                Dim Ret As New ConceptosRetenciones
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
-            End If
-        End If
-
         'concepto pago
         If Pago.TipoPago = "B" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' B A N C O S 
             Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx
index bc0f38ce9..8283ede90 100644
--- a/Ventas/PVCobranza.aspx
+++ b/Ventas/PVCobranza.aspx
@@ -328,7 +328,7 @@
                                         <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%"
                                             EmptyDataText="No se encontraron Ventas con los filtros especificados" data-sort="true" ToolTip="Listado de Ventas"
                                             CssClass="ScrollAD table table-striped table-hover Widthall mysmallbtn" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
-                                            DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza">
+                                            DataKeyNames="CveVenta,CveCliente,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza">
                                             <Columns>
                                                 <%--<asp:BoundField HeaderText="Atención" DataField="AtencionA" />--%>
                                                 <asp:TemplateField HeaderText="Atención/Cliente" ItemStyle-HorizontalAlign="Left">
@@ -441,6 +441,7 @@
                     <div class="col-md-6">
                         <asp:Panel runat="server" ID="PnlContado" DefaultButton="BtnPagar" Visible="false">
                             <div class="row">
+                               
                                 <div class="note note-success">
                                     <div class="row">
                                         <div class="col-md-2">
@@ -461,11 +462,11 @@
                                             </b>
                                         </div>
                                         <div class="col-md-1" style="text-align: right;">
-                                            <asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" />
+                                            <asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" />                                            
                                         </div>
-                                    </div>
-
+                                    </div>                               
                                 </div>
+                                
                             </div>
                             <div class="row">
                                 <div>
@@ -590,8 +591,22 @@
                                                     </div>
                                                     <div class="col-md-6">
                                                         <label>
-                                                            <asp:Literal ID="LtlTipoAnticipo" runat="server"></asp:Literal></label>
-                                                        <asp:HiddenField ID="HdnTipoAmortizacion" runat="server" Value="" />
+                                                            <asp:UpdatePanel ID="UPPCobranza" runat="server" UpdateMode="Conditional">
+                                                                <ContentTemplate>                                                                   
+                                                                    <div class="row">
+                                                                        <div class="col-md-6">
+                                                                                <asp:Literal ID="LtlTipoAnticipo" runat="server"></asp:Literal></label>
+                                                                                <asp:HiddenField ID="HdnTipoAmortizacion" runat="server" Value="" />
+                                                                                <asp:LinkButton ID="LnkCxC" runat="server" CssClass="btn btn-xs btn-success" Text="Cobranza" OnClick="LnkCxC_Click" />
+                                                                              
+                                                                        </div>
+                                                                        <div class="col-md-6">
+                                                                              <asp:TextBox ID="TxtCxCAplicado" CssClass="form-control input-sm TextBoxAsLabel" runat="server" MaxLength="12" Width="100px" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                                        </div>
+                                                                        
+                                                                    </div>                                                                    
+                                                                </ContentTemplate>
+                                                            </asp:UpdatePanel>
                                                     </div>
                                                 </div>
                                             </div>
@@ -623,39 +638,45 @@
                                                 </ContentTemplate>
                                             </asp:UpdatePanel>
 
-                                            <div class="chequesie2">
-                                                <div class="row">
-                                                    <label class="col-md-1">Total:</label>
-                                                    <div class="col-md-3 input-icon">
-                                                        <i style="margin: 0px;">$</i>
-                                                        <asp:TextBox ID="TxtImporteContado" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ReadOnly="true" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
-                                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender3" runat="server" TargetControlID="TxtImporteContado" FilterType="Custom, Numbers" ValidChars=".," />
+                                             <asp:UpdatePanel  runat="server" ID="UPPTotalesContado" UpdateMode="Conditional">
+                                                <ContentTemplate>
+                                                <div class="chequesie2">
+                                                    <div class="row">
+                                                        <label class="col-md-1">Total:</label>
+                                                        <div class="col-md-3 input-icon">
+                                                            <i style="margin: 0px;">$</i>
+                                                            <asp:TextBox ID="TxtImporteContado" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ReadOnly="true" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender3" runat="server" TargetControlID="TxtImporteContado" FilterType="Custom, Numbers" ValidChars=".," />
 
-                                                    </div>
-                                                    <label id="lblCambio" class="col-md-1">Cambio:</label>
-                                                    <div class="col-md-3 input-icon">
-                                                        <i style="margin: 0px;">$</i>
-                                                        <asp:TextBox ID="TxtCambio" CssClass="form-control input-sm " Enabled="false" runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
-                                                        <ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
-                                                        <br />
-                                                    </div>
-                                                    <label id="lblCambio2" class="col-md-1">Sob/falt:</label>
-                                                    <div class="col-md-3 input-icon">
-                                                        <i style="margin: 0px;">$</i>
-                                                        <asp:TextBox ID="TxtFaltante" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
-                                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
-                                                        <br />
+                                                        </div>
+                                                        <label id="lblCambio" class="col-md-1">Cambio:</label>
+                                                        <div class="col-md-3 input-icon">
+                                                            <i style="margin: 0px;">$</i>
+                                                            <asp:TextBox ID="TxtCambio" CssClass="form-control input-sm " Enabled="false" runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
+                                                            <br />
+                                                        </div>
+                                                        <label id="lblCambio2" class="col-md-1">Sob/falt:</label>
+                                                        <div class="col-md-3 input-icon">
+                                                            <i style="margin: 0px;">$</i>
+                                                            <asp:TextBox ID="TxtFaltante" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
+                                                            <br />
+                                                        </div>
                                                     </div>
                                                 </div>
-                                            </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
                                         </div>
                                     </div>
                                     <div class="chequesie2" id="divPagar">
                                         <div class="row">
                                             <div class="col-md-12" style="text-align: center;">
                                                 <asp:HiddenField ID="HdnCveVenta" runat="server" />
+                                                <asp:HiddenField ID="HdnCveCliente" runat="server" />
                                                 <asp:HiddenField ID="HdnPlazoCobranza" runat="server" />
                                                 <asp:HiddenField ID="HdnVentaCondicionesPago" runat="server" />
+                                                 <asp:HiddenField ID="HdnCveIE" runat="server" />
                                                 <asp:HiddenField ID="HdnTotal" runat="server" ClientIDMode="Static" />
                                                 <asp:Button ID="BtnPagar" CssClass="btn btn-large btn-success e-big-btn" runat="server" Text="Pagar" />
                                             </div>
@@ -1305,6 +1326,105 @@
         </asp:UpdatePanel>
     </div>
     <asp:Button ID="BtnEnviarMailCancelacion" runat="server" ClientIDMode="Static" Text="Enviar Mail Cliente" Style="display: none;" OnClick="BtnEnviarMailCancelacion_Click" />
+
+    
+        <asp:UpdatePanel runat="server" ID="UPPCxC" UpdateMode="Conditional" RenderMode="Inline">
+            <ContentTemplate>
+                <div id="divCxC" class="modal ADS fade" role="dialog">
+                    <div class="modal-dialog" style="width: 700px;">
+                        <div class="modal-content">
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">&times;</button>
+                                <h4 class="modal-title">
+                                    <asp:Label runat="server">Cuentas por cobrar:&nbsp;<asp:Literal ID="Literal1" runat="server"></asp:Literal></asp:Label>
+                                </h4>
+                            </div>
+                            <div class="modal-body">
+                            
+                                <div class="row" id="Div5" runat="server" visible="false">
+                                    <b>
+                                        <label class="col-md-2">Fecha:</label></b>
+                                    <div class="col-md-4">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80% !important; padding: 0px;">
+                                            <asp:TextBox ID="TextBox1" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true" MaxLength="10" AutoPostBack="true" OnTextChanged="TxtFechaAnticipoCliente_TextChanged"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LinkButton1" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaAnticipoCliente" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaAnticipoCliente" PopupButtonID="ImgFechaAnticipoCliente" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                            <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaAnticipoCliente" Display="None" Operator="DataTypeCheck" Type="Date" ValidationGroup="VGAnticiposClientes" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."></asp:CompareValidator>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="CvFechaAnticipoCliente" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                    </div>
+                                </div>
+                                <br />
+
+                                <div style="max-height: 300px; overflow-y: auto;">
+                                    <div class="row" style="margin-left: 0px; text-align: right" align="left">
+                                        <div class="col-md-2">
+                                            <asp:LinkButton ID="LinkButton2" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-refresh'></i> Actualizar" runat="server" OnClick="LnkRecargaAnticipos_Click" />
+                                        </div>
+                                        <div style="margin-right: 15px">
+                                            <input type="text" id="TxtBusquedaCxC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCxC','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaAnticipos','{0}')", GVAnticipos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                        </div>
+                                    </div>
+                                    <br />
+                                    <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
+                                         CssClass=" table table-striped table-hover Widthall mysmallbtn" data-height="300" GridLines="None"
+                                        DataKeyNames=" CveVenta,PorcentajeIVA,TipoDocto,CveSubProyecto,CveMoneda,TipoCambio, Fecha,SerieFolio, SubTotal,IVA,Total,IEPS,RetIVA,RetISR, CveCliente,Saldo">
+                                        <Columns>           
+                                              <asp:TemplateField>
+                                                  <ItemTemplate>
+                                                      <asp:CheckBox ID="Chk" runat="server" />                                                  
+                                                  </ItemTemplate>
+                                              </asp:TemplateField>
+                                            <asp:TemplateField>
+                                                <HeaderTemplate>Folio</HeaderTemplate>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlFactura" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField>
+                                                <HeaderTemplate>Fecha</HeaderTemplate>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField>
+                                                <HeaderTemplate>Saldo</HeaderTemplate>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlAnticipos" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField Visible="false">
+                                                <HeaderTemplate>Moneda Venta</HeaderTemplate>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="MonedaVenta" runat="server"></asp:Literal>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField>
+                                                <HeaderTemplate>Moneda</HeaderTemplate>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlAbreviatura" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
+                                                </ItemTemplate>
+                                            </asp:TemplateField> 
+                                        
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAplicarCxC" runat="server" Text="Aceptar" class="btn btn-primary" OnClick="BtnAplicarCxC_Click"   />
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </div>
+                    </div>
+                 </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+   
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Scripts/PrintJS/print.min.js"></script>
@@ -1424,6 +1544,7 @@
             let totalDebito = ToDouble($get("TxtImporteDebito").value);
             let totalCheque = ToDouble($get("TxtImporteCheque").value);
             let totalTransferencia = ToDouble($get("TxtImporteTransferencia").value);
+            let totalCobranza = ToDouble($get("TxtCxCAplicado").value);
             let TotalOtrosContado = 0;
 
             let total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia;
@@ -1435,7 +1556,7 @@
                 total = total + totalAnticipos + TotalOtrosContado;
             }
 
-            let totalVenta = ToDouble($get('HdnTotal').value);// - ToDouble($get('HdnTotal').value);
+            let totalVenta = ToDouble($get('HdnTotal').value) + totalCobranza;// - ToDouble($get('HdnTotal').value);
 
             if (total > totalVenta) {
                 lblCambio.innerHTML = "Cambio:";
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index afd6fdda2..381c999b9 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -505,6 +505,7 @@ Partial Class Ventas_PVCobranza
                     TieneError = True
                 End If
                 HdnCveVenta.Value = CveVenta.ToString
+                HdnCveCliente.Value = GvRow.DataKey("CveCliente")
                 TxtImporteContado.Text = GvRow.DataKey("Saldo").FormatoNumero
                 HdnTotal.Value = GvRow.DataKey("Saldo")
                 TxtImporteEfectivo.Focus()
@@ -574,12 +575,12 @@ Partial Class Ventas_PVCobranza
                 Exit Sub
             End If
 
-            If LtlSaldo.Text.ToDecimal() > Pagado Then
+            If LtlSaldo.Text.ToDecimal + TxtCxCAplicado.Text.ToDecimal > Pagado Then
                 Alert("Favor de especificar el saldo total de pagar", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
             Dim PagadoSinEfectivo As Decimal = Pagado - TxtImporteEfectivo.Text.ToDecimal
-            If PagadoSinEfectivo > LtlSaldo.Text.ToDecimal() Then
+            If PagadoSinEfectivo > (LtlSaldo.Text.ToDecimal() + TxtCxCAplicado.Text.ToDecimal) Then
                 Alert("El pago con los metodos de pago actuales no puede ser mayor al importe de la venta", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
@@ -652,8 +653,9 @@ Partial Class Ventas_PVCobranza
             Dim Fecha As Date = DbRowVenta("Fecha").ToString.ToDate 'NowADS()
 
             Dim MsgError As String = ""
-            Dim SaldoPendiente As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
-            Dim SaldoTotalInicial As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
+            Dim SaldoPendienteVenta As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
+            Dim SaldoTotalInicialVenta As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
+            Dim SaldoPendientePagos As Decimal = TxtImporteContado.Text.ToDecimal
             Dim PagoAplicado As Decimal = 0
 
             Dim ObjVentas2 As New ClsVentas()
@@ -686,7 +688,7 @@ Partial Class Ventas_PVCobranza
                         If HdnTipoAmortizacion.Value = "4" Then
                             If respFactura.Factura.DtAnticiposAplicados IsNot Nothing Then
                                 PagoAplicado += respFactura.Factura.DtAnticiposAplicados.SUM("Importe")
-                                SaldoPendiente = SaldoPendiente - PagoAplicado
+                                SaldoPendienteVenta = SaldoPendienteVenta - PagoAplicado
 
                                 For Each RowAnt As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
                                     If Not ActualizaAnticipos(RowAnt("CveIE").ToString().ToEntero(), RowAnt("CveVenta").ToString().ToEntero(), RowAnt("Tipo").ToString(), RowAnt("Folio").ToString(), ObjVentas2, ObjOIEventos) Then
@@ -716,7 +718,7 @@ Partial Class Ventas_PVCobranza
                             End If
                         Else
                             PagoAplicado += respNC.Factura.Total
-                            SaldoPendiente = SaldoPendiente - PagoAplicado
+                            SaldoPendienteVenta = SaldoPendienteVenta - PagoAplicado
 
                             For Each RowAnt As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
                                 If Not ActualizaAnticipos(RowAnt("CveIE").ToString().ToEntero(), RowAnt("CveVenta").ToString().ToEntero(), RowAnt("Tipo").ToString(), RowAnt("Folio").ToString(), ObjVentas2, ObjOIEventos) Then
@@ -732,7 +734,7 @@ Partial Class Ventas_PVCobranza
                 End If
 
                 If MsgError = "" Then
-                    If SaldoPendiente > 0 AndAlso VentaContado Then
+                    If SaldoPendienteVenta > 0 AndAlso VentaContado Then
 
                         If respFactura IsNot Nothing Then
                             CvePrePoliza = respFactura.Factura.CvePrePoliza
@@ -741,36 +743,40 @@ Partial Class Ventas_PVCobranza
                         End If
 
                         If CvePrePoliza > 0 Then
-                            If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteCredito.Text.ToDecimal > 0 Then
-                                MsgError = RegistraIE(12, DdlCuentaTarjetaCredito.SelectedValue.ToEntero, TxtImporteCredito.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= TxtImporteCredito.Text.ToDecimal
+                            If MsgError = "" AndAlso SaldoPendientePagos > 0 AndAlso TxtImporteCredito.Text.ToDecimal > 0 Then
+                                MsgError = RegistraIE(12, DdlCuentaTarjetaCredito.SelectedValue.ToEntero, SaldoPendienteVenta, TxtImporteCredito.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= TxtImporteCredito.Text.ToDecimal
+                                SaldoPendientePagos -= TxtImporteCredito.Text.ToDecimal
                                 PagoAplicado += TxtImporteCredito.Text.ToDecimal
                             End If
 
-                            If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteDebito.Text.ToDecimal > 0 Then
-                                MsgError = RegistraIE(11, DdlCuentaTarjetaDebito.SelectedValue.ToEntero, TxtImporteDebito.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= TxtImporteDebito.Text.ToDecimal
+                            If MsgError = "" AndAlso SaldoPendientePagos > 0 AndAlso TxtImporteDebito.Text.ToDecimal > 0 Then
+                                MsgError = RegistraIE(11, DdlCuentaTarjetaDebito.SelectedValue.ToEntero, SaldoPendienteVenta, TxtImporteDebito.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= TxtImporteDebito.Text.ToDecimal
+                                SaldoPendientePagos -= TxtImporteDebito.Text.ToDecimal
                                 PagoAplicado += TxtImporteDebito.Text.ToDecimal
                             End If
 
-                            If SaldoPendiente > 0 AndAlso TxtImporteCheque.Text.ToDecimal > 0 Then
+                            If SaldoPendientePagos > 0 AndAlso TxtImporteCheque.Text.ToDecimal > 0 Then
                                 Dim Obs As String = ""
                                 If DivDatosCheque.Visible Then
                                     Obs = $"{VentaActual.SerieFolio} - Autorizó: {TxtAutorizo.Text}"
                                 End If
 
-                                MsgError = RegistraIE(3, DdlCuentaCheque.SelectedValue.ToEntero, TxtImporteCheque.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, Obs:=Obs, CveAutorizacion:=TxtClaveAutorizacion.Text.Trim(), CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= TxtImporteCheque.Text.ToDecimal
+                                MsgError = RegistraIE(3, DdlCuentaCheque.SelectedValue.ToEntero, SaldoPendienteVenta, TxtImporteCheque.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, Obs:=Obs, CveAutorizacion:=TxtClaveAutorizacion.Text.Trim(), CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= TxtImporteCheque.Text.ToDecimal
+                                SaldoPendientePagos -= TxtImporteCheque.Text.ToDecimal
                                 PagoAplicado += TxtImporteCheque.Text.ToDecimal
                             End If
 
-                            If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteTransferencia.Text.ToDecimal > 0 Then
-                                MsgError = RegistraIE(8, DdlCuentaTransferencia.SelectedValue.ToEntero, TxtImporteTransferencia.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= TxtImporteTransferencia.Text.ToDecimal
+                            If MsgError = "" AndAlso SaldoPendientePagos > 0 AndAlso TxtImporteTransferencia.Text.ToDecimal > 0 Then
+                                MsgError = RegistraIE(8, DdlCuentaTransferencia.SelectedValue.ToEntero, SaldoPendienteVenta, TxtImporteTransferencia.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= TxtImporteTransferencia.Text.ToDecimal
+                                SaldoPendientePagos -= TxtImporteTransferencia.Text.ToDecimal
                                 PagoAplicado += TxtImporteTransferencia.Text.ToDecimal
                             End If
 
-                            If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteOtrosContado.Text.ToDecimal > 0 Then
+                            If MsgError = "" AndAlso SaldoPendientePagos > 0 AndAlso TxtImporteOtrosContado.Text.ToDecimal > 0 Then
                                 Dim CveConceptroOtros As Integer = -1
 
                                 Select Case DdlOtroFormaPago.SelectedValue
@@ -782,24 +788,27 @@ Partial Class Ventas_PVCobranza
                                         CveConceptroOtros = 8
                                 End Select
 
-                                MsgError = RegistraIE(CveConceptroOtros, DdlCuentaOtrosContado.SelectedValue.ToEntero, TxtImporteOtrosContado.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= TxtImporteOtrosContado.Text.ToDecimal
+                                MsgError = RegistraIE(CveConceptroOtros, DdlCuentaOtrosContado.SelectedValue.ToEntero, SaldoPendienteVenta, TxtImporteOtrosContado.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= TxtImporteOtrosContado.Text.ToDecimal
+                                SaldoPendientePagos -= TxtImporteOtrosContado.Text.ToDecimal
                                 PagoAplicado += TxtImporteOtrosContado.Text.ToDecimal
                             End If
 
-                            If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteEfectivo.Text.ToDecimal > 0 Then
+                            If MsgError = "" AndAlso SaldoPendientePagos > 0 AndAlso TxtImporteEfectivo.Text.ToDecimal > 0 Then
                                 Dim PagoEfectivo As Decimal = TxtImporteEfectivo.Text.ToDecimal
 
                                 PagoAplicado += PagoEfectivo
-                                If PagoAplicado >= SaldoTotalInicial Then
-                                    TxtCambio.Text = (PagoAplicado - SaldoTotalInicial).FormatoNumero
-                                    PagoEfectivo = SaldoPendiente
+                                If PagoAplicado >= SaldoPendientePagos Then
+                                    TxtCambio.Text = (PagoAplicado - SaldoPendientePagos).FormatoNumero
+                                    PagoEfectivo = SaldoPendientePagos
                                 End If
-                                MsgError = RegistraIE(13, DdlCuentaEfectivo.SelectedValue.ToEntero, PagoEfectivo, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
-                                SaldoPendiente -= PagoEfectivo
+                                If SaldoPendienteVenta < 0 Then SaldoPendienteVenta = 0
+                                MsgError = RegistraIE(13, DdlCuentaEfectivo.SelectedValue.ToEntero, SaldoPendienteVenta, PagoEfectivo, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
+                                SaldoPendienteVenta -= PagoEfectivo
+                                SaldoPendientePagos -= PagoEfectivo
                             End If
 
-                            If SaldoPendiente > 0 Then
+                            If SaldoPendienteVenta > 0 Then
                                 MsgError = "Tiene saldo pendiente por aplicar"
                             End If
 
@@ -819,8 +828,50 @@ Partial Class Ventas_PVCobranza
                                 End If
                             End If
 
+                            If MsgError = "" Then
+
+                                Dim CveIEPago As Integer = HdnCveIE.Value.ToEntero
+                                'registrar los pagos a cobranza
+                                For Each gvr As GridViewRow In GvCxC.Rows
+                                    If gvr.FCCheckBox("Chk").Checked Then
+                                        Dim VentaCxC As New Venta(UsuarioActual)
+                                        VentaCxC.CveVenta = gvr.DataKey("CveVenta").ToEntero
+                                        VentaCxC.TipoDocto = gvr.DataKey("TipoDocto")
+                                        VentaCxC.Fecha = gvr.DataKey("Fecha").ToDate
+                                        VentaCxC.CveCliente = gvr.DataKey("CveCliente").ToEntero
+                                        VentaCxC.CveMoneda = gvr.DataKey("CveMoneda").ToEntero
+                                        VentaCxC.SerieFolio = gvr.DataKey("SerieFolio")
+                                        VentaCxC.ClienteNombre = "sss" 'gvr.DataKey("ClienteNombre")
+                                        VentaCxC.TC = gvr.DataKey("TipoCambio").ToDecimal
+                                        VentaCxC.Total = gvr.DataKey("Total").ToDecimal
+                                        VentaCxC.IVA = gvr.DataKey("IVA").ToDecimal
+                                        VentaCxC.IEPS = gvr.DataKey("IEPS").ToDecimal
+                                        VentaCxC.RetIVA = gvr.DataKey("RetIVA").ToDecimal
+                                        VentaCxC.RetISR = gvr.DataKey("RetISR").ToDecimal
+
+                                        VentaCxC.PorcentajeIVA = gvr.DataKey("PorcentajeIVA").ToDecimal
+                                        VentaCxC.UsuarioActual = UsuarioActual
+                                        VentaCxC.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
+
+                                        Dim Pago As New VentaPago
+                                        Pago.ImportePagoVenta = gvr.DataKey("Saldo").ToDecimal
+                                        Pago.ImportePago = gvr.DataKey("Saldo").ToDecimal
+                                        Pago.CveIE = CveIEPago
+                                        Pago.CveMonedaPago = VentaCxC.CveMoneda
+                                        Pago.Fecha = NowADS()
+                                        Pago.Referencia = VentaCxC.SerieFolio
+                                        Pago.TipoPago = "XXX"
+
+                                        Dim ErrorConta As Boolean = AplicaPrePolizaPagoVenta(VentaCxC, Pago, CvePrePoliza, ObjConta)
+                                        If ErrorConta Then
+                                            MsgError = "Error en aplicación de pago en cobranza"
+                                        End If
+                                    End If
+                                Next
+                            End If
+
                         Else
-                            MsgError = "Error al registrar prepólizas"
+                                MsgError = "Error al registrar prepólizas"
                         End If
                     Else
                         'SI NO TIENE SALDO PENDIENTE NO GENERAR POLIZA PARA EL PAGO
@@ -1020,6 +1071,7 @@ Partial Class Ventas_PVCobranza
         TxtImporteTransferencia.Text = ""
         TxtImporteOtrosContado.Text = ""
         TxtCambio.Text = ""
+        TxtCxCAplicado.Text = ""
         TxtClaveAutorizacion.Text = ""
         TxtAutorizo.Text = ""
         TxtNCDev.Text = ""
@@ -1028,7 +1080,6 @@ Partial Class Ventas_PVCobranza
         CveCliente = -1
         CveVendedor = -1
 
-
         If TmpDTAnticiposNCIxCCliente IsNot Nothing Then
             TmpDTAnticiposNCIxCCliente.Clear()
             TmpDTAnticiposNCIxCCliente = Nothing
@@ -1216,12 +1267,12 @@ Partial Class Ventas_PVCobranza
 
                 For Each dr As DataRow In DtAnticipos.Rows
                     SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
-                                                                                                                                                        dr("CveIE").ToString,
-                                                                                                                                                        dr("CveVenta").ToString,
-                                                                                                                                                        Retorno.Factura.CveCliente,
-                                                                                                                                                        Retorno.CveVenta,
-                                                                                                                                                        Retorno.Factura.Total,
-                                                                                                                                                        (Retorno.Factura.Total - Retorno.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
+                                    dr("CveIE").ToString,
+                                    dr("CveVenta").ToString,
+                                    Retorno.Factura.CveCliente,
+                                    Retorno.CveVenta,
+                                    Retorno.Factura.Total,
+                                    (Retorno.Factura.Total - Retorno.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
                 Next
 
 
@@ -1488,7 +1539,7 @@ Partial Class Ventas_PVCobranza
         Return MsgErrorTimbrado
     End Function
 
-    Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImportePago As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad, ByRef ObjVentas As ClsVentas, tCveCorte As Integer, Optional Obs As String = "", Optional CveAutorizacion As String = "", Optional CveSubProyecto As Integer = -1) As String
+    Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImporteAbonoVenta As Decimal, ImporteBancos As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad, ByRef ObjVentas As ClsVentas, tCveCorte As Integer, Optional Obs As String = "", Optional CveAutorizacion As String = "", Optional CveSubProyecto As Integer = -1) As String
         Dim Retorno As String = ""
         If CveBancoCuenta > 0 Then
             Dim CveIEPago As Integer = 0
@@ -1496,25 +1547,31 @@ Partial Class Ventas_PVCobranza
             If String.IsNullOrEmpty(Obs) Then
                 Obs = VentaActual.SerieFolio
             End If
-            CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImportePago, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
+            CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImporteBancos, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
             If CveIEPago > 0 Then
-                Dim Pago As New VentaPago
-                Pago.ImportePagoVenta = ImportePago
-                Pago.ImportePago = ImportePago
-                Pago.CveIE = CveIEPago
-                Pago.CveMonedaPago = VentaActual.CveMoneda
-                Pago.Fecha = NowADS()
-                Pago.Referencia = VentaActual.SerieFolio
+                Dim tImportePago As Decimal = If(ImporteBancos > ImporteAbonoVenta, ImporteAbonoVenta, ImporteBancos) 'toma el importe menor para la factura
+
+                If ImporteBancos > 0 Then
+                    Dim Pago As New VentaPago
+                    Pago.ImportePagoVenta = tImportePago
+                    Pago.ImportePago = ImporteBancos
+                    Pago.CveIE = CveIEPago
+                    Pago.CveMonedaPago = VentaActual.CveMoneda
+                    Pago.Fecha = NowADS()
+                    Pago.Referencia = VentaActual.SerieFolio
+
+                    ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
+                End If
 
-                ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
                 If ErrorConta Then
                     Retorno = "Error en aplicación de pago"
                 End If
                 Dim MetodoPago As Integer = If(Metodo = 13, 1, If(Metodo = 12, 4, If(Metodo = 11, 5, If(Metodo = 3, 2, 3))))
-                If Not ErrorConta AndAlso Not ObjVentas.AddVta_VentaPago(VentaActual.CveVenta, MetodoPago, ImportePago) Then
+                If Not ErrorConta AndAlso Not ObjVentas.AddVta_VentaPago(VentaActual.CveVenta, MetodoPago, ImporteBancos) Then
                     Retorno = "Error en aplicación de pago.."
                     ErrorConta = True
                 End If
+                HdnCveIE.Value = CveIEPago.ToString
             Else
                 Retorno = "Pago en Bancos no registrado"
                 ErrorConta = True
@@ -2918,6 +2975,44 @@ Partial Class Ventas_PVCobranza
 
     End Sub
 
+    Protected Sub LnkCxC_Click(sender As Object, e As EventArgs)
+        CargaCxC(1, HdnCveCliente.Value.ToEntero) 'solo pesos
+    End Sub
+
+    Private Sub CargaCxC(pCveMoneda As Integer, pCveCliente As Integer)
+        Dim Mov As New ClsMovimientos
+        Dim FechaI As String = IfNull(Request("FechaI"), "-1").ToString
+        Dim FechaF As String = IfNull(Request("FechaF"), "-1").ToString
+        Dim FechaCorte As Date = NowADS().AddYears(1).ToShortDateString.ToString.ToDate
+
+        If Mov.GetCxCClienteDetalle(pCveCliente, FechaI, FechaF, pCveMoneda, -1, UsuarioActual.CveEmpresa, -1, FechaCorte:=FechaCorte) Then
+            Dim TmpCxCAux As DataTable
+            TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0 AND TipoDocto = 'Ing'", "Fecha,SerieFolio")
+            GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0 AND TipoDocto = 'Ing'", "Fecha,SerieFolio")
+        End If
+        Mov.Dispose()
+        GvCxC.DataBind()
+        TxtCxCAplicado.Text = ""
+        UPPCxC.Update()
+
+        RegistraScript("$('#divCxC').modal('show');", "AE2")
+    End Sub
+
+
+    Protected Sub BtnAplicarCxC_Click(sender As Object, e As EventArgs)
+
+        Dim SaldoCxC As Decimal = 0
+        For Each GvRow As GridViewRow In GvCxC.Rows
+            If GvRow.FCCheckBox("Chk") IsNot Nothing AndAlso GvRow.FCCheckBox("Chk").Checked Then
+                SaldoCxC += GvRow.DataKey("Saldo").ToDecimal
+            End If
+        Next
+        TxtCxCAplicado.Text = (SaldoCxC).FormatoNumero
+        TxtImporteContado.Text = (LtlSaldo.Text.ToDecimal + SaldoCxC).FormatoNumero
+        RegistraScript("$('#divCxC').hide();", "AE21")
+        UPPCobranza.Update()
+        UPPTotalesContado.update
+    End Sub
 End Class
 
 Public Class MRespuestaSAT