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

Correcion al pagar dollares

Browse Source
This commit is contained in:
rakcsle
2021-02-05 15:46:02 -07:00
parent e1c80289da
commit 92177a4518
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2509,6 +2509,18 @@ Partial Class Bancos_ProveedoresAbonar
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
If dr("CveMoneda").ToString.ToEntero >= 2 Then
DivDolaresDolares.Visible = True
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
BtnCambiaTipoMoneda_Click(Nothing, Nothing)
Else
DivDolaresDolares.Visible = False
TxtFechaDocumento.Attributes.Remove("onchange")
End If
UpDatos.Update()
If ChkPagarPesos.Checked Then If ChkPagarPesos.Checked Then
CveMoneda = 2 CveMoneda = 2
RegistraScript("CambiaPesosDolares();") RegistraScript("CambiaPesosDolares();")