diff --git a/Inventarios/CartaPorteManual.aspx b/Inventarios/CartaPorteManual.aspx
index da661ee9e..75ba3ee43 100644
--- a/Inventarios/CartaPorteManual.aspx
+++ b/Inventarios/CartaPorteManual.aspx
@@ -170,7 +170,7 @@
 
 
                                             <div class="row">
-                                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-2"></asp:Label>
+                                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-2" Text="SubProyecto"></asp:Label>
                                                 <div class="col-md-9" style="padding-left: 5px;">
                                                     <asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
                                                     <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -205,7 +205,7 @@
                                                     <table>
                                                         <tr>
                                                             <td>
-                                                                <asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirTimbrado_CheckedChanged" AutoPostBack="true" Enabled="false" />
+                                                                <asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="chksino" Text=" " Checked="true" OnCheckedChanged="ChkEmitirTimbrado_CheckedChanged" AutoPostBack="true" Enabled="false" />
                                                             </td>
                                                             <td>
                                                                 <asp:CheckBox ID="ChkEmitirCartaPorte" Checked="true" runat="server" Text="Carta Porte" Visible="true" Enabled="false" /></td>
diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb
index 35b0da212..6369d50dd 100644
--- a/Inventarios/CartaPorteManual.aspx.vb
+++ b/Inventarios/CartaPorteManual.aspx.vb
@@ -294,8 +294,10 @@ Partial Class Inventarios_CartaPorteManual
 
 
     Private Sub CargaCombos()
-        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
+        'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
 
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ")
+        DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
         DdlChofer.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa)