diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index d6b5a30e4..48d7cad99 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1143,7 +1143,11 @@ Partial Class Bancos_ProveedoresAbonar
RegistraScript("CambiaPesosDolares();")
Else
CveMoneda = dr("CveMoneda").ToString.ToEntero
- RegistraScript("CambiaDolaresPesos();")
+
+ If CveMoneda = 1 Then
+ RegistraScript("CambiaDolaresPesos();")
+ End If
+
End If
If CveMoneda = 2 Then
DivTCDolares.Visible = True
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..5c1e26509 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -248,32 +248,43 @@