Parametros nuevos en catalogo de choferes y vehiculos

Acarreos/CatChoferes.aspx

@@ -27,7 +27,8 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChofer.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChofer.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GvChofer" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,Licencia" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes">
+            <asp:GridView ID="GvChofer" runat="server" GridLines="None" data-sort="true" 
+                DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,Licencia,NumeroInterior,NumeroExterior,Colonia,Estado,NumRegidTribOperador,ResidenciaFiscalOperador,CP" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes">
                 <Columns>
                     <asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
@@ -69,43 +70,84 @@
                                     <asp:RequiredFieldValidator ID="RFVChofer" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtChofer" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtChofer.ClientID.ToString()%>">Chofer:</label>
                                 </div>
-                                <br />
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista"  DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
+                                    <asp:TextBox ID="TxtRFC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
                                     <label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
                                 </div>
-                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
-                                <div class="form-group form-md-line-input input-iconright" style="width:150px;">
                                     <asp:TextBox ID="TxtIdentificacion" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
                                     <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtIdentificacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Identificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= TxtIdentificacion.ClientID.ToString()%>">Identificación:</label>
                                 </div>
-                                <br />
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtDomicilio" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDomicilio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Domicilio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
-                                    <label for="<%= TxtDomicilio.ClientID.ToString()%>">Domicilio:</label>
-                                </div>   
-                                <br />
-                                <div class="form-group form-md-line-input input-iconright" style="width:150px;">
                                     <asp:TextBox ID="TxtTelefono" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="FTETelefono" runat="server" TargetControlID="TxtTelefono" FilterType="Custom, Numbers" />
-                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTelefono" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
                                 </div>
-                                <br />
+                                <div class="row">
-                                <div class="form-group form-md-line-input input-iconright" style="width:150px;">
+                                    <div class="col-md-12">
-                                    <asp:TextBox ID="TxtCiudad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                        <div class="form-group form-md-line-input input-iconright">
-                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCiudad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
+                                            <asp:TextBox ID="TxtDomicilio" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                            <label for="<%= TxtDomicilio.ClientID.ToString()%>">Domicilio:</label>
+                                        </div>
+                                    </div>
                                 </div>
-                                <br />
+                                <div class="row">
-                                <div class="form-group form-md-line-input input-iconright" style="width:150px;">
+                                    <div class="col-md-3">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtNumInt" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtNumInt.ClientID.ToString()%>">Numero Interior:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtNumExt" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtNumExt.ClientID.ToString()%>">Numero Exterior:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtColonia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtColonia.ClientID.ToString()%>">Colonia:</label>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtCiudad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtCP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <label for="<%= TxtCP.ClientID.ToString()%>">Código Postal:</label>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtLicencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtLicencia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Licencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= TxtLicencia.ClientID.ToString()%>">Licencia:</label>
                                 </div>
-                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNumRegidTribOperador" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtNumRegidTribOperador.ClientID.ToString()%>">Numero RegidTribOperador:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtResidenciaFiscalOperador" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtResidenciaFiscalOperador.ClientID.ToString()%>">Residencia Fiscal Operador:</label>
+                                </div>
                                 <div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
                                     <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>

Acarreos/CatChoferes.aspx.vb

@@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes
             Dim Estatus = 0
             If ChkEstatus.Checked Then Estatus = 1
             If HdnModalidad.Value = "A" Then
-                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then
+                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumInt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
                     CargaDatos()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
             ElseIf HdnModalidad.Value = "U" Then
-                If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then
+                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
                     CargaDatos()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
@@ -70,13 +70,25 @@ Partial Class Acarreos_CatChoferes
         UpDatos.Update()
         BtnAgregarChofer.Text = "Actualizar"
         myModalLabel.InnerText = "Actualizar Chofer"
+
         TxtChofer.Text = GvRow.DataKey("Chofer")
         TxtIdentificacion.Text = GvRow.DataKey("Identificacion")
-        TxtDomicilio.Text = GvRow.DataKey("Domicilio")
         TxtTelefono.Text = GvRow.DataKey("Telefono")
+
+        TxtDomicilio.Text = GvRow.DataKey("Domicilio")
+        TxtNumInt.Text = GvRow.DataKey("NumeroInterior")
+        TxtNumExt.Text = GvRow.DataKey("NumeroExterior")
+        TxtColonia.Text = GvRow.DataKey("Colonia")
         TxtCiudad.Text = GvRow.DataKey("Ciudad")
+        TxtEstado.Text = GvRow.DataKey("Estado")
+        TxtCP.Text = GvRow.DataKey("CP")
         TxtLicencia.Text = GvRow.DataKey("Licencia")
+
+        TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador")
+        TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador")
+
         DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
+
         divEstatus.Visible = True
         ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
         UpAddChofer.Update()

