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