AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-01-17 08:07:59 -07:00
parent b1ca6d6384
commit dbd16bc751
1 changed files with 34 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Compras/PopUpVerFactura.aspx.vb
View File

@@ -227,6 +227,16 @@ Partial Class PopUpVerFactura
Dim NoPallets As String = "" Dim NoPallets As String = ""
Dim NoBultos As String = "" Dim NoBultos As String = ""
Dim NoKgManifiesto 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 Dim tablaReporte As New DataTable
'Envase = "1 1/9" 'Envase = "1 1/9"
@@ -248,15 +258,25 @@ Partial Class PopUpVerFactura
CamPlaca = row("CamPlaca").ToString() CamPlaca = row("CamPlaca").ToString()
Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion")) Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
Rem1Placa = row("Rem1Placa").ToString() Rem1Placa = row("Rem1Placa").ToString()
NoFactura = row("NoFactura").ToString()
Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion")) Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion"))
If row("CveCamionRemolque1").ToString() = "1" Then Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
Rem1Placa = "12-TF-5E"
Remolque1 = "Remolque 1"
Else
Rem1Placa = "15-TF-7f"
Remolque1 = "Remolque 2"
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 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() NoPallets = objnom.DtResultados.Rows.Count.ToString()
@@ -282,6 +302,13 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Remolque1", Remolque1)) 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("NoBultos", NoBultos))
params.Add(New ReportParameter("NoPallets", NoPallets)) params.Add(New ReportParameter("NoPallets", NoPallets))
params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto)) params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
@@ -291,7 +318,6 @@ Partial Class PopUpVerFactura
Dim lrds As New List(Of ReportDataSource) Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
lrds.Add(rds) lrds.Add(rds)