+
+
+
+
+
+
+ <%-- Datos del Boleto --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- Asientos --%>
+
+
+
+
+
+
+
+ |
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+
+ |
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index b0b24992f..f9a781a59 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -26,6 +26,22 @@ Partial Class RepContratoDetalle
ViewState("Contrato") = value
End Set
End Property
+ Private Property SubProyecto As String
+ Get
+ Return CType(ViewState("SubProyecto"), String)
+ End Get
+ Set(value As String)
+ ViewState("SubProyecto") = value
+ End Set
+ End Property
+ Private Property AsientoSeleccionado As String
+ Get
+ Return ViewState("AsientoSeleccionado").ToString()
+ End Get
+ Set(value As String)
+ ViewState("AsientoSeleccionado") = value
+ End Set
+ End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Request("CveContrato") Is Nothing Then
Response.Redirect($"~/Transportes/RepContratos.aspx")
@@ -49,6 +65,7 @@ Partial Class RepContratoDetalle
If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
Contrato = ObjContratos.DtResultados
If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
+ SubProyecto = Contrato.Rows(0)("SubProyecto").ToString
LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
@@ -105,6 +122,55 @@ Partial Class RepContratoDetalle
End Try
End Sub
+ Protected Sub EditarBoleto(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ LbPartida.Text = GvRow.DataKey("Partida").ToString()
+ LbDestino.Text = GvRow.DataKey("Destino").ToString()
+ LbImporte.Text = GvRow.DataKey("Importe").ToString()
+ LbNombre.Text = GvRow.DataKey("Nombre").ToString()
+ LbVisa.Text = GvRow.DataKey("Visa").ToString()
+ LbCelular.Text = GvRow.DataKey("Celular").ToString()
+ LbObservacion.Text = GvRow.DataKey("Observacion").ToString()
+ LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
+ LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
+ LbAsiento.Text = GvRow.DataKey("Asiento").ToString()
+
+ 'Seleccionamos la ruta que tiene el usuario actual
+ DdlRuta.ClearSelection()
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, -1, CveEstatus:=-1, CveTipoContrato:=35) Then
+ For Each row As DataRow In ObjContratos.DtResultados.Rows
+ ' Asigna los valores de la columna deseada al ListItem
+ Dim listItem As New ListItem(row("CveContrato").ToString(), row("CveContrato").ToString())
+
+ ' Agrega el ListItem al DropDownList
+ DdlRuta.Items.Add(listItem)
+ Next
+ End If
+ ObjContratos.Dispose()
+ RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
+ End Sub
+
+ Protected Sub UpdateBoleto(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
+ 'quitamos la selección anterior, en caso de existir.
+ If AsientoSeleccionado <> "" Then
+ Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
+ Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton)
+ lnk.CssClass = "disponible"
+ End If
+
+ Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
+ Dim buttonID As String = linkButton.ID
+ linkButton.CssClass += " activo"
+ AsientoSeleccionado = buttonID
+
+ UpBoletos.Update()
+ 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)
@@ -112,7 +178,7 @@ Partial Class RepContratoDetalle
Dim Importe As Decimal = GvRow.DataKey("Importe").ToDecimal
Dim params As New List(Of ReportParameter) From {
- New ReportParameter("Ruta", GvRow.DataKey("Ruta")),
+ New ReportParameter("Ruta", SubProyecto),
New ReportParameter("Origen", GvRow.DataKey("Partida")),
New ReportParameter("Destino", GvRow.DataKey("Destino")),
New ReportParameter("FechaSalida", Fecha.ToShortDateString()),
@@ -132,6 +198,8 @@ Partial Class RepContratoDetalle
'Empresas/188/Formatos/Boleto.mrt
End Sub
+
+
End Class