AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correciones karedes alamcen horizontal, Proveedores abonar error al pagar dolares en dolares

Browse Source
This commit is contained in:
rakcsle
2023-10-19 13:07:40 -07:00
parent 87eb99402b
commit b277b22403
5 changed files with 38 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -804,7 +804,7 @@ Partial Class Bancos_ProveedoresAbonar
Pago.TCPago = 1 ' TxtTC.Text.ToDecimal Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL 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 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 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.TCPago = TxtTCDolares.Text.ToDecimal
Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / 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 tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
End If 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 If UsuarioActual.CveRol = 1 Then
MsgError = "No se pudo insertar la póliza" Alert($" TxtImporte.Text: { TxtImporte.Text} tImporteMN: {tImporteMN}")
End If 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 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 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

15
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -7,12 +7,12 @@
<style> <style>
#chartdiv { #chartdiv {
width: 100%; width: 100%;
height: 500px; height: 400px;
} }
#chartdivgral { #chartdivgral {
width: 100%; width: 100%;
min-height: 500px; min-height: 400px;
} }
.fa.fa-bar-chart { .fa.fa-bar-chart {
@@ -1541,10 +1541,12 @@
} }
function CargaGraficaBarras() { function CargaGraficaBarras() {
let data = cdatos; let data = cdatos;
let newData = JSON.parse(JSON.stringify(data));
newData.sort((a, b) => a.Valor - b.Valor);
var chart = AmCharts.makeChart("chartdiv", { var chart = AmCharts.makeChart("chartdiv", {
"type": "serial", "type": "serial",
"theme": "light", "theme": "light",
"dataProvider": data, "dataProvider": newData,
"startDuration": 2, "startDuration": 2,
"valueAxes": [{ "valueAxes": [{
"position": "left", "position": "left",
@@ -1586,7 +1588,8 @@
} }
return item; return item;
}); });
newData.sort((a, b) => b.Valor - a.Valor );
//console.log(newData);
var chart = AmCharts.makeChart("chartdiv", { var chart = AmCharts.makeChart("chartdiv", {
"type": "pie", "type": "pie",
"theme": "light", "theme": "light",
@@ -1610,8 +1613,12 @@
currentid = data.id; currentid = data.id;
if (currentid == 1) { if (currentid == 1) {
$("#chartdiv").css("height", "400px");
$("#chartdivgral").css("height", "400px");
CargaGraficaBarras(); CargaGraficaBarras();
} else { } else {
$("#chartdiv").css("height", "700px");
$("#chartdivgral").css("height", "700px");
CargaGraficaPastel(); CargaGraficaPastel();
} }
}); });

41
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -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> </style>
</asp:Content> </asp:Content>
@@ -258,32 +248,31 @@
<asp:UpdatePanel ID="UpDatos" runat="server"> <asp:UpdatePanel ID="UpDatos" runat="server">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" <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" data-sort="true" CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None" >
ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">
<HeaderTemplate> <HeaderTemplate>
Código Código
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
<asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" Width="150px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="400px"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="400px">
<HeaderTemplate> <HeaderTemplate>
Producto Producto
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<div class="truncate" style="max-width:400px">
<asp:Label runat="server" Text='<%# Eval("PS") %>' ></asp:Label> <asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
</div>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<RowStyle Height="31" />
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

3
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -203,6 +203,9 @@ Partial Class Inventarios_KardexAlmacen
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
End If End If
'e.Row.Attributes.Add("style", " max-height:31px!important")
e.Row.HorizontalAlign = HorizontalAlign.Right e.Row.HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

2
Ventas/RepVentasUtilidadPadre.aspx.vb
View File

@@ -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.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) e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)
Else Else
e.Row.Cells(9).BackColor = Drawing.Color.LightGray e.Row.Cells(10).BackColor = Drawing.Color.LightGray
End If End If