diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 9292e9dab..8dfcc177b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6702,11 +6702,17 @@ Public Class ClsPaginas Dim ImgCBB As String 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 = "" + + + 'SI ESTA TIMBRADA - CON XML If System.IO.File.Exists(PathXML) Then Dim XmlDoc As New System.Xml.XmlDocument 'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml") XmlDoc.Load(PathXML) + If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText @@ -6733,6 +6739,27 @@ Public Class ClsPaginas Next End If + + + Try + CFDIVersion = ValorNodoXML(XmlDoc.DocumentElement, "version") + + + Dim nsManager As New XmlNamespaceManager(XmlDoc.NameTable) + nsManager.AddNamespace("cfdi", If(CFDIVersion = "4.0", "http://www.sat.gob.mx/cfd/4", "http://www.sat.gob.mx/cfd/3")) + + Dim receptorNode As XmlNode = XmlDoc.SelectSingleNode("/cfdi:comprobante/cfdi:emisor/cfdi:receptor", nsManager) + + If receptorNode IsNot Nothing Then + UsoCFDI = ValorNodoXML(receptorNode, "usocfdi") + UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ") + End If + + + Catch ex As Exception + + End Try + 'SIN TIMBRAR - SIN XML Else FolioFiscal = "Sin Timbrar" @@ -6860,6 +6887,9 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD)) RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString)) + RptParametro.Add(New ReportParameter("CFDIVersion", CFDIVersion)) + RptParametro.Add(New ReportParameter("UsoCFDI", UsoCFDI)) + Dim LSRds As New List(Of ReportDataSource) Dim rds2 = New ReportDataSource() diff --git a/Empresas/119/Formatos/Nomina.rdlc b/Empresas/119/Formatos/Nomina.rdlc index 871861e56..fda0e1d71 100644 --- a/Empresas/119/Formatos/Nomina.rdlc +++ b/Empresas/119/Formatos/Nomina.rdlc @@ -2858,7 +2858,15 @@ Lugar de expedición: 83220 Hermosillo - Versión del comprobante: 4.0 + Versión del comprobante: + + + + =Parameters!CFDIVersion.Value + + + =Parameters!UsoCFDI.Value 2 - true @@ -5629,6 +5644,18 @@ Lugar de expedición: 83220 Hermosillo true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/153/Formatos/Nomina.rdlc b/Empresas/153/Formatos/Nomina.rdlc index 0d8b4fcce..410a17868 100644 --- a/Empresas/153/Formatos/Nomina.rdlc +++ b/Empresas/153/Formatos/Nomina.rdlc @@ -2852,7 +2852,15 @@ - Versión del comprobante: 3.3 + Versión del comprobante: + + + + =Parameters!CFDIVersion.Value + + + =Parameters!UsoCFDI.Value 2 + true @@ -2852,7 +2853,15 @@ - Versión del comprobante: 3.3 + Versión del comprobante: + + + + =Parameters!CFDIVersion.Value + + + =Parameters!UsoCFDI.Value + + + =Parameters!CFDIVersion.Value + + + =Parameters!UsoCFDI.Value + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + 0.49417cm @@ -5279,13 +5525,14 @@ Lugar de expedición: 83220 Hermosillo + DsOC - 2.51578cm + 2.33057cm 0.15979cm - 5.0304cm - 19.84967cm + 5.44519cm + 19.84968cm 9 - 18.41425cm + 18.46717cm - 10 + 12 @@ -167,6 +173,8 @@ + + @@ -201,10 +209,11 @@ 2pt - 2 + 3 + @@ -215,7 +224,9 @@ - - 4 + 5 + @@ -278,11 +292,15 @@ - - - Textbox209 @@ -296,40 +314,10 @@ 2pt + 3 - - - - true - true - - - - - - - - - Textbox210 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - + @@ -345,8 +333,16 @@ - UUID - + + + =Parameters!FolioFiscal.Value + - - - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 6 + 9 true @@ -411,6 +373,9 @@ + + + @@ -421,7 +386,9 @@ - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - + true true @@ -575,209 +508,12 @@ Textbox135 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Días Trabajados - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasLaborados.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Sueldo Correspondiente - - - - - Black - 1pt 2pt 2pt @@ -785,13 +521,42 @@ 2pt - 2 - - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -818,213 +583,106 @@ 2pt - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Faltas - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasFaltados.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - R.F.C. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - 2 - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + R.F.C + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1040,7 +698,7 @@ @@ -1051,21 +709,20 @@ 2pt - 3 + 2 - - + true true - + Afi I.M.S.S. @@ -1074,7 +731,7 @@ @@ -1089,112 +746,25 @@ - + true true - Retardos + =Parameters!NSS.Value - - Textbox170 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasRetardos.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - @@ -1210,8 +780,10 @@ 2pt + 2 + @@ -1219,14 +791,20 @@ - + true true - CURP + Departamento + + + + =Parameters!SubProyecto.Value @@ -1235,7 +813,7 @@ @@ -1251,39 +829,6 @@ 2pt - 2 - - - - - - - true - true - - - - - =Parameters!CURP.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - 3 @@ -1291,23 +836,31 @@ - + true true - + Dias Trab. + + + + =Parameters!DiasLaborados.Value - - Textbox160 + Textbox29 @@ -1318,176 +871,105 @@ 2pt - - - - - - true - true - - - - - Días Vacaciones - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasVacaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Tipo de Pago - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - 2 + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Periodo + + + + + + + Textbox177 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -1517,309 +999,11 @@ 2pt - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Días Incapacidad - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!DiasIncapacidad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Afi I.M.S.S. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!NSS.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Periodo de - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -1844,18 +1028,18 @@ - - Textbox187 + Textbox39 - Black - 1pt 2pt 2pt @@ -1870,544 +1054,6 @@ - - 0.6cm - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha de Pago - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FechaPago.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - 0.6cm @@ -2460,13 +1106,15 @@ 2pt - 5 + 7 + + @@ -2533,7 +1181,9 @@ Concepto - - 2 + 3 + @@ -2576,7 +1227,9 @@ - + 2 + @@ -2687,7 +1346,9 @@ Concepto - @@ -2859,17 +1526,17 @@ 1pt - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt - + true true @@ -2878,28 +1545,29 @@ =Fields!ConceptoP.Value - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt - 2 + 3 + @@ -2911,7 +1579,7 @@ =IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value >0,"$",Nothing) @@ -2944,7 +1612,7 @@ =IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value >0,Fields!ImporteP.Value,nothing) @@ -2965,8 +1633,10 @@ 2pt + 2 + @@ -2978,7 +1648,7 @@ =Fields!NoConceptoD.Value @@ -3014,7 +1684,7 @@ =Fields!ConceptoD.Value @@ -3047,7 +1717,7 @@ =IIf(not IsNothing(Fields!ConceptoD.Value) ORELSE Fields!ImporteD.Value >0,"$"," ") @@ -3080,7 +1750,7 @@ =IIf(not IsNothing(Fields!ConceptoD.Value) ORELSE Fields!ImporteD.Value >0,Fields!ImporteD.Value,nothing) @@ -3111,7 +1781,409 @@ - 0.49417cm + 0.30896cm + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox215 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox216 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox229 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox220 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox221 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm @@ -3124,7 +2196,7 @@ @@ -3159,6 +2231,49 @@ + + + + true + true + + + + + + + + + + + + Textbox102 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3170,7 +2285,7 @@ Total Percepciones @@ -3215,7 +2330,7 @@ $ @@ -3258,7 +2373,7 @@ =Fields!ImporteP.Value @@ -3289,8 +2404,10 @@ 2pt + 2 + @@ -3302,7 +2419,7 @@ @@ -3348,7 +2465,7 @@ Total Deducciones @@ -3393,7 +2510,7 @@ $ @@ -3436,7 +2553,7 @@ =Fields!ImporteD.Value @@ -3477,7 +2594,7 @@ - 0.41479cm + 0.36187cm @@ -3490,7 +2607,7 @@ @@ -3510,6 +2627,37 @@ + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3521,7 +2669,7 @@ @@ -3552,7 +2700,7 @@ @@ -3583,7 +2731,7 @@ @@ -3616,7 +2764,7 @@ @@ -3638,6 +2786,39 @@ + + + + true + true + + + + + + + + + + + + Textbox241 + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -3649,7 +2830,7 @@ @@ -3680,7 +2861,7 @@ @@ -3711,7 +2892,7 @@ Neto a pagar @@ -3749,7 +2930,7 @@ $ @@ -3792,7 +2973,7 @@ =Fields!ImporteD.Value @@ -3833,7 +3014,7 @@ - 0.30896cm + 0.52062cm @@ -3844,8 +3025,10 @@ - - - 10 + 12 @@ -3874,10 +3057,12 @@ + + - 0.6cm + 0.54708cm @@ -3888,8 +3073,10 @@ - Recibí de la empresa arriba mencionada, la cantidad neta a que este documento se refiere, estando conforme con las - - 10 + 12 @@ -3918,10 +3105,60 @@ + + - 0.6cm + 0.46771cm + + + + + true + true + + + + + se refiere, estando conforme con las + + + + + + 2pt + 2pt + 2pt + 2pt + + + 12 + + + + + + + + + + + + + + + + + 0.46771cm @@ -3932,8 +3169,10 @@ - Percepciones y deducciones que en el aparecen a la fecha [@Empresa] no me adeuda - - 10 + 12 @@ -3962,10 +3201,12 @@ + + - 0.6cm + 0.52062cm @@ -3976,8 +3217,10 @@ - cantidad alguna por concepto de sueldos, ni ningun otro concepto analogo. - - 10 + 12 @@ -4006,10 +3249,12 @@ + + - 1.2cm + 1.27938cm @@ -4040,6 +3285,35 @@ + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -4162,7 +3436,7 @@ - + true true @@ -4173,6 +3447,39 @@ + + + Textbox243 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -4477,7 +3821,7 @@ - + true true @@ -4488,6 +3832,39 @@ + + + Textbox244 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + - Textbox298 @@ -4545,7 +3926,9 @@ - @@ -4707,13 +4084,13 @@ - 5.11721in + 4.06545in