Prellenar los datos del Chofer en Traspaso de Almacen

Acarreos/CatChoferes.aspx

@@ -27,7 +27,7 @@
                 <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" 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" 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,10 +69,43 @@
                                     <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>
                                     <label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
                                 </div>
+                                <br />
+                                <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="form-group form-md-line-input input-iconright" style="width:150px;">
+                                    <asp:TextBox ID="TxtCiudad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <%--<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>--%>
+                                    <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                </div>  
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright" style="width:150px;">
+                                    <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" 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) 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
                     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) 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
                     CargaDatos()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
@@ -71,6 +71,11 @@ Partial Class Acarreos_CatChoferes
         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")
+        TxtCiudad.Text = GvRow.DataKey("Ciudad")
+        TxtLicencia.Text = GvRow.DataKey("Licencia")
         DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
         divEstatus.Visible = True
         ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
@@ -84,6 +89,11 @@ Partial Class Acarreos_CatChoferes
         BtnAgregarChofer.Text = "Agregar"
         myModalLabel.InnerText = "Agregar Chofer"
         TxtChofer.Text = ""
+        TxtIdentificacion.Text = ""
+        TxtDomicilio.Text = ""
+        TxtTelefono.Text = ""
+        TxtCiudad.Text = ""
+        TxtLicencia.Text = ""
         ChkEstatus.Checked = True
         divEstatus.Visible = False
         UpAddChofer.Update()

App_Code/ClsAcarreos.vb

@@ -109,7 +109,7 @@ Public Class ClsAcarreos
 
 
 #Region "Choferes"
-    Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer) As Boolean
+    Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Domicilio As String, Telefono As String, Ciudad As String, Licencia As String) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Acar_ChoferesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -117,6 +117,11 @@ Public Class ClsAcarreos
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
+            .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
+            .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
+            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -128,7 +133,7 @@ Public Class ClsAcarreos
         Return Retorno
     End Function
 
-    Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer) As Boolean
+    Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Domicilio As String, Telefono As String, Ciudad As String, Licencia As String) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Acar_ChoferesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -138,7 +143,11 @@ Public Class ClsAcarreos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
-
+            .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
+            .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
+            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
         End With
         Try
             SqlAdapter.Fill(Data)

Inventarios/TraspasoAlmacen.aspx

@@ -172,14 +172,14 @@
                                                 <div class="col-md-2">
                                                     <asp:TextBox runat="server" Text="" ID="TxtGastoIndirecto" Width="100px" />
                                                 </div>
-                                                <label class="col-md-1">Chofer:</label>
-                                                <div class="col-md-2">
-                                                    <asp:DropDownList ID="DldChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
-                                                </div>
                                                 <label class="col-md-1">Placa:</label>
                                                 <div class="col-md-2">
                                                     <asp:TextBox runat="server" Text="" ID="TxtPlaca" Width="100px" />
                                                 </div>
+                                                <label class="col-md-1">Chofer:</label>
+                                                <div class="col-md-2">
+                                                    <asp:DropDownList ID="DldChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" OnSelectedIndexChanged="DldChofer_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
+                                                </div>
                                             </div>
                                             <div class="row">
                                                 <label class="col-md-2">Fecha Entrega:</label>
@@ -256,7 +256,8 @@
                                             <div class="row">
                                                 <label class="col-md-5">Teléfono:</label>
                                                 <div class="col-md-4">
-                                                    <asp:TextBox runat="server" Text="" ID="TxtTelefono" Width="150px" />
+                                                    <asp:TextBox runat="server" Text="" ID="TxtTelefono" Width="150px" MaxLength="10" />
+                                                    <ajax:FilteredTextBoxExtender ID="FTETelefono" runat="server" TargetControlID="TxtTelefono" FilterType="Custom, Numbers" />
                                                 </div>
                                             </div>
                                             <div class="row">

Inventarios/TraspasoAlmacen.aspx.vb

@@ -377,7 +377,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         'Llena Choferes
         Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
             DldChofer.DataSource = ObjAcar.DtResultados
             DldChofer.DataBind()
         End If
@@ -2408,5 +2408,19 @@ Partial Class Inventarios_TraspasoAlmacen
 
 #End Region
 
+    Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjAcar As New ClsAcarreos()
 
+        If ObjAcar.GetChofer(DldChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+            Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
+            If dr IsNot Nothing Then
+                TxtIdentificacion.Text = dr("Identificacion").ToString
+                TxtDomicilio.Text = dr("Domicilio").ToString
+                TxtTelefono.Text = dr("Telefono").ToString
+                TxtCiudad.Text = dr("Ciudad").ToString
+                TxtLicencia.Text = dr("Licencia").ToString
+            End If
+        End If
+        ObjAcar.Dispose()
+    End Sub
 End Class