- corrección de consulta de dato

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