Correcion al pagar dollares

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();")