option strict on

2023-08-24 00:38:39 -07:00
parent 85d1bcd386
commit 4c6f8bbaef
15 changed files with 96 additions and 103 deletions
--- a/Inventarios/Paquetes.aspx.vb
+++ b/Inventarios/Paquetes.aspx.vb
@@ -27,13 +27,9 @@ Partial Class Inventarios_Paquetes
    Private Sub CargaDatos()

        Dim ps As New ClsProductosServicios
-
-        If ps.GetPS(-1, -1, UsuarioActual.CveEmpresa, "-1", "-1", 1) Then
-
+        If ps.GetPS(-1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
            gvPaquetes.DataSource = ps.DtResultados
            dtPaquetes = ps.DtResultados
-
-
        End If
        gvPaquetes.EditIndex = -1
        gvPaquetes.DataBind()