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-10 17:26:13 -07:00
parent e7e4b3ae6f
commit 077849230d
6 changed files with 59 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/PopUpVerFactura.aspx.vb
View File

@@ -297,7 +297,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Equipo GPS")
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
End Sub
Private Sub imprimirpallet2(cvePallet As Integer)
Dim Envase As String = ""
@@ -332,13 +332,14 @@ Partial Class PopUpVerFactura
Dim tablaReporte As New DataTable
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet")
End Sub
Private Sub imprimirpallet(cvePallet As Integer)
Dim Envase As String = ""
Dim Tamano As String = ""
Dim Cultivo As String = ""
Dim noPallet As String = ""
Dim FormatoImpresion As String = ""
'Envase = "1 1/9"
'Tamano = "Small"
@@ -351,6 +352,7 @@ Partial Class PopUpVerFactura
Tamano = row("Tamaño").ToString()
Cultivo = row("Cultivo").ToString()
noPallet = row("Codigo").ToString()
FormatoImpresion = row("FormatoImpresion").ToString()
End If
@@ -360,10 +362,11 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Tamano", Tamano))
params.Add(New ReportParameter("Cultivo", Cultivo))
params.Add(New ReportParameter("noPallet", noPallet))
params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
Dim tablaReporte As New DataTable
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Pallet Caja")
End Sub
#Region "U S U A R I O - T O K E N"