- corrección de consulta de dato

2024-03-11 18:25:42 -07:00
parent 58a68f41b1
commit 4753712a5a
1 changed files with 3 additions and 7 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4936,14 +4936,10 @@ Partial Class Ventas
                        End If
                    End If

+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                        TxtAlfa1.Text = DbRowVenta("Alfa1").ToString
+                    End If
                End If
-
-
-                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                    TxtAlfa1.Text = DbRowVenta("Alfa1").ToString
-                End If
-
-
            End Using
        End If