From b4c056c58e860ac8489f40e9b10b190dc9382623 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 May 2024 15:24:23 -0700 Subject: [PATCH] -- parametro de metodo de pago --- App_Code/ClsOC.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 029912473..2be37d84d 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1655,7 +1655,7 @@ Public Class ClsOC FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, - Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1) As Boolean + Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1685,6 +1685,7 @@ Public Class ClsOC .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta .Add("@TopSelect", SqlDbType.Int).Value = TopSelect .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago End With