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

-- activar otros ingresos en devolucion de efectivo de compras

Browse Source
This commit is contained in:
rrene
2023-10-06 12:04:44 -07:00
parent 01f48dfdba
commit a6e105bdd9
2 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Bancos/IE.aspx
View File

@@ -269,8 +269,8 @@
<asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox> <asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
</div> </div>
<label id="lblDevolucion" runat="server" class="col-md-2 control-label ">Dev. Cliente:</label> <label id="lblDevolucion" runat="server" class="col-md-2 control-label" visible="false">Dev. Cliente:</label>
<div id="divTxtDevolucion" runat="server" class="col-md-2 input-icon"> <div id="divTxtDevolucion" runat="server" class="col-md-2 input-icon" visible="false">
<i style="margin: 0px;">$</i> <i style="margin: 0px;">$</i>
<asp:TextBox ID="TxtDevolución" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox> <asp:TextBox ID="TxtDevolución" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
@@ -1784,6 +1784,17 @@
if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot; if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;
} }
function ValidarCantidadDevCompras() {
var Ot = 0.00;
var Dev = 0.00;
debugger; //valida importe
//if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
FCSumaTotalesNotas();
// considera importe de OT ingresos, para que se peuda exceder
if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtImporte').value) + Ot;
}
var TipoCambioActual = 0.0; var TipoCambioActual = 0.0;
function CambiaTC(txt) { function CambiaTC(txt) {
let TipoCambioTxt = ToDouble(txt.value) let TipoCambioTxt = ToDouble(txt.value)

12
Bancos/IE.aspx.vb
View File

@@ -638,7 +638,9 @@ Partial Class Bancos_IE
'CargaNotas() 'CargaNotas()
DVDevolucion.Visible = True DVDevolucion.Visible = True
HdnCveProveedor.Value = Request("CveProveedor") HdnCveProveedor.Value = Request("CveProveedor")
DivOtrosIngresosEgresos.Visible = False DivOtrosIngresosEgresos.Visible = True
TxtOtrosIngresosEgresos.Attributes.Add("onkeyup", $"ValidarCantidadDevCompras();")
End If End If
TxtImporte.Attributes.Add("onkeypress", "javascript: return false;") TxtImporte.Attributes.Add("onkeypress", "javascript: return false;")
End If End If
@@ -647,10 +649,8 @@ Partial Class Bancos_IE
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
DivOtrosIngresosEgresos.Visible = True DivOtrosIngresosEgresos.Visible = True
End If End If
End If End If
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
LblPagueseA.Text = "" LblPagueseA.Text = ""
LblPagueseA.Visible = False LblPagueseA.Visible = False
@@ -2468,10 +2468,6 @@ Partial Class Bancos_IE
Exit Select Exit Select
End If End If
'NC COMPLEMENTARIA 'NC COMPLEMENTARIA
If tCveMoneda > 1 Then If tCveMoneda > 1 Then
@@ -4836,6 +4832,8 @@ Partial Class Bancos_IE
ImporteOriginalDevDin = UrlParametros("ORIGINAL").ToString.ToDecimal.RoundSQL(6) ImporteOriginalDevDin = UrlParametros("ORIGINAL").ToString.ToDecimal.RoundSQL(6)
TxtImporte.Text = UrlParametros("SALDO").ToString.FormatoNumero() TxtImporte.Text = UrlParametros("SALDO").ToString.FormatoNumero()
TxtDevolución.Text = UrlParametros("SALDO").ToString.FormatoNumero() TxtDevolución.Text = UrlParametros("SALDO").ToString.FormatoNumero()
divTxtDevolucion.Visible = True
lblDevolucion.Visible = True
'TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});") 'TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});")
TxtDevolución.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidadDev( {UrlParametros("SALDO").ToString});") TxtDevolución.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidadDev( {UrlParametros("SALDO").ToString});")
TxtOtrosIngresosEgresos.Attributes.Add("onkeyup", $"ValidarCantidadDev();") TxtOtrosIngresosEgresos.Attributes.Add("onkeyup", $"ValidarCantidadDev();")