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 @@
-
+
-
+