From fb87a6047c3d112a44109cf161d20a99a8cd2a91 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Dec 2021 19:28:00 -0700
Subject: [PATCH] cambio en funcionalidad de retiva acreditable

---
 Bancos/PopIECompras.aspx.vb      | 2 +-
 Bancos/ProveedoresAbonar.aspx.vb | 2 +-
 RH/CatPersonal.aspx.vb           | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 719648f77..051bce60d 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1797,7 +1797,7 @@ Partial Class Bancos_PopIECompras
                                                     Funcionalidad = 313
                                                     ConceptoContable = 248
                                                 ElseIf MovimientoPagar.ConceptoRetIVA = 5 Then
-                                                    Funcionalidad = 578
+                                                    Funcionalidad = 577
                                                     ConceptoContable = 285
                                                 End If
 
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 8e950e3fc..b7a2fad40 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1055,7 +1055,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                             Funcionalidad = 313
                                                             ConceptoContable = 248
                                                         ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
-                                                            Funcionalidad = 578
+                                                            Funcionalidad = 577
                                                             ConceptoContable = 285
                                                         End If
 
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index cfce5c5d2..952096265 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -904,7 +904,7 @@ Partial Class RH_CatPersonal
         Catalogos.Cell(crow, ccol).Value = "Estado"
         For Each row As DataRow In GlobalDTGralEstados("MEX").Rows
             crow = crow + 1
-            Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado"))
+            Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("NombreEstado"))
         Next
         colEstado = ccol
         rowEstado = crow