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

--Se agrego variable de CveEstado a métodos y PA. Se agregó columna de estado y DdlEstado. Se agregó funcionalidad OnChange para cambiar si el viaje es nacional o no y mostrar diferentes estados y se modificaron métodos para poder incluir CveEstado y NombreEstado

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-03-16 16:53:39 -07:00
parent 710621dc32
commit 4f2885020c
4 changed files with 100 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Transportes/CatRutas.aspx
View File

@@ -48,7 +48,7 @@
</div>
<asp:GridView ID="GvDestinos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
data-sort="true" DataKeyNames="CveDestino, Destino, EsNacional, Estatus, CveUsuario, FechaIng, CveEmpresa">
data-sort="true" DataKeyNames="CveDestino, Destino, EsNacional, Estatus, CveUsuario, FechaIng, CveEmpresa, CveEstado">
<Columns>
<asp:TemplateField HeaderText="Destino">
<ItemTemplate>
@@ -69,6 +69,12 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estado">
<ItemTemplate>
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("NombreEstado") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate>
<asp:LinkButton ID="BtnEditarDestino" runat="server" AlternateText="Editar"
@@ -215,7 +221,7 @@
<div class="col-md-8">
<asp:DropDownList ID="DdlEsNacional" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true"
Width="99.9%">
Width="99.9%" OnSelectedIndexChanged="OnChangeNacional" AutoPostBack="true">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Sí" Value="True"></asp:ListItem>
<asp:ListItem Text="No" Value="False"></asp:ListItem>
@@ -247,6 +253,24 @@
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Estado:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlEstado" runat="server" Class="table-group-action-input form-control input-inline select2me"
DataTextField="NombreEstado"
DataValueField="CveEstado"
AppendDataBoundItems="true"
Width="99.9%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="DdlEstado"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEstado" Width="400px" BehaviorID="VCEEstado">
</ajax:ValidatorCalloutExtender>
</div>
</div>
</asp:Panel>
<%-- Importes --%>
<asp:Panel ID="PnImporte" runat="server" Visible="false">

103
Transportes/CatRutas.aspx.vb
View File

