-- option strict on

This commit is contained in:
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions

View File

@@ -57,7 +57,7 @@ Partial Class MetasVendedores
End If
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text.ToDate, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
GV.DataSource = ObjVentas.DtResultados
@@ -109,7 +109,7 @@ Partial Class MetasVendedores
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("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
@@ -124,7 +124,7 @@ Partial Class MetasVendedores
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("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))