From 2484122f5baa6ed83059aa2d871b9ee4428e7e94 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Tue, 11 Jul 2023 08:03:09 -0700
Subject: [PATCH] =?UTF-8?q?Ajustes=20Generaci=C3=B3n=20pdf=20nomina=20vers?=
 =?UTF-8?q?ion=20y=20usocfdi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 8dfcc177b..f030cdee9 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6703,7 +6703,7 @@ Public Class ClsPaginas
         Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
         Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc")
         Dim CFDIVersion As String = ""
-        Dim UsoCFDI As String = ""
+        Dim UsoCFDI As String = "ND"
 
 
 
@@ -6752,7 +6752,22 @@ Public Class ClsPaginas
 
                 If receptorNode IsNot Nothing Then
                     UsoCFDI = ValorNodoXML(receptorNode, "usocfdi")
-                    UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
+                    Dim UsoCFDIImprimir As String = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
+
+                    If UsoCFDIImprimir.Trim.Length > 0 Then
+                        UsoCFDI = UsoCFDIImprimir
+                    End If
+
+                End If
+
+                If UsoCFDI = "ND" Or UsoCFDI = "" Then
+
+                    If CFDIVersion = "4.0" Then
+                        UsoCFDI = "CN01 - Nómina"
+                    Else
+                        UsoCFDI = "P01 - Por definir"
+                    End If
+
                 End If