-- mejora en impresión pdf de pagos

App_Code/ClsPaginas.vb

@@ -8802,9 +8802,17 @@ Public Class ClsPaginas
 #End Region
 
 #Region "PDF PAGOS"
+
+    Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
+        Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
+        If o Is Nothing Then
+            Return Retorno
+        Else
+            Return o.Value
+        End If
+    End Function
+
     Public Sub PDFReciboDePagos(CveVenta As Integer, CveIE As Integer, CveComplementoPago As Integer, Optional imprimir As Boolean = True)
-
-
         Dim ObjBancos As New ClsBancos
         Dim ObjClientes As New ClsClientes
         Dim params As New List(Of ReportParameter)
@@ -8855,6 +8863,7 @@ Public Class ClsPaginas
         DTConceptosPagoRelacionado.Columns.Add("MetodoDePagoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("MonedaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String))
 
 
         If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then
@@ -8901,13 +8910,29 @@ Public Class ClsPaginas
 
         Dim ImagenCBB As String = $"file://{Ruta}CBB\{Serie}-{Folio}.jpg"
 
+
         If File.Exists(PathXML) Then
             Dim XmlDoc As New System.Xml.XmlDocument
             XmlDoc.Load(PathXML)
+            Dim Version = ValorXML(XmlDoc.DocumentElement, "version")
+            Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
+            Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
+            Dim cfdVer As String = ""
 
             Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
             Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos")
 
+            If Version = "3.3" Then
+                cfdVer = "http://www.sat.gob.mx/cfd/3"
+            Else ' se considera que es la version 4.0
+                cfdVer = "http://www.sat.gob.mx/cfd/4"
+            End If
+
+            namespaces.AddNamespace(Prefijo, cfdVer)
+            namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
+            namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
+            namespaces.AddNamespace("pago20", "http://www.sat.gob.mx/Pagos20")
+
             'Datos Fiscales
             If Not IsNothing(validaElemento) Then
                 For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
@@ -8924,8 +8949,18 @@ Public Class ClsPaginas
             'Pago
             If Not IsNothing(validaElemento) Then
                 Dim PagosChild = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Cast(Of XmlNode).Where(Function(a) a.LocalName.Equals("Pagos", StringComparison.CurrentCultureIgnoreCase)).FirstOrDefault()
+                Dim nodePagos As XmlNodeList
+                If Version = "3.3" Then
+                    nodePagos = XmlDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Complemento/pago10:Pago", Prefijo), namespaces)
+                Else
+                    nodePagos = XmlDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Complemento/pago20:Pagos/pago20:Pago", Prefijo), namespaces)
+                End If
+
+                For Each Pagos As XmlNode In nodePagos
+                    If Version = "4.0" AndAlso Pagos.Name = "pago20:Totales" Then
+                        Dim a As String = "a"
+                    Else
 
-                For Each Pagos As XmlNode In PagosChild.ChildNodes
                         Dim Dr As DataRow = DTConceptosPago.NewRow
 
                         If Not Pagos.Attributes("CtaOrdenante") Is Nothing Then Dr("CtaOrdenante") = Pagos.Attributes("CtaOrdenante").Value Else Dr("CtaOrdenante") = ""
@@ -8948,7 +8983,7 @@ Public Class ClsPaginas
 
                         DTConceptosPago.Rows.Add(Dr)
 
-                    For Each Relacionado As XmlNode In Pagos.ChildNodes
+                        For Each Relacionado As XmlNode In Pagos.SelectNodes("//pago20:DoctoRelacionado", namespaces)
                             Dim DrRelacionado As DataRow = DTConceptosPagoRelacionado.NewRow
 
                             If Not Relacionado.Attributes("Folio") Is Nothing Then DrRelacionado("Folio") = Relacionado.Attributes("Folio").Value Else DrRelacionado("Folio") = ""
@@ -8959,11 +8994,15 @@ Public Class ClsPaginas
                             DrRelacionado("ImpPagado") = Relacionado.Attributes("ImpPagado").Value
                             DrRelacionado("ImpSaldoAnt") = Relacionado.Attributes("ImpSaldoAnt").Value
                             DrRelacionado("NumParcialidad") = Relacionado.Attributes("NumParcialidad").Value
-                        DrRelacionado("MetodoDePagoDR") = Relacionado.Attributes("MetodoDePagoDR").Value
+                            If Version = "3.3" Then DrRelacionado("MetodoDePagoDR") = Relacionado.Attributes("MetodoDePagoDR").Value
+                            If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value
+
                             DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
 
                             DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
                         Next
+
+                    End If
                 Next
 
             End If