From f08ec17d64e27c980d6d1cee4f77b7ba199e9182 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 11 Dec 2021 11:08:11 -0700 Subject: [PATCH] Rep AF agrupador y filtro Clasificaion 2, Carta porte --- Compras/PopUpVerFactura.aspx.vb | 5 + Compras/RepComprasAFDetalle.aspx | 44 ++- Compras/RepComprasAFDetalle.aspx.vb | 13 +- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 107 +++++- .../Grales/Formatos/RepComprasAFDetalle.rdlc | 314 ++++++++++++++++-- 5 files changed, 450 insertions(+), 33 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2bb063817..de41ff9c0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -937,6 +937,7 @@ Partial Class PopUpVerFactura Dim NumPolizaSeguroMedioAmbiente As String = "" Dim NombreAseguradoraCarga As String = "" Dim NumPolizaSeguroCarga As String = "" + Dim TipoUbicacion As String = "" @@ -1077,6 +1078,7 @@ Partial Class PopUpVerFactura 'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "") 'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "") 'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "") + 'TipoUbicacion = ValorXML(TipoUbicacion, "", "") End If @@ -1221,6 +1223,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("SubTotal", SubTotal.ToString())) params.Add(New ReportParameter("Descuentos", Descuentos.ToString())) params.Add(New ReportParameter("Total", Total.ToString())) + params.Add(New ReportParameter("TipoUbicacion", TipoUbicacion)) + + ' [@CertificadoContribuyente] '[@CadenaOriginal] diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx index a16109925..b4d4f8667 100644 --- a/Compras/RepComprasAFDetalle.aspx +++ b/Compras/RepComprasAFDetalle.aspx @@ -226,12 +226,23 @@ + + + + SubProyecto + + + + + + ActivoFijo - + <%----%> + @@ -253,6 +264,37 @@ + + + + Responsable + + + + + + + + + Horometro/Odometro + + + + + + + + + + Tipo Mantenimiento + + + + + + + + Unidad de Medida diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index 3da3a329f..d903d5b4d 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -163,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle End If If UsuarioActual.CveEmpresa = 72 Then - GvDatos.Columns(2).Visible = True + GvDatos.Columns(3).Visible = True End If End If @@ -186,6 +186,10 @@ Partial Class Compras_RepComprasAFDetalle DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + DdlClasificacion2.DataBind() + DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2")) + DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -277,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero, - CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then DTDatos = ObjCompras.DtResultados GvDatos.DataSource = ObjCompras.DtResultados @@ -435,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text) End If + + If DdlClasificacion2.SelectedIndex > 0 Then + ListaFiltros.Add("Clasificación 2: " & DdlClasificacion2.SelectedItem.Text) + End If + For Each s As String In ListaFiltros If Contador > 0 Then diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index c64ce9ebd..54b24800a 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -584,22 +584,73 @@ - 3.00921cm + 2.03633cm - 4.47377cm + 2.54796cm - 2.95726cm + 4.20919cm - 6.97146cm + 2.24876cm + + + 6.34152cm 0.6cm + + + + true + true + + + + + =Fields!TipoUbicacion.Value + + + + + + + TipoUbicacion + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -779,6 +830,46 @@ + + + 0.52062cm + + + true + true + + + + + Tipo Ubicación + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + 0.52062cm @@ -1004,7 +1095,7 @@ 8.2018cm 0.42363cm 1.12062cm - 19.10097cm + 19.07303cm 3 @@ -100,7 +120,7 @@ 0.84237cm 0.09525cm 0cm - 25.79479cm + 26.76762cm 1 + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + @@ -178,7 +244,10 @@ Descripcion - + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Horometro/ + + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + @@ -239,8 +391,11 @@ - Unidad M. - + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -400,7 +597,7 @@ - =Fields!Descripcion.Value + =Fields!CodigoAF.Value @@ -456,6 +653,72 @@ + + + + true + true + + + + + =Fields!NombreCompleto.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AFMedida.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -610,6 +873,9 @@ + + + @@ -626,7 +892,7 @@ 0.9482cm 0.09525cm 1.06771cm - 25.79479cm + 26.76762cm 2 @@ -722,7 +988,7 @@ 1.10271cm 0.09525cm 0.52945cm - 25.79479cm + 26.76762cm 1