diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index b11dc7cc1..e0d894fd5 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2509,6 +2509,18 @@ Partial Class Bancos_ProveedoresAbonar '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)) 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 CveMoneda = 2 RegistraScript("CambiaPesosDolares();") diff --git a/OC/RepSolicitudesAnticipo.aspx b/OC/RepSolicitudesAnticipo.aspx index c5dff3a24..940525eab 100644 --- a/OC/RepSolicitudesAnticipo.aspx +++ b/OC/RepSolicitudesAnticipo.aspx @@ -117,7 +117,9 @@ - + + + @@ -125,12 +127,12 @@ - + - +