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>
</div>
<label id="lblDevolucion" runat="server" class="col-md-2 control-label ">Dev. Cliente:</label>
<div id="divTxtDevolucion" runat="server" class="col-md-2 input-icon">
<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" visible="false">
<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>
@@ -1784,6 +1784,17 @@
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;
function CambiaTC(txt) {
let TipoCambioTxt = ToDouble(txt.value)

12
Bancos/IE.aspx.vb
View File

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