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

--Se quitó imprimir boleto de repboleto por que se movió a repcontratodetalles. Se trabajo en la edición de los datos de usuario al editar el boleto. Se mejoró la estructura de repContratos y se quitaron llamados a modales en VB. Se implementó consulta en repContratos.

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-03-06 17:18:05 -07:00
parent c263a34ab5
commit eb94bcabb4
7 changed files with 183 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Transportes/RepBoletos.aspx
View File

@@ -40,7 +40,6 @@
<div class="portlet light xspadding bordered margin-bottom-10"> <div class="portlet light xspadding bordered margin-bottom-10">
<asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado" <asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
OnRowDataBound="GvBoletos_RowDataBound"
data-sort="true" DataKeyNames="CveViajePasajero,Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia"> data-sort="true" DataKeyNames="CveViajePasajero,Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia">
<Columns> <Columns>
<asp:TemplateField HeaderText="No. Asiento"> <asp:TemplateField HeaderText="No. Asiento">
@@ -98,9 +97,6 @@
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>' data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
data-btn-ok-label="si" OnClick="BtnCancelar_Click" /> data-btn-ok-label="si" OnClick="BtnCancelar_Click" />
<asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
OnClick="ImprimirBoleto" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

148
Transportes/RepBoletos.aspx.vb
View File

@@ -1,88 +1,58 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.Helpers
Imports ADSNetLibrary.SIGAPI.Helpers Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones.ModExtensiones Imports Extensiones.ModExtensiones
Imports Microsoft.Reporting.WebForms
Partial Class ListadoBoletos
Partial Class ListadoBoletos Inherits ClsPaginas
Inherits ClsPaginas Private Property CveViaje As Integer
Private Property CveViaje As Integer Get
Get Return ViewState("CveViaje").ToString().ToEntero
Return ViewState("CveViaje").ToString().ToEntero End Get
End Get Set(value As Integer)
Set(value As Integer) ViewState("CveViaje") = value
ViewState("CveViaje") = value End Set
End Set End Property
End Property Private Property Ruta As String
Private Property Ruta As String Get
Get Return ViewState("Ruta").ToString()
Return ViewState("Ruta").ToString() End Get
End Get Set(value As String)
Set(value As String) ViewState("Ruta") = value
ViewState("Ruta") = value End Set
End Set End Property
End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then
If Not IsPostBack Then If Request.QueryString("CveViaje") Is Nothing Then
If Request.QueryString("CveViaje") Is Nothing Then Response.Redirect("/Transportes/RepViajes.aspx")
Response.Redirect("/Transportes/RepViajes.aspx") End If
End If CveViaje = Request.QueryString("CveViaje").ToEntero
CveViaje = Request.QueryString("CveViaje").ToEntero Ruta = IfNull(Request("Ruta"), "").ToString
Ruta = IfNull(Request("Ruta"), "").ToString LblViaje.Text = Ruta
LblViaje.Text = Ruta CargaDatos()
CargaDatos() End If
End If End Sub
End Sub
Private Sub CargaDatos()
Private Sub CargaDatos() Dim ObjTransportes As New ClsTransportes
Dim ObjTransportes As New ClsTransportes If ObjTransportes.GetViajesPasajeros(CveViaje) Then
If ObjTransportes.GetViajesPasajeros(CveViaje) Then GvBoletos.DataSource = ObjTransportes.DtResultados
GvBoletos.DataSource = ObjTransportes.DtResultados End If
End If ObjTransportes.Dispose()
ObjTransportes.Dispose() GvBoletos.DataBind()
GvBoletos.DataBind() End Sub
End Sub
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
Protected Sub ImprimirBoleto(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim dtResult As New DataTable() Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim Estatus As String = GvRow.DataKey("Estatus")
Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
Dim Importe As Decimal = GvRow.DataKey("Importe").ToDecimal
Dim params As New List(Of ReportParameter) From {
New ReportParameter("Ruta", Ruta),
New ReportParameter("Origen", GvRow.DataKey("Partida")),
New ReportParameter("Destino", GvRow.DataKey("Destino")),
New ReportParameter("FechaSalida", Fecha.ToShortDateString()),
New ReportParameter("HoraSalida", Fecha.ToString("HH:mm")),
New ReportParameter("Nombre", GvRow.DataKey("Nombre")),
New ReportParameter("Visa", GvRow.DataKey("Visa")),
New ReportParameter("Celular", GvRow.DataKey("Celular")),
New ReportParameter("Importe", Importe.FormatoNumero(2)),
New ReportParameter("TipoBoleto", "Tipo Boleto"),
New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
}
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
'Empresas/Grales/Formatos/EntradaSalida.mrt
'Empresas/188/Formatos/Boleto.mrt
End Sub
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
Dim Estatus As String = GvRow.DataKey("Estatus")
Dim cambiarEstatus As Boolean = Not Estatus.ToBool Dim cambiarEstatus As Boolean = Not Estatus.ToBool
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Try Try
Dim DtRem As DataTable = Nothing Dim DtRem As DataTable = Nothing
@@ -129,21 +99,15 @@ Partial Class ListadoBoletos
End If End If
Catch ex As Exception Catch ex As Exception
TieneError = True TieneError = True
GuardaLog(ex.ToString()) GuardaLog(ex.ToString())
Finally Finally
If TieneError Then If TieneError Then
Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError) Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError)
Else Else
Alert($"El boleto ha sido cancelado correctamente.") Alert($"El boleto ha sido cancelado correctamente.")
End If End If
CargaDatos() CargaDatos()
End Try End Try
End Sub
Protected Sub GvBoletos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
End If
End Sub End Sub
End Class End Class

