GPS - Administracion de Trayectos por otros clientes
This commit is contained in:
@@ -173,10 +173,9 @@
|
||||
}
|
||||
|
||||
|
||||
.orange{
|
||||
color:orange;
|
||||
background-color:orange;
|
||||
|
||||
.orange {
|
||||
color: orange;
|
||||
background-color: orange;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
@@ -879,6 +878,56 @@
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet light xspadding bordered" id="DivTrayectos" runat="server" visible="false">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">CONFIGURACIÓN DE TRAYECTOS:</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<asp:UpdatePanel runat="server" ID="UpTrayectos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlAdminTrayecto" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlAdminTrayecto_SelectedIndexChanged" AutoPostBack="true">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Value="1" Text="Administrador de Trayectos"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Solo dispone unidades"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVAdminTrayecto" runat="server" InitialValue="-1" ControlToValidate="DdlAdminTrayecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Administración''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlAdminTrayecto.ClientID.ToString()%>">Tipo Administración:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div id="DivUnidadesDisponibles" class="row" runat="server" visible="false">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">UNIDADES DISPONIBLES:</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<asp:GridView ID="GvUnidadesDisponibles" runat="server" AutoGenerateColumns="False" Width="100%"
|
||||
EmptyDataText="No se encontraron registros de documentos" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Display" ItemStyle-Width="40%" HeaderText="Vehículo" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Cliente" ItemStyle-Width="60%" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -3222,8 +3271,8 @@
|
||||
</Triggers>--%>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div style="text-align:right;">
|
||||
<span id="Contadorgps"><%=GvDatosGPS.Rows.Count %> </span> dispositivos
|
||||
<div style="text-align: right;">
|
||||
<span id="Contadorgps"><%=GvDatosGPS.Rows.Count %> </span>dispositivos
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
@@ -3233,7 +3282,7 @@
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="hdnArrayDispositivo" runat="server" Value="" ClientIDMode="Static" />
|
||||
<asp:Button ID="btnCargaArrayDisp" runat="server" Text="" Style="display: none" ClientIDMode="Static"></asp:Button>
|
||||
<asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo,CveModelo,CveProveedorComunicacionCuenta,Display,Modelo,IMEI"
|
||||
<asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo,CveModelo,CveProveedorComunicacionCuenta,Display,Modelo,IMEI,Dispuesto"
|
||||
CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
|
||||
EmptyDataText="No se encontraron registros" ToolTip="Listado de Dispositivos">
|
||||
<Columns>
|
||||
@@ -3255,6 +3304,17 @@
|
||||
<asp:Label ID="LblEstatus" runat="server" Text=""></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- <asp:TemplateField HeaderText="Dispuesto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle" FooterStyle-VerticalAlign="Middle" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblDisponible" runat="server" Text=""></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
<asp:TemplateField HeaderText="Disponible Trayectos" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblDisponible" runat="server" Text=""></asp:Label>
|
||||
<asp:LinkButton ID="imgDisponer" OnClick="imgDisponer_Click" HeaderText="Disponer" runat="server" AlternateText="Disponer" CssClass="" Text="" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" HeaderText="Eliminar" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
@@ -3960,7 +4020,7 @@
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
|
||||
<ItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="DownLoad_ClickDocumentacion" runat="server"
|
||||
Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" />
|
||||
</ItemTemplate>
|
||||
|
||||
@@ -715,7 +715,7 @@ Partial Class Clientes
|
||||
TdBusqueda.Visible = True
|
||||
HyperLink7.Visible = False
|
||||
ChkSist.Visible = False
|
||||
|
||||
DivTrayectos.Visible = True
|
||||
CargaEmpresasUsuario(UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
|
||||
@@ -1633,14 +1633,15 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
DdlMotivoTraslado.SelectedValueExist(ObjClientes.CveMotivoTraslado)
|
||||
TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
|
||||
|
||||
|
||||
'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
|
||||
|
||||
'DIAS DE PAGO
|
||||
TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
|
||||
|
||||
DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
|
||||
DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
|
||||
'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
|
||||
|
||||
'DIAS DE PAGO
|
||||
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
|
||||
Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
|
||||
If array(0) = "1" Then ChkLunes.Checked = True
|
||||
@@ -2573,7 +2574,7 @@ Partial Class Clientes
|
||||
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
|
||||
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
|
||||
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
|
||||
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
|
||||
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
|
||||
|
||||
ViewState("CveCliente") = ObjClientes.CveCliente
|
||||
|
||||
@@ -2668,7 +2669,7 @@ Partial Class Clientes
|
||||
CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
|
||||
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
|
||||
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
|
||||
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
|
||||
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
|
||||
|
||||
|
||||
ObjClientes.LimpiaImpuestosLocales(CveCliente)
|
||||
@@ -5124,7 +5125,11 @@ Partial Class Clientes
|
||||
GvDatosGPS.DataSource = Nothing
|
||||
End If
|
||||
ObjGPS.Dispose()
|
||||
GvDatosGPS.DataBind()
|
||||
GvDatosGPS.DataBind()
|
||||
|
||||
GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
'GvDatosGPS.Columns(10).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
|
||||
UpDispositivos.Update()
|
||||
End Sub
|
||||
Private Sub CargaGlobalDispositos()
|
||||
@@ -5153,8 +5158,22 @@ Partial Class Clientes
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
|
||||
e.Row.FindControl("imgD").Visible = False
|
||||
End If
|
||||
|
||||
If CBool(e.Row.DBCampo("Dispuesto")) Then
|
||||
e.Row.FCLabel("LblDisponible").Text = "Si"
|
||||
e.Row.FCLabel("LblDisponible").CssClass = "label label-success"
|
||||
|
||||
e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm red"
|
||||
e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
|
||||
Else
|
||||
e.Row.FCLabel("LblDisponible").Text = "No"
|
||||
e.Row.FCLabel("LblDisponible").CssClass = "label label-default"
|
||||
|
||||
e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm blue"
|
||||
e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
|
||||
End If
|
||||
|
||||
End If
|
||||
e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString()}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
|
||||
End If
|
||||
End Sub
|
||||
@@ -10577,6 +10596,36 @@ Partial Class Clientes
|
||||
End Using
|
||||
|
||||
Return retorno
|
||||
End Function
|
||||
End Function
|
||||
Protected Sub DdlAdminTrayecto_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
DivUnidadesDisponibles.Visible = DdlAdminTrayecto.SelectedValue = "1"
|
||||
|
||||
GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
|
||||
|
||||
If DivUnidadesDisponibles.Visible AndAlso Me.CveCliente > 0 Then
|
||||
Using ObjGPS As New ClsGPS
|
||||
If ObjGPS.GetUnidadesDispuestas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvUnidadesDisponibles.DataSource = ObjGPS.DtResultados
|
||||
End If
|
||||
End Using
|
||||
GvUnidadesDisponibles.DataBind()
|
||||
End If
|
||||
|
||||
UpTrayectos.Update()
|
||||
UpDispositivos.Update()
|
||||
End Sub
|
||||
Protected Sub imgDisponer_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveDispositivo As Integer = GvRow.DataKey("CveDispositivo").ToEntero()
|
||||
Dim ValorDisposicion As Boolean = CBool(GvRow.DataKey("Dispuesto"))
|
||||
|
||||
Using ObjGPS As New ClsGPS
|
||||
If ObjGPS.UpdateUnidadesDispuestas(CveDispositivo, Not ValorDisposicion) Then
|
||||
Alert("Se cambió el estatus de disposición")
|
||||
End If
|
||||
End Using
|
||||
|
||||
CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user