-

Compras/PopUpVerFactura.aspx.vb

@@ -194,7 +194,8 @@ Partial Class PopUpVerFactura
                 If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
                     SeleccionaReporte(UrlParametros)
                 End If
-            End If
+            End If
+
             If Request("onlyPrint") IsNot Nothing Then
                 If Request("onlyPrint").ToString() = "Pallet" Then
                     imprimirpallet2(Request("CvePallet").ToString.ToEntero())
@@ -216,6 +217,16 @@ Partial Class PopUpVerFactura
         Dim SubProyecto As String = ""
         Dim AgenciaAduanalUSA As String = ""
         Dim AgenciaAduanalMEX As String = ""
+        Dim Temperatura As String = ""
+        Dim Hora As String = ""
+        Dim Chofer As String = ""
+        Dim CamPlaca As String = ""
+        Dim Camion As String = ""
+        Dim Rem1Placa As String = ""
+        Dim Remolque1 As String = ""
+        Dim NoPallets As String = ""
+        Dim NoBultos As String = ""
+        Dim NoKgManifiesto As String = ""
         Dim tablaReporte As New DataTable
 
         'Envase = "1 1/9"
@@ -227,13 +238,34 @@ Partial Class PopUpVerFactura
             If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                 Dim row As DataRow = objnom.DtResultados.Rows(0)
                 NoEmbarque = row("NoEmbarque").ToString()
-                Fecha = row("Fecha").ToString()
+                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                 SubProyecto = row("SubProyecto").ToString()
                 AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
                 AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
+                Temperatura = row("Temperatura").ToString()
+                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
+                Chofer = row("Chofer").ToString()
+                CamPlaca = row("CamPlaca").ToString()
+                Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
+                Rem1Placa = row("Rem1Placa").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"
 
+                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()
+                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
+                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
+                    tablaReporte = objnom.DtResultados
+                End If
             End If
-
+            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
         End Using
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
@@ -241,9 +273,18 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("SubProyecto", SubProyecto))
         params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
         params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
-        params.Add(New ReportParameter("Temperatura", "45"))
+        params.Add(New ReportParameter("Temperatura", Temperatura))
+        params.Add(New ReportParameter("Hora", Hora))
+        params.Add(New ReportParameter("Chofer", Chofer))
+        params.Add(New ReportParameter("CamPlaca", CamPlaca))
+        params.Add(New ReportParameter("Camion", Camion))
+        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
+        params.Add(New ReportParameter("Remolque1", Remolque1))
 
 
+        params.Add(New ReportParameter("NoBultos", NoBultos))
+        params.Add(New ReportParameter("NoPallets", NoPallets))
+        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
 
 
 
@@ -1609,7 +1650,7 @@ Partial Class PopUpVerFactura
         Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
         Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
         Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = Obj.MonedaSAT
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)