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

RegPrepolizas Ajustes tooltip modulo, Proveedores Abonar Pago de pesos en dolares ajuste tc

Browse Source
This commit is contained in:
rakcsle
2024-05-28 15:16:13 -07:00
parent 49b334573c
commit 31df51a525
4 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/ProveedoresAbonar.aspx
View File

@@ -67,7 +67,7 @@
</div>
<div class="col-md-5" runat="server" id="DivTC" visible="false">
T.C.:
<asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaPesosDolares();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
<asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaDolaresPesos();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
<asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />

18
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -327,9 +327,21 @@ Partial Class Bancos_ProveedoresAbonar
Private Sub CambiaTipoMoneda()
If DivTC.Visible Then
TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
If ChkPagarDolares.Checked Then RegistraScript("CambiaPesosDolares();")
If ChkPagarPesos.Checked Then RegistraScript("CambiaDolaresPesos();")
If ChkPagarDolares.Checked Then
'RegistraScript("CambiaPesosDolares();")
RegistraScript("CambiaDolaresPesos();")
End If
If ChkPagarPesos.Checked Then
'RegistraScript("CambiaDolaresPesos();")
RegistraScript("CambiaPesosDolares();")
End If
End If
UpDatos.Update()
End Sub
@@ -1343,6 +1355,7 @@ Partial Class Bancos_ProveedoresAbonar
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
TxtTC.Attributes.Add("onblur", "CambiaPesosDolares()")
Else
DivTC.Visible = False
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
@@ -1362,6 +1375,7 @@ Partial Class Bancos_ProveedoresAbonar
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
TxtTC.Attributes.Add("onblur", "CambiaDolaresPesos()")
Else
'DivDolaresDolares.Visible = False
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)