n

Compras/PopUpVerFactura.aspx.vb

@@ -205,9 +205,13 @@ Partial Class PopUpVerFactura
                 If Request("onlyPrint").ToString() = "PalletCaja" Then
                     imprimirpallet(Request("CvePallet").ToString.ToEntero())
                 End If
+
                 If Request("onlyPrint").ToString() = "manifiesto" Then
                     imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                 End If
+                If Request("onlyPrint").ToString() = "manifiestoRemision" Then
+                    imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
             End If
 
         End If
@@ -330,6 +334,150 @@ Partial Class PopUpVerFactura
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
     End Sub
+
+
+    Private Sub imprimirManifiestoRemisionRemision(cveEmbarqueManifiesto As Integer)
+        Dim NoEmbarque As String = ""
+        Dim Fecha As String = ""
+        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 Mercado As String = ""
+        Dim NoFactura As String = ""
+        Dim DivisoresdeCarton As String = ""
+        Dim BolsasdePlastico As String = ""
+        Dim TapaderasdeCarton As String = ""
+        Dim CAJASDECARTON As String = ""
+        Dim RPC As String = ""
+        Dim BINSDECARTON As String = ""
+        Dim TotalDlls As String = ""
+
+
+
+        Dim LongitudCaja As String = ""
+        Dim LineaTransportacion As String = ""
+        Dim SCAC As String = ""
+        Dim CAAT As String = ""
+        Dim NumeroTrailer As String = ""
+
+
+        Dim tablaReporte As New DataTable
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        'Variedad = "Golden"
+        Using objnom As New ClsNominas
+            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 = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
+                DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
+                BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
+                TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
+                CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
+                RPC = String.Format("{0:N0}", row("RPC"))
+                BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+
+
+
+                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("CamEspecificacion"), row("CamAnio"))
+                Rem1Placa = row("Rem1Placa").ToString()
+                NoFactura = row("NoFactura").ToString()
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
+
+                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
+
+                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()
+                    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))
+        params.Add(New ReportParameter("Fecha", Fecha))
+        params.Add(New ReportParameter("SubProyecto", SubProyecto))
+        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
+        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
+        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("LongitudCaja", LongitudCaja))
+        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+        params.Add(New ReportParameter("SCAC", SCAC))
+        params.Add(New ReportParameter("CAAT", CAAT))
+        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
+
+
+        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))
+
+
+        params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
+        params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
+        params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
+        params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
+        params.Add(New ReportParameter("RPC", RPC))
+        params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
+        params.Add(New ReportParameter("TotalDlls", TotalDlls))
+
+
+
+
+
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+        lrds.Add(rds)
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto")
+    End Sub
     Private Sub imprimirpallet2(cvePallet As Integer)
         Dim Envase As String = ""
         Dim Tamano As String = ""

vwd.webinfo

@@ -472,6 +472,8 @@
     
   
     
+  
+