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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/RepEvaluacionesProveedores.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class RepEvaluacionesProveedores
Private Sub CargarDatos()
Dim ObjCompras As New ClsCompras
If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text, TxtFechaF.Text, DdlEvaluado.SelectedValue.ToEntero) Then
If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlEvaluado.SelectedValue.ToEntero) Then
GV.DataSource = ObjCompras.DtResultados
DtDatos = ObjCompras.DtResultados
End If
@@ -58,7 +58,7 @@ Partial Class RepEvaluacionesProveedores
params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString))
ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1")