Clientes RegimenSociedad, Carta porte documentos relacioandos

Compras/PopUpVerFactura.aspx.vb

@@ -1271,6 +1271,11 @@ Partial Class PopUpVerFactura
             DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
             DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
 
+            Dim DTRelacionados As New DataTable()
+            DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String)))
+            DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String)))
+
+
             Dim XMLDoc As New XmlDocument
             Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml")
             Dim Archivo As New System.IO.FileInfo(Path)
@@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura
                     End If
 
 
-
                     DtUbicaciones.Rows.Add(Row)
                 Next
 
+
+
+                Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+
+                If nodeRelacion IsNot Nothing Then
+                    Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
+                    Dim Relacion As String = ""
+
+                    Select Case RelacionCodigo
+                        Case "01"
+                            Relacion = "01 - Nota de crédito de los documentos relacionados"
+                        Case "02"
+                            Relacion = "02 - Nota de débito de los documentos relacionados"
+                        Case "03"
+                            Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos"
+                        Case "04"
+                            Relacion = "04 - Sustitución de los CFDI previos"
+                        Case "05"
+                            Relacion = "05 - Traslados de mercancias facturados previamente"
+                        Case "06"
+                            Relacion = "06 - Factura generada por los traslados previos"
+                        Case "07"
+                            Relacion = "07 - CFDI por aplicación de anticipo"
+                        Case "08"
+                            Relacion = "08 - Factura generada por pagos en parcialidades"
+                        Case "09"
+                            Relacion = "09 - Factura generada por pagos diferidos"
+
+                    End Select
+
+                    Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+                    For Each node As XmlNode In nodoDocumentosRealcionados
+
+                        Dim nRow As DataRow = DTRelacionados.NewRow
+                        nRow("Relacion") = Relacion
+
+                        Try
+                            Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
+                            nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
+                        Catch ex As Exception
+                            nRow("UUID") = ""
+                        End Try
+
+                        DTRelacionados.Rows.Add(nRow)
+                    Next
+                End If
+
+
+
+
                 Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
                 If nodeTFD IsNot Nothing Then
                     FolioFiscal = ValorXML(nodeTFD, "UUID", "")
@@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura
                 rds4.Value = DtOperadores
                 lrds.Add(rds4)
 
+
+                Dim rds5 As New ReportDataSource
+                rds5.Name = "DataSet5"
+                rds5.Value = DTRelacionados
+                lrds.Add(rds5)
+
                 ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio)
             End If
         End If