From f1f118432383e4667af2b1d50f6dc733db59172f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 7 Dec 2021 11:25:21 -0700 Subject: [PATCH 1/4] ExportToExcelGembox mod Extenciones, correciones en paginas --- CRM/RepAcercamientosProcesos.aspx.cs | 2 +- CRM/RepAcercamientosRechazos.aspx.cs | 2 +- Contabilidad2/RepAnexoCatalogoAnual.aspx.vb | 10 +++++++++- Contabilidad2/RepAnexoCatalogoCC.aspx.vb | 10 +++++++++- Contabilidad2/RepAnexoCatalogoMensual.aspx.vb | 8 +++++++- RH/RepCursos.aspx.vb | 2 +- 6 files changed, 28 insertions(+), 6 deletions(-) diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index e3e9ff01f..fe314794b 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -596,7 +596,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas protected void LnkExcel_Click(object sender, EventArgs e) { - GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento", "", -1); + GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento"); } public override void VerifyRenderingInServerForm(Control control) diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs index ea1d906c8..f2778ba18 100644 --- a/CRM/RepAcercamientosRechazos.aspx.cs +++ b/CRM/RepAcercamientosRechazos.aspx.cs @@ -579,7 +579,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas protected void LnkExcel_Click(object sender, EventArgs e) { - GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento", "", -1); + GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento"); } public override void VerifyRenderingInServerForm(Control control) diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index 3e4e49632..a4fcaef1c 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -343,7 +343,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual SubProyecto = DdlSubProyecto.SelectedItem.Text End If - GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + Dim SbFiltros As New StringBuilder() + SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}") + SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) + SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) + + + + GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, "Anexo del Catálogo - Anual", DatoTituloExtra:=$"Periodo{DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString()) + 'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") End Sub diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index dbeabfa41..55871e9f4 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -339,7 +339,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC SubProyecto = DdlSubProyecto.SelectedItem.Text End If - GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + + Dim SbFiltros As New StringBuilder() + SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") + SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto) + SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) + + + GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString()) + 'GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") End Sub diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index eccd5ea9b..ed9732f15 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -334,7 +334,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual SubProyecto = DdlSubProyecto.SelectedItem.Text End If - GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + Dim SbFiltros As New StringBuilder() + SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") + SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) + + GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString()) + 'GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + End Sub diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb index 8a78e8e49..1ee537f4c 100644 --- a/RH/RepCursos.aspx.vb +++ b/RH/RepCursos.aspx.vb @@ -86,7 +86,7 @@ Partial Class RH_RepCursos End Sub Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1) + Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación") End Sub Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs) From b5cf21cbb9925cab364b8eb493b5e6357bc93586 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 10 Dec 2021 16:26:57 -0700 Subject: [PATCH 2/4] Rep AF compras CveClasificacion2 --- App_Code/ClsCompras.vb | 9 ++++++--- Compras/RepComprasAF.aspx | 15 +++++++++++++-- Compras/RepComprasAF.aspx.vb | 14 ++++++++++++-- Compras/RepComprasAFDetalle.aspx | 8 ++++++++ Compras/RepComprasAFDetalle.aspx.vb | 1 + 5 files changed, 40 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 67381324c..40bcd70e1 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -675,8 +675,9 @@ Public Class ClsCompras End Function Public Function GetRepComprasAF(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 - ) As Boolean + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1, + Optional CveClasificacion2 As Integer = -1 + ) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ComprasAFGetRep") @@ -697,6 +698,7 @@ Public Class ClsCompras .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 'CveClasificacion @@ -714,7 +716,7 @@ Public Class ClsCompras Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ComprasAFDetalleGetRep") @@ -739,6 +741,7 @@ Public Class ClsCompras .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 'CveClasificacion End With diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index b6ee8e1f9..c77ccf991 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -92,6 +92,7 @@ + @@ -147,12 +148,21 @@
+
Clasificación:
-
+
+ + +
Clasificación 2:
+
+ + + +
Producto Servicio:
@@ -167,7 +177,8 @@
- + diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index 2c5fc308c..1e5e19842 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -90,6 +90,9 @@ Partial Class Compras_RepComprasAF 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() + DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() @@ -154,10 +157,12 @@ Partial Class Compras_RepComprasAF Else TCEspecifico = -1 End If + If ObjCompras.GetRepComprasAF(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero, - CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then + DTDatos = ObjCompras.DtResultados GvDatos.DataSource = ObjCompras.DtResultados Else @@ -187,7 +192,7 @@ Partial Class Compras_RepComprasAF If CvePS = "" Or CvePS = "0" Then CvePS = "-1" End If - Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}" + Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}" If e.Row.DBCampo("Orden") = "1" Then e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DataKey("GPO").ToString) Else @@ -285,6 +290,11 @@ Partial Class Compras_RepComprasAF If DdlClasificacion.SelectedIndex > 0 Then ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text) End If + + If DdlClasificacion2.SelectedIndex > 0 Then + ListaFiltros.Add("Clasificación: " & DdlClasificacion2.SelectedItem.Text) + End If + For Each s As String In ListaFiltros If Contador > 0 Then filtro = filtro & ", " & s diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx index fc94f34da..a16109925 100644 --- a/Compras/RepComprasAFDetalle.aspx +++ b/Compras/RepComprasAFDetalle.aspx @@ -190,6 +190,14 @@
+ +
Clasificación 2:
+
+ + + +
+
Producto Servicio:
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index e8de3702b..3da3a329f 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -106,6 +106,7 @@ Partial Class Compras_RepComprasAFDetalle DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString) DdlProveedores.SelectedValueExist(Request.QueryString("CveProveedor").ToString) DdlClasificacion.SelectedValueExist(Request.QueryString("CveClasificacion").ToString) + DdlClasificacion2.SelectedValueExist(Request.QueryString("CveClasificacion2").ToString) If Request.QueryString("CvePS").ToString.Length > 0 Then DdlPS.txtText.Value = Request.QueryString("PS").ToString From f08ec17d64e27c980d6d1cee4f77b7ba199e9182 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 11 Dec 2021 11:08:11 -0700 Subject: [PATCH 3/4] 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