From b277b22403c6d48466ef44eb96caed7d04bdb09e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 19 Oct 2023 13:07:40 -0700
Subject: [PATCH] Correciones karedes alamcen horizontal, Proveedores abonar
 error al pagar dolares en dolares

---
 Bancos/ProveedoresAbonar.aspx.vb              | 12 ++++--
 .../RepEstadoResultadosHorizontal.aspx        | 15 +++++--
 Inventarios/KardexAlmacenHorizontal.aspx      | 41 +++++++------------
 Inventarios/KardexAlmacenHorizontal.aspx.vb   |  3 ++
 Ventas/RepVentasUtilidadPadre.aspx.vb         |  2 +-
 5 files changed, 38 insertions(+), 35 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 913c32a1a..4aa540ba3 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -804,7 +804,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 = TxtTCDolares.Text.ToDecimal
+                                    Pago.TCPago = TxtTCDolaresDolares.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)
@@ -844,9 +844,13 @@ Partial Class Bancos_ProveedoresAbonar
                                 tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
                                 End If
 
-                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
-                                MsgError = "No se pudo insertar la póliza"
-                            End If
+                        If UsuarioActual.CveRol = 1 Then
+                            Alert($" TxtImporte.Text: { TxtImporte.Text}   tImporteMN: {tImporteMN}")
+                        End If
+
+                        If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                            MsgError = "No se pudo insertar la póliza"
+                        End If
 
                         If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
                             If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 2345d64c8..eed74d468 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -7,12 +7,12 @@
     <style>
         #chartdiv {
             width: 100%;
-            height: 500px;
+            height: 400px;
         }
 
         #chartdivgral {
             width: 100%;
-            min-height: 500px;
+            min-height: 400px;
         }
 
         .fa.fa-bar-chart {
@@ -1541,10 +1541,12 @@
         }
         function CargaGraficaBarras() {
             let data = cdatos;
+            let newData = JSON.parse(JSON.stringify(data));    
+            newData.sort((a, b) => a.Valor - b.Valor);
             var chart = AmCharts.makeChart("chartdiv", {
                 "type": "serial",
                 "theme": "light",
-                "dataProvider": data,
+                "dataProvider": newData,
                 "startDuration": 2,
                 "valueAxes": [{
                     "position": "left",
@@ -1586,7 +1588,8 @@
                 }
                 return item;
             });
-
+            newData.sort((a, b) => b.Valor - a.Valor  );
+            //console.log(newData);
             var chart = AmCharts.makeChart("chartdiv", {
                 "type": "pie",
                 "theme": "light",
@@ -1610,8 +1613,12 @@
 
                 currentid = data.id;
                 if (currentid == 1) {
+                    $("#chartdiv").css("height", "400px");
+                    $("#chartdivgral").css("height", "400px");
                     CargaGraficaBarras();
                 } else {
+                    $("#chartdiv").css("height", "700px");
+                    $("#chartdivgral").css("height", "700px");
                     CargaGraficaPastel();
                 }
             });
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index e65fcd61b..329872cd4 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -79,21 +79,11 @@
             }
         }
 
+    /*    .trh{
+            max-height:31px!important;
+        }*/
 
-        .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(1){
-            width:150px!important
-        }
-        .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(2){
-              width:400px!important
-        }
-
-        #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(1){
-            width:150px!important
-        }
-        #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(2){
-            width:400px!important
-        }
-
+ 
     </style>
 </asp:Content>
 
@@ -258,32 +248,31 @@
    
                 <asp:UpdatePanel ID="UpDatos" runat="server">
                     <ContentTemplate>
-                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" 
-                            CssClass="ADSCROLLER2  table table-striped table-advance table-hover" data-cols="2" data-heightmenos="300" data-sort="true"
-                            ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto"  GridLines="None">
+                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
+                                CssClass="ADSCROLLER2  table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300"  GridLines="None"  >
                             <Columns>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">
                                     <HeaderTemplate>
                                         Código 
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        
-                                            <asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
-                                        
+                                        <asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
                                     </ItemTemplate>
+                                    <HeaderStyle HorizontalAlign="Left" Width="150px" />
                                 </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="400px">
-                                    <HeaderTemplate>
-                                        Producto                                  
-                                   
+                                    <HeaderTemplate>
+                                        Producto                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        
-                                            <asp:Label runat="server" Text='<%# Eval("PS") %>' ></asp:Label>
-                                        
+                                        <div class="truncate" style="max-width:400px">
+                                            <asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
+                                        </div>                                        
                                     </ItemTemplate>
+                                    <HeaderStyle HorizontalAlign="Left" Width="400px" />
                                 </asp:TemplateField>
                             </Columns>
+                            <RowStyle Height="31" />
                         </asp:GridView>
                     </ContentTemplate>
                 </asp:UpdatePanel>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index db5db824f..a99613ff7 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -203,6 +203,9 @@ Partial Class Inventarios_KardexAlmacen
                 e.Row.CssClass = "Totales"
             End If
 
+
+            'e.Row.Attributes.Add("style", " max-height:31px!important")
+
             e.Row.HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index fe43320eb..83879613c 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -252,7 +252,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
                                                    e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"))
                 e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)
             Else
-                e.Row.Cells(9).BackColor = Drawing.Color.LightGray
+                e.Row.Cells(10).BackColor = Drawing.Color.LightGray
             End If