26
Transportes/RepContratoDetalle.aspx
View File

@@ -1,5 +1,5 @@
<%@ Page Language="VB" AutoEventWireup="true" Title="Transportes V&A - Detalles del Contrato" <%@ Page Language="VB" AutoEventWireup="true" Title="Transportes V&A - Detalles del Contrato"
MasterPageFile="~/Site.master" MasterPageFile="~/Site.master" EnableEventValidation="true"
CodeFile="RepContratoDetalle.aspx.vb" CodeFile="RepContratoDetalle.aspx.vb"
Inherits="RepContratoDetalle" %> Inherits="RepContratoDetalle" %>
@@ -283,7 +283,8 @@
Width="200px"></asp:TextBox> Width="200px"></asp:TextBox>
<button type="button" class="btn btn-primary" runat="server" clientidmode="Static" <button type="button" class="btn btn-primary" runat="server" clientidmode="Static"
id="Button1" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload" id="Button1" data-toggle="modal" data-target="#ModalUpload" visible="true">
<i class="fa fa-upload"
aria-hidden="true"></i>Subir Archivo</button> aria-hidden="true"></i>Subir Archivo</button>
</ContentTemplate> </ContentTemplate>
@@ -411,7 +412,7 @@
<div class="row"> <div class="row">
<%-- Datos del Boleto --%> <%-- Datos del Boleto --%>
<div class="col-md-8"> <div class="col-md-8">
<asp:Panel runat="server" ID="PnEditarViaje" Visible="true"> <asp:Panel runat="server" ID="PnEditarViaje" Visible="false">
<div class="row margin-bottom-5"> <div class="row margin-bottom-5">
<label class="col-md-4 bold">Ruta</label> <label class="col-md-4 bold">Ruta</label>
<div class="col-md-8"> <div class="col-md-8">
@@ -469,7 +470,7 @@
<label class="col-md-4 bold">Nombre</label> <label class="col-md-4 bold">Nombre</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" ID="LbNombre">Nombre</asp:Label> <asp:TextBox CssClass="form-control" runat="server" ID="TxtNombre">Nombre</asp:TextBox>
</div> </div>
</div> </div>
@@ -478,7 +479,7 @@
<label class="col-md-4 bold">Visa</label> <label class="col-md-4 bold">Visa</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" ID="LbVisa">Visa</asp:Label> <asp:TextBox CssClass="form-control" runat="server" ID="TxtVisa">Visa</asp:TextBox>
</div> </div>
</div> </div>
@@ -486,23 +487,23 @@
<div class="row margin-bottom-5"> <div class="row margin-bottom-5">
<label class="col-md-4 bold">Celular</label> <label class="col-md-4 bold">Celular</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" ID="LbCelular">Celular</asp:Label> <asp:TextBox CssClass="form-control" runat="server" ID="TxtCelular">Celular</asp:TextBox>
</div> </div>
</div> </div>
<div class="row margin-bottom-5"> <div class="row margin-bottom-5">
<label class="col-md-4 bold">Observación</label> <label class="col-md-4 bold">Observación</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" <asp:TextBox CssClass="form-control" runat="server"
ID="LbObservacion">Observacion</asp:Label> ID="TxtObservacion">Observacion</asp:TextBox>
</div> </div>
</div> </div>
<div class="row margin-bottom-5"> <div class="row margin-bottom-5">
<label class="col-md-4 bold">Sexo</label> <label class="col-md-4 bold">Sexo</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" <asp:TextBox CssClass="form-control" runat="server"
ID="LbSexo">Sexo</asp:Label> ID="TxtSexo">Sexo</asp:TextBox>
</div> </div>
</div> </div>
@@ -510,15 +511,14 @@
<label class="col-md-4 bold">Estatus</label> <label class="col-md-4 bold">Estatus</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:Label CssClass="form-control" runat="server" <asp:TextBox CssClass="form-control" runat="server"
ID="LbEstatus">Estatus</asp:Label> ID="TxtEstatus">Estatus</asp:TextBox>
</div> </div>
</div> </div>
</asp:Panel> </asp:Panel>
</div> </div>
<%-- Asientos --%> <%-- Asientos --%>
<asp:UpdatePanel runat="server" ID="UpBoletos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpBoletos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

