-- corrección pago de ing x comprobar.

App_Code/ClsPaginas.vb

@@ -7880,6 +7880,11 @@ Public Class ClsPaginas
         Dim Contabilizable As Boolean = True
         If PorcentajePago > 1 Then PorcentajePago = 1
 
+        ''validación 
+        If Pago.TipoPago = "I" AndAlso Pago.CveClientePago <= 0 Then
+            Return True
+        End If
+
         Dim Concepto As String = String.Format("{0} F:{1}", VentaActual.ClienteNombre, VentaActual.SerieFolio)
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(VentaActual.UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
         Dim tFecha As Date = Pago.Fecha
@@ -8043,12 +8048,12 @@ Public Class ClsPaginas
             End If
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=Pago.CveClientePago, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 332, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 332, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=Pago.CveClientePago, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=Pago.CveClientePago, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             End If
         End If
         'si tiene otros gastos/ingresos
@@ -8121,7 +8126,7 @@ Public Class ClsPaginas
         Public Property AplicaTraslado As Boolean = True
         Public Property Referencia As String
         Public Property CveConceptoPago As Integer = -1
-
+        Public Property CveClientePago As Integer = -1
         Public Property ImporteFluctuacionAdicional As Decimal = 0
         Public Property ValorMultiplicador As Decimal = 1
     End Class

Bancos/PopIEVentas.aspx.vb

@@ -1267,6 +1267,8 @@ Partial Class Bancos_PopIEVentas
                                             Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                                             Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
                                             Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate
+                                            Pago.CveIE = CveIE
+                                            Pago.CveClientePago = rw.DataKey("CveCliente").ToEntero
                                             If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal
                                             If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal