-- mejora.

--- facturaglobal. considerar de todos los clientes para emitir

Ventas/PVCobranza.aspx.vb

@@ -346,6 +346,7 @@ Partial Class Ventas_PVCobranza
 
             Dim MsgError As String = ""
             Dim SaldoPendiente As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
+            Dim SaldoTotalInicial As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
             Dim PagoAplicado As Decimal = 0
 
             Dim ObjConta As New ClsContabilidad
@@ -384,8 +385,8 @@ Partial Class Ventas_PVCobranza
                         Dim PagoEfectivo As Decimal = TxtImporteEfectivo.Text.ToDecimal
 
                         PagoAplicado += PagoEfectivo
-                        If PagoAplicado > VentaActual.Total Then
-                            TxtCambio.Text = (PagoAplicado - VentaActual.Total).FormatoNumero
+                        If PagoAplicado >= SaldoTotalInicial Then
+                            TxtCambio.Text = (PagoAplicado - SaldoTotalInicial).FormatoNumero
                             PagoEfectivo = SaldoPendiente
                         End If
                         MsgError = RegistraIE(13, DdlCuentaEfectivo.SelectedValue.ToEntero, PagoEfectivo, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2)