App_Code/ClsAcarreos.vb

@@ -110,7 +110,8 @@ Public Class ClsAcarreos
 
 #Region "Choferes"
     Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String,
-                              Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean
+                              Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "",
+                              Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Acar_ChoferesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -129,6 +130,8 @@ Public Class ClsAcarreos
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@CP", SqlDbType.VarChar).Value = CP
+            .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador
+            .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -141,7 +144,8 @@ Public Class ClsAcarreos
     End Function
 
     Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String,
-                              Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean
+                                 Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "",
+                                 Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Acar_ChoferesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -162,6 +166,8 @@ Public Class ClsAcarreos
             .Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@CP", SqlDbType.VarChar).Value = CP
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador
+            .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1350,11 +1356,12 @@ Public Class ClsAcarreos
     Protected Overridable Sub Dispose(disposing As Boolean)
         If Not Me.disposedValue Then
             If disposing Then
-                If Not Data Is Nothing Then Data.Dispose()
+                If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
-                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
-                If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+                If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+                If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
                 If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
-                If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+                If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
             End If
         End If
         Me.disposedValue = True

Inventarios/TraspasoAlmacen.aspx

@@ -816,15 +816,42 @@
                         </div>
                         <div class="modal-body">
                             <div class="form-group form-md-line-input input-iconright">
-                                <label>Placa: </label>
+                                <label for="<%= TxtPlacaNuevo.ClientID.ToString()%>">Placa:</label>
                                 <asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server"></asp:TextBox>
                                 <asp:RequiredFieldValidator runat="server" ID="RfvTxtPlacaNuevo" ControlToValidate="TxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor ingréselo." ValidationGroup="VgNuevoCamion"></asp:RequiredFieldValidator>
                                 <asp:RegularExpressionValidator runat="server" ID="RevTxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> no contiene los caracteres suficientes." ControlToValidate="TxtPlacaNuevo" ValidationExpression="^.{6,8}$" ValidationGroup="VgNuevoCamion"></asp:RegularExpressionValidator>
                             </div>
                             <div class="form-group form-md-line-input input-iconright">
-                                <label>Especificación: </label>
+                                <label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Especificación:</label>
                                 <asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server"></asp:TextBox>
                             </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= DdlConfigAuto.ClientID.ToString()%>">Configuración Carta Porte:</label>
+                                <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ConfigAutoTransporte" DataValueField="ClaveConfigAutoTransporte">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value=""></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= TxtAnio.ClientID.ToString()%>">Año:</label>
+                                <asp:TextBox ID="TxtAnio" CssClass="form-control" runat="server" type="number"></asp:TextBox>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= TxtTipoPermisoSCT.ClientID.ToString()%>">Tipo Permiso SCT:</label>
+                                <asp:TextBox ID="TxtTipoPermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= TxtNumermisoSCT.ClientID.ToString()%>">Numero Permiso SCT:</label>
+                                <asp:TextBox ID="TxtNumermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= TxtNombreAseguradora.ClientID.ToString()%>">Nombre Aseguradora:</label>
+                                <asp:TextBox ID="TxtNombreAseguradora" CssClass="form-control" runat="server"></asp:TextBox>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright">
+                                <label for="<%= TxtNumPolizaSeguro.ClientID.ToString()%>">Numero Póliza Seguro:</label>
+                                <asp:TextBox ID="TxtNumPolizaSeguro" CssClass="form-control" runat="server"></asp:TextBox>
+                            </div>
+
                         </div>
                         <div class="modal-footer">
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3214,18 +3214,36 @@ Partial Class Inventarios_TraspasoAlmacen
         ObjInventarios.Dispose()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
         DdlUnidadCamion.DataBind()
+
+        Using ObjGral As New ClsGenerales
+            If ObjGral.GetCartaPorteConfigAutoTransportes() Then
+                DdlConfigAuto.DataSource = ObjGral.DtResultados
+            End If
+        End Using
+
+        DdlConfigAuto.DataBind()
+
     End Sub
     Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
         Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
             CargarCamiones()
-            TxtPlacaNuevo.Text = ""
+            LimpiarAgregarCamion()
-            TxtEspecificacionNuevo.Text = ""
         End If
         ObjInventarios.Dispose()
     End Sub
 
+    Private Sub LimpiarAgregarCamion()
+        TxtPlacaNuevo.Text = ""
+        TxtEspecificacionNuevo.Text = ""
+        TxtAnio.Text = ""
+        TxtTipoPermisoSCT.Text = ""
+        TxtNumermisoSCT.Text = ""
+        TxtNombreAseguradora.Text = ""
+        TxtNumPolizaSeguro.Text = ""
+    End Sub
+
     Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
         If DdlUnidadCamion.SelectedValue = "-1" Then
             'divPlacaEspecificacion.Visible = True