From c0879fdebe2fdb0572fb97e2bc2d6a02ab6cff1c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 20 Oct 2023 11:26:45 -0700 Subject: [PATCH 1/4] Correciones estado resultados horizontal --- Contabilidad2/RepEstadoResultadosHorizontal.aspx | 2 +- Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 4 ++-- Inventarios/KardexAlmacenHorizontal.aspx | 10 +++++----- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index fc564a60c..90b294e3f 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -1542,7 +1542,7 @@ function CargaGraficaBarras() { let data = cdatos; let newData = JSON.parse(JSON.stringify(data)); - newData.sort((a, b) => a.Valor - b.Valor); + //newData.sort((a, b) => a.Valor - b.Valor); var chart = AmCharts.makeChart("chartdiv", { "type": "serial", "theme": "light", diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index ce859629e..983e2b1d0 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2279,7 +2279,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 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)") + 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}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Else Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso @@ -2300,7 +2300,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("CtaMayor") = -2 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero - Row.Item("PorcentajeAcumulado") = If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, 100, (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)"))) + Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) DTTotalesSubProyectoH.Rows.Add(Row) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 329872cd4..72bf2a1e3 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -251,25 +251,25 @@ - + Código - + - + Producto -
+
- + From 390f07cda2dae63e2740816dd75d47ce95d7b9f6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 20 Oct 2023 12:28:11 -0700 Subject: [PATCH 2/4] ProveedoresAbonar pago dolares en dolares, cambia el importe al cambiar la cuenta en dolares --- Bancos/ProveedoresAbonar.aspx.vb | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d9410224c..23bfd5a2b 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -794,7 +794,7 @@ Partial Class Bancos_ProveedoresAbonar Pago.TCPago = 1 ' TxtTC.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES - Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal + Pago.TCPago = TxtTCDolares.Text.ToDecimal ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES Pago.TCPago = TxtTCDolares.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal) @@ -828,11 +828,11 @@ Partial Class Bancos_ProveedoresAbonar Pago.ImportePago = tImporteMN Dim ImporteME As Decimal = 0 - If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago - If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then - ImporteME = tImporteMN - tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL - End If + If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago + If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then + ImporteME = tImporteMN + tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL + End If @@ -1143,7 +1143,11 @@ Partial Class Bancos_ProveedoresAbonar RegistraScript("CambiaPesosDolares();") Else CveMoneda = dr("CveMoneda").ToString.ToEntero - RegistraScript("CambiaDolaresPesos();") + + If dr("CveMoneda").ToString.ToEntero = 1 Then + RegistraScript("CambiaDolaresPesos();") + End If + End If If CveMoneda = 2 Then DivTCDolares.Visible = True From 434fc55d8678a7e1a60b984d45455d0ca472f2f2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 20 Oct 2023 12:37:47 -0700 Subject: [PATCH 3/4] ProveedoresAbonar correcion DdlCuenta_SelectedIndexChanged --- Bancos/ProveedoresAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 23bfd5a2b..48d7cad99 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1144,7 +1144,7 @@ Partial Class Bancos_ProveedoresAbonar Else CveMoneda = dr("CveMoneda").ToString.ToEntero - If dr("CveMoneda").ToString.ToEntero = 1 Then + If CveMoneda = 1 Then RegistraScript("CambiaDolaresPesos();") End If From f0765e2b8c654ddc161ced54448bdd130ddd468d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 21 Oct 2023 13:21:49 -0700 Subject: [PATCH 4/4] Ajustes Karedex Almacen Horizontal --- Inventarios/KardexAlmacenHorizontal.aspx | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 72bf2a1e3..5c1e26509 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -248,7 +248,10 @@ - +
+ @@ -256,7 +259,9 @@ Código - +
+ +
@@ -265,7 +270,7 @@ Producto -
+
@@ -274,6 +279,12 @@ + +
+ +
+ +