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,