From 92177a451863225def74edb3e64139036d42daaf Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 5 Feb 2021 15:46:02 -0700
Subject: [PATCH] Correcion al pagar dollares

---
 Bancos/ProveedoresAbonar.aspx.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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