diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 601203387..6dc4f95bb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2541,6 +2541,7 @@ Partial Class Inventarios_EntradasSalidas
         DivDepartamentoEntrega.Visible = False
         TxtDepartamentoEntrega.Text = ""
         TxtPedidoContrato.Text = ""
+        txtPrecio.Enabled = True
 
         Select Case CveConcepto
             Case "1", "2", "22", "32", "33" ' ENTRADAS
@@ -2588,6 +2589,7 @@ Partial Class Inventarios_EntradasSalidas
                 TrProveedor.Visible = True
                 DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
                 DdlProveedor.DataBind()
+                txtPrecio.Enabled = False
 
             Case Else
                 TrSubProyecto.Visible = False
@@ -5414,6 +5416,7 @@ Partial Class Inventarios_EntradasSalidas
         limpiarModalDetalle()
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
+        If DdlConcepto.SelectedValue = "28" Then txtPrecio.Text = "0.00" 'préstamo proveedor
     End Sub
 
     Private Sub ActualizarPS()
diff --git a/OC/OC.aspx b/OC/OC.aspx
index bad783dce..de43ae095 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2956,7 +2956,7 @@
         </div>
     </div>
 
-    <div id="DivmodalConmtrato" class="modal ADS fade">
+        <div id="DivmodalContrato" class="modal ADS fade" runat="server" >
         <div class="modal-dialog" style="width: 650px; min-width: 470px;">
             <asp:UpdatePanel ID="UpModalContrato" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
                 <ContentTemplate>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d40ed3933..b2e62328e 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -725,6 +725,7 @@ Partial Class OC_OC
                 ConfiguraRetencionesProveedor()
             Else
                 LIContratos.Visible = VisualizaContrato
+                DivmodalContrato.Visible = VisualizaContrato
                 EsNuevo = True
                 InicializarValores()
                 HlAgregarExcel.Visible = True
diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx
index 8e526529a..0ca5a6ff9 100644
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -381,7 +381,7 @@
 
                                                                 <div class="row" runat="server" visible="false"  id="DVFactura">
                                                                     <label class="col-md-2">Factura: </label>
-                                                                    <div class="col-md-2">
+                                                                    <div class="col-md-3">
                                                                         <asp:HyperLink runat="server" Text=""  Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>
                                                                     </div>
                                                                     <div class="col-md-4">
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index f6173c45f..bb6174d4e 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3266,7 +3266,7 @@ Partial Class ProductosyServicios
         HabilitaAplicaCaducidadTiempo()
     End Sub
     Private Sub HabilitaAplicaCaducidadTiempo()
-        If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+        If UsuarioActual.CveEmpresa.Contiene(119, 158, 199) Then
             DivTiempoCaducidad.Visible = ChkCaducidad.Checked
             RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked
         End If