--merge Ventas.aspx

Compras/PopUpVerFactura.aspx.vb

@@ -539,6 +539,12 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        If UrlParametros("OP").ToString = "Almr" Then
+            If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
+                CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=True)
+            End If
+        End If
+
         If UrlParametros("OP").ToString = "Etiqueta" Then
             If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
                 ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString)
@@ -1271,6 +1277,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 +1460,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 +1627,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
@@ -2210,7 +2276,7 @@ Partial Class PopUpVerFactura
 
 #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
 
-    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
+    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False)
         Dim ObjInventarios As New ClsInventarios
 
         ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
@@ -2306,11 +2372,11 @@ Partial Class PopUpVerFactura
         Dim CantidadUsados As Decimal = 0
 
         If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
-            If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                 DtMovimientos = ObjInventarios.DtResultados
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
-                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa, Resumen:=Resumen) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                         Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
                         Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
 
@@ -2340,7 +2406,7 @@ Partial Class PopUpVerFactura
                 DtMovimientos.PrimaryKey = keys
             End If
         Else
-            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                 DtMovimientos = ObjInventarios.DtResultados.Copy()
                 CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then