diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index e28415dcf..8483f7265 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -373,7 +373,7 @@
                                                 </div>
                                                 <div class="portlet-body rowpadding">
                                                     <div class="row" id="trddlproyecto" runat="server">
-                                                        <label class="col-md-4 truncate">Proyecto:</label>
+                                                        <asp:Label runat="server" ID="LblProyecto" class="col-md-4 truncate">Proyecto:</asp:Label>
                                                         <div class="col-md-8">
                                                             <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
                                                                 <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
@@ -383,7 +383,7 @@
                                                     <div class="row">
                                                         <label class="col-md-4 truncate">
                                                             <asp:Label ID="lblsubproyecto" runat="server" Text="SubProyectoContrato:"></asp:Label></label><div class="col-md-8">
-                                                                <asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto2" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
+                                                                <asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
                                                                     <asp:ListItem Selected="True" Text="Sin SubProyectoContrato asignado" Value="-1"></asp:ListItem>
                                                                 </asp:DropDownList>
                                                                 <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyectoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index b124bd0a3..dce2ecdcf 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1488,14 +1488,15 @@ Partial Class Contratos_Default
 
 #Region "COMBOS - INFO GENERAL"
     Private Sub CargaProyecto()
-        If UsuarioActual.Empresa.GralSoloProyecto Then
-            CargaSubProyectoContrato(-1)
-            trddlproyecto.Visible = False
-            lblsubproyecto.Text = "Proyecto"
-        Else
-            DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-            DdlProyecto.DataBind()
-        End If
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto)
+        trddlproyecto.Visible = LblProyecto.Visible
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
+        '    CargaSubProyectoContrato(-1)
+        '    lblsubproyecto.Text = "Proyecto"
+        'Else
+        '    DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        '    DdlProyecto.DataBind()
+        'End If
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
diff --git a/Empresas/Grales/Formatos/LibroDiario.rpt b/Empresas/Grales/Formatos/LibroDiario.rpt
index e91fe1e65..87f844a97 100644
Binary files a/Empresas/Grales/Formatos/LibroDiario.rpt and b/Empresas/Grales/Formatos/LibroDiario.rpt differ