diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 368f0e5fe..73a00724a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3438,7 +3438,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 If CveVenta <= 0 Then
                     EsVentaMedica = True
                     CargaTiposVenta()
@@ -13248,7 +13248,7 @@ Partial Class Ventas
         Dim CveProcedimiento As Integer = -1
         Dim CveTipoVentaGuardar As Integer = -1
 
-        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             CveMedico = DdlMedico.SelectedValue.ToEntero
             CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
             CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)