From be4f17839f4b2939f8f676818162c6a3d2bed2d5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 Nov 2023 13:20:48 -0700 Subject: [PATCH] =?UTF-8?q?correcci=C3=B3n=20parametros?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/CatFamiliaSubFamilia.aspx.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Ventas/CatFamiliaSubFamilia.aspx.vb b/Ventas/CatFamiliaSubFamilia.aspx.vb index 56eb761f7..5861c05df 100644 --- a/Ventas/CatFamiliaSubFamilia.aspx.vb +++ b/Ventas/CatFamiliaSubFamilia.aspx.vb @@ -187,7 +187,6 @@ Partial Class Ventas_CatFamiliaSubFamilia Protected Sub LbAgregarS_Click(sender As Object, e As EventArgs) Handles LbAgregarS.Click Dim ObjClasificaciones As New ClsClasificaciones If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "", - -1, "", -1, "", -1, "", DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then 'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text, 'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text, @@ -358,7 +357,7 @@ Partial Class Ventas_CatFamiliaSubFamilia Dim DdlCategoria As DropDownList = GvDatosS.Rows(e.RowIndex).FCDropDownList("DdlCategoria") 'Dim IDCuentaGasto As Integer = GvDatosS.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto").SelectedValue.ToEntero - If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", -1, "", -1, "", -1, "", Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then + If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then 'DdlGasto.SelectedValue.ToEntero, DdlGasto.SelectedItem.Text, 'DdlAnticipo.SelectedValue.ToEntero, DdlAnticipo.SelectedItem.Text, 'DdlInventario.SelectedValue.ToEntero, DdlInventario.SelectedItem.Text,