From 09615596a733fad7d2183c36a6d219991d8034f4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 21:27:46 -0700 Subject: [PATCH 01/46] - mejora --- SAT/SolicitudesIngresoSat.aspx.cs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index 3ce158f5d..03036deb7 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -488,7 +488,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - + e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul @@ -514,15 +514,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - - - - - + e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); From 0248eb3490db48b2521631726c714c887c8356f1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 21:28:10 -0700 Subject: [PATCH 02/46] =?UTF-8?q?--=20solo=20generar=20una=20sola=20p?= =?UTF-8?q?=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ProveedoresAbonar.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 27467a8c7..6d4a4732f 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1861,6 +1861,9 @@ Partial Class Bancos_ProveedoresAbonar Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True) + CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, "Saldado de facturas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + For Each gr As GridViewRow In GvCxP.Rows If gr.FCCheckBox("Chk").Checked Then Dim IdCtaContable As Integer = CtaProveedor @@ -1889,7 +1892,6 @@ Partial Class Bancos_ProveedoresAbonar Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString) - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then IdCtaContable = IdCtaContComplementaria From 229a17c785656ca8fc068899cc42b5d3bbcb3db0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 21:36:57 -0700 Subject: [PATCH 03/46] =?UTF-8?q?-=20se=20alarg=C3=B3=20la=20fecha=20de=20?= =?UTF-8?q?inicio?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/RepAcumuladoresVigencia.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs index 6cc28d9bb..c89cf910b 100644 --- a/Acumuladores/RepAcumuladoresVigencia.aspx.cs +++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs @@ -21,7 +21,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas private void InicializaValores() { CargaCombos(); - txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-9).ToShortDateString(); + txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-24).ToShortDateString(); txtFechaF.Text = DateTime.Now.LastDayOfMonth().AddMonths(-6).ToShortDateString(); UpFiltros.Update(); } From c4ff3d243a511dab74932fb70060679464eb1d60 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 16 Feb 2023 16:06:35 -0700 Subject: [PATCH 04/46] =?UTF-8?q?--=20activaci=C3=B3n=20para=20empresa=20c?= =?UTF-8?q?itr=C3=ADcola,=20poder=20especificar=20el=20centro=20de=20costo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 4dbb0e04f..c30cfc4bb 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -3464,7 +3464,6 @@ Partial Class Inventarios_EntradasSalidas DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) End If - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then TrSubProyectoActivoFijo.Visible = True CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno") @@ -3473,6 +3472,11 @@ Partial Class Inventarios_EntradasSalidas CargaCultivos() End If + If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'citrícola + TrSubProyectoActivoFijo.Visible = True + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno") + End If + TrActivoFijo.Visible = True DdlActivoFijo.Items.Clear() From 72e79c2948747791e6b9ba3afe7c2bfc584323d7 Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 16 Feb 2023 19:13:47 -0700 Subject: [PATCH 05/46] E172 OC Totales mas detallados, en Pesos y Dlls --- OC/RepOC.aspx | 56 +++++++++++++++++------------------------------- OC/RepOC.aspx.vb | 24 ++++++++++++++++++--- 2 files changed, 41 insertions(+), 39 deletions(-) diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 23093ba9d..6e00d9bcb 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -266,53 +266,37 @@ -
-
-
+
+
-
-
-
-
-
-
-

- $ - - - -

