From 14f053bc868f7c925365c09cbe5e9b5097f6f52d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 05:41:52 -0700 Subject: [PATCH] =?UTF-8?q?--=20parametro=20cveempresa=20en=20remisionespa?= =?UTF-8?q?go=20para=20otras=20empresa=20con=20facturaci=C3=B3n=20global?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClientes.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index b415508c3..bcb70a307 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1338,7 +1338,7 @@ Public Class ClsClientes End Function ''' Obtiene las Remisiones No Facturas de un Cliente,El parametro Ventas debe ser las "CveVenta" separadas por coma - 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