@@ -851,9 +862,10 @@
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 4880c0672..09b1c2067 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -16,6 +16,14 @@ Partial Class RepContratoDetalle
ViewState("CveContrato") = value
End Set
End Property
+ Private Property ArchivoUpdate As String
+ Get
+ Return ViewState("ArchivoUpdate").ToString
+ End Get
+ Set(value As String)
+ ViewState("ArchivoUpdate") = value
+ End Set
+ End Property
Private Property CveContratoTipo As Integer
Get
Return CType(ViewState("CveContratoTipo"), Integer)
@@ -24,6 +32,14 @@ Partial Class RepContratoDetalle
ViewState("CveContratoTipo") = value
End Set
End Property
+ Private Property CveContratoEstatus As Integer
+ Get
+ Return CType(ViewState("CveContratoEstatus"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveContratoEstatus") = value
+ End Set
+ End Property
Private Property CveMasivo As Integer
Get
Return CType(ViewState("CveMasivo"), Integer)
@@ -85,6 +101,8 @@ Partial Class RepContratoDetalle
CargaDatos()
AsientoSeleccionado = ""
CveViajePasajero = 0
+ Session("FileExtension") = ""
+ ArchivoUpdate = ""
End If
End Sub
@@ -92,7 +110,7 @@ Partial Class RepContratoDetalle
'Lista Tipo AF
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoAF.DataBind()
- DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+ DdlTipoAF.Items.Insert(0, New ListItem("-", "0"))
End Sub
Private Sub CargaDatos()
'Información General
@@ -117,11 +135,14 @@ Partial Class RepContratoDetalle
TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
- If Not String.IsNullOrEmpty(Contrato.Rows(0)("Archivo").ToString) Then
- BtnDescargar.Visible = True
- LbArchivo.Text = Contrato.Rows(0)("Archivo").ToString
- LbArchivo.Visible = True
+ CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
+ If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
+ 'A2.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CONTRATO&CveEmpresa={0}&Archivo={1}", ObjContratos.CveEmpresa, ViewState("FUrl").ToString)))
+ BtnDescargar.Visible = True
+ Else
+ BtnDescargar.Visible = False
+ A1.Visible = True
End If
'Boletos Vendidos
If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
@@ -141,12 +162,13 @@ Partial Class RepContratoDetalle
Response.Redirect($"~/Transportes/RepContratos.aspx")
End If
ObjContratos.Dispose()
+ UpTabContainer.Update()
End Sub
#End Region
#Region "Información General"
- Protected Sub GuardarArchivo(sender As Object, e As EventArgs)
+ Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
Dim FileExtension As String = "-1"
Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
Dim Filename As String = ""
@@ -162,7 +184,7 @@ Partial Class RepContratoDetalle
For Each fileItem As Archivo In Filesgral
- FileExtension = IO.Path.GetExtension($"{AppDomain.CurrentDomain.BaseDirectory}Temp\{fileItem.filename}").Replace(".", "")
+ FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
Session("FileExtension") = FileExtension
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -177,15 +199,18 @@ Partial Class RepContratoDetalle
'ImgArchivo.Src = "/imagenes/accept.png"
Next
- UpTabContainer.Update()
+ UPAFUL.Update()
+
RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
- Button1.Visible = True
+ A1.Visible = True
If Not FileExtension = "-1" Then
BtnDescargar.Visible = True
End If
- UpdateContrato(sender, e)
End Sub
- Protected Sub DescargarArchivo(sender As Object, e As EventArgs)
+ Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+ DescargarArchivo()
+ End Sub
+ Private Sub DescargarArchivo()
Dim File As New FileInfo(ViewState("FUrl").ToString)
If File.Exists Then 'set appropriate headers
@@ -209,18 +234,25 @@ Partial Class RepContratoDetalle
End If 'nothing in the URL as HTTP GET
End Sub
Protected Sub UpdateContrato(sender As Object, e As EventArgs)
+ Dim ArchivoUpdate As String = "-1"
+
+ If Session("FileExtension").ToString <> "" Then
+ ArchivoUpdate = "." & Session("FileExtension").ToString
+ Else
+ End If
+
Dim ObjContratos As New ClsContratos
+ ObjContratos.IniciaTransacSQL()
Try
- If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, -1) Then
+ '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)
+ If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then
Alert("Contrato actualizado correctamente")
End If
ObjContratos.Commit()
-
Catch ex As Exception
- Alert($"Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
+ Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
ObjContratos.RollBack()
Finally
- Alert("Contrato actualizado correctamente")
ObjContratos.Dispose()
CargaDatos()
End Try
@@ -267,7 +299,7 @@ Partial Class RepContratoDetalle
AsientoSeleccionado = buttonID
TxtAsiento.Text = buttonID.Substring(1)
- UpBoletos.Update()
+ UpTabContainer.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
End Sub
Protected Sub UpdateBoleto(sender As Object, e As EventArgs)
@@ -292,8 +324,12 @@ Partial Class RepContratoDetalle
Finally
Alert("Su asiento fue actualizado correctamente")
ObjTransportes.Dispose()
- CargaDatos()
+
End Try
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
+ UpTabContainer.Update()
+ UpPasajeros.Update()
+ CargaDatos()
End Sub
Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
Dim ObjTransportes As New ClsTransportes
@@ -330,6 +366,7 @@ Partial Class RepContratoDetalle
ViajeActual = dt
End Sub
Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+
Dim dtResult As New DataTable()
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
@@ -346,21 +383,22 @@ Partial Class RepContratoDetalle
New ReportParameter("Celular", GvRow.DataKey("Celular")),
New ReportParameter("Importe", Math.Round(Importe, 1).ToString),
New ReportParameter("TipoBoleto", "Tipo Boleto"),
- New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
- New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
+ New ReportParameter("Agencia", "Agencia"),
+ New ReportParameter("TelefonoAgencia", "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 GvViajesPasajeros_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
Protected Sub EditarBoleto(sender As Object, e As EventArgs)
End Sub
Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
- DdlRuta.ClearSelection()
PnEditarViaje.Visible = True
PnEditarUsuario.Visible = False
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -384,14 +422,15 @@ Partial Class RepContratoDetalle
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, -1, CveEstatus:=-1, CveTipoContrato:=35) Then
For Each row As DataRow In ObjContratos.DtResultados.Rows
Dim fecha As DateTime = row("FechaInicial").ToString.ToDateTime
- ' Asigna los valores de la columna deseada al ListItem
+ 'Asigna los valores de la columna deseada al ListItem
Dim listItem As New ListItem(row("SubProyecto").ToString() + " - " + fecha.ToShortDateString + " - " + fecha.ToShortTimeString, row("CveContrato").ToString())
- ' Agrega el ListItem al DropDownList
+ 'Agrega el ListItem al DropDownList
DdlRuta.Items.Add(listItem)
Next
End If
DdlRuta.SelectedValue = GvRow.DataKey("CveViaje")
ObjContratos.Dispose()
+ UpTabContainer.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
End Sub
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb
index d7983b520..b99816534 100644
--- a/Transportes/RepViajes.aspx.vb
+++ b/Transportes/RepViajes.aspx.vb
@@ -1,8 +1,8 @@
Option Explicit On
Option Strict On
Imports System.Data
+Imports Extensiones
Imports Extensiones.ModExtensiones
-
Partial Class ListadoViajes
Inherits ClsPaginas
@@ -24,6 +24,8 @@ Partial Class ListadoViajes
End Set
End Property
#End Region
+
+#Region "Carga Página"
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -38,18 +40,7 @@ Partial Class ListadoViajes
DdlRutas.DataBind()
Dim ObjRutas As New ClsTransportes()
- 'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
- ' 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
- 'DdlRutas.DataSource = ObjRutas.DtResultados
- ' DdlRutas.DataBind()
- ' DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
- 'Lista Destinos'
If ObjRutas.GetDestinos() Then
If ObjRutas.DtResultados.Rows.Count > 0 Then
@@ -73,17 +64,12 @@ Partial Class ListadoViajes
End If
ObjContratos.Dispose()
GvContratos.DataBind()
- 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=35) Then
- ' GvContratos.DataSource = ObjContratos.DtResultados
- ' GvContratos.DataBind()
- 'End If
End Sub
-
+#End Region
Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click
MostrarModal()
End Sub
-
Public Sub MostrarModal()
'Generar Folio
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
@@ -104,10 +90,9 @@ Partial Class ListadoViajes
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
End Sub
-
Protected Sub AddViaje(sender As Object, e As EventArgs)
'Generador de Viajes Masivos
- Dim CveSubProyecto As Integer = DdlRutas.SelectedValue.ToEntero 'GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+ Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
If IsMasivo.Checked = True Then
If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)
@@ -136,13 +121,15 @@ Partial Class ListadoViajes
End If
'Agregamos contrato
ObjContratos.IniciaTransacSQL()
- If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
+ If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
ObjContratos.Commit()
End If
'Actualizamos Folio
+ ObjFolio.IniciaTransacSQL()
If ObjFolio.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
- ObjFolio.Dispose()
+ ObjFolio.Commit()
End If
+ ObjFolio.Dispose()
Next
Alert("Viajes Masivos generados correctamente.")
Catch ex As Exception
@@ -183,16 +170,17 @@ Partial Class ListadoViajes
TxtFechaViaje.Text = ""
'Actualizamos Folio
Dim ObjFolios As New ClsGralFolios
+ ObjFolios.IniciaTransacSQL()
If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
- ObjFolios.Dispose()
+ ObjFolios.Commit()
End If
+ ObjFolios.Dispose()
ObjContratos.Dispose()
CargaDatos()
End Try
End If
End Sub
-
Protected Sub ToggleMasivo(sender As Object, e As EventArgs)
DivFechaMasivo.Visible = IsMasivo.Checked
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))