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

- registro de caja. cuando no hay facturas.

Browse Source
This commit is contained in:
rrene
2024-05-31 06:06:25 -07:00
parent b143495301
commit 2d83c61f88
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Bancos/DepositosCaja.aspx
View File

@@ -628,14 +628,14 @@
function txtSumaCuentaRetorno(txt) { function txtSumaCuentaRetorno(txt) {
debugger; debugger;
var comision2 = ToDouble($('#C_TxtCuentaRetorno').val()); var comision2 = ToDouble($('#C_TxtCuentaRetorno').val());
if (comision2 > ValorTotalSeleccionado) { //if (comision2 > ValorTotalSeleccionado) {
$('#C_TxtCuentaRetorno').val(descuento) // $('#C_TxtCuentaRetorno').val(descuento)
alert("No es posible poner un IVA superior a lo seleccionado") // alert("No es posible poner un IVA superior a lo seleccionado")
} else { //} else {
saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario; saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
descuento = ToDouble($('#C_TxtCuentaRetorno').val()) descuento = ToDouble($('#C_TxtCuentaRetorno').val())
} //}
} }

6
Bancos/DepositosCaja.aspx.vb
View File

@@ -172,13 +172,13 @@ Partial Class Bancos_DepositosCaja
Exit Sub Exit Sub
End If End If
Dim tContador As Integer = 0
For Each Gvr As GridViewRow In GvFacturas.Rows For Each Gvr As GridViewRow In GvFacturas.Rows
If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
Next Next
If TotalImporte = 0 Then If TotalImporte = 0 AndAlso CuentaRetorno <> 0 Then
Alert("Seleccion una factura para realizar el depósito", TipoMensaje.MsgAdvertencia) Alert("Seleccione una factura para realizar el depósito", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If