-ajustes de secciones

2020-07-24 18:50:28 -07:00
parent 080af0b7cb
commit 8b80d6c127
8 changed files with 61 additions and 37 deletions
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -168,9 +168,9 @@ Partial Class Inventarios_Kardex

        TxtSerie.Text = ""
        If ddlProducto2.SelectedValue.ToEntero > 0 Then
-            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
+            Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
            If Dr IsNot Nothing Then
-                If Dr("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                If Dr("AplicaSerie").ToString = "True" Then
                    DivSerie.Visible = True
                Else
                    DivSerie.Visible = False