From 4753712a5ab4021d5c47f763534aaaac06fbf867 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 11 Mar 2024 18:25:42 -0700
Subject: [PATCH] =?UTF-8?q?-=20correcci=C3=B3n=20de=20consulta=20de=20dato?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 49ca77f5e..3a9eafab9 100644
--- 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