--Traspasar saldo de remisiones a factura global.

PA:
--PA_Vta_VentasRemisionesPagos

Ventas/FacturacionGlobal.aspx.vb

@@ -171,7 +171,7 @@ Partial Class Ventas_FacturacionGlobal
         SbRemisiones.Remove(SbRemisiones.Length - 1, 1)
 
         Dim DtRemisionesPS As New DataTable()
-        Dim DtPagos As New DataTable()
+        Dim DtPagosFacturaGlobal As New DataTable()
 
         Dim ObjClientes As New ClsClientes
         If ObjClientes.GetVentasRemisionesTotales(CveCliente, SbRemisiones.ToString(), 1) Then
@@ -179,7 +179,7 @@ Partial Class Ventas_FacturacionGlobal
         End If
 
         If ObjClientes.GetVentasRemisionesPagos(CveCliente, SbRemisiones.ToString()) Then
-            DtPagos = ObjClientes.DtResultados.Copy()
+            DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
         End If
         ObjClientes.Dispose()
 
@@ -188,7 +188,7 @@ Partial Class Ventas_FacturacionGlobal
             Exit Sub
         End If
 
-        If DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0 Then
+        If DtPagosFacturaGlobal Is Nothing OrElse DtPagosFacturaGlobal.Rows.Count = 0 Then
             Alert("No se pudieron cargar los pagos", TipoMensaje.MsgError)
             Exit Sub
         End If
@@ -211,7 +211,7 @@ Partial Class Ventas_FacturacionGlobal
         ObjFactura.RemisionesLista = RemisionesLista
         ObjFactura.DtRemisionesPS = DtRemisionesPS
         ObjFactura.DtRemisiones = DtRemisiones.FiltraParametros($"CveVenta IN ({SbRemisiones.ToString()})")
-        ObjFactura.DtPagos = DtPagos
+        ObjFactura.DtPagosFacturaGlobal = DtPagosFacturaGlobal
 
         For Each Dr As DataRow In DtRemisionesPS.Rows
             ObjFactura.AgregarPS(Dr("CvePS").ToString().ToEntero(), Dr("Cantidad").ToString().ToDecimal(), Dr("PU").ToString().ToDecimal(), Dr("Descuento").ToString().ToDecimal, Dr("Obs").ToString(), CveUM:=Dr("CveUM").ToString().ToEntero(),
@@ -221,7 +221,7 @@ Partial Class Ventas_FacturacionGlobal
         ObjFactura.CalculaTotales()
         ObjFactura.PreparaTimbre()
 
-        If ObjFactura.Total <> DtPagos.SUMD("Importe") Then
+        If ObjFactura.Total <> DtPagosFacturaGlobal.SUMD("Importe") Then
             Alert("Los pagos no coinciden con el total de la factura", TipoMensaje.MsgError)
             Exit Sub
         End If