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
2023-05-14 16:40:24 -07:00
parent 28e1693dc4
commit 5a66381b88
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/PopUpVerFactura.aspx.vb
View File

@@ -294,7 +294,7 @@ Partial Class PopUpVerFactura
'endimg 'endimg
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") ImprimirPDF("Formatos\Agro\ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
End Sub End Sub
Private Sub rfctxtvalidar() Private Sub rfctxtvalidar()
Dim numeroPeriodo As Integer = 0 Dim numeroPeriodo As Integer = 0
@@ -464,9 +464,9 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc" Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
rutardlc = "GPS/EmbarqueManifiesto2.rdlc" rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
End If End If
ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline") ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
End Sub End Sub
@@ -622,7 +622,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline") ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
End Sub End Sub
Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer) Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -774,7 +774,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")}) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
'ResultadoMail = 3 'ResultadoMail = 3
End If End If
ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline") ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
End Sub End Sub
@@ -856,7 +856,7 @@ Partial Class PopUpVerFactura
'endimg 'endimg
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
End Sub End Sub
@@ -986,9 +986,9 @@ Partial Class PopUpVerFactura
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc" Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
'If CvetypeImpresion = 2 Then 'If CvetypeImpresion = 2 Then
' ruta = "GPS/PalletEtiqueta_2.rdlc" ' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
'End If 'End If
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
End Sub End Sub
@@ -1084,9 +1084,9 @@ Partial Class PopUpVerFactura
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc" Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
'If CvetypeImpresion = 2 Then 'If CvetypeImpresion = 2 Then
' ruta = "GPS/PalletEtiqueta_2.rdlc" ' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
'End If 'End If
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
End Sub End Sub