diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb
index 5eb60c12e..9ae6cf4b7 100644
--- a/Contabilidad2/RepLibroDiario.aspx.vb
+++ b/Contabilidad2/RepLibroDiario.aspx.vb
@@ -94,10 +94,16 @@ Partial Class Contabilidad2_RepLibroDiario
             If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
                 e.Row.Font.Bold = True
                 e.Row.Cells(4).Text = ""
+                e.Row.Cells(4).Visible = False
                 e.Row.Cells(5).Text = ""
+                e.Row.Cells(5).Visible = False
                 e.Row.Cells(6).Text = ""
+                e.Row.Cells(6).Visible = False
                 e.Row.Cells(7).Text = ""
+                e.Row.Cells(7).Visible = False
                 e.Row.Cells(8).Text = ""
+                e.Row.Cells(8).Visible = False
+                e.Row.Cells(3).ColumnSpan = 6
                 e.Row.CssClass = "SubTotales" ' 
             End If
 
@@ -107,6 +113,8 @@ Partial Class Contabilidad2_RepLibroDiario
                 e.Row.Cells(1).Text = ""
                 e.Row.Cells(2).Text = ""
                 e.Row.Cells(3).Text = ""
+                e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "")
+                e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "")
             End If
 
             'SUBTOTAL
diff --git a/Empresas/Grales/Formatos/LibroDiario.rpt b/Empresas/Grales/Formatos/LibroDiario.rpt
index 4b918418b..e91fe1e65 100644
Binary files a/Empresas/Grales/Formatos/LibroDiario.rpt and b/Empresas/Grales/Formatos/LibroDiario.rpt differ
diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx
index b66f5625e..e368f1d9c 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx
+++ b/Inventarios/RepNotasSinAlmacen.aspx
@@ -139,7 +139,7 @@
                                     <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>--%>
-                            <div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;">Proyecto:</div>
+                            <div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;"><asp:Label runat="server" ID="LblSubProyecto" text="Proyecto" /></div>
                             <div class="col-md-1" id="DivSubProyecto2" runat="server">
                                 <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px">
                                     <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index 0f7e28329..95cdd8db2 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
         'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
         'DdlSucursal.DataBind()
 
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.SelectedValue = Nothing
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
-        DdlSubProyecto.DataBind()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+        'DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.SelectedValue = Nothing
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+        'DdlSubProyecto.DataBind()
 
-        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
     End Sub
 
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click