75
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -110,7 +110,7 @@ Partial Class RepContratoDetalle
'Lista Tipo AF 'Lista Tipo AF
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoAF.DataBind() DdlTipoAF.DataBind()
DdlTipoAF.Items.Insert(0, New ListItem("-", "0")) DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Información General 'Información General
@@ -131,7 +131,7 @@ Partial Class RepContratoDetalle
TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
DdlTipoAF.SelectedValue = Contrato.Rows(0)("CveTipoAF").ToString DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
TxtDolares.Text = Contrato.Rows(0)("Importe").ToString TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
@@ -151,7 +151,6 @@ Partial Class RepContratoDetalle
If ObjTransportes.GetViajesPasajeros(CveContrato) Then If ObjTransportes.GetViajesPasajeros(CveContrato) Then
GvViajesPasajeros.DataSource = ObjTransportes.DtResultados GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
BusquedaSeleccionada(ObjTransportes.DtResultados) BusquedaSeleccionada(ObjTransportes.DtResultados)
End If End If
ObjTransportes.Dispose() ObjTransportes.Dispose()
GvViajesPasajeros.DataBind() GvViajesPasajeros.DataBind()
@@ -315,7 +314,7 @@ Partial Class RepContratoDetalle
Try Try
ObjTransportes.IniciaTransacSQL() ObjTransportes.IniciaTransacSQL()
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, LbNombre.Text, LbVisa.Text, LbCelular.Text, LbObservacion.Text, LbEstatus.Text.ToBool, UsuarioActual.CveUsuario, LbSexo.Text.ToBool) Then If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, TxtEstatus.Text.ToBool, UsuarioActual.CveUsuario, TxtSexo.Text.ToBool) Then
ObjTransportes.Commit() ObjTransportes.Commit()
End If End If
Catch ex As ArgumentException Catch ex As ArgumentException
@@ -326,10 +325,9 @@ Partial Class RepContratoDetalle
ObjTransportes.Dispose() ObjTransportes.Dispose()
End Try End Try
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
UpTabContainer.Update()
UpPasajeros.Update()
CargaDatos() CargaDatos()
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
End Sub End Sub
Protected Sub OnChangeRuta(sender As Object, e As EventArgs) Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
Dim ObjTransportes As New ClsTransportes Dim ObjTransportes As New ClsTransportes
@@ -363,6 +361,8 @@ Partial Class RepContratoDetalle
End If End If
Next Next
End If End If
UpTabContainer.Update()
ViajeActual = dt ViajeActual = dt
End Sub End Sub
Protected Sub ImprimirBoleto(sender As Object, e As EventArgs) Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
@@ -396,23 +396,45 @@ Partial Class RepContratoDetalle
End If End If
End Sub End Sub
Protected Sub EditarBoleto(sender As Object, e As EventArgs) Protected Sub EditarBoleto(sender As Object, e As EventArgs)
PnEditarUsuario.Visible = True
PnEditarViaje.Visible = False
PnAsientos.Visible = False
End Sub
Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
PnEditarViaje.Visible = True
PnEditarUsuario.Visible = False
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
LbPartida.Text = GvRow.DataKey("Partida").ToString() LbPartida.Text = GvRow.DataKey("Partida").ToString()
LbDestino.Text = GvRow.DataKey("Destino").ToString() LbDestino.Text = GvRow.DataKey("Destino").ToString()
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C") LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
LbNombre.Text = GvRow.DataKey("Nombre").ToString() TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
LbVisa.Text = GvRow.DataKey("Visa").ToString() TxtVisa.Text = GvRow.DataKey("Visa").ToString()
LbCelular.Text = GvRow.DataKey("Celular").ToString() TxtCelular.Text = GvRow.DataKey("Celular").ToString()
LbSexo.Text = GvRow.DataKey("Sexo").ToString() TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
LbObservacion.Text = GvRow.DataKey("Observacion").ToString() TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
LbEstatus.Text = GvRow.DataKey("Estatus").ToString() TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
UpTabContainer.Update()
UpModal.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
End Sub
Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
PnEditarViaje.Visible = True
PnEditarUsuario.Visible = False
PnAsientos.Visible = True
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
LbPartida.Text = GvRow.DataKey("Partida").ToString()
LbDestino.Text = GvRow.DataKey("Destino").ToString()
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
TxtVisa.Text = GvRow.DataKey("Visa").ToString()
TxtCelular.Text = GvRow.DataKey("Celular").ToString()
TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
LbCreado.Text = GvRow.DataKey("FechaIng").ToString() LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
TxtAsiento.Text = GvRow.DataKey("Asiento").ToString() TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
@@ -439,21 +461,21 @@ Partial Class RepContratoDetalle
LbPartida.Text = GvRow.DataKey("Partida").ToString() LbPartida.Text = GvRow.DataKey("Partida").ToString()
LbDestino.Text = GvRow.DataKey("Destino").ToString() LbDestino.Text = GvRow.DataKey("Destino").ToString()
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C") LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
LbNombre.Text = GvRow.DataKey("Nombre").ToString() TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
LbVisa.Text = GvRow.DataKey("Visa").ToString() TxtVisa.Text = GvRow.DataKey("Visa").ToString()
LbCelular.Text = GvRow.DataKey("Celular").ToString() TxtCelular.Text = GvRow.DataKey("Celular").ToString()
LbSexo.Text = GvRow.DataKey("Sexo").ToString() TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
LbObservacion.Text = GvRow.DataKey("Observacion").ToString() TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
LbEstatus.Text = GvRow.DataKey("Estatus").ToString() TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
LbCreado.Text = GvRow.DataKey("FechaIng").ToString() LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
TxtAsiento.Text = GvRow.DataKey("Asiento").ToString() TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
Dim Estatus As Boolean = Not LbEstatus.Text.ToBool Dim Estatus As Boolean = Not TxtEstatus.Text.ToBool
Dim ObjTransportes As New ClsTransportes Dim ObjTransportes As New ClsTransportes
Try Try
ObjTransportes.IniciaTransacSQL() ObjTransportes.IniciaTransacSQL()
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, LbNombre.Text, LbVisa.Text, LbCelular.Text, LbObservacion.Text, Estatus, UsuarioActual.CveUsuario, LbSexo.Text.ToBool) Then If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, Estatus, UsuarioActual.CveUsuario, TxtSexo.Text.ToBool) Then
Alert($"El boleto ha modificado el estatus de su boleto correctamente.") Alert("Se ha modificado el estatus de su boleto correctamente.")
ObjTransportes.Commit() ObjTransportes.Commit()
End If End If
@@ -465,6 +487,7 @@ Partial Class RepContratoDetalle
ObjTransportes.Dispose() ObjTransportes.Dispose()
CargaDatos() CargaDatos()
End Try End Try
UpPasajeros.Update()
End Sub End Sub
#End Region #End Region

