From 0b29a2e57f2d602f7172c348b4a4baff787ff161 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 12:05:39 -0700 Subject: [PATCH 1/9] =?UTF-8?q?--=20mejora=20al=20agregar=20partidas=20de?= =?UTF-8?q?=20uja=20cotizaci=C3=B3n=20ya=20registrada?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7d910641f..5284b0677 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9333,7 +9333,8 @@ Partial Class Ventas e.Row.CssClass = "SubTotales" End If Else - e.Row.FCLiteral("LtlPS").Text = String.Format(" {4}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveAlmacen"), e.Row.DBCampo("Fecha").ToDate.AddDays(-7).ToShortDateString, e.Row.DBCampo("Fecha").ToDate.AddDays(7).ToShortDateString, e.Row.DBCampo("PS")) + Dim tFecha As Date = If(e.Row.DBCampo("Fecha") <> "", e.Row.DBCampo("Fecha").ToDate, NowADS()) + e.Row.FCLiteral("LtlPS").Text = String.Format(" {4}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveAlmacen"), tFecha.AddDays(-7).ToShortDateString, tFecha.AddDays(7).ToShortDateString, e.Row.DBCampo("PS")) e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left e.Row.FCCheckBox("cbInv").Visible = True From 8c3bd8c289906c270c324f8931b579a8a468e275 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 17:28:23 -0700 Subject: [PATCH 2/9] -- mejora en saldar --- Ventas/ClientesAbonar.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index eecbe080e..5e3d9e961 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2309,6 +2309,7 @@ Partial Class Ventas_ClientesAbonar If gr.FCCheckBox("Chk").Checked Then Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal + Dim SaldoMN As Decimal = gr.DataKey("Saldo").ToDecimal Dim RETIVA As Decimal = gr.DataKey("RetIVA").ToDecimal Dim SubTotal As Decimal = PorcentajePago * (gr.DataKey("SubTotal").ToDecimal.RoundSQL - gr.DataKey("Descuento").ToDecimal.RoundSQL).RoundSQL Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL @@ -2339,9 +2340,9 @@ Partial Class Ventas_ClientesAbonar 'If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero 'If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(581).ToEntero - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then - ClienteMovto = False : Saldo = Saldo * -1 + ClienteMovto = False : SaldoMN = Saldo : Saldo = Saldo * -1 ImpuestosMovto = True : IVA = IVA * -1 RETIVA = ((SubTotal * RETIVA / gr.DataKey("SubTotal").ToDecimal.RoundSQL) * -1).RoundSQL(2) CveConceptoCliente = 1 @@ -2356,7 +2357,7 @@ Partial Class Ventas_ClientesAbonar If MsgError = "" Then Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(6, tCveMoneda, True, 1) 'normal - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, Saldo, ConPreP.CveConcepto, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, SaldoMN, Saldo, ConPreP.CveConcepto, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If From 1ec803786e91dd05ab75fee6580abb7813c2c285 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 1 Jul 2024 19:30:03 -0700 Subject: [PATCH 3/9] Ventas Correcion sucursales - Almacenes, auxiliar correciones UI --- Contabilidad/PopUpAuxiliar.aspx | 205 +++++++++++++++-------------- Contabilidad/PopUpAuxiliar.aspx.vb | 3 +- Ventas/Ventas.aspx.vb | 46 ++++++- 3 files changed, 150 insertions(+), 104 deletions(-) diff --git a/Contabilidad/PopUpAuxiliar.aspx b/Contabilidad/PopUpAuxiliar.aspx index 9b3616a1b..c93a408c6 100644 --- a/Contabilidad/PopUpAuxiliar.aspx +++ b/Contabilidad/PopUpAuxiliar.aspx @@ -79,99 +79,109 @@ - - - - - - Fecha - - - - - - Concepto - - - - - - Cargo - - - - - - Abono - - - - - - Folio (Ref.) - -   - - - - Contabilizado - - - - - - Póliza - - - - - - Fecha Conta. - - - - - - Referencia - - - - - - Usuario - - - - - - + + + + + <%--0--%> + + Fecha + + + + + <%--1--%> + + Concepto + + + + + <%--2--%> + + Cargo + + + + + <%--3--%> + + Abono + + + + + <%--4--%> + + Folio (Ref.) + +   + + + <%--5--%> + + Contabilizado + + + + + <%--6--%> + + Póliza + + + + + <%--7--%> + + Fecha Conta. + + + + + <%--8--%> + + Referencia + + + + + <%--9--%> + + Usuario + + + + + + + <%--10--%> + + + + + + + <%--11--%> + + + + + + <%--12--%> + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + @@ -201,10 +211,11 @@
- - - - +
+ + + +
@@ -214,7 +225,7 @@ - + diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 9cdaaff03..9c6ceb7c4 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -176,7 +176,8 @@ Partial Class PopUpAuxiliar e.Row.Cells(6).Visible = False e.Row.Cells(7).Visible = False e.Row.Cells(8).Visible = False - e.Row.Cells(12).Visible = False + 'e.Row.Cells(12).Visible = False + e.Row.FCLinkButton("imgCancelar").Visible = False End If e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ea5dbd214..513d5729a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7079,7 +7079,14 @@ Partial Class Ventas End If DdlSucursalCliente.Items.Clear() - Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") + 'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") + Dim dtts As DataTable = New DataTable + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + dtts = ObjClientes.DtResultados.Copy() + End If + ObjClientes.Dispose() + If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then DdlSucursalCliente.DataSource = dtts DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) @@ -13881,10 +13888,21 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then - If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then + Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal() + If CveClientesucursatTemp > 0 Then + + 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + Dim drr As DataRow = Nothing + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + + drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}") + + End If + ObjClientes.Dispose() + If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero @@ -37662,7 +37680,14 @@ Partial Class Ventas Private Sub CargaDdlClientesSucursal() - DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) + 'DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) + + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + DdlClienteSucursal.DataSource = ObjClientes.DtResultados.Copy() + End If + ObjClientes.Dispose() + DdlClienteSucursal.DataBind() DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) @@ -38169,7 +38194,16 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") + + 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") + + Dim drr As DataRow = Nothing + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + End If + ObjClientes.Dispose() + If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("6") Then tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero From e0b4cedb3480684c7cfd32d21248d43c8180fea0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 22:08:04 -0700 Subject: [PATCH 4/9] - --- Bancos/RepCortes.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 0f8f26f74..c6a670687 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -80,7 +80,7 @@
- F.I.: + F.Inicio.:
@@ -98,7 +98,7 @@
- F.F.: + F.Fin.:
From 7e075d40153327628183614916300dccc91e41ab Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 22:08:32 -0700 Subject: [PATCH 5/9] -nuevo global --- App_Code/ClsPaginas.vb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 6e721d930..4ebbbfb54 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2344,6 +2344,31 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property + + Public Shared Property GlobalDTClientesTodosSucursales(CveEmpresa As Integer, Optional CveCliente As Integer = -1) As DataTable + Get + Dim AppNombre As String = $"GlobalDTClientesTodosSucursales-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados.Copy() + ObjClientes.Dispose() + End If + Dim filtros As New List(Of String) + + If CveCliente >= 0 Then filtros.Add($"CveCliente = {CveCliente}") + If filtros.Count > 0 Then + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) + GlobalDTClientesTodosSucursales = Dv.ToTable + Dv.Dispose() + Else + GlobalDTClientesTodosSucursales = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = $"GlobalDTClientesTodosSucursales-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property Public Shared Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}" From 4f662737a8cf885989b45edf5b33b21538824c8e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 22:08:56 -0700 Subject: [PATCH 6/9] -uso nuevo globaldt --- Ventas/Ventas.aspx.vb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 5284b0677..ba5f658a8 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -37628,32 +37628,27 @@ Partial Class Ventas End Sub - Private Sub CargaDdlClientesSucursal() - DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) + DdlClienteSucursal.DataSource = GlobalDTClientesTodosSucursales(UsuarioActual.CveEmpresa) DdlClienteSucursal.DataBind() DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) If EsWS Then DdlClientesModal.setEsWebService(True) - Else DdlClientesModal.setEsWebService(False) DdlClientesModal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) DdlClientesModal.DataBind() DdlClientesModal.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) End If - End Sub Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs) - TdFechaOS1.Visible = ChkRequiereTecnico.Checked - UpCliente.Update() End Sub @@ -37669,7 +37664,6 @@ Partial Class Ventas ChkRequiereTecnicoModal.Checked = True ChkRequiereTecnicoModal.Enabled = True DvModalRequiereOSFecha.Visible = True - 'If CveCliente > 0 Then ' CargaSucursalesModal(CveCliente) 'End If From f93a5d2ffd11ad03e6895df94342f3425c7e8bac Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Jul 2024 22:22:49 -0700 Subject: [PATCH 7/9] Revert "Ventas Correcion sucursales - Almacenes, auxiliar correciones UI" This reverts commit 1ec803786e91dd05ab75fee6580abb7813c2c285. --- Contabilidad/PopUpAuxiliar.aspx | 205 ++++++++++++++--------------- Contabilidad/PopUpAuxiliar.aspx.vb | 3 +- Ventas/Ventas.aspx.vb | 35 +---- 3 files changed, 102 insertions(+), 141 deletions(-) diff --git a/Contabilidad/PopUpAuxiliar.aspx b/Contabilidad/PopUpAuxiliar.aspx index c93a408c6..9b3616a1b 100644 --- a/Contabilidad/PopUpAuxiliar.aspx +++ b/Contabilidad/PopUpAuxiliar.aspx @@ -79,109 +79,99 @@ - - - - - <%--0--%> - - Fecha - - - - - <%--1--%> - - Concepto - - - - - <%--2--%> - - Cargo - - - - - <%--3--%> - - Abono - - - - - <%--4--%> - - Folio (Ref.) - -   - - - <%--5--%> - - Contabilizado - - - - - <%--6--%> - - Póliza - - - - - <%--7--%> - - Fecha Conta. - - - - - <%--8--%> - - Referencia - - - - - <%--9--%> - - Usuario - - - - - - - <%--10--%> - - - - - - - <%--11--%> - - - - - - <%--12--%> - - - - - + + + + + + Fecha + + + + + + Concepto + + + + + + Cargo + + + + + + Abono + + + + + + Folio (Ref.) + +   + + + + Contabilizado + + + + + + Póliza + + + + + + Fecha Conta. + + + + + + Referencia + + + + + + Usuario + + + + + + - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -211,11 +201,10 @@
-
- - - -
+ + + +
@@ -225,7 +214,7 @@ - + diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 9c6ceb7c4..9cdaaff03 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -176,8 +176,7 @@ Partial Class PopUpAuxiliar e.Row.Cells(6).Visible = False e.Row.Cells(7).Visible = False e.Row.Cells(8).Visible = False - 'e.Row.Cells(12).Visible = False - e.Row.FCLinkButton("imgCancelar").Visible = False + e.Row.Cells(12).Visible = False End If e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f94763d14..f67941b10 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7079,14 +7079,7 @@ Partial Class Ventas End If DdlSucursalCliente.Items.Clear() - 'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") - Dim dtts As DataTable = New DataTable - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then - dtts = ObjClientes.DtResultados.Copy() - End If - ObjClientes.Dispose() - + Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then DdlSucursalCliente.DataSource = dtts DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) @@ -13889,21 +13882,10 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then - Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal() - If CveClientesucursatTemp > 0 Then - - 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") - Dim drr As DataRow = Nothing - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then - - drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}") - - End If - ObjClientes.Dispose() + If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then + Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero @@ -38178,16 +38160,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - - 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") - - Dim drr As DataRow = Nothing - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then - drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") - End If - ObjClientes.Dispose() - + Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("6") Then tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero From cd803ff55bdf9e3208d252640e9dde6b7c9c1eb9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jul 2024 07:49:39 -0700 Subject: [PATCH 8/9] - mejora visual columnas --- Contratos/RepPresupuestos.aspx | 10 ++-- Contratos/RepPresupuestos.aspx.vb | 72 +++++++++++------------- Contratos/RepPresupuestosDetalle.aspx | 16 +++--- Contratos/RepPresupuestosDetalle.aspx.vb | 71 ++++++++++++++--------- 4 files changed, 88 insertions(+), 81 deletions(-) diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 97e5c3c95..19a32224c 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -329,11 +329,10 @@ - - + - +
AgrupadorAutorizadoEn proceso de compraAutorizado Por EjercerPagadoPagado
@@ -342,13 +341,12 @@ <%-- - - + - +
diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 88b7becb7..ef6cf4e23 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -62,7 +62,7 @@ Partial Class Contratos_RepPresupuestos DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlProyecto.DataBind() - If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComprometido = True + If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then UsaComprometido = True CargaSubProyecto() UpFiltros.Update() @@ -92,9 +92,7 @@ Partial Class Contratos_RepPresupuestos Dim TieneDatos As Boolean = False If UsaComprometido Then - thComprometido.Visible = True - GvDatos.Columns(2).Visible = True - LtlthEjercido.Text = "Facturado" + LtlthEjercido.Text = "En proceso de compra" End If If Not EsMensual Then @@ -104,10 +102,14 @@ Partial Class Contratos_RepPresupuestos If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then TieneDatos = True End If - - DtPresupuestos = ObjPresupuestos.DtResultados + DtPresupuestos = ObjPresupuestos.DtResultados + If UsaComprometido Then + DtPresupuestos.Columns.Remove("ejercido") : DtPresupuestos.Columns("comprometido").ColumnName = "ejercido" + DtPresupuestos.Columns.Remove("EjercidoPorcentaje") : DtPresupuestos.Columns("comprometidoPorcentaje").ColumnName = "EjercidoPorcentaje" + DtPresupuestos.Columns.Remove("PorEjercer") : DtPresupuestos.Columns("PorEjercercomprometido").ColumnName = "PorEjercer" + DtPresupuestos.Columns.Remove("PorEjercerPorcentaje") : DtPresupuestos.Columns("PorEjercerPorcentajecomprometido").ColumnName = "PorEjercerPorcentaje" + End If GvDatos.DataSource = DtPresupuestos - End If ObjPresupuestos.Dispose() @@ -131,8 +133,6 @@ Partial Class Contratos_RepPresupuestos If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then TieneDatos = True End If - - DtPresupuestos = ObjPresupuestos.DtResultados GvDatosMensual.DataSource = DtPresupuestos End If ObjPresupuestos.Dispose() @@ -329,12 +329,10 @@ Partial Class Contratos_RepPresupuestos Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal If UsaComprometido Then - Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal + ' Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal PorEjercer = Autorizado - Ejercido EjercidoPorcentaje = If(Autorizado > 0, Ejercido / Autorizado * 100, 0) PorEjercerPorcentaje = If(Autorizado > 0, PorEjercer / Autorizado * 100, 0) - thComprometido.Visible = True - GvDatos.Columns(2).Visible = True End If LtlAutorizado.Text = Autorizado.FormatoNumero @@ -342,15 +340,15 @@ Partial Class Contratos_RepPresupuestos LtlPorEjercer.Text = PorEjercer.FormatoNumero PBEjercido.Style.Remove("width") - PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") + PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") - PBPorEjercer.Style.Remove("width") - PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%") + PBPorEjercer.Style.Remove("width") + PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%") - LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %" - LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %" + LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %" + LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %" - Dim json = New JArray( + Dim json = New JArray( From dr In DtDatos Select New JObject( New JProperty("Agrupador", dr("Agrupador").ToString()), @@ -362,11 +360,11 @@ Partial Class Contratos_RepPresupuestos New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal())) ) - HdnJsonProyecto.Value = json.ToString - End If + HdnJsonProyecto.Value = json.ToString + End If - Else + Else LtlAutorizado.Text = "" LtlEjercido.Text = "" LtlPorEjercer.Text = "" @@ -385,24 +383,21 @@ Partial Class Contratos_RepPresupuestos End Select If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then e.Row.Cells(1).Text = "-" - End If - If e.Row.DBCampo("Comprometido").ToDecimal = 0 Then + End If + If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then e.Row.Cells(2).Text = "-" End If - If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then + If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then e.Row.Cells(3).Text = "-" End If - If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then + If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then e.Row.Cells(4).Text = "-" End If - If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then + If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If - If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" - End If If e.Row.DBCampo("Pagado").ToDecimal = 0 Then - e.Row.Cells(7).Text = "-" + e.Row.Cells(6).Text = "-" End If If e.Row.RowIndex > 0 Then @@ -607,16 +602,13 @@ Partial Class Contratos_RepPresupuestos params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero())) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then - Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL") - Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal - params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero())) - Else - params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero())) - End If - - - + 'If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then + ' Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL") + ' 'Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal + ' params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero())) + 'Else + params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero())) + 'End If params.Add(New ReportParameter("PresupuestoRestrictivo", UsuarioActual.Empresa.Funcionalidad(532))) diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 799be4123..138d9b664 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -246,12 +246,11 @@
- - - - + + + - +
AgrupadorAutorizadoComprometidoEjercidoAgrupadorAutorizado Por EjercerPagadoPagado
@@ -259,14 +258,13 @@ <%-- - - - + + - +
diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 5788852bb..d91a3059e 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -25,10 +25,18 @@ Partial Class Contratos_RepPresupuestosDetalle Set(ByVal value As DataTable) ViewState("DtPresupuestos") = value End Set - End Property - + End Property + Public Property UsaComprometido() As Boolean + Get + Return DirectCast(ViewState("UsaComprometido"), Boolean) + End Get + Set(ByVal value As Boolean) + ViewState("UsaComprometido") = value + End Set + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -37,10 +45,12 @@ Partial Class Contratos_RepPresupuestosDetalle CargaDatos() End If - End Sub - + End Sub + #Region " INICIALIZA VALORES " - Private Sub InicializaValores() + Private Sub InicializaValores() + + If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then UsaComprometido = True Else UsaComprometido = False TxtFiltrosFechaInicio.Text = $"01/09/{NowADS().Year - 1}" TxtFiltrosFechaFin.Text = $"31/08/{NowADS().Year}" @@ -61,8 +71,9 @@ Partial Class Contratos_RepPresupuestosDetalle DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlProyecto.DataBind() - CargaSubProyecto() - + CargaSubProyecto() + + UpFiltros.Update() End Sub @@ -110,10 +121,10 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = FechaInicio TxtFiltrosFechaFin.Text = FechaFin ChkMensual.Checked = Mensual - End Sub + End Sub #End Region - - + + #Region " CARGA DATOS " Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) CargaDatos() @@ -131,9 +142,17 @@ Partial Class Contratos_RepPresupuestosDetalle GvDatosMensual.DataBind() Else Dim ObjPresupuestos As New ClsContratos - If ObjPresupuestos.GetPresupuestosRep(-1, DdlTipoGasto.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate, TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then - GvDatos.DataSource = ObjPresupuestos.DtResultados - DtPresupuestos = ObjPresupuestos.DtResultados + If ObjPresupuestos.GetPresupuestosRep(-1, DdlTipoGasto.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate, TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then + + DtPresupuestos = ObjPresupuestos.DtResultados + If UsaComprometido Then + LtlthEjercido.Text = "En proceso de compra" + DtPresupuestos.Columns.Remove("ejercido") : DtPresupuestos.Columns("comprometido").ColumnName = "ejercido" + DtPresupuestos.Columns.Remove("EjercidoPorcentaje") : DtPresupuestos.Columns("comprometidoPorcentaje").ColumnName = "EjercidoPorcentaje" + DtPresupuestos.Columns.Remove("PorEjercer") : DtPresupuestos.Columns("PorEjercercomprometido").ColumnName = "PorEjercer" + DtPresupuestos.Columns.Remove("PorEjercerPorcentaje") : DtPresupuestos.Columns("PorEjercerPorcentajecomprometido").ColumnName = "PorEjercerPorcentaje" + End If + GvDatos.DataSource = ObjPresupuestos.DtResultados End If ObjPresupuestos.Dispose() DivDatosMensual.Visible = False @@ -142,10 +161,10 @@ Partial Class Contratos_RepPresupuestosDetalle End If UpDatos.Update() UpDatosMensual.Update() - End Sub - + End Sub + #End Region - + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -159,19 +178,19 @@ Partial Class Contratos_RepPresupuestosDetalle e.Row.Cells(1).Text = "-" End If If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then - e.Row.Cells(3).Text = "-" + e.Row.Cells(2).Text = "-" End If If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then - e.Row.Cells(4).Text = "-" + e.Row.Cells(3).Text = "-" End If If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then - e.Row.Cells(5).Text = "-" + e.Row.Cells(4).Text = "-" End If If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" + e.Row.Cells(5).Text = "-" End If If e.Row.DBCampo("Pagado").ToDecimal = 0 Then - e.Row.Cells(7).Text = "-" + e.Row.Cells(6).Text = "-" End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero @@ -188,11 +207,11 @@ Partial Class Contratos_RepPresupuestosDetalle End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" - e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" + 'Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + 'e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" - Dim LigaComprometido = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}&Comprometido=1" - e.Row.Cells(2).Text = "" + e.Row.Cells(2).Text + "" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}&Comprometido={If(UsaComprometido, "1", "0")}" + e.Row.Cells(2).Text = "" + e.Row.Cells(2).Text + "" End If End If End Sub From 79d024d794b35a1571e965b0eabb3a24651ecfbe Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 2 Jul 2024 10:02:33 -0700 Subject: [PATCH 9/9] Emd ajustes RepPresupuestoAnual --- .../Grales/Formatos/RepPresupuestoAnual.rdlc | 42 +++++++++++-------- 1 file changed, 24 insertions(+), 18 deletions(-) diff --git a/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc b/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc index 210c0ed97..761513e43 100644 --- a/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc +++ b/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc @@ -153,6 +153,7 @@ Descripcion @@ -203,7 +204,7 @@ - 0.6cm + 0.38833cm @@ -216,6 +217,7 @@ =iif(CDec(Fields!Autorizado.Value)=0,"-",Fields!Autorizado.Value) @@ -234,8 +236,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -251,6 +252,7 @@ = IIF( Parameters!PresupuestoRestrictivo.Value = "2", iif(CDec(Fields!Comprometido.Value)=0,"-",Fields!Comprometido.Value), iif(CDec(Fields!Ejercido.Value)=0,"-",Fields!Ejercido.Value)) @@ -269,8 +271,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -286,6 +287,7 @@ =iif(CDec(Fields!EjercidoPorcentaje.Value)=0,"-",Fields!EjercidoPorcentaje.Value) @@ -304,8 +306,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -321,6 +322,7 @@ =iif(CDec(Fields!PorEjercer.Value)=0,"-",Fields!PorEjercer.Value) @@ -339,8 +341,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -356,6 +357,7 @@ =iif(CDec(Fields!PorEjercerPorcentaje.Value)=0,"-",Fields!PorEjercerPorcentaje.Value) @@ -374,8 +376,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -397,8 +398,9 @@ - Importe + Autorizado @@ -435,8 +437,9 @@ - Importe + =IIF(Parameters!PresupuestoRestrictivo.Value = "2","En Proceso","Ejercido") @@ -475,6 +478,7 @@ % @@ -511,8 +515,9 @@ - Importe + Por Ejercer @@ -551,6 +556,7 @@ % @@ -594,6 +600,7 @@ =Fields!Agrupador.Value @@ -611,8 +618,7 @@ =IIf(Fields!Tipo.Value = 0, "#67809F",IIf(Fields!Tipo.Value = 1,"LightSteelBlue","Transparent")) 2pt 2pt - 2pt - 2pt + 1pt @@ -625,7 +631,7 @@ DataSet1 3.39562cm 0.17167cm - 1.2cm + 0.98833cm 19.81203cm 1