diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 1dc6523ba..60ced51bc 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5235,7 +5235,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function AutorizacionLimitesAdd(CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveUsuario As Integer, CveEstatus As Integer, Optional CveVenta As Integer = -1, Optional CveIE As Integer = -1) As Boolean + Public Function AutorizacionLimitesAdd(CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveUsuario As Integer, CveEstatus As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd", CommandType.StoredProcedure) @@ -5247,8 +5247,6 @@ Public Class ClsVentas .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveIE", SqlDbType.Int).Value = CveIE End With Try @@ -6000,7 +5998,7 @@ Public Class ClsVentas #End Region - Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0, Optional CveVenta As Integer = -1) As Boolean + Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0, Optional CveVenta As Integer = -1, Optional CveIE As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd") With SqlAdapter.SelectCommand.Parameters @@ -6016,6 +6014,7 @@ Public Class ClsVentas .Add("@PorcentajeDescuento", SqlDbType.Decimal).Value = PorcentajeDescuento .Add("@Motivo", SqlDbType.VarChar).Value = Motivo .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveIE", SqlDbType.Int).Value = CveIE End With Try SqlAdapter.Fill(Data)