diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 025f8b42a..659597ce7 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -189,7 +189,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = $" Fecha Final: {txtFechaF.Text}"; } String FechaI; if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = $" Fecha Inicial: {txtFechaI.Text}"; } - if (DtIVATrasladado.Rows.Count > 0 || DtIVAAcreditable.Rows.Count > 0) + String TipoMov; + if (DdlTipoMovto.SelectedItem.Text == "Todos") { TipoMov = ""; } else { TipoMov = $" Tipo Movimiento: {DdlTipoMovto.SelectedItem.Text}"; } + + if (GvT.Rows.Count > 0 || GvA.Rows.Count > 0) { System.IO.FileInfo Imagen; String logouri = ""; @@ -208,7 +211,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas List para = new List(); para.Add(new CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)); para.Add(new CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)); - para.Add(new CrystalParametro("Filtros", $"Filtros: {FechaI}{FechaF}")); + para.Add(new CrystalParametro("Filtros", $"Filtros: {FechaI}{FechaF}{TipoMov}")); if (Imagen.Exists) { para.Add(new CrystalParametro("LogoPath", logouri)); diff --git a/Empresas/153/Formatos/Cotizacion.rdlc b/Empresas/153/Formatos/Cotizacion.rdlc index fc6b403d8..4d5dfc9a9 100644 --- a/Empresas/153/Formatos/Cotizacion.rdlc +++ b/Empresas/153/Formatos/Cotizacion.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -2756,6 +2756,7 @@ ReportParameter1 + image/png diff --git a/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc index bdaacc0fe..4f8a3037c 100644 --- a/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc +++ b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc @@ -120,16 +120,16 @@ - 3.06478cm + 2.82666cm - 4.73895cm + 4.07455cm - 2.5cm + 2.25368cm - 3.18387cm + 2.21252cm 2.14434cm @@ -138,10 +138,10 @@ 1.01833cm - 1.25645cm + 1.12832cm - 1.70625cm + 1.52104cm @@ -748,7 +748,7 @@ - 1.42403cm + 1.0007cm true @@ -790,7 +790,7 @@ 0.10583cm 0.03086cm 0.93542cm - 21.037cm + 18.18014cm @@ -801,7 +801,7 @@ 0.45131in @@ -691,7 +695,7 @@ 0.67394in @@ -766,7 +770,7 @@ Textbox2 1.07625cm 0.52945cm - 25.89667cm + 22.55159cm 1 - - - - - - - - - - - - - - - - - - Textbox4 0.05159in 0.29332cm 0.96167in - 8.30729in + 7.42452in @@ -125,13 +95,13 @@ 3.8335cm - 5.14583cm + 4.69604cm - 7.47417cm + 6.62753cm - 4.36267cm + 3.70121cm @@ -353,7 +323,9 @@ =Fields!Direccion.Value - - 15.1387cm + 5.95766cm @@ -634,7 +605,6 @@ @@ -643,9 +613,9 @@ Textbox31 0.17639cm - 10.14852cm + 8.03185cm 0.41981cm - 6.02198cm + 6.86865cm 1 27.94cm - 21.59cm + 20cm 0cm 0cm 0.5cm @@ -779,6 +749,7 @@ ReportParameter1 + image/png diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index fa6aa8c9a..198f033d1 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -1616,6 +1616,11 @@ Partial Class GPS_Rastreo NombreReporte = "ReporteExcesosVelocidad" Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1") + Dim nombreCliente As String = "" + For Each dr As DataRow In dtt.Rows + nombreCliente = dr.Item("Cliente").ToString + Next Dim RptParametro As New List(Of ReportParameter) Dim DtDatos As New DataTable() @@ -1629,10 +1634,9 @@ Partial Class GPS_Rastreo RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString)) RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) RptParametro.Add(New ReportParameter("MapaURL", "")) - RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - RptParametro.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + RptParametro.Add(New ReportParameter("NombreEmpresa", nombreCliente)) If Imagen.Exists Then RptParametro.Add(New ReportParameter("LogoPath", logouri)) Else @@ -1682,7 +1686,6 @@ Partial Class GPS_Rastreo RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString)) RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) RptParametro.Add(New ReportParameter("MapaURL", "")) - RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) @@ -1834,13 +1837,17 @@ Partial Class GPS_Rastreo Dim RptParametro As New List(Of CrystalParametro) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1") + Dim nombreCliente As String = "" + For Each dr As DataRow In dtt.Rows + nombreCliente = dr.Item("Cliente").ToString + Next RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString)) RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString)) RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario)) RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToString)) RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DtPosiciones.SUM("KMRecorridos").ToString} KM")) - RptParametro.Add(New CrystalParametro("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + RptParametro.Add(New CrystalParametro("NombreEmpresa", nombreCliente)) If Imagen.Exists Then RptParametro.Add(New CrystalParametro("LogoPath", logouri)) Else diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index 816a289fb..96dd301bb 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx.vb +++ b/Inventarios/RepTraspasoAlmacen.aspx.vb @@ -165,6 +165,8 @@ Partial Class RepTraspasoAlmacen params.Add(New ReportParameter("FechaFin", FechaF)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + params.Add(New ReportParameter("FechaImprimio", DateTime.Now.ToString)) + If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else diff --git a/OI/RepTareas.aspx.vb b/OI/RepTareas.aspx.vb index 26151b487..bafe8cf97 100644 --- a/OI/RepTareas.aspx.vb +++ b/OI/RepTareas.aspx.vb @@ -176,7 +176,7 @@ Partial Class OI_RepTareas If DdlEventoEstatus.SelectedValue > "0" Then CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero Else CveEventoEstatus = -1 If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then - DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario)) + DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros("CveTipoEvento In (1,3)") DTOIEventosTareasCCP = DTOIEventosTareasCCP.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa)) ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString() 'BURBUJITAS - BADGE