diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 57b5d06c1..32179b262 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5490,7 +5490,7 @@ Public Class ClsInventarios
         End Try
         Return Retorno
     End Function
-    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, TipoPermisoSCT As String, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean
+    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -5498,7 +5498,7 @@ Public Class ClsInventarios
             .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
             .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
             .Add("@Anio", SqlDbType.Int).Value = Anio
-            .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT
+            .Add("@CveTipoPermisoSCT", SqlDbType.VarChar).Value = CveTipoPermisoSCT
             .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT
             .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora
             .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro
@@ -5528,7 +5528,7 @@ Public Class ClsInventarios
         End Try
         Return Retorno
     End Function
-    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, TipoPermisoSCT As String, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -5537,7 +5537,7 @@ Public Class ClsInventarios
             .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
             .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
             .Add("@Anio", SqlDbType.Int).Value = Anio
-            .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT
+            .Add("@CveTipoPermisoSCT", SqlDbType.Int).Value = CveTipoPermisoSCT
             .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT
             .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora
             .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro
diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx
index 2669c774b..bc5a3bafc 100644
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -34,21 +34,21 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,TipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro" 
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro" 
                 EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; width: 100%" GridLines="None">
                 <Columns>
                     
                     <asp:BoundField HeaderText="Placa" DataField="Placa" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Especificación" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
-                     <asp:BoundField HeaderText="Configuración Carta Porte" DataField="ConfigCartaPorte" ItemStyle-HorizontalAlign="Left" />                    
-                    <asp:BoundField HeaderText="Tipo Permiso SCT" DataField="TipoPermisoSCT" ItemStyle-HorizontalAlign="Left" />
+                     <asp:BoundField HeaderText="Config Carta Porte" DataField="ConfigCartaPorte" ItemStyle-HorizontalAlign="Left" />                    
+                    <asp:BoundField HeaderText="Tipo Permiso SCT" DataField="ClaveTipoPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Número Permiso SCT" DataField="NumPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Nombre Aseguradora" DataField="NombreAseguradora" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Numero Póliza Seguro" DataField="NumPolizaSeguro" ItemStyle-HorizontalAlign="Left" />                                    
 
                     <asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="15%" DataFormatString="{0:G}" />
                     <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
-                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                    <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
                             <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
@@ -113,14 +113,15 @@
 
 
                             <div class="form-group form-md-line-input input-iconright"  style="padding:0px">
-                                <label for="<%= TxtTipoPermisoSCT.ClientID.ToString()%>"  style="padding:0px">Tipo Permiso SCT:</label>
-                                <asp:TextBox ID="TxtTipoPermisoSCT" CssClass="form-control" runat="server" MaxLength="10"  style="padding:0px"></asp:TextBox>
-                                <asp:RequiredFieldValidator runat="server" ID="RfvTxtTipoPermisoSCT" ControlToValidate="TxtTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                <label for="<%= DdlTipoPermisoSCT.ClientID.ToString()%>"  style="padding:0px">Tipo Permiso SCT:</label>
+                                <asp:DropDownList ID="DdlTipoPermisoSCT" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveTipoPermisoDescripcion" DataValueField="CveTipoPermisoSCT"  style="padding:0px">                                     
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator runat="server" ID="RfvTxtTipoPermisoSCT" ControlToValidate="DdlTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
                                 <i></i>
                             </div>
 
                             <div class="form-group form-md-line-input input-iconright"   style="padding:0px">
-                                <label for="<%= TxtNumermisoSCT.ClientID.ToString()%>"  style="padding:0px">Numero Permiso SCT:</label>
+                                <label for="<%= TxtNumermisoSCT.ClientID.ToString()%>"  style="padding:0px">Número Permiso SCT:</label>
                                 <asp:TextBox ID="TxtNumermisoSCT" CssClass="form-control" runat="server" MaxLength="50"  style="padding:0px"></asp:TextBox>
                                 <%--<asp:RequiredFieldValidator runat="server" ID="RfvTxtNumermisoSCT" ControlToValidate="TxtNumermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>--%>
                                 <i></i>
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb
index 89be93a6e..6c3d3c2a1 100644
--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -48,9 +48,13 @@ Partial Class Inventarios_CatUnidades
             If ObjGral.GetCartaPorteConfigAutoTransportes() Then
                 DdlConfigAuto.DataSource = ObjGral.DtResultados
             End If
+            If ObjGral.GetCartaPorteTipoPermisoSCT() Then
+                DdlTipoPermisoSCT.DataSource = ObjGral.DtResultados
+            End If
         End Using
 
         DdlConfigAuto.DataBind()
+        DdlTipoPermisoSCT.DataBind()
 
         UpModalUnidades.Update()
 
@@ -69,7 +73,7 @@ Partial Class Inventarios_CatUnidades
         DdlConfigAuto.SelectedValueExist(-1)
 
         TxtAnio.Text = ""
-        TxtTipoPermisoSCT.Text = ""
+        'TxtTipoPermisoSCT.Text = ""
         TxtNumermisoSCT.Text = ""
         TxtNombreAseguradora.Text = ""
         TxtNumPolizaSeguro.Text = ""
@@ -94,7 +98,7 @@ Partial Class Inventarios_CatUnidades
         DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"))
 
         TxtAnio.Text = GvRow.DataKey("Anio")
-        TxtTipoPermisoSCT.Text = GvRow.DataKey("TipoPermisoSCT")
+        DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT"))
         TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT")
         TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora")
         TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro")
@@ -140,13 +144,13 @@ Partial Class Inventarios_CatUnidades
         Dim ObjInventarios As New ClsInventarios
 
         If CveCamion <= 0 Then
-            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) Then
+            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) Then
                 Alert("Unidad agregada correctamente")
             Else
                 ErrorPrceso = True
             End If
         Else
-            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 Alert("Unidad actualizada correctamente")
             Else
                 ErrorPrceso = True