diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index d9a7799a7..4f6baeb37 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -269,8 +269,8 @@ - -
+ +
$ @@ -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) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 972139eaa..32a7ec185 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -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();")