+
+
+
+
+
+
+ <%-- 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
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index ecd30bce7..a36e18d48 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -2,11 +2,8 @@
Option Strict On
Imports System.Data
-Imports System.Web.Compilation
Imports Extensiones
Imports Microsoft.Reporting.WebForms
-Imports System.Xml.Serialization
-Imports System.IO
Imports System.Xml
Partial Class Ventas_RepVentas
@@ -116,20 +113,6 @@ Partial Class Ventas_RepVentas
If UsuarioActual.CveEmpresa = 72 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1614, 1517) Then
liRepHP.Visible = True
End If
-
- 'SI ES EL USUARIO SISTEMA MOSTRAR LA MODALIDAD CONTABLE (TEMPORAL)
- 'If UsuarioActual.CveUsuario = 100 Then
- 'divModalidadcontable.Visible = True
- 'End If
-
- 'Modalidad Cotizacion
- If Opcion = "Cot" Then
- DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
- DdlGrupo.SelectedValueExist("7")
- DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
- 'DdlEstatus.SelectedValue = "-1"
- End If
-
CargaGrupo()
If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
@@ -147,8 +130,14 @@ Partial Class Ventas_RepVentas
DVServicioDomicilio.Visible = True
DivLblDistr.Visible = True
DivDistr.Visible = True
+ 'Modalidad Cotizacion
+ If Opcion = "Cot" Then
+ DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
+ DdlGrupo.SelectedValueExist("7")
+ DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
+ DdlEstatus.ClearSelection()
+ End If
End If
-
PrePersonalizacion()
CargaPersonalizacion()
@@ -297,11 +286,8 @@ Partial Class Ventas_RepVentas
Agrupador = DdlGrupo.SelectedItem.Text
CveProyecto = DdlProyecto.SelectedValue.ToEntero
ObjVentas.Dispose()
-
-
GvDatosDataBind()
-
Primeracontsulta = False
End Sub
@@ -998,22 +984,16 @@ Partial Class Ventas_RepVentas
Protected Sub LnkDescargaCartaPorte_Click(sender As Object, e As EventArgs)
-
Dim ObjVentas As New ClsVentas
Dim DTDataos As New DataTable
Dim CveSubProyectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
-
If ObjVentas.GetListadoCartaPorteRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveSubProyectos, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
DTDataos = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
-
-
DTDataos.ExportToExcel("RepCartasPorte")
-
-
End Sub
Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click