--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.

2024-03-06 17:18:05 -07:00
parent c263a34ab5
commit eb94bcabb4
7 changed files with 183 additions and 191 deletions
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -110,7 +110,7 @@ Partial Class RepContratoDetalle
        'Lista Tipo AF
        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
        DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("-", "0"))
+        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
    End Sub
    Private Sub CargaDatos()
        'Información General
@@ -131,7 +131,7 @@ Partial Class RepContratoDetalle
                TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
                TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").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
                TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
                TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
@@ -151,7 +151,6 @@ Partial Class RepContratoDetalle
                    If ObjTransportes.GetViajesPasajeros(CveContrato) Then
                        GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
                        BusquedaSeleccionada(ObjTransportes.DtResultados)
-
                    End If
                    ObjTransportes.Dispose()
                    GvViajesPasajeros.DataBind()
@@ -315,7 +314,7 @@ Partial Class RepContratoDetalle
        Try
            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()
            End If
        Catch ex As ArgumentException
@@ -326,10 +325,9 @@ Partial Class RepContratoDetalle
            ObjTransportes.Dispose()

        End Try
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
-        UpTabContainer.Update()
-        UpPasajeros.Update()
+
        CargaDatos()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
    End Sub
    Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
        Dim ObjTransportes As New ClsTransportes
@@ -363,6 +361,8 @@ Partial Class RepContratoDetalle
                End If
            Next
        End If
+        UpTabContainer.Update()
+
        ViajeActual = dt
    End Sub
    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
@@ -396,23 +396,45 @@ Partial Class RepContratoDetalle
        End If
    End Sub
    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)

        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")
-        LbNombre.Text = GvRow.DataKey("Nombre").ToString()
-        LbVisa.Text = GvRow.DataKey("Visa").ToString()
-        LbCelular.Text = GvRow.DataKey("Celular").ToString()
-        LbSexo.Text = GvRow.DataKey("Sexo").ToString()
-        LbObservacion.Text = GvRow.DataKey("Observacion").ToString()
-        LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
+        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()
+
+        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()
        TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()

@@ -439,21 +461,21 @@ Partial Class RepContratoDetalle
        LbPartida.Text = GvRow.DataKey("Partida").ToString()
        LbDestino.Text = GvRow.DataKey("Destino").ToString()
        LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
-        LbNombre.Text = GvRow.DataKey("Nombre").ToString()
-        LbVisa.Text = GvRow.DataKey("Visa").ToString()
-        LbCelular.Text = GvRow.DataKey("Celular").ToString()
-        LbSexo.Text = GvRow.DataKey("Sexo").ToString()
-        LbObservacion.Text = GvRow.DataKey("Observacion").ToString()
-        LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
+        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()
        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
        Try
            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
-                Alert($"El boleto ha modificado el estatus de su boleto correctamente.")
+            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("Se ha modificado el estatus de su boleto correctamente.")

                ObjTransportes.Commit()
            End If
@@ -465,6 +487,7 @@ Partial Class RepContratoDetalle
            ObjTransportes.Dispose()
            CargaDatos()
        End Try
+        UpPasajeros.Update()
    End Sub
 #End Region