diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index 1e7945306..1f8fa17e7 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -67,7 +67,7 @@
                             </div>
                             <div class="col-md-5" runat="server" id="DivTC" visible="false">
                                 T.C.:
-                                <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaPesosDolares();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
+                                <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaDolaresPesos();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
                                 <asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />                             
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index a1791b726..3c3ba9bb5 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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)
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 6e0db8830..8034c63ca 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -187,8 +187,8 @@
                                             </div>
                                             <div class="col-md-6">
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox CssClass="form-control" ID="TxtUsuarioElaboro" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
-                                                    <label for="<%= TxtUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>
+                                                    <asp:Label CssClass="form-control" ID="LblUsuarioElaboro" runat="server" MaxLength="15" ></asp:Label>
+                                                    <label for="<%= LblUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>
                                                 </div>
                                             </div>
                                         </div>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index f3cc6a70e..c8c47d2f5 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -324,7 +324,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
                     TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
                     TxtConcepto.Enabled = True
-                    TxtUsuarioElaboro.Text = UsuarioActual.Nombre
+                    LblUsuarioElaboro.Text = UsuarioActual.Nombre
                 End If
 
 
@@ -352,7 +352,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
                 TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
                 TxtConcepto.Enabled = True
-                TxtUsuarioElaboro.Text = UsuarioActual.Usuario
+                LblUsuarioElaboro.Text = UsuarioActual.Usuario
 
             End If
 
@@ -453,13 +453,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Folio = dr("FolioPoliza").ToString
 
                 TxtFolio.Text = dr("FolioPoliza").ToString
-                TxtUsuarioElaboro.Text = dr("UsuarioNombre").ToString
+                LblUsuarioElaboro.Text = dr("UsuarioNombre").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
                 TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
                 DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
 
-                If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
+                LblUsuarioElaboro.ToolTip = dr("Modulo").ToString
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     LnkAddConcepto.Visible = True