From 62d439eff283af09cfcd4a576b2bd1c14ee9f297 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 25 Mar 2021 09:48:33 -0700 Subject: [PATCH 1/5] Quitar la parte de tareas --- Inicio.aspx | 4 ++-- Inicio.aspx.vb | 64 +++++++++++++++++++++++++------------------------- 2 files changed, 34 insertions(+), 34 deletions(-) diff --git a/Inicio.aspx b/Inicio.aspx index 20d7705e5..297d22aa2 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -483,7 +483,7 @@ -
+ <%--
@@ -534,7 +534,7 @@ -
+
--%> <%--
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index d3b03624b..49cc60cf1 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -178,7 +178,7 @@ Partial Class Inicio CargaGraficas() End If - CargaTareas() + 'CargaTareas() If UsuarioActual.CveRol = 1 Then divInd.Visible = True CargaSubProyectos() @@ -463,39 +463,39 @@ Partial Class Inicio End Sub - Private Sub CargaTareas() - Dim ObjProspectos As New ClsOIEventos + 'Private Sub CargaTareas() + ' Dim ObjProspectos As New ClsOIEventos - Dim FechaI, FechaF As DateTime - Dim CveEventoEstatus As Integer = -1 - FechaI = Now.AddDays(-180) - FechaF = Now - If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then + ' Dim FechaI, FechaF As DateTime + ' Dim CveEventoEstatus As Integer = -1 + ' FechaI = Now.AddDays(-180) + ' FechaF = Now + ' If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then - Dim DT As DataTable = ObjProspectos.DtResultados.Clone + ' Dim DT As DataTable = ObjProspectos.DtResultados.Clone - If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario))) - If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario))) + ' If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario))) + ' If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario))) - GvT.DataSource = DT - End If + ' GvT.DataSource = DT + ' End If - ObjProspectos.Dispose() - GvT.DataBind() - End Sub - Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Select Case UsuarioActual.CveUsuario.ToString - Case e.Row.DBCampo("CveUsuarioPara") - 'etiqueta de 'asignado' - e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning " - e.Row.FCLabel("LblTipo").Text = "por hacer " - Case e.Row.DBCampo("CveUsuarioDe") - e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" - e.Row.FCLabel("LblTipo").Text = "Asigné" - End Select - End If - End Sub + ' ObjProspectos.Dispose() + ' GvT.DataBind() + 'End Sub + 'Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound + ' If e.Row.RowType = DataControlRowType.DataRow Then + ' Select Case UsuarioActual.CveUsuario.ToString + ' Case e.Row.DBCampo("CveUsuarioPara") + ' 'etiqueta de 'asignado' + ' e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning " + ' e.Row.FCLabel("LblTipo").Text = "por hacer " + ' Case e.Row.DBCampo("CveUsuarioDe") + ' e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" + ' e.Row.FCLabel("LblTipo").Text = "Asigné" + ' End Select + ' End If + 'End Sub Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String, Link As String, TitleComentario As String) Dim htmldiv As New StringBuilder htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) @@ -844,9 +844,9 @@ Partial Class Inicio End Sub #End Region - Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged - CargaTareas() - End Sub + 'Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged + ' CargaTareas() + 'End Sub Protected Sub DdlFiltroIndicador_SelectedIndexChanged(sender As Object, e As EventArgs) End Sub From 9c1fc41e2a46aca817ed3cb53abe01a59cb24d27 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 25 Mar 2021 10:00:22 -0700 Subject: [PATCH 2/5] Cambio para visualizacion de reporte --- Acumuladores/EntradasUsadosResumenRep.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index 8e389cde6..c49ff177d 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -70,14 +70,15 @@ Partial Class Acumuladores_RepEntradasUsados Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) - + Dim Direccion As String = String.Format("{0} {1}", UsuarioActual.Empresa.Direccion.ToString, UsuarioActual.Empresa.NoExt.ToString) Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Direccion", "dirección")) - params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) + params.Add(New ReportParameter("Direccion", Direccion)) + params.Add(New ReportParameter("FechaConFormato", Date.Now.ToString)) params.Add(New ReportParameter("FechaInicial", txtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", txtFechaF.Text)) params.Add(New ReportParameter("Sucursal", "Sucursal")) + params.Add(New ReportParameter("Almacen", DdlAlmacenes.SelectedItem.ToString)) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados} From 6050c2b9cc2012abb443eda68fb6836cc78603ab Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 25 Mar 2021 10:01:15 -0700 Subject: [PATCH 3/5] Cambio para poder mostrar el nombre de empresaCRM en reporte de cotizacion --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 990a3e2f5..ccf04fdcb 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6617,7 +6617,7 @@ Public Class ClsPaginas 'CLIENTE - If Vta.CveCliente.ToEntero > 0 Then + If Vta.CveCliente.ToEntero > 0 Or Vta.CveEmpresaCRM.ToEntero > 0 Then params.Add(New ReportParameter("ClienteCodigo", Vta.Cliente.Codigo)) params.Add(New ReportParameter("ClienteNombre", If(Vta.ClienteSucursal.ImprimeNombreSucursal = "True", If(Vta.CveClienteSucursal > 0, Vta.ClienteSucursal.Sucursal, Vta.Cliente.Nombre), If(Vta.AtencionA <> "" AndAlso Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.RFC = "XAXX010101000", $"{Vta.Cliente.Nombre}({Vta.AtencionA})", Vta.Cliente.Nombre)))) params.Add(New ReportParameter("ClienteDireccion", ClienteDireccion)) From e62b0c722eea2d2a35074089d3ac69c72adf505c Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 25 Mar 2021 10:01:52 -0700 Subject: [PATCH 4/5] Cambios en reportes --- Empresas/140/Formatos/RepEntradasUsados.rdlc | 2316 ++++++++--------- .../Grales/Formatos/RepSolicitudAnticipo.rdlc | 7 +- 2 files changed, 1162 insertions(+), 1161 deletions(-) diff --git a/Empresas/140/Formatos/RepEntradasUsados.rdlc b/Empresas/140/Formatos/RepEntradasUsados.rdlc index 22e6dba92..c93143748 100644 --- a/Empresas/140/Formatos/RepEntradasUsados.rdlc +++ b/Empresas/140/Formatos/RepEntradasUsados.rdlc @@ -1,1160 +1,5 @@ - - - - - - - - 2.6528cm - - - 1.31753cm - - - 2.31753cm - - - 1.58961cm - - - 1.60315cm - - - 2.31753cm - - - 1.37304cm - - - 1.5767cm - - - 2.05295cm - - - 1.49732cm - - - 2.31753cm - - - - - 0.62959cm - - - - - true - true - - - - - Grupo - - - - - - - Textbox9 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Inicial - - - - - - - Textbox1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - E.Alm - - - - - - - Textbox29 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - E.Pub - - - - - - - Textbox13 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - E.Tras - - - - - - - Textbox27 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - E.Compras - - - - - - - Textbox15 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Otrs. - - - - - - - Textbox17 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - S.Alm - - - - - - - Textbox5 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - S.Trasp - - - - - - - Textbox8 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Otrs - - - - - - - Textbox11 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Exist Actual - - - - - - - Textbox41 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.58521cm - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0 - - - - - - - TipoAgrupador - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!E_Almacen.Value - - - - - - - E_Almacen - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0 - - - - - - - Paqueteria1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!E_Traspaso.Value - - - - - - - E_Traspaso - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!E_Compra.Value - - - - - - - E_Compra - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0 - - - - - - - Fecha - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!S_Almacen.Value - - - - - - - S_Almacen - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!S_Traspaso.Value - - - - - - - S_Traspaso - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0 - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0 - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 0.95278cm - 0.08377cm - 1.2148cm - 20.61569cm - - - - - - true - true - - - - - Entradas - - - - - - - Textbox37 - 0.17639cm - 3.02491cm - 0.6cm - 10.33589cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Salidas - - - - - - - Textbox38 - 0.17639cm - 13.43136cm - 0.6cm - 7.2681cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.9799in - - - - - 8.2362in - - - 3.1764cm - true - true - - - Embedded - Logo - Fit - 0.09927in - 0.10752in - 0.99993in - 1.6045in - - - - - - true - true - - - - - BDH BATERÍAS DISTRIBUCIONES DE - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tarjeta de Almacén Del - - - - =Parameters!FechaInicial.Value - - - - Al - - - - =Parameters!FechaFinal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaConFormato.Value - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!PageNumber - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.727cm - true - true - - - 0.127cm - 0.01325cm - 0cm - 20.90669cm - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0cm - 0.5cm - 1cm - 0.13cm - + + + + + + Textbox9 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Inicial + + + + + + + Textbox1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Alm + + + + + + + Textbox29 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Pub + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Tras + + + + + + + Textbox27 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Compras + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Otrs. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + S.Alm + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + S.Trasp + + + + + + + Textbox8 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Otrs + + + + + + + Textbox11 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Exist Actual + + + + + + + Textbox41 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.58521cm + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + + CodigoPS + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + TipoAgrupador + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Almacen.Value + + + + + + + E_Almacen + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Paqueteria1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Traspaso.Value + + + + + + + E_Traspaso + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Compra.Value + + + + + + + E_Compra + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!S_Almacen.Value + + + + + + + S_Almacen + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!S_Traspaso.Value + + + + + + + S_Traspaso + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.10583cm + 0.08377cm + 1.2148cm + 20.80089cm + + + + + + 0.51993in + + + + + 8.2362in + + + 3.54682cm + true + true + + + Embedded + Logo + Fit + 0.09927in + 0.10752in + 0.99993in + 1.6045in + + + + + + true + + + + + BDH BATERÍAS DISTRIBUCIONES DE + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tarjeta de Almacén Del + + + + =Parameters!FechaInicial.Value + + + + Al + + + + =Parameters!FechaFinal.Value + + + + + + + Textbox4 + 2.84098cm + 5.75736cm + 0.6cm + 10.1061cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaConFormato.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!PageNumber + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Almacen.Value + + + + + + + Textbox4 + 2.09987cm + 5.75736cm + 0.6cm + 10.1061cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Direccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.727cm + true + true + + + 0.12697cm + 0.01325cm + 0cm + 20.90669cm + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0cm + 0.5cm + 1cm + 0.13cm + @@ -837,7 +837,7 @@ 0.79506in