87
Transportes/RepContratos.aspx
View File

@@ -17,11 +17,13 @@
<asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server">
<li> <li>
<asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton> <asp:LinkButton runat="server" ClientIDMode="Static"
data-toggle="modal" data-target="#ModalAgregar"><i class='fa fa-plus' ></i>Agregar Contrato</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton OnClick="ModalPersonalizar" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton> <asp:LinkButton runat="server" ClientIDMode="Static"
data-toggle="modal" data-target="#ModalPersonalizar"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton> <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
@@ -39,7 +41,7 @@
<%-- Filtro Visible - Consulta --%> <%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn <asp:Button OnClick="Consultar" runat="server" Text="Consultar" class="btn
btn-primary" /> btn-primary" />
<a href="javascript:;" class="expand"></a> <a href="javascript:;" class="expand"></a>
</div> </div>
@@ -225,13 +227,13 @@
<div id="ModalAgregar" class="modal ADS fade" role="dialog"> <div id="ModalAgregar" class="modal ADS fade" role="dialog">
<asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="modal-dialog rowpadding"> <div class="modal-dialog">
<div class="modal-content"> <div class="modal-content">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span aria-hidden="true">&times;</span>
</button> </button>
<h4 class="modal-title" id="myModalLabel" runat="server">Agregar Contrato</h4> <h4 class="modal-title">Agregar Contrato</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
@@ -388,7 +390,7 @@
</ajax:ValidatorCalloutExtender> </ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Archivo</label> <label class="col-md-4">Archivo</label>
<asp:Label ID="LbArchivo" runat="server" CssClass="col-md-8" Text=""></asp:Label> <asp:Label ID="LbArchivo" runat="server" CssClass="col-md-8" Text=""></asp:Label>
@@ -401,10 +403,10 @@
ValidationGroup="GrpGuardar"></asp:Button> ValidationGroup="GrpGuardar"></asp:Button>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
<button type="button" class="btn btn-secondary" runat="server" clientidmode="Static" <button type="button" class="btn btn-secondary" runat="server" clientidmode="Static"
id="BtnArchivo" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload" id="BtnArchivo" data-toggle="modal" data-target="#ModalUpload" visible="true">
<i class="fa fa-upload"
aria-hidden="true"></i>Subir Archivo</button> aria-hidden="true"></i>Subir Archivo</button>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -413,11 +415,13 @@
<%-- Modal para personalizar columnas --%> <%-- Modal para personalizar columnas --%>
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="DivPersonalizar" class="modal fade" role="dialog"> <div id="ModalPersonalizar" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<div class="modal-content"> <div class="modal-content">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title">Personalizar Columnas</h4> <h4 class="modal-title">Personalizar Columnas</h4>
</div> </div>
@@ -437,45 +441,48 @@
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--MODAL UPLOAD--%> <%-- Modal Archivo--%>
<div id="ModalUpload" class="modal ADS fade" role="dialog"> <asp:UpdatePanel runat="server" ID="UpArchivo" UpdateMode="Conditional">
<div class="modal-dialog"> <ContentTemplate>
<div id="ModalUpload" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content"> <div class="modal-content">
<div class="modal-header "> <div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Subir Archivo</h4> <h4 class="modal-title">Subir Archivo</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox> <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:Button runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" <asp:Button runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary"
OnClick="GuardarArchivo" /> OnClick="GuardarArchivo" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
</div>
</div> </div>
</div> </div>
</div> </ContentTemplate>
</div> </asp:UpdatePanel>
</asp:Content> </asp:Content>

