AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prellenar los datos del Chofer en Traspaso de Almacen

Browse Source
This commit is contained in:
janeth arvizu
2019-09-10 10:55:40 -07:00
parent f4e4f4112a
commit b0472b52c0
5 changed files with 79 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Inventarios/TraspasoAlmacen.aspx
View File

@@ -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">

16
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -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