From 39576017231e141a7fc72ad4308435e623b1e9e8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 19:34:28 -0700 Subject: [PATCH] -- espacio --- App_Code/ClsInventarios.vb | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 70e923f48..231b52111 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1035,18 +1035,8 @@ Public Class ClsInventarios .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto - '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer - '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion - '.Add("@Placa", SqlDbType.VarChar).Value = Placa - '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega - '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio - '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion - '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio - '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono - '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen @@ -1077,7 +1067,6 @@ Public Class ClsInventarios CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Decimal = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1118,7 +1107,6 @@ Public Class ClsInventarios Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosPolizaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1140,7 +1128,6 @@ Public Class ClsInventarios Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosPolizaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1162,7 +1149,6 @@ Public Class ClsInventarios Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosRemove") With SqlAdapter.SelectCommand.Parameters