From b0472b52c0b0cf6c261a2124f5a8b03129bd1c80 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Tue, 10 Sep 2019 10:55:40 -0700
Subject: [PATCH] Prellenar los datos del Chofer en Traspaso de Almacen

---
 Acarreos/CatChoferes.aspx           | 35 ++++++++++++++++++++++++++++-
 Acarreos/CatChoferes.aspx.vb        | 14 ++++++++++--
 App_Code/ClsAcarreos.vb             | 15 ++++++++++---
 Inventarios/TraspasoAlmacen.aspx    | 11 ++++-----
 Inventarios/TraspasoAlmacen.aspx.vb | 16 ++++++++++++-
 5 files changed, 79 insertions(+), 12 deletions(-)

diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx
index 1886db78c..9680d08b3 100644
--- a/Acarreos/CatChoferes.aspx
+++ b/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>
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index 33eb8925e..251fd78bb 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/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()
diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb
index c85f93087..e039cb589 100644
--- a/App_Code/ClsAcarreos.vb
+++ b/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)
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 234eb59d3..0dc78ba79 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/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">
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 7dc7cd4a5..9a928c671 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/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