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.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

15
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -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();
}
});

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>
</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>

3
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -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

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.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