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

-- cambios E140. recolecciones

Browse Source
This commit is contained in:
rrene
2024-02-25 19:20:28 -07:00
parent 9e12eb370b
commit f3b83548df
9 changed files with 363 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4575,32 +4575,32 @@ Partial Class PopUpVerFactura
#Region "OP = 'VAL' - IMPRIME PDF VAL"
Private Sub GenerarPDFVale(CveVale As Integer)
Dim ObjAF As New ClsAF
If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
Dim dtVC As DataTable = ObjAF.DtResultados
Dim dr As DataRow = dtVC.Rows(0)
'Dim ObjAF As New ClsAF
'If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
' Dim dtVC As DataTable = ObjAF.DtResultados
' Dim dr As DataRow = dtVC.Rows(0)
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString))
params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString))
params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString))
params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString))
params.Add(New ReportParameter("Combustible", dr("Combustible").ToString))
params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString))
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params)
' Dim params As New List(Of ReportParameter)
' params.Add(New ReportParameter("Folio", dr("Folio").ToString))
' params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString))
' params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString))
' params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString))
' params.Add(New ReportParameter("Fecha", dr("Fecha").ToString))
' params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString))
' params.Add(New ReportParameter("Combustible", dr("Combustible").ToString))
' params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString))
' ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params)
'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1)
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta))
'If Archivo.Exists Then
' 'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1)
' 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta))
' 'If Archivo.Exists Then
'Else
' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible")
'End If
End If
ObjAF.Dispose()
' 'Else
' ' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
' ' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible")
' 'End If
'End If
'ObjAF.Dispose()
End Sub
#End Region