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-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Ventas/RepVentasMensualesDetalle.aspx.vb
View File

@@ -24,12 +24,12 @@ Partial Class RepVentasMensualesDetalle
Private Sub CargaDatos()
'URL DE PRUEBA
'/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
Dim FechaInicio As Date = Request.QueryString("FechaInicio")
Dim FechaFin As Date = Request.QueryString("FechaFin")
Dim CveCliente As Integer = Request.QueryString("CveCliente")
Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
Dim CveMarca As Integer = Request.QueryString("CveMarca")
Dim CveVendedor As Integer = Request.QueryString("CveVendedor")
Dim FechaInicio As Date = Request.QueryString("FechaInicio").ToDate
Dim FechaFin As Date = Request.QueryString("FechaFin").ToDate
Dim CveCliente As Integer = Request.QueryString("CveCliente").ToEntero
Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto").ToEntero
Dim CveMarca As Integer = Request.QueryString("CveMarca").ToEntero
Dim CveVendedor As Integer = Request.QueryString("CveVendedor").ToEntero
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
@@ -48,8 +48,8 @@ Partial Class RepVentasMensualesDetalle
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("Modalidad", 2))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("Modalidad", "2"))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
End Sub