@@ -22,16 +22,7 @@ Partial Class CatRutas
End Sub
Private Sub CargaDatos()
'Lista Rutas'
Dim ObjRutas As New ClsTransportes()
'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
' If ObjRutas.DtResultados.Rows.Count > 0 Then
' GvRutas.DataSource = ObjRutas.DtResultados
' GvRutas.DataBind()
' End If
'End If
'Lista Destinos'
If ObjRutas.GetDestinos() Then
@@ -60,29 +51,20 @@ Partial Class CatRutas
If ObjDestinos.DtResultados.Rows.Count > 0 Then
DdlOrigen.DataSource = ObjDestinos.DtResultados
DdlOrigen.DataBind()
DdlOrigen.DataSource = ObjDestinos.DtResultados : DdlOrigen.DataBind()
DdlOrigen.Items.Insert(0, New ListItem("Seleccione Partida", ""))
DdlFinal.DataSource = ObjDestinos.DtResultados
DdlFinal.DataBind()
DdlFinal.DataSource = ObjDestinos.DtResultados : DdlFinal.DataBind()
DdlFinal.Items.Insert(0, New ListItem("Seleccione Destino", ""))
End If
End If
ObjDestinos.Dispose()
DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)")
DdlRutas.DataBind()
DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
'Dim ObjRutas As New ClsTransportes()
'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind()
DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
' If ObjRutas.DtResultados.Rows.Count > 0 Then
' DdlRutas.DataSource = ObjRutas.DtResultados
' DdlRutas.DataBind()
' DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
' End If
'End If
End Sub
Protected Sub MostrarModal(sender As Object, e As EventArgs)
@@ -100,7 +82,6 @@ Partial Class CatRutas
PnDestino.Visible = False
PnImporte.Visible = False
Dim id As String = DirectCast(sender, LinkButton).ID
If id.Contains("Editar") Then
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -115,8 +96,18 @@ Partial Class CatRutas
Case "BtnEditarDestino"
ModalLabel.Text = "Editar Destino"
TxtDestino.Text = GvRow.DataKey("Destino")
DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional")
DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus")
DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional")
If Convert.ToBoolean(DdlEsNacional.SelectedValue) Then
DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
Else
DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind()
End If
UpModal.Update()
DdlEstado.SelectedValue = GvRow.DataKey("CveEstado")
PnDestino.Visible = True
BtnAddDestino.Visible = True
BtnAddDestino.Text = "Editar"
@@ -158,48 +149,6 @@ Partial Class CatRutas
RegistraScript(String.Format("$('#{0}').modal('show');", "Modal"))
End Sub
'#Region "Rutas"
' Protected Sub AddRuta(sender As Object, e As EventArgs)
' Dim ObjRuta As New ClsTransportes
' ObjRuta.IniciaTransacSQL()
' Try
' If BtnAddRuta.Text = "Guardar" Then
' If ObjRuta.AddRuta(TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then
' ObjRuta.Commit()
' Alert("Ruta Agregada Correctamente.")
' End If
' End If
' If BtnAddRuta.Text = "Editar" Then
' If ObjRuta.UpdateRuta(Cve, TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ObjRuta.Commit()
' Alert("Ruta Actualizada Correctamente.")
' End If
' End If
' Catch ex As Exception
' ObjRuta.RollBack()
' Finally
' CargaDatos()
' ObjRuta.Dispose()
' End Try
' End Sub
' Protected Sub RemoveRuta(sender As Object, e As EventArgs)
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
' Dim ObjRuta As New ClsTransportes
' If ObjRuta.RemoveRuta(GvRow.DataKey("CveRuta").ToEntero) Then
' Alert("Ruta eliminada correctamente")
' CargaDatos()
' End If
' ObjRuta.Dispose()
' End Sub
'#End Region
#Region "Destinos"
Protected Sub AddDestino(sender As Object, e As EventArgs)
@@ -207,14 +156,14 @@ Partial Class CatRutas
ObjDestino.IniciaTransacSQL()
Try
If BtnAddDestino.Text = "Guardar" Then
If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then
If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) > 1 Then
ObjDestino.Commit()
Alert("Destino agregado correctamente.")
End If
End If
If BtnAddDestino.Text = "Editar" Then
If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) Then
ObjDestino.Commit()
Alert("Destino actualizado correctamente.")
End If
@@ -239,6 +188,20 @@ Partial Class CatRutas
ObjDestino.Dispose()
End Sub
Protected Sub OnChangeNacional(sender As Object, e As EventArgs, Optional EsNacional As Boolean = True)
DdlEstado.Items.Clear()
If Convert.ToBoolean(DdlEsNacional.SelectedValue.ToString) And EsNacional Then
DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
Else
DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
End If
UpModal.Update()
End Sub
#End Region
#Region "Importes"

37
Transportes/RepViajesCalendario.aspx
View File

@@ -3,9 +3,44 @@
Inherits="RepViajesCalendario" EnableEventValidation="true" %>
<asp:Content ID="Content1" ContentPlaceHolderID="E" runat="Server">
Prueba
Prueba s
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server">
<button
type="button"
class="btn btn-lg btn-success"
data-toggle="modal"
data-target="#myModal">
Lauch Modal</button>
<div class="modal" id="myModal">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header bg-primary">
<h5 class="modal-title">Modal Title</h5>
<button class="close" data-dismiss="modal">$times;</button>
</div>
<div class="modal-body">
aaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa
aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa
aaaa
</div>
<div class="modal-footer">
<button class="btn btn-danger" data-dismiss="modal">Close</button>
</div>
</div>
</div>
</div>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="JS" runat="Server">
<script>
$['[data-toggle="popover"]'].popover();
function showPopover() {
$('#hello').popover('show');
}
</script>
</asp:Content>