-- chofer/remolques asignados
This commit is contained in:
@@ -32,7 +32,7 @@
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer,Marca,Color,Estatus"
|
||||
DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer,Marca,Color,Estatus,CveChoferAsignado,CveRemolque1Asignado,CveRemolque2Asignado"
|
||||
EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
|
||||
@@ -45,8 +45,7 @@
|
||||
<asp:BoundField HeaderText="Marca" DataField="Marca" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Color" DataField="Color" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Estatus" DataField="EstatuStr" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
|
||||
<asp:BoundField HeaderText="Usuario" DataField="Usuario" />
|
||||
<asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-Width="100px" 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>" />
|
||||
@@ -270,7 +269,16 @@
|
||||
</div>
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="col-md-6" runat="server" id="divChoferAsignado" visible="false">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="Div2">
|
||||
<asp:DropDownList ID="DdlChoferAsignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveChofer" DataTextField="Chofer" Style="padding: 0px">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlChoferAsignado.ClientID.ToString()%>">Chofer Asignado:</label>
|
||||
<asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator4" ControlToValidate="DdlChoferAsignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6" runat="server" id="divProv" visible="false">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="Div1">
|
||||
<asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveProveedor" DataTextField="RazonSocial" Style="padding: 0px">
|
||||
</asp:DropDownList>
|
||||
@@ -286,6 +294,27 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row" runat="server" id="divrowRemolques" visible="false">
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="Div3">
|
||||
<asp:DropDownList ID="DdlRemolque1Asignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCamion" DataTextField="Especificacion" Style="padding: 0px">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlRemolque1Asignado.ClientID.ToString()%>">Remolque 1:</label>
|
||||
<asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator5" ControlToValidate="DdlRemolque1Asignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Remolque 1 Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="Div4">
|
||||
<asp:DropDownList ID="DdlRemolque2Asignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCamion" DataTextField="Especificacion" Style="padding: 0px">
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlRemolque2Asignado.ClientID.ToString()%>">Remolque 1:</label>
|
||||
<asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator6" ControlToValidate="DdlRemolque2Asignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Remolque 2 Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
@@ -21,24 +21,21 @@ Partial Class Inventarios_CatUnidades
|
||||
Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaCombos()
|
||||
CargaDdlProveedor()
|
||||
'CargaDdlProveedor()
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDdlProveedor()
|
||||
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedor.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
'Private Sub CargaDdlProveedor()
|
||||
' DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
' DdlProveedor.DataBind()
|
||||
'End Sub
|
||||
|
||||
|
||||
Public Sub CargaDatos()
|
||||
|
||||
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
|
||||
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus:=-1) Then
|
||||
@@ -81,6 +78,29 @@ Partial Class Inventarios_CatUnidades
|
||||
DdlTiposRemolque.Items.Insert(0, New ListItem("Seleccione Uno ", "-1"))
|
||||
|
||||
UpModalUnidades.Update()
|
||||
'If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
|
||||
' DdlRemolque1.DataSource = ObjInv.DtResultados
|
||||
'End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(2, 13) Then
|
||||
divrowRemolques.Visible = True
|
||||
divChoferAsignado.Visible = True
|
||||
DdlChoferAsignado.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa)
|
||||
DdlChoferAsignado.DataBind()
|
||||
DdlChoferAsignado.Items.Insert(0, New ListItem("-", "0"))
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
|
||||
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, CveTipoCamion:=2, Estatus:=-1) Then
|
||||
DdlRemolque1Asignado.DataSource = ObjInventarios.DtResultados
|
||||
DdlRemolque2Asignado.DataSource = ObjInventarios.DtResultados
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
|
||||
DdlRemolque1Asignado.DataBind()
|
||||
DdlRemolque2Asignado.DataBind()
|
||||
DdlRemolque1Asignado.Items.Insert(0, New ListItem("-", "0"))
|
||||
DdlRemolque2Asignado.Items.Insert(0, New ListItem("-", "0"))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -160,6 +180,9 @@ Partial Class Inventarios_CatUnidades
|
||||
TxtMarca.Text = GvRow.DataKey("Marca")
|
||||
TxtColor.Text = GvRow.DataKey("Color")
|
||||
ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False)
|
||||
DdlChoferAsignado.SelectedValueExist(GvRow.DataKey("CveChoferAsignado").ToEntero)
|
||||
DdlRemolque1Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque1Asignado").ToEntero)
|
||||
DdlRemolque2Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque2Asignado").ToEntero)
|
||||
|
||||
'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
|
||||
|
||||
@@ -181,11 +204,10 @@ Partial Class Inventarios_CatUnidades
|
||||
|
||||
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
||||
|
||||
Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero()
|
||||
Dim CveCamionEliminar As Integer = GvRow.DataKey("CveCamion").ToEntero()
|
||||
|
||||
Using ObjInventarios As New ClsInventarios
|
||||
|
||||
|
||||
If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
|
||||
|
||||
UpDatos.Update()
|
||||
@@ -213,14 +235,14 @@ Partial Class Inventarios_CatUnidades
|
||||
|
||||
If CveCamion <= 0 Then
|
||||
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
|
||||
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
|
||||
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then
|
||||
Alert("Unidad agregada correctamente")
|
||||
Else
|
||||
ErrorPrceso = True
|
||||
End If
|
||||
Else
|
||||
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
|
||||
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then
|
||||
Alert("Unidad actualizada correctamente")
|
||||
Else
|
||||
ErrorPrceso = True
|
||||
@@ -228,9 +250,6 @@ Partial Class Inventarios_CatUnidades
|
||||
End If
|
||||
End Using
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorPrceso Then
|
||||
GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
@@ -238,10 +257,6 @@ Partial Class Inventarios_CatUnidades
|
||||
UpDatos.Update()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user