RegPrepolizas Ajustes tooltip modulo, Proveedores Abonar Pago de pesos en dolares ajuste tc

Bancos/ProveedoresAbonar.aspx.vb

@@ -327,9 +327,21 @@ Partial Class Bancos_ProveedoresAbonar
     Private Sub CambiaTipoMoneda()
 
         If DivTC.Visible Then
+
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
-            If ChkPagarDolares.Checked Then RegistraScript("CambiaPesosDolares();")
-            If ChkPagarPesos.Checked Then RegistraScript("CambiaDolaresPesos();")
+
+            If ChkPagarDolares.Checked Then
+                'RegistraScript("CambiaPesosDolares();")
+                RegistraScript("CambiaDolaresPesos();")
+
+            End If
+
+            If ChkPagarPesos.Checked Then
+                'RegistraScript("CambiaDolaresPesos();")
+                RegistraScript("CambiaPesosDolares();")
+
+            End If
+
         End If
         UpDatos.Update()
     End Sub
@@ -1343,6 +1355,7 @@ Partial Class Bancos_ProveedoresAbonar
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
             TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+            TxtTC.Attributes.Add("onblur", "CambiaPesosDolares()")
         Else
             DivTC.Visible = False
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
@@ -1362,6 +1375,7 @@ Partial Class Bancos_ProveedoresAbonar
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
             TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+            TxtTC.Attributes.Add("onblur", "CambiaDolaresPesos()")
         Else
             'DivDolaresDolares.Visible = False
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)