From dbd16bc75142537a3330fc3629b381a747ce03b8 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Mon, 17 Jan 2022 08:07:59 -0700
Subject: [PATCH]

---
 Compras/PopUpVerFactura.aspx.vb | 42 ++++++++++++++++++++++++++-------
 1 file changed, 34 insertions(+), 8 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 55aa50ab4..9ebd61d4d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -227,6 +227,16 @@ Partial Class PopUpVerFactura
         Dim NoPallets As String = ""
         Dim NoBultos As String = ""
         Dim NoKgManifiesto As String = ""
+        Dim Mercado As String = ""
+        Dim NoFactura As String = ""
+
+        Dim LongitudCaja As String = ""
+        Dim LineaTransportacion As String = ""
+        Dim SCAC As String = ""
+        Dim CAAT As String = ""
+
+
+
         Dim tablaReporte As New DataTable
 
         'Envase = "1 1/9"
@@ -248,15 +258,25 @@ Partial Class PopUpVerFactura
                 CamPlaca = row("CamPlaca").ToString()
                 Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
                 Rem1Placa = row("Rem1Placa").ToString()
+                NoFactura = row("NoFactura").ToString()
                 Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion"))
-                If row("CveCamionRemolque1").ToString() = "1" Then
-                    Rem1Placa = "12-TF-5E"
-                    Remolque1 = "Remolque 1"
-                Else
-                    Rem1Placa = "15-TF-7f"
-                    Remolque1 = "Remolque 2"
+                Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
 
-                End If
+
+
+                LongitudCaja = row("LongitudCaja").ToString()
+                LineaTransportacion = row("LineaTransportacion").ToString()
+                SCAC = row("SCAC").ToString()
+                CAAT = row("CAAT").ToString()
+
+                'If row("CveCamionRemolque1").ToString() = "1" Then
+                '    Rem1Placa = "12-TF-5E"
+                '    Remolque1 = "Remolque 1"
+                'Else
+                '    Rem1Placa = "15-TF-7f"
+                '    Remolque1 = "Remolque 2"
+
+                'End If
 
                 If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                     NoPallets = objnom.DtResultados.Rows.Count.ToString()
@@ -282,6 +302,13 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Remolque1", Remolque1))
 
 
+        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
+        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+        params.Add(New ReportParameter("SCAC", SCAC))
+        params.Add(New ReportParameter("CAAT", CAAT))
+
+        params.Add(New ReportParameter("NoFactura", NoFactura))
+        params.Add(New ReportParameter("Mercado", Mercado))
         params.Add(New ReportParameter("NoBultos", NoBultos))
         params.Add(New ReportParameter("NoPallets", NoPallets))
         params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
@@ -291,7 +318,6 @@ Partial Class PopUpVerFactura
 
 
 
-
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)