--

General/CatCompuestos.aspx.vb

@@ -32,11 +32,11 @@ Partial Class General_CatCompuestos
             CveCompuesto = -1
             EsEditar = 0
             dvEstatus.Visible = False
-            CargaDatos(-1)
+            CargaDatos()
         End If
     End Sub
 
-    Private Sub CargaDatos(CveConductor As Integer)
+    Private Sub CargaDatos()
         Dim PS As New ClsProductosServicios
         If PS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = PS.DtResultados
@@ -85,7 +85,7 @@ Partial Class General_CatCompuestos
         TxtCompuesto.Text = ""
 
 
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
         UpBodyCompuesto.Update()
 
@@ -98,7 +98,7 @@ Partial Class General_CatCompuestos
             Alert("El Compuesto se eliminó correctamente", TipoMensaje.MsgInformacion)
         End If
         PS.Dispose()
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
     End Sub