Ajustes Generación pdf nomina version y usocfdi

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