From 34280918477f0f50161639aa9bda42e22831d79f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 27 May 2024 16:55:18 -0700
Subject: [PATCH] --FIX. autorizacion de anticipos

---
 Ventas/Clientes.aspx.vb | 2 +-
 Ventas/Ventas.aspx.vb   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 59f2643d7..2400b9d2d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2966,7 +2966,7 @@ Partial Class Clientes
 
             If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) AndAlso CType(sender, GridView).ID = "GVAnticipos" Then
                 If e.Row.DBCampo("CveVenta").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString() = "Ant" Then
-                    If e.Row.DBCampo("AnticipoAutorizado").ToString() = "False" Then
+                    If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
                         e.Row.FCLinkButton("LnkAutorizar").Visible = True
                         e.Row.FCLinkButton("LnkCancelar").Visible = False
                     Else
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index df3d41948..23f93b263 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16635,7 +16635,7 @@ Partial Class Ventas
             End If
 
             'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL
-            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveEmpresa = 190 Then
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 195, 197) Then
                 Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
                 If CveClientePublicoGeneral > 0 Then
                     If CveCliente <> CveClientePublicoGeneral Then
@@ -16834,7 +16834,7 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
-                If e.Row.DBCampo("Tipo").ToString() = "Ant" AndAlso e.Row.DBCampo("AnticipoAutorizado").ToString() = "False" Then
+                If e.Row.DBCampo("Tipo").ToString() = "Ant" AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
                     e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False
                 End If
             End If