30
Transportes/RepContratos.aspx.vb
View File

@@ -72,34 +72,26 @@ Partial Class ListadoContratos
End If End If
UpTitulos.Update() UpTitulos.Update()
End Sub End Sub
#End Region #End Region
Protected Sub MostrarModal()
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
End Sub
Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click
MostrarModal()
End Sub
Protected Sub AddContrato(sender As Object, e As EventArgs) Protected Sub AddContrato(sender As Object, e As EventArgs)
If DdlClientes.SelectedValue = "" Then If DdlClientes.SelectedValue = "" Then
Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia) Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
'Agregamos Contrato 'Agregamos Contrato
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL() ObjContratos.IniciaTransacSQL()
If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
ObjContratos.Commit() ObjContratos.Commit()
Alert("Agregado Correctamente.") Alert("Agregado Correctamente.")
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
'Aumentamos Folio 'Aumentamos Folio
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
Dim ObjFolios As New ClsGralFolios Dim ObjFolios As New ClsGralFolios
If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
ObjFolios.Dispose() ObjFolios.Dispose()
@@ -149,11 +141,16 @@ Partial Class ListadoContratos
ObjContratos.Dispose() ObjContratos.Dispose()
End Sub End Sub
Protected Sub Consultar(sender As Object, e As EventArgs) Protected Sub Consultar(sender As Object, e As EventArgs)
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then
GvContratos.DataSource = ObjContratos.DtResultados
GvContratos.DataBind()
End If
ObjContratos.Dispose()
UpTitulos.Update() UpTitulos.Update()
End Sub End Sub
Protected Sub ModalPersonalizar(sender As Object, e As EventArgs)
RegistraScript("$('#DivPersonalizar').modal('show')")
End Sub
Protected Sub Personalizar(sender As Object, e As EventArgs) Protected Sub Personalizar(sender As Object, e As EventArgs)
GvContratos.Columns(6).Visible = ChkChofer.Checked GvContratos.Columns(6).Visible = ChkChofer.Checked
GvContratos.Columns(7).Visible = ChkChofer2.Checked GvContratos.Columns(7).Visible = ChkChofer2.Checked
@@ -175,6 +172,7 @@ Partial Class ListadoContratos
End If End If
For Each fileItem As Archivo In Filesgral For Each fileItem As Archivo In Filesgral
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
Session("FileExtension") = FileExtension Session("FileExtension") = FileExtension
Dim tempArray() As String Dim tempArray() As String
@@ -185,10 +183,14 @@ Partial Class ListadoContratos
ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename) ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename)
File.Move(fileItem.FileUrl, ViewState("FUrl").ToString) File.Move(fileItem.FileUrl, ViewState("FUrl").ToString)
LbArchivo.Text = fileItem.filenameO LbArchivo.Text = tempArray(1)
Next Next
UpArchivo.Update()
UpModal.Update() UpModal.Update()
RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
End Sub End Sub
End Class End Class

4
Transportes/RepViajes.aspx.vb
View File

@@ -151,13 +151,13 @@ Partial Class ListadoViajes
Try Try
'Agregamos Viaje 'Agregamos Viaje
If BtnGuardar.Text = "Agregar" Then If BtnGuardar.Text = "Agregar" Then
If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
ObjContratos.Commit() ObjContratos.Commit()
Alert("Viaje agregado correctamente.") Alert("Viaje agregado correctamente.")
End If End If
Else Else
'Actualizamos Viaje 'Actualizamos Viaje
If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
ObjContratos.Commit() ObjContratos.Commit()
Alert("El viaje se actualizó correctamente.") Alert("El viaje se actualizó correctamente.")
End If End If