From 21a0b59ef79386c22987bb2d9f2e38d66f4f4b1b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Jan 2024 22:00:57 -0700
Subject: [PATCH] -

---
 Ventas/Ventas.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)