-- parametro cveempresa en remisionespago para otras empresa con facturación global

App_Code/ClsClientes.vb

@@ -1338,7 +1338,7 @@ Public Class ClsClientes
     End Function
 
     '''<summary> Obtiene las Remisiones No Facturas de un Cliente,El parametro Ventas debe ser las "CveVenta" separadas por coma</summary>
-    Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean
+    Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasRemisionesTotales")
 
@@ -1346,6 +1346,7 @@ Public Class ClsClientes
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@Ventas", SqlDbType.VarChar).Value = Ventas
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -1358,7 +1359,7 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
-    Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String, Optional TipoDocto As String = "Rem") As Boolean
+    Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String, CveEmpresa As Integer, Optional TipoDocto As String = "Rem") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasRemisionesPagos")
 
@@ -1366,6 +1367,7 @@ Public Class ClsClientes
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@Ventas", SqlDbType.VarChar).Value = Ventas
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try