- TOTAL ORDENES DE COMPRA -
-
- -
-
-
+ + +
+ + + +
+
+ " style="display: inline-block; width: 200px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
- " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+
+ " style="display: inline-block; width: 200px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
-
- " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
- -
- " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+
+ " style="display: inline-block; width: 200px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index fca85e652..73dbec805 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -385,10 +385,17 @@ Partial Class RepOC GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados DtPorAtender = OC.DtResultados - LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero If UsuarioActual.TienePermisoProceso(227) Then - DivTotalOC.Visible = True + DivIndicadores.Visible = True + DivIndicadores.InnerHtml = String.Empty + Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra") + Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1") + Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2") + Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio) + + MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") + UPPIndicador.Update() End If 'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA @@ -603,6 +610,17 @@ Partial Class RepOC End Sub #End Region - +#Region "Indicadores" + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
{0}
", Titulo, CT1, C1) + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", CT3, C3) + htmldiv.AppendFormat("", CT4, C4) + htmldiv.AppendFormat("
") + DIV.InnerHtml = htmldiv.ToString + End Sub +#End Region End Class From d341e38f500f28b879e73299d71806c7fb605fee Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 16 Feb 2023 20:04:26 -0700 Subject: [PATCH 06/46] E140 Acumuladores Vigencia Exporta Excel -Tambien se corrige en nombre de archivo de RepVentasAutorizaciones --- Acumuladores/RepAcumuladoresVigencia.aspx | 6 +++ Acumuladores/RepAcumuladoresVigencia.aspx.cs | 49 ++++++++++++++++---- Ventas/RepVentasAutorizaciones.aspx.cs | 2 +- 3 files changed, 48 insertions(+), 9 deletions(-) diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx b/Acumuladores/RepAcumuladoresVigencia.aspx index 01f7b200e..2ec474f82 100644 --- a/Acumuladores/RepAcumuladoresVigencia.aspx +++ b/Acumuladores/RepAcumuladoresVigencia.aspx @@ -10,6 +10,12 @@ +<%--
  • + Generar PDF +
    • --%> +
  • + Exportar Excel +
    • diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs index c89cf910b..1d388aa4c 100644 --- a/Acumuladores/RepAcumuladoresVigencia.aspx.cs +++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs @@ -1,15 +1,46 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Web; +using Extensiones; +using System; using System.Web.UI.WebControls; -using Extensiones; -using System.Data; -using Microsoft.Reporting.WebForms; -using System.Activities.Expressions; public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas { + #region PROPIEDADES + private bool Consultado + { + get { return Consultado = (bool)ViewState["Consultado"]; } + set { ViewState["Consultado"] = value; } + } + #endregion + + #region Exporta Excel PDF + protected void LnkExcel_Click(object sender, EventArgs e) + { + if (Consultado) + { + GvAcum.ExportToExcelG("RepAcumuladoresVigencia " + DateTime.Now.ToString("dd-MM-yyyy"), "Reporte de Vigencia de Acumuladores", UsuarioActual); + } + else + { + Alert("Por favor realice una consulta primero."); + } + } + /* + protected void LnkPdf_Click(object sender, EventArgs e) + { + if (Consultado) + { + GvAcum.GenerarReportePDF("Reporte de Autorizaciones de Ventas"); + } + else + { + Alert("Por favor realice una consulta primero."); + } + }*/ + public override void VerifyRenderingInServerForm(System.Web.UI.Control control) + { + } +#endregion + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) @@ -20,6 +51,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas private void InicializaValores() { + Consultado = false; CargaCombos(); txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-24).ToShortDateString(); txtFechaF.Text = DateTime.Now.LastDayOfMonth().AddMonths(-6).ToShortDateString(); @@ -37,6 +69,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas protected void BtnConsultar_Click(object sender, EventArgs e) { Consulta(); + Consultado = true; } private void Consulta() diff --git a/Ventas/RepVentasAutorizaciones.aspx.cs b/Ventas/RepVentasAutorizaciones.aspx.cs index 63655bfe1..18f5a7129 100644 --- a/Ventas/RepVentasAutorizaciones.aspx.cs +++ b/Ventas/RepVentasAutorizaciones.aspx.cs @@ -23,7 +23,7 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas { if (Consultado) { - GvDatos.ExportToExcelG("RepVentasAutorizaciones" + DateTime.Now, "Reporte de Autorizaciones de Ventas", UsuarioActual); + GvDatos.ExportToExcelG("RepVentasAutorizaciones" + DateTime.Now.ToString("dd-MM-yyyy"), "Reporte de Autorizaciones de Ventas", UsuarioActual); } else { From fdfdc39a6d18068e64f410c3692605c5bf56a4fe Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 16 Feb 2023 21:01:17 -0700 Subject: [PATCH 07/46] EntradasSalidas ocultar DdlClasificacion --- Inventarios/EntradasSalidas.aspx | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 35e7c1ee6..0f41c1d1d 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -35,10 +35,6 @@ } } - #C_myhidenbutton { - display: none; - } - .psagregar { width: 100%; text-align: center; @@ -1790,12 +1786,12 @@
    - + -
    - - + <%--
    --%> + +
    From 4f02d663972464abad588ccc2c3ae5918a045a71 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 17 Feb 2023 08:54:04 -0700 Subject: [PATCH 08/46] RepEstadoResultadosHorizontal Correcion 172, Compras Excedido pago al cambiar PS, Transferencias Validar Prepoliza, RepIva 119 RPT correcion --- Bancos/Transferencias.aspx.vb | 26 +-- Compras/Compras.aspx.vb | 2 +- .../RepEstadoResultadosHorizontal.aspx | 73 +++++---- .../RepEstadoResultadosHorizontal.aspx.vb | 153 ++++++++++-------- Empresas/119/Formatos/RepIVAAcreditable.rpt | Bin 131072 -> 131072 bytes Finanzas/RepEstadoResultadosHorizontal.aspx | 13 +- OC/OC.aspx | 9 +- RH/Personal.aspx.vb | 3 +- 8 files changed, 166 insertions(+), 113 deletions(-) diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index e198bbd5b..e649693cd 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -404,6 +404,21 @@ Partial Class Bancos_Transferencias End If End If + + If MsgError = "" Then + If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValorPolizaDescuadre > 0 Then + MsgError = ObjMov.MensajePolizaDescuadre + GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + Else + MsgError = "No se pudo validar la prepoliza de cuadre." + End If + End If + + + + If MsgError = "" Then 'Conta ContPAQ @@ -449,16 +464,7 @@ Partial Class Bancos_Transferencias - If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then - If ObjMov.ValorPolizaDescuadre > 0 Then - MsgError = ObjMov.MensajePolizaDescuadre - GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - Else - MsgError = "No se pudo validar la prepoliza de cuadre." - End If - End If + If MsgError = "" Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aa2a73f8c..7c6924bcf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -16597,7 +16597,7 @@ Partial Class Compras_Compras 'HACEMOS CALCULOS SubTotalIVA = TmpDT.SUM("IVA") SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA") - SubTotal = TmpDT.SUM("Total") + TmpDT.SUM("Descuento") + SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6) RetIVA = TmpDT.SUM("RetIVA") RetISR = TmpDT.SUM("RetISR") IEPSPS = TmpDT.SUM("IEPSPS") diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 5f9ffb583..30ee612d3 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -65,24 +65,25 @@
    +
    -
    -
      +
      +
      - +
      - +
      - +
      @@ -101,39 +102,53 @@
      -
      - -
      - - NO - Trimestre - Cuatrimestre - -
      - -
    +
    + +
    diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 31d2fdcd8..646220e6c 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1958,6 +1958,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() + + Dim Row As DataRow = DtIngresosSubProyectoH.NewRow Dim TotalActual = 0.0, TotalAnterior = 0.0 @@ -1988,81 +1990,80 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next listaCampos.Clear() - If DtIngresosSubProyectoH.Rows.Count > 0 Then + Dim DTProcesaColumnas As DataTable = If(DtIngresosSubProyectoH.Rows.Count > 0, DtIngresosSubProyectoH, DtGastosSubProyectoH) - For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns + For Each dColumn As DataColumn In DTProcesaColumnas.Columns + + If IndexData >= 13 Then + + If IndexSubProyecto <= IndexSubProyectoMax Then + + If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvIngresosSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvGastosSubProyectoH.Columns(IndexGv).Visible = True + + If IndexSubProyecto <= IndexSubProyectoMax Then + + Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") + + If dColumn.ColumnName = "SinSubProyecto" Then + TxtSub = "Sin SubProyecto" + End If + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True + End If - If IndexData >= 13 Then - - If IndexSubProyecto <= IndexSubProyectoMax Then - - If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName - GvIngresosSubProyectoH.Columns(IndexGv).Visible = True - - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName - GvGastosSubProyectoH.Columns(IndexGv).Visible = True - - If IndexSubProyecto <= IndexSubProyectoMax Then - - Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") - - If dColumn.ColumnName = "SinSubProyecto" Then - TxtSub = "Sin SubProyecto" - End If - - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - - CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - - If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then - CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True - CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True - End If - - End If - listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) End If - - Else - If IndexGv < GvIngresosSubProyectoH.Columns.Count Then - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False - Else - Exit For - End If - + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) End If - IndexGv = IndexGv + 2 - IndexSubProyecto = IndexSubProyecto + 1 - IndexMax = IndexMax + 1 + Else + If IndexGv < GvIngresosSubProyectoH.Columns.Count Then + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If End If - IndexData = IndexData + 1 - If dColumn.ColumnName = "SinSubProyecto" Then - Exit For - End If + IndexGv = IndexGv + 2 + IndexSubProyecto = IndexSubProyecto + 1 + IndexMax = IndexMax + 1 - Next + End If + IndexData = IndexData + 1 + + If dColumn.ColumnName = "SinSubProyecto" Then + Exit For + End If + + Next + + + If DtIngresosSubProyectoH.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows @@ -2074,7 +2075,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For IndexData = 13 To IndexTotales If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)") - Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + + If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Else + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" + End If End If Next @@ -2091,6 +2097,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero DtIngresosSubProyectoH.Rows.Add(Row) Else + + + + Row.Item("Nombre") = "INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosSubProyectoH.Rows.Add(Row) + Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" @@ -2113,14 +2128,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For IndexData = 13 To IndexTotales If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + + 'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + + If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Else + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" + End If + End If Next Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("CtaMayor") = -2 - Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") + Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero DTTotalesSubProyectoH.Rows.Add(Row) diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 33999cb6e6fe6b31b9ab1ca5534683d523c14b5e..2874e90728782da032e09483dcd7145eb468dbd9 100644 GIT binary patch delta 12116 zcmajFb8seI)b@Mdv7MRN6WcZ?6Wg}!+_7y<%!xU%Z95a&c5?E(-+90PPMuY?>bF+c z?%GvdUA22%SNr+F`1!%aF#;drnQ$SW006*atwJ>r^al9+g#PLPSf3vspPwIVkL1^G z&*D%oC5$VH%CR?}9|h-W&pQ2#IMCTdH}p@!v}NV_A5-+@w9A_}lD>T=iTMnHN4qG? zBMW&C@hUOD{pvb&$Odzbt_q;s_>EthyXoH1i6WyjJ^G!9r{)~@Bz$p8Zd7x;50a!< zfBS$yX6J~;jmYGYT0CtJ%X_8AT9%IHPQR5qmbo(^G3p?^U##VFl*GE=9#S6*=3wrL zBMlZQQ?WP(N*50O*1kVRkP*BVIxa7AG3FRZidH7We*C$yj3;d3V!W{N9KSlv%VM%G z0&Y?NC@{=Id_##u{H~hg!n78lnDG7J+U*UbI`iqRht@%!4n-ED`0A|_4IZz4^e!i& z7vGtt;jkvD>F(|ON7p&l!r5(vZ{k-{$6lBgEK?81bg|<3Vp&+PfG37z=>pL3hrgxtzwMU&tTgz zR@pugL5$$s=;@ncReESi=x^E^-$iZssb%f>nkYS7}2-s!Ba2rky4A)S{vgDz|TFaB~v4QN)UtvIs8qH|Ff4w<&+I&_2v9r0ri=-J>tSc zl(#bu%G2Mi=3&<$q}BK&ivwTcKv+xyuIGtY4xR0^w-+2)xj4n*;u+bd$d{Qs4~v_Lx%1qrrsLecK>aoY8S z`r<6esnK!c=-*a_;;McQn%Z7OGBnKTOAAJqq@1y%B<#vAI+&V=4`PJy+Hq9NDYHI< zb8dFq6^adgXH*M~HFpT>Pwa};0W>rAS~SLlyNnJ{L1Ix=ZKf$^_sy;F1be2lyfnP` zdgXMb_;EwEDW3FLgMKkAWNnKFo0|4ds&JHYbN-PZgBk~yE;By`J{)^ zVh=J~i2TDvVfI204^+&QV7rL=xnw{1K@M zb4y87;w}rq;)-HD!=w{xZb8~->Y?Tm#Uj&*4*FMWjr0rcYSx* zG4*bQ>-anU41p@OLU$`KwHOu}oh$){5g47w1S2g400IDTUxxz97vaB%_eI1nQhpKP zi>zNn`l8?$k-sSUMU*efe-Z7A>Ry^&V|bB5a18l2ioX zJS7^21%Tz99PxA)Zqb_`Q1JbZQLYmi&3=gs-ZtoIOy?B-oM&Xh9R3y{@W*@yZ^~Tr z)TGU&Sj$o@W22?|YMIBVw^i(B!gcHj7bD_jFLidEMt3sco2I#PZFqwJ4f5szRsh|y zfHshOr0hOO0Tj~Q|I5bHu$6bRrRX5o;t%XtXo{V9ja}7bjq#1CV&LjVB}F||vxm2= zfU;>x#RMdg2P&aEJX@{B?MB*N72QpafUJ^@Ej_yuz5T;`9|t1WbbmPe#GWc9MK|Gz zRXHv1FIEp4;`;C(^3NtwVMNHaL)~zni%as*vUV*FgrI%ApT3Pme5WVO`Wq*`Bx~Oj zZXBew^_u9aRri=M9#zT_MEKTx3gK>OC1-9G@D5}9%bHbI@oGBr;>JwnxYfo*ISJx< zlAUKf*|5i{+A$;U+3Y(a?&;o@;uf^mkV_+nOxfe%hFiLxMte_E9g#NCJQNJptBGBN zP_u&C)IeaOTFX_?%<ZfiW$ zIJsC!f~P7cbYm;TabZ+~^2;4uLH@Mh1!CbkHy}Hl&Fm&Y&#+S`Fd z7hw%pY+O3tmszml->6|LH=%tQiK#L76Y;GHGj*p!lvw)S;O(@ka3}SUa=Q-+j|m9% zIG_aO4F1blcd^r4l;9Krkfue$3Kxl7z_qQmM}5%YX-xVO`*y^n020C?WH#Qz= z6+6a+JV&H4`uGz{>Zhq^^x2sf1z{Z)tdX@nka+5m9x$8Q;q+>*%(o8RO*ti!48208|Jz8jk_ z3(l^{Yiosw=h3(>;&#}y@j-v>DACMpsZ)7u*l?HQZWoW|!!VK4r=9z?oFMxbCqZC? zs5eD+?NG@L4Wc4a5l4>=PWY{05j=6ZF7>%KI zp^^o?s=0y$T?iLK>=A*EO}+BBa}fOXE26;rCF=rX1^S5~9*If*YCCZ`3QtUKeayaAAlysMm6k=Sy0bmVi!q=nX={2e+MV={!y**|Gi(bMp_Ted|Cg@N^w15R_WPNjY1Qi(xm?cFW_62{%k`EMv0kt$5dbxkl?e= zxu%JVBZY{8bqh~Kzj3_ol2w|Pq9$T#M!lLIj79z+^{S1mb>>?StQ!byv+58qzkWL<}3)*Iz?D3Ghw=M zZg1@&mAYcD%8`*fGT6Cl*M3iaw_c-q&#v!c%;(L! zh4E;78xb`fdZSCKhXl;O)P&s4`CZ|-#cHF$LAb6gBQ8Bfk6!fVD3~8fJ7!}2?ptD$ z&b$dWb0Age&Ob(gdrb_LKS^IlvFibB{_OWGvIH5xn~GsX(6flzUz0QzcH~4Y>SxE& zVlY7bmM(pO);x%iyl)!pY`Up7V?Gpmk(x`)gAk(xf21HyAm!f0D2w5DjDMRu$9pA2@CUg+#D__R6FI{BG|q`N*a^wg&^Z})oJ=MUy?|7Ow2)9w~M|#T}~50 zM-*SW{lvMDN3o4b4e_l^YgQ|x`=LdW*nj({q*%4Y_u&Jw(dAj5Xx`p)X!vG1_4$C_ zb_w)9ulpb$76u!rHVKw{JIrOn6ysc#1rM5Xpv|_?<)n6qpEYFAL<+{iveFq^-gZ_N zBhMUOv*%v~0ueAsIjv@h;gnPO`0}KV^z@w|Q2XVPxI9CZ*l&CR9kD)bn{TWf84#$w z_4S*KDSbjQ^F0f1WrWW6RDpl;Vs>Yr?;7L7*Ev9;80ng)3>6Ucgn@)q7f8Y~@rd*u z*1Q3qeDXdu)p>YPmi72#o`Ee@q6P+{$lW})lCeEbQu1}BG!6z{3$gBA@I5iUd7dp^ zW649oTJ*T~`W4?N7Di7u++MN_JE>1^M<(la4-eV)@GbFmdlI{g&H(7a%(l97GJhwY z`v*Y^Lc%E%nUfH=aStgLo-k(BtlfoO#BaBk;33HCvyD}bzfmYC3Ug$)VH7@uU<=n%wrEJ{ zj+TRQ(UBSBz6+pYU%6~$mPs`V1=jy-GKU2rwk+5b?NIPxmRs$J36D{H*O^neV)=}< zGsg(z=~$ziNZ3b@-fpxia{v;YXd@*j6do4|Pm(T{liT50QbPTC85%@=Qhk|Q#FrH~ z9hkl9*>&4;<};@p{#I<;+NINM)TQcy{0FOAolee5$))C~(sS}#7n<={f3wn^a3eUV z9P)rHHrC%1X8=d1L3Gb3P1INc(K#Gr9}ZwV1^=)@;pl34JO0hOo%ULPMK~oBu|gzd zGAkMej9Z!3^Jl}-9GlK`IXC3U&^G;^+;%8Ywi*w|8vki@dV|lTqhPho%nrA^wT^0- zw&Z%B{Sd>4%IYFG|f zVhKS0S!K?^nYYn8&RR)`}Swcdsk5T4n(a?DQT4jEgUO&o2xhoOm8WTBj zGmjVIcAGCieCTcQM*4Pqgqh_TH?ywDyt#a8nq#x|(G9xaELqi}x=*8+YO`M$MU~}j z@SS&03`Q4%l7y3;KwlUhbRn4E^=^uQ44wD?W{wwCm_c#b#7aWf=$tUmMULv-SSLad zUNyua64j>YYWQz**|`I@k4G9;#SWw|NPFf$HXk$R=6!wY)SY4l?4{#o*JwDqc;Y`y5Fh}^z^I^4%^{nVoV7ZX5kF9W?sEGpS0Ch?`-_A zwdxSZ?k&$gD67DYxpaY7i;>uFRvK!G`%zf;iU6{S!^jclLr-~-z;URTRBTc-;4xq1YJr~ErR2jsO>3F7=MO#27mIb6WemPj%QL^h^$ z&$aYaO3)o_bw1($YqA!`q^*S_FKc#}%({_0Bm(m^L39N1Nj(=0focq}2=QzVVElQ7 ziVq5c%XsOr5I3>(#IWt5u1Q#ur`!;hJmcoA@vJ#(dZ2DRy7@8seWXTq)^>|#HFS^O z7Vxkl^nIP$+_}S5z-P6h`tWI5m*DpI7+RbGt20FPYT&xFb)Z_PLy|C%>S;9r&w^$L zXIC12E6ZWNLqhV{`?2c<(*E887))XD@B~6pX76+ZXO4P5K%FFs;BU5ue$;o`{zp@wo;V9x3a%X3GkR(}jpxfL$;g@gSqLOf zJn4EttZvwpd7vQZowX+~+x^-%rY|fuXSa!rh1=;-o4rfbSIyg8|IUDBf<@$9!RKn$ ze2t~{U{_2Lbf9$2=7ojL|ARpS>CHu2gEs8EKZ-BffF}3xhZ^?IFz_}whbMtJ>t8P% z8vJ#Y8J>PPvKcNKAcV4IYs1lA>n<*S+T@53r##A>74^@a zZw%BH-r8(VsbkSyCCkg567O7Qr+Z@lNIOKm`Z3<)II~v>uqQKGbMkPzr*7G5j`Q#P z5w$=0bJ`3nsw|x?nY*w@4_=*?E&}we9^>ga1gM!&I9>BkxLs-z&TSUiYn8*PoSdBtO!`PTR}O+tgz2~yb9OADfsC-Z|1;U&lKBHo5?y|P5RJa(eVPAv_y?u} zuYe-;qU1GTkfvYPxDyqqq!YPm5$ffsg1}M>AAz(1v`w@?tU{PC>H70OnIV;E8rT5w zUzfN{UIY1GVVoL21GI~`he!akMw*Vz`=5=$zt(nRCwhW;CNhFS0M}EWXMrGKN1_L~ z7s7vXc*cLK$5;FnoCkITN&f#;@+nr+X zHyFV=W;*s0=_91xc!N^Z(Zlt0g03Ltkb~dAE5WZHc4&dgY~i2u zDZWF0K5686T4%PnuO!x=hl)hVB0#t=XJ;Qs?yCr(sfx`>9NlVrQ>HoKP>JrWCPnOO z`)1JzUo*8eGMJd`t5-v{-lIlDoq+G7CYskrWkqvj(Zzwx!#flXF9%pv=><$F2b>d! z{p_hw~?~4A}Fuy@?a5= zojr_6?i!^F>?&(>OipcMEj(C@EPIjClW}dBpFdqK8xZ0brcI-1iO#x9iH>Q>hX-qn zxlR(Zt8j0$$fZ7I|Mf2|(}3FR5UJd^PgD8pu`Kn`O1XDVctPl?H*_?jNZ{jyJhb=2 z)T65VeZ;Rd39lhXybyi1gUB66y0>-!Ni>XV^y7qaKb07^CJTQ46YXflotHo1Myb$o z`WZ1kVZMW)JT2M4YmY6LGsLifEKVAD`+Ro}F!XQ1$fpwdoZk6mRP8n-zt(d`8uzUk zaHm^`WUQ+G`cd{53~|H?XsNxGWFnqiJ19MtAyVIACWjjg%( z$BOyJM$ZT2$rDC~ULJe0<4y^NH%?RP_`N?@dgugxUsAVkH5K#TpjKh*c)0HB9ey4^ z@AdBsb~CnCzr&3*W0@Oc8Q+L@~;aoU~Xtu4-n%m)4ZO1ioB0M*aG z-vwdOrDB~M4ASi~>_PtCPgg}Vu=u6%9<*ii9r`*`7q2KaKhajUdwD2S^3^(iXF-Uc zHUIi%hnOLeM2Fb?qR&*~IwT5!>jGv3I-4IOJSBV>{~3o`>98#kF6T_A@PW8zPf^3M zCqtLqZWo2@u}YHq_3S;D8$Bc2nF^iEYW;T^c`1~o!}PRL4hFRAS>m`4r4A-ths}jX%i7G1~82)qJY_Bry<1jCTf`D6w|$lN}ymcEB->+MM?T~nfwINi!(wb0benX zEqA%NwiNQwL05o+_N{v)^&c5^O}-+8j$;w`)FIW}U2wGwB}X#mDm>!mkB8rHdX;=J zcvD#&jJ37JZrq?Ch0W1<*~F@!>)OiY9w~zC+gO8iuLj3@JW>$8nx9B?;_0zB=hU_e z?bpYO{(lJ~%pBG;T9l*WSqGLqf6Z}|{Mrp)B@hgRYR4&SSiwrJy{S2PersXia-ZGq zkwTwc(CBiWfemi6vw7KO-~mLlwYztHyfYx6FW?K>aMFNIqc4FdBWpEqk^~Uo)R8k- zcMdbqW3kZFCC5`jWt&7i2@LF1X6ohw2q|O8O}`}GLDk_z@Pi_H*HN8QG@(RxlCayf zqz*6%fp$%`g|zx44F#Lt;RSpet$I;uO~PtF82#2vcH7N;+;fH&R+UAgSDOnFlYv?nJE@@kLUMEmczvJeFO~ zZI>rC`u=@$5xENUdGf` z3br+o{p}*@`(6SqSDdQk8A-g7f+rq4`LI$Gi8AP1F{>hxuwB!(I*^8?$^J>>D0z6BK5bnvA#a-GGi1OZUYb5D>zmbP!j2-Q&cz_X0&nfA6ElpJMLotlEvG+NV;QOIPD_b6K%)e#7zNbu$ zQhN|ofWLtR%N!AEa5zyT6^4GNU|xQB{np*%_>x_`dR9tgZs$6Oh<=cCnh%|c^U;Y9 z)w!HJ2LyY*^q{h{sB=_{TGl4(?&Po^gm}MZ62ymKJf&i@=MoXc!ii$q{We)cdroVk zplA#Dz!=N?T{yi`G;3*5=nky~F)H1T>9Qn+l)CLiVr=(p9w(OFvq}VekC~h z`j@=(Dp7J_nFc$Q_lLGo1I*=EK_$2W?-W+lV!4vM!iQI7mUx2D$9`I3K~!d(9U!RG z@_q*9*6Qq5)#r%XhyAS+&IQ%Zzch)gb`(XMq4{b~v&?j*+nD((XuX$2#@QB+u^N#< zue)voi|&%e7zG_0hly@2t>LmZdXF`R*=@!#g;?`J#9ae@9x4`jtOC>MZ$!RaHBUU4 zYQG>E7H;`H8AGN$_)T*Y<%c)@3oZy=#egp=0{F}Nl z2$@dmaMGEN~)$e5K0OrHvGH*GrJRTQEM(d~)2#ccDaB~oEX=TuX zaVQfwl@p_fEkls#CgfE6qxqrxrmwf3J1S*(f8517>iVIj9x3OO`0#m+*XJnI7#oeP z9s&rwKmwL=n2&u0Aw?=%%GR@GB6wytbpME?oeLsT-3D4&G zEoR#@Fx8H2SZYCF61`f;#L*xwUDelaF?0Ja3LzBPw$aIs8|e}Q+*U9C5=Rc8(|~eI zmBw;OdIr%@$yNZ>6@q}}TTv@jSRi*JH<nwM3*&oUU?NP)?iGP6S;)06umhG8I&iR8Ryj`B2UGvV9)o8AbHK)r>|b7sWA^40lF)J zeI42#rZGU7Eoy@7+teWg;>c!!>L(`}i1%m9F51mm+X!n1=i>T)H~jcgSQjg*AP;V{ zLbR8WXY|fm3kSej76t@`e4yu~4NgR^pnLRTGiC?CMGh&X&7Aqn^`bcAK0n&lsempl z!ttN%eiJ2q;wi*zC{utP=AN}R++_W?L2De7sBq}1)b>K*#(=$bB!b0MjOl-SZ6}_} z+$Tt1DOLFf-{iMNbo32l|A-&>fU#(@HhA@oyT&%^B|9;+i>~v;W{P(UKN*v9$bi9vsGV$^ke4Dl-&{?i}I)R!_Mc_Io zA^9iHFs0pzIg*{f6Ys5r^OiSC(9_s+Vj;;|%0M+@UP7}tG-}?ZblC6Kzi~xY#Hya$ zyIIr=CcU!nMd~1#%z_^gcanmdSojP%ZX5@$+5)nqXLtQ(n#tzXT@1Wz*b-|qG>pBJ zbn7qn8jm$(TMKfcoBiW{-QTb+7B?rPP6%>BBgyUu96!BdX$6_q^!;%ywX7qssWz&% zq*64ADd?irAFqNFMfK09HUY&YvO!V6q&mb{un6n3(iV`lH>9hRJWGuf)pCq2pn1^- zfn>iqe%p*+=h198U-1b>F83)j$tS2F?^wPuy9zX{Mx_;nwKTkWv9l(`*l@tj@ULqD z0$(T4!w_HiRCxZObgUI-d>EVY=$MYjNa&BQE_&s1>GLQ`B%Q`E%+`^Q@NY%C3#tA^ z<2+XhIVw;H?^zUg2X(aDH1{KI!``eJeg|3n6S%MLesMG^ic;I&p!w8>LRhjyMfo$p z&Wb}*hV^WOV@JBJ014U|gB8YGcefcGwM<ygWvXqzI+iD!A`JPSW=l{vw*e72w``I$>xw%{mJ%I0lY&kGp&;Lpuz$@5M=@*5`VrAm&W7Dz6 z*^su?y-|j_QCG7WufN*8wF1YJRsyFxXS6~!+aZAzO;kFK0Aeo4yQQxDXbr|dnfdXl zU$%HAF8Mv{-ftA>xBAQ@5=(9D|%V_@VgM<|P_1^*o z^^U~Bc$Fz}k(a2*(4vL0e_*(kftX5R3u%dG_07UBw*vpjC4lLDvO|MK2WiOpzybr~ zO@b3sDQEI@nI{{Y6C6k!CMJl%mVSt^j55jhI>`hvRj=PVvB-&I zmNKnUO4dEO6F5}e={S7!sz34%uMPRVLgxvz*|15O>o1;W1B0!#$bpN`d@Wd-xBAq5^IgdLl_Yt{DM+I1QJX`i$2Z-wovLS!jrpYN~$sFAh*- zH!PjiPA)|&Q?XX%duT{^>o#(0tHt_Zeo42RKzeodAjW*ub0yZo;AR^Cqy;4~*%LD& zi0G=@enEeJmoTH^?ir}SNTNqJ9E7H z1%d4)Y=G8h0YUSZ9E6;(Nh$kiV+#tfMGN|idwjC@-fA(Lp!^}txe?v@7GD|82EWFj z78`NYBNpb+zvL%5gpUTT5oVw5(8MBU+hXOHK%R1;R39i@$ zDjyb${Zt@cSRs&_v^%zo{)%K1fz3udx?pJ6Spy|6VHi)a8ag06dVLSYQyNXvBTXA> zS7%8LRl%Unh*4Y?N@xxi5QQz^($V41&239pj8~kj7_}!P&!mCd6rM2I_E)wlpwNu>qXWf-!2 zo<}3(im(vpz9r0;QbNGVlgo6Q-Y*sonNQ7nJ9m1YE#$d#pjP=@C7#>*9_`&nzf5x? zDn>1HPzg?A#=-H8+@--xmzQ9@5D$Q?(Ud+K+lF-6%b8HyGiy5P!4JCArx_44=LQ}T z^VH0V7eL@q$(}iB1ZxGq7Vuw(So7QC*G?JKiFP3S9Wj&p%e5ARgJGIHM`X})MI;~| zzY|sfdhJSCeBZC8!9ntdyd*N746^jr`U}yYEMcU--G|YhuApuNCikUdI!hdN{B_LT z_$JN3kjN~(ozaTa<3NexCzskq?EdMx?Mx*Q_3~>roJU*VsS?2hxRfLUv-2O%76RBhCipTJs2f$U#@*3y12R;KKD84R91l-o>#TQrRo#Y__duutcrwQQ1e}gO&Iz(I@o4{PLUwRJ4gHo zEbO;JuzcWthzLlI?O|}-+u8S-QsA-A{FkPo@@&7Z&)m|uTbys4Q54kcN;Xhig$en9 zOQ`(?1M@7xW5Ur4w(|Rotk^-obpOyOuN{U$5>MI45T=8VTGJ>QXdY=|OPT z3t>^fs}F)?le#{-)21FYFR*-4+v5?h=hFngUM1P`gZ-(fEx{>Ftp&8UUgu5N?>Pax z&MO*QCc*&)8ct*ld=)MeaUTX4V9I~7F>2u0pI1M3_jg%h2AYI@1r49$&C{NbHWe4) zCl?^U0Rln2#9BAzqQ`T1>=wm+unXA_`ZiD2eI{A!m)97bbpd!xVO`9eEG(G?Tzmh5 zp|SBy2*zdcZTH=P8?k@- z6XQ?QCaySLf6?nYh9!rV?ZZcHAB#w)X{9U9!>eiC(S$k1Pqf{}Yy4`wVyhv!#FaBwhNL_$5!9PK3t84aU zJ8wxE>N3XC$kW*uNR9U(Q^Hd5*}d4Z z!eXCOth}eM0x+z)nte zu>nYjZaK?vOax#GNNV;{TVzdpJpwM{1 zN{Rk{gq3cezg%%)pS_$;@c7qfM8Tp_zyvGvs$tWwo-uXipDbdxh#8Np0a=e3bTOcx zI+RSGi3?Qlr8H(!*9J5E?s8A0U0U^6MOtTcLtVK#yp7@(3qN?a!14&#@#5{B7~0+7 z(K?rn13$Jt^2e{kgzX0galm<1_-D3HBb|5D{^3363rtR~BS2Xi!rc87Ft{px`RSWn z-*V1<0;$J?*)gl?K?C=j9D{LpTj~WQ0{F9Bzl?VaQedxqtvF-yKcsZ|lsj1$@Dap84 z#LP|RpuTSI$qK`b1I~Z2w6E}y=lYBi5dHoi$ zz)0!k^}@>eW9U!)G-aUJs(zqn-5Lc~RMZ2>9C8I3VUkYZvk*Dr1J!2%*= zZ|-0Tz42yYz?v=`CSd|}citG)pNz}0hCa!-A9-DoEfoguxfzY#EN<7-3VnM?)@D#o zk}~D#YQ>QD=w0y8!8z_7LYa&o(G=3`Cp`qeKB+0?J1D#AY1;RaFSkdV^XadkZpmtW z0}CH>JUJvNpuBFG1NO85*~+-3dBV(YhyA~L```C#UySV}`n_n&%? z`X$1@fAPQkum9hC{ks0u{@?f?uYd>m_LuJp*au9YyaSr1-roU1kY-;C9sk!jNS(e1 vO8$SC1(^S17JRM#-!1;5d1~GxQ18n;C=q-Dg8d&iAms@tSmO8ug!q2|56fH` delta 12047 zcmaL7Wl$bXw6@EGyE_DT2@>3bySuvucZb1(ySux)ySoR6-~C}ja;gPa#A{F_^26$J4)>yMx6 zwE*%;nFB$BI#Zu6K>%nx)pHT#4Zwb`W*~eHpYaOz@d5K+f&20P{_*iXbS|kaL>$y+ z+T4(zX8%$7@vep&_I1Ms<0ZxPc~gddXB`)V>F%q?cGTnZJV#^}MA(-}d*=>(j)v;*Gca5(Uz({K;LJ ze*4nxl#vO+XVqA(k5p-X|9ZDz+#&vs?BC5 zYm$faj~~2lSaMgslwh*8*L~%TArAS0N2{GdNP+))f_(C1WV$nJX>X)Qw*e$ zyD|X20rD^W-MS?cMA(wo$rtYKCBgxhx62z0hLYuKh=A|;trXfCPq{m==UYBBr)E|Z z@N{rh_+@|0s4~ zBDgNE$$QDFnJO!VNK|E{R$)bFTSMqFVDVm>{|FmsWGo5jCjLDd#`Gcr&(Fi*=XFDN zXsumS+LseE%|Ioe1c7+Z8RCD-CT+@k$mG5aznbS<#}RU`)jKP#AuJ39ji7~tW&tL5+DBv5GEg5^K+o}hAn2>#GWV9!s zl+y<&9W*f^!{#qfP*An&&MviYayqrx5h~OdyKF$-?_%T1$hOB=?P3K6d_XU?Wa?Y~ zjlR^>HF0c%?&Rx&!{Mu+X!)vOq$`WD>$Z&YfOem`y^8BRm_Rx#qEzybxYI=byws>( zy#a5_Vz4--`wEsEQanczmVu}>grMbKtWXCirY_`Iq1s{ezmpQNt-p#NpJtt>SbeZe zbArTOtqpp3+1WPE%q`$AnOEBaa!%Ftd0mUot5gI|5|I>JDb=5ww*uWxm+KfkyW`8$ zEWP?MH}DRe*41N-u070Q^t=wsV7wqVIt%tbEZV*~LBVPiT)|O|JY&bZ!V9`T;hti4 z#ULSFhm7Fv_85m#ptNqH z@{jWNIC4H@I~gnW{LczI``f`<_Y25nA5CoT^~#&b``^1?@k)>+zNQ4AfuVCIk4dKB z&6zN`40fY3gquT@8hOM5ze{iu`m_Q50z3~`&J&kgEmHdsXX&((xVWNy9NfH-`^6ST z`tYRO4r+4e#yIO*;lmM6ugW^N@%^{ROZrn+@x~DRIqNPxwn7}P7N`bQRQ{g^i}bRf zRH;e5r)1pM)ipa-61ImB_9G8$2>8}EqD9lT;y&T`|lXz0JPVy`8bzoo>-!fb@AO8%b?}8`ri~ITMV6f!xs*o`Ahd+fE`k@T)2Di!hQCS=z|S#6>ybpzFFj z;h}uw(uf$49-HIa`w^^FK+B&9W<}uAoro9-r?ma%um(zNn z@@Hy~tMm`lSSbDj8KbCFFbYH#?spZ*9{)=vaz6WxgBr4HmwOpV5{DUXcFxD!i^-Ui z_B=k;!6i-(Z@zJkbiKI!2(^;0TSfK>IKQ`ubyx~gxF})x!yUM|bE{SXY`=d`uMm+D z;$;s!AzB0m*=_TM@4^9%CP%Jyg07eB7uB%-$j>U$#mb3&mOnWbaiVi@&I5BI3M}M4 zFcUem6!_hl^aAnF5Cn0&uA1bmrP~w&pixt^hv|1;PHp`e=`ap^GqWjjT!~TGf)`!g zd1lgBK2iw3RLJp<s)*R3w}%)M0D^W?OsZvDw)#ZQ;(%@Maeo z1`I*bv8F~24yRXCb=o=TKP;1+p0fgNZ250I;r-1g65e(Ie%$K5Xhp|P&L2z)kTaF8k$#Yp$$YcS;jEbkN5O*tnNk*Ww(%cZ{+9KXfmYzM?BXsV4xHP{iU`eTaq{pEjGQdVv(>?ms*rZMAXm73Z(Q|NEw9GV` zWNX13A&CZ%GwA7pH@arR1m`BFcXmz;iG>m;hpsyKyQ3hiUO0wTSYmQ^JnnFoxI{xl zvm2oz%8A{E+EBt0)vf+X6P>7j!g`gon>*OZtAWqz&;^xgQ|RC}p~j}4jRzo_R#R8w za!2Yqu^l3(Yo{tQO47DL32Y-kqcBg{FYtHj9PsM zzWT&lqt$|NTw!L`O)uVz3eS#E?EK%GARMwCSJs8mp88VdynGXV>E0Qebp;a}J_3S^ z;(38ek&!DBzNf_2#&^O&9MIxW6+63$gtjHB_t37oOfqN%%y*Bt2; zLY#yAs)a?eAvu9k(Kni>-(rn!o%r*h`$wL+GhgoC|R|iI(wQ`gNDzv^&GH z9>>>-DqQo?7I2k6Rv#|4^UOcCwa)<-h)3P~kfo?4#v3FwR9{ewyQvnKE+b}b$8?}r zS;uK)jjl;#=%}P+L>BH#fL&(Ow>`@#x?Rx#n~sVpT1y7G@1uSr+k#BrEhI-LF_Tge z0m+pk*zoN5e&r6WUoW(Roc%Bn{i^(|sYXE~$WT>FrKvxT%gJ}I^ujmV#Z~|_H%0>U z;o4%Hm4%4?SP)EH_g-1@2P}1P6a-x_Bq%A&KfRa;;)Jg7%86+QElV;1j5gNnB!f&g zMSiodK|Xosi%(QIjd#3%GBKK@z7V>%C)fS36C_XfAYVnqY)}Jy#U-l3?8B*R&}bG) z<}uFBxsd|1lrMYje4njCNC&WD?;94Ri(RY`?4T_VX{*dN zcX%0k^|M;>!tU@}G_@jD0p^j@;(Yba3}NK3FGV~!D^c}EcrWUriI<1ZclgfPBNFpf zs*o$R{t(i!o5Nn^$|ijTj~mOOmYRvIVAIer!AFvHdtxzu75JapwXHy>(%>TZ%o0ME zwtO$Y=>ZR{>)?nzg}5m12rmW-eNo)wtb64*Wv@8!0w~+aBLVTHj;k&DWfY!3-E{?| zfzN+VDD?3v(ZxoO%Rv3GmWhEUPMSPTJJLDHu<6UKZ6lVa-Eri9p2PupVvIe9t#U=R z5DML_NvoKpz2ppPpdP@AxvW6kss;)d*)YnTPcOPx#A1L=$=hm z3 zTP&E9THp9(ZBD^*#SL20sYzh`zAE4NrN0OixYx|NYnv02q$lun=p{^1Qmh+-64(v3RFCg;u_L&R7S?e#Q%7adC#t!+GM~gUa`l^@obnk2aI4{9I>M{g+9zWst5J#v3IbznCcZEO?2TtTs|9l2^9YkZ-I-=N_7Q8Yw<~*~J-z zoAFZ}2HFl*>NSJ}MyW3ZY-3PUme!P9+(gCR{tQ14?F{PCJL3C)Y4DeVhcKuTRj^|B zi^l$&YX4^*!&PJzVFwnICM(zn>!r9C>$%B+Sp+1umZJ9lT+lC`1o}~>b{1fAwhZ8{ zdni~7zJr;=*>bSWs%qC^O2><9xa$Cv5(T4KGDyrD`vbXl9~|@f+wHBy z3A>}*CdTfpxPQYUPONw61G#R|byI<`qy&s_(e~V7kV{ebhsXJ~J4d<83S1DXkK6=7 z7uq*NwPj?#k`x#AfYe$-ujV>9sqrtv0Sqz@USA)t)b$T0H-3e&`iZ`6Pi~={7XT;32x<0Vqvn;Xy!GGKghBha(TL z#c`T+oOq%V=_tqjiwlvM5Nm(_(A{Szg&|6Ma zxkZqeEZKX$sfRWVABkEE9Yq+~vDqQMX8Yr(9qR);_c>Rpk`J??V=U#lZt%q{#OWUk zw!_{s>2E*O2qCdXQo9rTuml@$```ebxtuS7n_#0ob(Pu_?5ZUX$L03wDAka3m``^- z#uL?%W#06U=6CIN}F6AR+PRsW-rkI;Mx!7hlVXWtGi2>+f7u z^pb&cY!&-Mlyc!cikTzaU=r*;yu8)2uXqc0ho7bJkellv&j?)Mln*+C2nB$>Tkq$E zdl_KFYS^+go2qnF_Y_)YMvLwcR+GZplsX?jD}3-Jl?iQBG~=l#)cBw8k}ekSd`N;9 zkyYZ(T0SJ=o;q=Mr;BGwN3*6~v?C7^FNuv@y{eNo{%V$J0s-G@mGMnFw{xX8=UK$N zWt4#@E{rz)H-WSeS?FYM$P54trgjjwgFY>G4t&xfj3(6;ErZQ*q#f$ebHkYuyThl7 zZ|p~|1@h_lV!})JNqx4-KZ+u+uCU(Ry@nx8>dPIC6z5Al-WRDE2694{(?oSW)do2n zbOv4}>#0^HYt-NM-H+D(xZl>nt!Jjx!Wb1)hp0WRT6cLJ*&IoF8lVEQFQSdWj(3tw z%S1^3V1nnk|Arqr2h2^P^j(S>z@RVU;G*tosUIXNp%;U?XX`32`8Ac(sn%J`FXIE& zg9ukUh+2(sCn|6COQQl_#!z`7v0U0UcYnGrCN^R1nHwLK#DH_KZK9tw8MM}$LDHp(18X>8!z@aQYXLu5oXk`+47!Vs3X@kK*{}Siv=>r*B7(lp1u>VP!pEBl0 zD#;wE36|r3-x4>e>Y)CcHcO432igCRRBGt@{r^g(VErHKD;sWh>VRIp_U z)CU5nLQt(T9;c8rnVtqlK6s`P1ICNcuJ0bc!FsmPxx^^FlUqm=^!pkQDSuo7{0Xv=xug=>+&t20ur~_YJk+Z^W!kf4^OleeJ->aV zDL*6+z^8=YXYQ`bG^dQErIV_(Oq4AsCLRF6U{<~H z|7MjVd&!nJFL&7R8j4~mzZFRvl`~E6Q}o(m&kx8FX>AD{(R&JlT^m+Oy~OX>lnLhZ^E@_|G7w`mY-PTOb|DL zcweiLHk5h#SiCB#AUj{%c}1r)#_Ym;U&1QK?8a|~$aHbnXh=%U>h+^*)>h{~1=Gvh zC1SMFBes{jmZ|X3MR^o(8h!$lo9iOCP<=_P~#3r5mrLH zsd9OwC#^SbRcv?T;&k)$Ku$6nhb!i2}$^F(H?H;C0_Z1IwlJdW$ zTk^fl8*m_-7lO1KegCC^hlSe>xwL|Ks(Tww3V*Si#8`uMMGk2fKML^*1x-9`G=KZc zD}FGa;R5Ei1vnCkW;gHn%k>SwCiUXtq#fF~*)$&#pz+Mg)kDXweXfQRsj{=ff=B;l z$!)$(pfUD=E&Xz>q*2gY?$c=DRfFFLwq*g7-}J(&BCshHPf2c<^xs=f_;k$@cH>20 z*<7D{K9EgcAVhLsU+hW|Q6$H-MlLmN=%?8aVE7LZ~8) zD$W*VS~C|anreD?d7Vl-x5p3pm}B*EwGQ|F9>k7`qeE-VcL@02ZY^ub4k;IjJYg|H zHMlg(0b;CNBS9M}RardT&M)PjQ&*0c>YC)tB@TsZmli8dr&UFJ=sHW^`3VO1?0w?~ z)c9nyLkqyud!IS$W#s_zn?&bE$n@Duvp~?}%uo)_L$BeO#o!)wm~n!4zhV~XaOp(e zc0qe)9VQq#bivWnY|Pr0q^@|?3AS*7_#5l7-Hzt%reaSkH2)*v%_GzO3{ImcEIe0% zi4EO-cDZfALkmC%kK>8vD^IvreD}+eM!vAncG{}GKqRQgw*t`HcaxEN(_)#*m9wy8 z<*BLbg?KD6@{fL^!gfJXp+0Lf`L6bABw6A3MzKR4+~a}6jzRl_Bb-L z1lwJWi>Qv8GlVT`@Xwr$RayeeRihTW*ALgKWS|U97R63D7dd8~5(~PCD4Zws?y7`c z2ZM|>^QL2ba&G1L-Lgo%d*7W9hx7X??TsYzd*5#%8GygI=EtUPk3z@)cEG>8w!+3` zCj=Z=j-U3NHlebEU12zbOg_?_x)w(8VilQ#o-Tf*f2fK`xrZD{HcU zv;xfu?a-QpbFb!Bbl972+bQ|@9@?cvv$p4JHE3Jep-p}#+%XI{bRw<)#vH5!ZJ241 znTQ(|u>^ea&ntoR;NyjgYuwFVF|g&>5&UWg%$;d0`}epZ)G_4doWQw>?Ph9rq>ED( zdPO0so$!lrLT!n}%58UD1`VORj;sa8VTjQaJIXGoGXXp{I=WVRxi3+sC5t;USEt&a6uukLjJ|R zcM4R@CuPd06420nTHfv|VJ}y8P_zA$q+cm%BJr=E^DR+5hKwJISyxe8%M3QJ!Q)*k znp!J24fnD{&hA3SnrX3r7}1WpR;N>7d>?=gsupw!Dv15#XZWsUoMd{9CEkIA88h=C z^;_u_KfQWe79lxA+^&0DHmQ%8LTF=OdHhJ{p8LFQO0sK%i=H1$8_(!c0cJG`#s&5g zSk%6V#>_oK%&XPL|+J%8@cx9o9+zGn*$C-Ypc!+-{Hw;l}6Dem{L;x7GAW*z45=Nd*U8# zLn`{mz?5otLyPQC%kOa=!fRS|+*Y27Qd=wc*pnfW^W;VHG3whWRbviMb3g}eO`6+X zVZKA|dTR4~cvXN?Rz_8f6!;P)uJ}yI?&7$@x4fG-#HU-ZakUrwg>1`|b_0VXIVf+Z z1oW4N+}0AQg1M$!m!c2?xnA)PLTFBm7AsoK4~g+)8nw;s)w+k-d{EL=yuser+lRw zZ4%ZOqc_KeFk%2j89;N=#w5K5#^aVwDFx8kXh`w(VD1HwmDT0BbfX`4vZvZSIT9Fh zePAp2tof>1u}=RScX9U3^Bk#)sC#Tj+Y;(LopM1!SJ;rR#GQ>++wG3g2?0^5nArLm zJ@=g*%)7Hkiobjl9_c@TQW;ev=W5QhdPU1xEE?Y-{tQX5 z0?FPn!c(dWc#y(OrU9$QhZSGDwRn}2r1*+>tBC`;fJit=enmeDBu{2177dxfBGKNaq1QAyIkYDk(1AV zrFdQAbss#0q<5q-{AqF2mI#ioE^d29%T2`34gQuk9Th zs1S6QZTozvImq@0RZzl6sB~+Mz=YeVp8k?C zTYBShGf>fSY!o#D_S=z{;CA@0z9ZzSlk-4SN6VKyPHckh-D?S z`}IjB4=O4ht>0R_ivy&_FQ&3JKQLb$IOVt46{-Hh-n#Ydq41wYN~%|mcj^57y<+)K z&DgN6v}m2w0DStN4#LJgIZ>mDjN05i*`Hl-`(@y!V(;plYRIk%u|5+&zef?H^meap z@{uDPZ85i~=|0QTNO_nGX>*k2IA2 z?P4I`%5$=bZi2@>`j2G1-LK<>o`A)({aO5h!-P&@vwGOARJx<1zTciTw#|%(Aq;=F z*Nb-A;C>;r!~w+h<6qg)EY^9D7rxe7pWU8v-DZ~%Lua)+{j?C@CD?5psR~EdOmUZN zGX}T(!f0P=ZLID8bKyht^aOX6y%%K_;^q*L&l;ParoZ?z9y68$-Oo}kHDAhsW+Yzp z@i#X3wO?kF`+C=bb{Kih;c4D?E6L+dDK-y8<*KodaIbN>O)<^ERzw9(6V{W9H{x+8 z%(0=5CCPh`8R6{R`dTUM#KLAsxKeEE;EH1S8ry_JO@Q06EW2RR->%qUSI^pT9G%Ur0aiJyOryXII)$jrsN!&*Dr_wG<+&*GpyHp1vm6OKFO zTYo zh_Qc}V~$LfW{M=S=31sgLhE)3V0cpl*-dr55IISViNwXiOJcOs#VO;q%U#Kcv7i9s zUTVplTJ$(tqhLur5s9tqG;+LnqR zdzeLv>F=P!X}F*S2d&Rjj)}S9-~ILlo&8cPIrERHJZ%e$S9meGJUg5v)pkqTw<uEXd<;*eeUwbherbI|-^BfC1Z!`6Z?ubtE-f4|qs z9`IEKYj;8X_7Bj1L`V*>nE!U9+V7(^U&&V-ixJ|lo-{3xu@SFy&$3JM-GXhNR- znoyS*kCm$3g(P!Jn)<}4Xz4}gRkRv|ySSuMlRXw#yi|}9AGXz-VB8|Sa{yf7t~^lu zwZYv5S{1=hlAeQ^G+Z3jEhWY7VViNA6$mXA)mo^=v}M(&?6&}&KyNHqE6}XKoXt40 zVeKHg6FXst;>p#yjDM&Fjllp{^CqI9&g4wRmsB+Uf0T1)N2ng|zUU8o!Q+L71Oq=p z)E@Oo9SL#VyV&Ce@@`wsreyKAJl0cp4HTUQe5)B}6q}Wa*uJo>Z~E{y>4i(cl5ZlF zqsd!!R7+QAH=6*~-@KO}at-A<^{}p`2fHaE<~T}frR={P$s{pLiPmf3ll@!Qtyb?@ zzZ2}Axh{xy-*!%BpKQNNx4Sp!ve&3y_PRy6)G)!;OO7Z!NG@Q67svPxf$H@VUeVb! zdUUla23fEx;({&;6;rH_>Rk6EWpni1PfmimB`*>(N=p*B@Y<7TC{1rQ(9f&ZpuJ$2ifX7e6|Bd~4Cl3FS-%E;QF)zBz7(n@^8;#p~M( z9fF-gw(haQ3zu%8*vL%I_^{Rz8GrK)MmZeVRC+)vZ%Ga3v)Lgp+~Hd0R-Web(()B0 zAYWAP_`LK`IHhX~ohukzRI_MC9FvO##7Wuc`fak=Esp&3@-*SARxo&!b%zu95o2~! zSWTROC8no5B=V5~jlQni_MqETgZMK^iM|HM?+)ZNZi4Tm!{>~%uYTzeCC(;y`gHDz zg={Ct-Qv?VFM?Q_JlSIsVq!ou^rZUxc)Jf|l$r#{{v0WNJr=0CXZaWS1?ZgIY!vK= zhRG@GaEtN|ZavsZXYGfCotb@f^Q_J)z^+j_-p*NtM z=v(36&s!)4z+tY~8()Q682o>tV}%UlAQUoX!6KI7SjK@2K*HtfSs4^P z-{Va?8R&!J8fW%~j(>!BwX9mwGJpBre0U|(0`MTv_TV9ACymwU%Ce=t`NiOTuV=bD zdfarK0Jnvk3@k%JH5HKp$7R{o1tAVsOam1c|18`%=i{bOh7@czFT3bBDiK&R9;8jC zJ5(wUS#GE6#v8r-9W^tjqf$%U;;!q*1K=@f3LtY5sfMo5w92Fc>n3*fHay4s+w5Vt zmQDFa4fQg10`*CyYBs{^2bw}~5fDz)=;e+S+vWFD9XCzGe_zjD1sxX#Q-w^6{R8;H zYrBh08(2!F7`{=s_OJ9qAue|6Goc(CmudneGB&L=Bs|sAZz4Guq=+pwP+Q+ZYiI;`G4fEs2kMXg%5ZPu>i!+$rhggd?8&I15 zgkZj0sHxet7KqB@__S^>Ki+3pmQ)1ya+Oj6>pBC}>L-dc(Z1&dZ89BC%|JtU2$OTS zl{?HGVY^vu)KNofLy5p zk*0B$YHN7HnJ@eB}Il_c)L-e0axNGgQU7E;Y;TN7Klt~VELtL(2eVdu{OfY5|+>qEC%@r86gU0ub zsyuyeof!%(!j5n;%>s(>irvfVS~()^!TrrNE*m)%0&#Y~wFv{5&PI^pN~?P%nF~a9 zneyYoLiRhaM1La?^Z?hQTU_Hv)XCI7Dk6?(YwwL=f5oKR?ZhvtDTbRH-{P=G^V1q` zXMa?-kn?$=Ml&NDY;Qqg(*6{Z?US!CC2FZAp*6Lm3+e5Q3D`KTVeCx6fV4Y1|DBzt z@;j*Nfql3^_=!a#NL5z#$|%DFHH4^s%yze0}=SO#C-OKj3|VMrN1G) zg`P8_l7wj-o1qYtsQs*DJE2LqtQg7p&m>-*+5HFn1B`cJN52GlnL+~5BI$zkltRsv zcYK>fHBHSg!w`IC(W8p=JuwbjX4ZUgX48|aHNr%P)XN9AMq%{yD7U0xpWz=|U%hwr zb{Y{s)+^yQ&V&I}f!}9z#Y_v=dY7_@UA_m%XYwY0c;UaZ5P+r0??G|-de8*Yx=k>O z8wYDV(TPX@Y^zIYy9||Z#_y_Frh+nL9Xg93rzZb1J$Yg%;1lQRFXk6aduzqmW=LTW zZVy+xVMq#DR%I$gNW+Dq)Q6137{;_LK2qU!{>U@aOzCTLo6>tSu)!<{(FH&H3ND9H zc4nJ4er3FIK;H4;82hjwRXXKWS1S`f6LIoIePwQoGj-nI*bwFSYhe^Y6k>!R(&W99 zFzI%_$_)n0WnmPuB>A!|&Wj&N=E_cEqwS{D0Xl_d1$7zbd#qPLE6XED3_KrL6GA`s-ur?-+=M$dry?|)5}w@-iNzf6sr2N5RF+<`1o@9#hWl;!8T)Bmw- zQs?eLlK($04c7m-H2=HffAxR)SubProyecto: -
  • Divisor: + + +
    • +
    + -
    + +
    diff --git a/OC/OC.aspx b/OC/OC.aspx index 6bfa5fdb7..4b0f83c28 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -2424,7 +2424,12 @@ - + + + + + + <%-- @@ -2433,7 +2438,7 @@ - + --%> <%-- diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index f44258e3d..f86f4b1d8 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5545,8 +5545,7 @@ Partial Class RH_Personal Dim objConstancias As New ClsConstancias Dim DocumenBitArray As Byte() = Nothing - Dim RutaDocumento As String = Server.MapPath("~") - 'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx") + Dim RutaDocumento As String = DirectorioBaseEmpresas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero() From 825ae37f059d15e8ed5c3f329a9dfb0ffb998b57 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 17 Feb 2023 16:12:58 -0700 Subject: [PATCH 09/46] Editar cantidad y precio al en contrato de venta --- Ventas/Ventas.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b6bda839e..6aa55776f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7928,6 +7928,11 @@ Partial Class Ventas e.Row.FCTextBox("TxtPrecio").Enabled = False End If + If CveContrato > 0 AndAlso CveContratoTipo = 33 Then + e.Row.FCTextBox("TxtCantidad").Enabled = True + e.Row.FCTextBox("TxtPrecio").Enabled = True + End If + If DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 Then e.Row.FCLinkButton("imgClone").Visible = False e.Row.FCTextBox("TxtOrden").Visible = True From 552ac11f8f439df0366dc04b6480fe717d90ea12 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 17 Feb 2023 16:14:04 -0700 Subject: [PATCH 10/46] EMD. Cambias en impresion de rep cxc detalle --- Empresas/13/Formatos/RepCxCDetalle.rdlc | 2343 +++++++++++++++++++++++ 1 file changed, 2343 insertions(+) create mode 100644 Empresas/13/Formatos/RepCxCDetalle.rdlc diff --git a/Empresas/13/Formatos/RepCxCDetalle.rdlc b/Empresas/13/Formatos/RepCxCDetalle.rdlc new file mode 100644 index 000000000..d27f075ef --- /dev/null +++ b/Empresas/13/Formatos/RepCxCDetalle.rdlc @@ -0,0 +1,2343 @@ + + + + + + + + + 0.87528cm + + + 1.62472cm + + + 2.10399cm + + + 2.32354cm + + + 2.40053cm + + + 6.22663cm + + + 1.62472cm + + + 1.2536cm + + + 3.73079cm + + + 1.72408cm + + + 3.00012cm + + + + + 0.49417cm + + + + + true + true + + + + + Tipo + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox12 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox14 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox16 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal Venta + + + + + + + Textbox18 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + F.Venc + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + D.Venc + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Contrato + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripcion + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + + TipoDocto + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value) + + + + + + + Fecha2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio4 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value) + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36363cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NumeroContrato.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DescripcionVenta.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + =iif(Fields!Fecha.Value IS NOTHING, false, true) + + + + + =iif(Fields!Fecha.Value IS NOTHING, True, False) + + + + + + + true + true + DataSet1 + 0.15021cm + 0cm + 1.27259cm + 26.888cm + + + + + + + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + + + 0.49417cm + + + + + true + true + + + + + Rango Días + + + + + + + Textbox15 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox19 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox23 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Objetivo + + + + + + + Textbox26 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2825cm + + + + + true + true + + + + + =Fields!Rango.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Porcentaje.Value + + + + + + + Porcentaje + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Objetivo.Value + + + + + + + Objetivo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DSCartera + 1.6429cm + 0.77667cm + 10cm + 1 + + =IIF(CountRows()>0,false,true) + + + + + + + 0.99425in + + + + + + + Textbox1 + 0.18521cm + 7.41726cm + 0.6cm + 13.02632cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TituloReporte.Value + + + + + + + + + + + + + + + + Textbox2 + 0.94396cm + 7.41726cm + 0.52945cm + 13.02632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.0635cm + 1.87966cm + 3.21028cm + 2 + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.61032cm + 0cm + 26.888cm + 4 + + + + + + + + + + + 1.42862cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.2099cm + 23.83501cm + 0.40039cm + 2.35691cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.22224cm + 13.83641cm + 0.40039cm + 6.04724cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.11641cm + 0.0635cm + 0cm + 26.8245cm + 5 + + + + + + true + true + + + + + IMPRESO EN SIG, Rep. CxC Detalle + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21.59cm + 27.94cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + - - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox11 - 0.07056cm - 22.60218cm - 1.02333cm - 4.21979cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!pEmp.Value - - - - - - - Textbox1 - 0.07056cm - 6.67449cm - 0.81167cm - 14.52244cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Presupuesto de Egresos Mensual del Ejercicio - - - - =Parameters!pEjercicio.Value - - - - - - - - - =Parameters!pMomentoContable.Value - - - - - - - Textbox5 - 0.9175cm - 4.55304cm - 0.74538cm - 17.17202cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.86309cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.97212cm - - - - - 0.6cm - - - - - true - true - - - - - Grupo - - - - - - - Textbox2 - - - - - - - - true - true - - - - - Ene - - - - - - - Textbox29 - - - - - - - - true - true - - - - - Feb - - - - - - - Textbox31 - - - - - - - - true - true - - - - - Mar - - - - - - - Textbox4 - - - - - - - - true - true - - - - - Abr - - - - - - - Textbox8 - - - - - - - - true - true - - - - - May - - - - - - - Textbox10 - - - - - - - - true - true - - - - - Jun - - - - - - - Textbox14 - - - - - - - - true - true - - - - - Jul - - - - - - - Textbox5 - - - - - - - - true - true - - - - - Ago - - - - - - - Textbox13 - - - - - - - - true - true - - - - - Sep - - - - - - - Textbox16 - - - - - - - - true - true - - - - - Oct - - - - - - - Textbox18 - - - - - - - - true - true - - - - - Nov - - - - - - - Textbox20 - - - - - - - - true - true - - - - - Dic - - - - - - - Textbox22 - - - - - - - - true - true - - - - - Total - - - - - - - Textbox24 - - - - - - - - 0.6cm - - - - - true - true - - - - - =Code.Niveles(Fields!GPO.Value,Fields!Clasificacion1.Value,Fields!Clasificacion2.Value,Fields!Clasificacion3.Value,Fields!Nivel.Value) - - - - - - - Textbox26 - - - - - - - - true - true - - - - - =Fields!Ene.Value - - - - - - - Ene - - - - - - - - true - true - - - - - =Fields!Feb.Value - - - - - - - Feb - - - - - - - - true - true - - - - - =Fields!Mar.Value - - - - - - - Mar - - - - - - - - true - true - - - - - =Fields!Abr.Value - - - - - - - Abr - - - - - - - - true - true - - - - - =Fields!May.Value - - - - - - - May - - - - - - - - true - true - - - - - =Fields!Jun.Value - - - - - - - Jun - - - - - - - - true - true - - - - - =Fields!Jul.Value - - - - - - - Jul - - - - - - - - true - true - - - - - =Fields!Ago.Value - - - - - - - Ago - - - - - - - - true - true - - - - - =Fields!Sep.Value - - - - - - - Sep - - - - - - - - true - true - - - - - =Fields!Oct.Value - - - - - - - Oct - - - - - - - - true - true - - - - - =Fields!Nov.Value - - - - - - - Nov - - - - - - - - true - true - - - - - =Fields!Dic.Value - - - - - - - Dic - - - - - - - - true - true - - - - - =Fields!TotalAcumulado.Value - - - - - - - TotalAcumulado - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - - - - DataSet1 - 2.11736cm - 0.36197cm - 1.2cm - 26.83521cm - 4 - - - - - - 1.40986in - - - - =Parameters!pEjercicio.Value - - - - - - - - - =Parameters!pMomentoContable.Value - - - - - - - Textbox5 - 0.18197cm - 4.55304cm - 0.6cm - 17.17202cm - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox8 - 0.20285cm - 23.32948cm - 0.57912cm - 3.49249cm - 1 - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - - - - - - - - - 0.94395cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.17639cm - 21.30572cm - 0.6cm - 5.51625cm - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21.59cm - 27.94cm - 0.25cm - 0.25cm - 0.25cm - 0.25cm - 0.13cm - + + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox11 + 0.07056cm + 22.60218cm + 1.02333cm + 4.21979cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!pEmp.Value + + + + + + + + + + + Textbox1 + 0.07056cm + 6.67449cm + 0.81167cm + 14.52244cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Presupuesto de Egresos Mensual del Ejercicio + + + + =Parameters!pEjercicio.Value + + + + - + + + + =Parameters!pMomentoContable.Value + + + + + + + Textbox5 + 0.9175cm + 4.55304cm + 0.74538cm + 17.17202cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.86309cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.97212cm + + + + + 0.6cm + + + + + true + true + + + + + Grupo + + + + + + + Textbox2 + + + + + + + + true + true + + + + + Ene + + + + + + + Textbox29 + + + + + + + + true + true + + + + + Feb + + + + + + + Textbox31 + + + + + + + + true + true + + + + + Mar + + + + + + + Textbox4 + + + + + + + + true + true + + + + + Abr + + + + + + + Textbox8 + + + + + + + + true + true + + + + + May + + + + + + + Textbox10 + + + + + + + + true + true + + + + + Jun + + + + + + + Textbox14 + + + + + + + + true + true + + + + + Jul + + + + + + + Textbox5 + + + + + + + + true + true + + + + + Ago + + + + + + + Textbox13 + + + + + + + + true + true + + + + + Sep + + + + + + + Textbox16 + + + + + + + + true + true + + + + + Oct + + + + + + + Textbox18 + + + + + + + + true + true + + + + + Nov + + + + + + + Textbox20 + + + + + + + + true + true + + + + + Dic + + + + + + + Textbox22 + + + + + + + + true + true + + + + + Total + + + + + + + Textbox24 + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.Niveles(Fields!GPO.Value,Fields!Clasificacion1.Value,Fields!Clasificacion2.Value,Fields!Clasificacion3.Value,Fields!Nivel.Value) + + + + + + + Textbox26 + + + + + + + + true + true + + + + + =Fields!Ene.Value + + + + + + + Ene + + + + + + + + true + true + + + + + =Fields!Feb.Value + + + + + + + Feb + + + + + + + + true + true + + + + + =Fields!Mar.Value + + + + + + + Mar + + + + + + + + true + true + + + + + =Fields!Abr.Value + + + + + + + Abr + + + + + + + + true + true + + + + + =Fields!May.Value + + + + + + + May + + + + + + + + true + true + + + + + =Fields!Jun.Value + + + + + + + Jun + + + + + + + + true + true + + + + + =Fields!Jul.Value + + + + + + + Jul + + + + + + + + true + true + + + + + =Fields!Ago.Value + + + + + + + Ago + + + + + + + + true + true + + + + + =Fields!Sep.Value + + + + + + + Sep + + + + + + + + true + true + + + + + =Fields!Oct.Value + + + + + + + Oct + + + + + + + + true + true + + + + + =Fields!Nov.Value + + + + + + + Nov + + + + + + + + true + true + + + + + =Fields!Dic.Value + + + + + + + Dic + + + + + + + + true + true + + + + + =Fields!TotalAcumulado.Value + + + + + + + TotalAcumulado + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + + + + DataSet1 + 2.11736cm + 0.36197cm + 1.2cm + 26.83521cm + 4 + + + + + + 1.40986in + + + + =Parameters!pEjercicio.Value + + + + - + + + + =Parameters!pMomentoContable.Value + + + + + + + Textbox5 + 0.18197cm + 4.55304cm + 0.6cm + 17.17202cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.20285cm + 23.32948cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 0.94395cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.17639cm + 21.30572cm + 0.6cm + 5.51625cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21.59cm + 27.94cm + 0.25cm + 0.25cm + 0.25cm + 0.25cm + 0.13cm + @@ -68,7 +69,7 @@
    -
    +
    @@ -102,53 +103,58 @@
    - -
    - +
    + Proyecto: +
    +
    + + +
    + SubProyecto: +
    +
    - +
    -     @@ -257,604 +263,604 @@ -
    - - - + +
    +
    + + + - -
    - - -
    -
    + + +
    +
    - - + + - - - - <%----%> - + + + + <%----%> + - - - - - - - - + + + + + + + + - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - <%-- + <%-- --%> - <%----%> - - - - - - - - - -
    -
    - + <%----%> + + + + + + + +     +     +
    +
    + - + - - - - - - - - - - - - + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - <%-- + <%-- --%> - <%-- --%> - - - - - - - - + <%-- --%> + + + + + + + + - -
    -
    - - + +
    +
    + + - - - - - - - - - - - - + + + + + + + + + + + + - - - - - - - - - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - + + + + + + + - - - - - - - - + + + + + + + + - + +
    -
    - - + + -
    +
    - - - - - - - - - - - - + + + + + + + + + + + +
    - + @@ -892,41 +898,41 @@ - + + + - + - + - + - + - + - + - + - + - + - + - - - + @@ -941,7 +947,7 @@

    - @@ -960,41 +966,41 @@ - + + + - + - + - + - + - + - + - + - + - + - + - - - + @@ -1018,8 +1024,8 @@

    - @@ -1039,41 +1045,41 @@ - + + + - + - + - + - + - + - + - + - + - + - + - - - + <%-- @@ -1084,7 +1090,7 @@ --%> <%-- --%> - + @@ -1146,60 +1152,60 @@ - - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + <%-- @@ -1237,59 +1243,59 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + <%-- @@ -1306,7 +1312,7 @@ - + @@ -1328,59 +1334,59 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -1390,7 +1396,7 @@ - + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 646220e6c..a5a1825d9 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -126,6 +126,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ' End Set 'End Property + Private Property CveProyecto As Integer + Get + CveProyecto = ViewState("CveProyecto").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveProyecto") = value + End Set + End Property + Private Property CveSubProyecto As Integer + Get + CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveSubProyecto") = value + End Set + End Property + #End Region @@ -333,8 +350,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CargaEjercicios() - CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto) - TabSubProyecto.HeaderText = LblSubProyecto.Text & " " + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto) + TabSubProyecto.HeaderText = LblProyecto.Text & " " & LblSubProyecto.Text & " " @@ -344,11 +361,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If End Sub + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged + CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos") + End Sub + Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) If TAB.ActiveTabIndex = 0 Then - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True @@ -368,8 +389,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If TAB.ActiveTabIndex = 1 Then - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True @@ -397,8 +418,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ValidaEjercicios() - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True @@ -420,8 +441,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If If TAB.ActiveTabIndex = 3 Then - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True @@ -547,11 +568,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMes = Nothing @@ -675,8 +697,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) If DdlDivisor.SelectedValue.ToEntero > 1 Then @@ -713,8 +735,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) End If If DdlDivisor.SelectedValue.ToEntero > 1 Then @@ -752,11 +774,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMesH = Nothing @@ -1244,27 +1267,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" - e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) - e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) - e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) @@ -1352,27 +1375,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" - e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) - e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) - e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" @@ -1530,11 +1553,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then + If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosAnualH = Nothing @@ -1913,11 +1937,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") 'se limpian los subproyectos con importe cero From a9afafff164bc66ad60919a8c8cec2bff44573df Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 21 Feb 2023 09:29:54 -0700 Subject: [PATCH 44/46] =?UTF-8?q?--=20correcci=C3=B3n=20visualizaci=C3=B3n?= =?UTF-8?q?=20de=20marcas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepProductosServicios.aspx.vb | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 3bc89f608..6225d3e6e 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -255,15 +255,9 @@ Partial Class Ventas_RepProductosServicios Protected Sub CargarMarcas() If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then DivMarca.Visible = True - LblMarca.Visible = True - - 'Using ObjMarcas As New ClsProductosServicios - ' If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then - ' DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados - ' DdlMarcaPSDes.DataBind() - ' End If - 'End Using - DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) + LblMarca.Visible = True + DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) + DdlMarcaPSDes.DataBind() End If DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) End Sub From 1f42a80a8a5fa7a63d86d4c9f70814850dae4a16 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 21 Feb 2023 10:33:41 -0700 Subject: [PATCH 45/46] Compras.aspx.vb Se agrega asignacion de subProyecto --- Compras/Compras.aspx.vb | 57 +++++++++- Contabilidad/RegPrePolizaS.aspx.vb | 168 +---------------------------- 2 files changed, 53 insertions(+), 172 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 397c6ebd3..b4fcf4384 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4204,6 +4204,13 @@ Partial Class Compras_Compras '------------------ INICIA VALIDACIONES ------------------ + Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() + + If Not CveSubProyectoPrincipal > 0 Then + Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia) + End If + + If Not ValidaVinculacionNotaFactura() Then Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia) Exit Sub @@ -4921,7 +4928,8 @@ Partial Class Compras_Compras TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen, - CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, EsImportacion:=EsImportacion, CveFactura:=CveFactura) Then + CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, + EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal) Then ViewState("CveCompra") = ObjCompras.CveCompra If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString @@ -6015,7 +6023,7 @@ Partial Class Compras_Compras For Each Row As DataRow In DTPlatilla.Rows - Dim CveSubProyectoInsertar As Integer = -1 + Dim CveSubProyectoInsertar As Integer = CveSubProyectoPrincipal Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) @@ -6227,7 +6235,7 @@ Partial Class Compras_Compras Case 25 'IEPS X Acreditar If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then - CveSubProyectoInsertar = CveSubProyecto + 'CveSubProyectoInsertar = CveSubProyecto importeMovimiento = CompraActual.IEPS importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" @@ -6323,7 +6331,7 @@ Partial Class Compras_Compras Case 64 'Ganancia - CveSubProyectoInsertar = CveSubProyecto + 'CveSubProyectoInsertar = CveSubProyecto If CveSubProyectoInsertar <= 0 Then ErrorPrepoliza = True Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) @@ -8228,6 +8236,39 @@ Partial Class Compras_Compras End If End Sub + Private Function AsignarSubProyectoPrincipal() As Integer + + Dim CveSubProyectoPrincioal As Integer = -1 + + Dim DTSubProyectoPrincipal As New DataTable + + DTSubProyectoPrincipal.Columns.Add("CveSubProyecto", GetType(Integer)) + DTSubProyectoPrincipal.Columns.Add("Total", GetType(Decimal)) + + + For Each dRow As DataRow In TmpDT.FiltraParametros("", "", {"CveSubProyecto"}).Rows + + Dim CveSubProyectoActual As Integer = dRow("CveSubProyecto").ToString.ToEntero + + If CveSubProyectoActual > 0 Then + + Dim nRow = DTSubProyectoPrincipal.NewRow + nRow("CveSubProyecto") = dRow("CveSubProyecto").ToString.ToEntero + nRow("Total") = TmpDT.SUMD("Total", $"CveSubProyecto={CveSubProyectoActual}") + DTSubProyectoPrincipal.Rows.Add(nRow) + End If + Next + + + If DTSubProyectoPrincipal.Rows.Count > 0 Then + DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ") + CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero + End If + + Return CveSubProyectoPrincioal + + End Function + Private Function ValidaVinculacionNotaFactura() As Boolean Dim Respuesta As Boolean = False @@ -8833,6 +8874,12 @@ Partial Class Compras_Compras Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click + Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() + If Not CveSubProyectoPrincipal > 0 Then + Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia) + End If + + If CveFactura > 0 Then If Not AjustaCombustibles() Then Exit Sub @@ -8915,7 +8962,7 @@ Partial Class Compras_Compras If ObjCompra.UpdateCompra(TxtDescripcion.Text.Trim, TxtFolioSecundario.Text.Trim, TxtFechaPago.Text.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura, TxtDescuento.Text.ToDouble, TxtSubTotal.Text.ToDouble, TxtIVA.Text.ToDouble, TxtTotal.Text.ToDouble, UsuarioActual.CveUsuario, CveCompra, CveCajaChica:=DdlRembolsoCajaChica.SelectedValue.ToEntero, CvePersonal:=DdlRembolsoPersonal.SelectedValue.ToEntero, CveProveedorSucursal:=If(DdlProveedorSucursal.SelectedValue.ToEntero > 0, DdlProveedorSucursal.SelectedValue.ToEntero, -1), PorcentajeIVA:=PorcentajeIVA, NumeroReembolso:=TxtRembolsoNumero.Text, - CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto) Then + CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal) Then If Not ComparaDatatables() Then diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 2cf6d06aa..4b02bd7d4 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -310,7 +310,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If - ImprimeImPrimePrePolizaS(CvePrePoliza) + Exit Sub @@ -3321,172 +3321,6 @@ Partial Class ContabilidadC_RegPrePolizaS 'End Sub - Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer) - - - - - If Not CvePrePoliza > 0 Then - Exit Sub - End If - - - 'ObjContabilidad.Dispose() - - Dim rutaArchivo As String = "" - Dim params As New List(Of ReportParameter) - Dim Bytes As Byte() = Nothing - Dim DtDetalle As New DataTable - Dim CveTipoPolizaImp As Integer = 0 - Dim FolioPoliza As String = "" - Dim ConceptoPolizaImp As String = "" - Dim CveMonedaImp As Integer = 0 - Dim TipoPolizaString = "" - - Dim ObjContabilidad As New ClsContabilidad - - Dim TipoPolImp As String = "" - - - If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then - - Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") - - If dr IsNot Nothing Then - - TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario")) - CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero - ConceptoPolizaImp = dr("Concepto") - FolioPoliza = dr("FolioPoliza").ToString - CveMonedaImp = dr("CveMoneda").ToString.ToEntero - - Else - Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) - End If - - End If - - ObjContabilidad.Dispose() - - Select Case CveTipoPolizaImp - Case 1 - TipoPolizaString = "I" - Exit Select - Case 2 - TipoPolizaString = "E" - Exit Select - Case Else - TipoPolizaString = "D" - Exit Select - End Select - - If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then - - - Dim Archivo As System.IO.FileInfo - - Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero - - Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - - Dim ObjConta As New ClsContabilidad - - If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - - Dim dr As DataRow - DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden") - dr = DtDetalle.Rows(0) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", TipoPolImp)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - - params.Add(New ReportParameter("Numero", FolioPoliza)) - params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) - params.Add(New ReportParameter("CodigoPostal", "")) - - params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario)) - params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp)) - - params.Add(New ReportParameter("Folio", FolioPoliza)) - - - If Logo.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - - If Archivo.Exists Then - rutaArchivo = Archivo.FullName - Else - rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc" - End If - - - End If - ObjConta.Dispose() - - - Else - - Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) - params = New List(Of ReportParameter) - - Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - - Dim dr As DataRow - DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") - dr = DtDetalle.Rows(0) - Dim ruta As String = "" - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) - - If UsuarioActual.CveEmpresa.Contiene(141) Then - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss"))) - Else - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - End If - - FolioPoliza = dr("FolioPoliza").ToString - params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) - params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) - params.Add(New ReportParameter("CodigoPostal", "")) - - If UsuarioActual.CveEmpresa.Contiene(119, 141) Then - params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) - End If - If UsuarioActual.CveEmpresa.Contiene(140, 141) Then - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - End If - - If Archivo.Exists Then - rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" - Else - rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc" - End If - End If - ObjConta.Dispose() - End If - - - ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF") - - - - - End Sub - End Class From 83c301f131608e41619e7a9842b1be653c85b342 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 21 Feb 2023 15:32:45 -0700 Subject: [PATCH 46/46] PRoveedores.aspx acomodo de controles --- Compras/Proveedores.aspx | 311 ++++++++++++++++++++---------------- Compras/Proveedores.aspx.vb | 18 +++ 2 files changed, 187 insertions(+), 142 deletions(-) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 4596c2638..715520321 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -202,168 +202,193 @@ - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + - - - - +
    Código: -
    - -
    -
    Razón Social: -
    - - - -
    -
    Nombre Comercial: -
    - - - -
    -
    Nombre Corto: -
    - -
    -
    Dirección: -
    - -
    -
    Codigo Postal: -
    - - -
    -
    RFC: -
    - +
    +
    + +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    +
    + +
    +
    +
    + + + + +
    +
    +
    + +
    +
    +
    + + + + +
    +
    +
    + +
    +
    +
    + + +
    +
    +
    + +
    +
    +
    + + + +
    +
    +
    + +
    +
    +
    + - -
    -
    Teléfono Empresa: -
    + + +
    + + + + +
    +
    +
    + + + + + + + + +
    +
    +
    + + + +
    +
    +
    - - <%-- --%> - <%-- --%> - -
    -
    Contacto: -
    - -
    -
    Celular Contacto: -
    - + + + +
    + + + +
    + +
    +
    + + +
    +
    + +
    +
    + - - <%-- - --%> - - -
    -
    Clasificación Proveedor: - - -
    Responsable: - + + + + + + + +
    +
    +
    + + + +
    +
    +
    +
    + - -
    Tipo de Proveedor: - - <%----%> + + + + + + +
    +
    +
    + -
    Moneda Preferente: - -
    Nivel de confianza al proveedor: - + + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    +
    +
    + + -
    Regimen Fiscal: - - - + - - -
    Estatus SAT: @@ -371,7 +396,9 @@
    -
    + + +
    diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 7ae3fd769..b542189c3 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -633,12 +633,17 @@ Partial Class Compras_Proveedores If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then TrConfianzaProveedor.Visible = True + CondiguraConfiazaProveedor() End If If UsuarioActual.TienePermisoProceso(273) Then GvA.Columns(5).Visible = True End If + + + + End If Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString) @@ -650,6 +655,19 @@ Partial Class Compras_Proveedores RegisterPostBackControl() End Sub + Private Sub CondiguraConfiazaProveedor() + + '1 Dedicado + '2 Proveedor que requiere Cotización + + If Not UsuarioActual.TienePermisoProceso(355) Then + If Not DdlConfianzaProveedor.SelectedValue.ToEntero = 1 Then + DdlConfianzaProveedor.Items.Remove(New ListItem("Proveedor dedicado", "1")) + End If + End If + + End Sub + Private Sub CargaRegimenFiscal() DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales DdlRegimenFiscal.DataBind()