diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index d1b7b42dc..07e43b962 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -135,7 +135,7 @@ Public Class ClsTransportes #End Region #Region "Boletos" - Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer + Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, CveVendedor As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, INE As String, FechaNacimiento As Date, Sexo As Boolean, Visa As String, VisaVigencia As Date, Celular As String, Observacion As String, CveUsuario As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Trans_ViajesPasajerosAdd") @@ -145,15 +145,18 @@ Public Class ClsTransportes .Add("@CveViaje", SqlDbType.Int).Value = CveViaje .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Asiento", SqlDbType.Int).Value = Asiento .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@Visa", SqlDbType.VarChar).Value = Visa - .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@INE", SqlDbType.VarChar).Value = INE + .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento .Add("@Sexo", SqlDbType.Bit).Value = Sexo + .Add("@Visa", SqlDbType.VarChar).Value = Visa + .Add("@VisaVigencia", SqlDbType.Date).Value = VisaVigencia + .Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@Observacion", SqlDbType.VarChar).Value = Observacion .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor End With diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index 81bc24dfe..52d4f6030 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -114,9 +114,9 @@
-
+
- -
+
- - + + + +
+
+ +
+
+ + +
-
+
@@ -146,23 +159,50 @@
-
+
- - + - + +
+
+ +
+
+ + + +
+
+
+ +
+
+
+ + + +
+
+
+
+ + +
-
- - - -
@@ -237,7 +277,7 @@
<%-- Botón para Agregar Pasajero(Oculto) --%>
-
+

information: Los boletos están siendo apartados hasta finalizar su compra
+ GridLines="None" DataKeyNames="Nombre,Visa,Asiento, INE"> - + + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index d46b13d25..3e4f63084 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -59,6 +59,7 @@ Partial Class Boletos #End Region +#Region "Carga Página" Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then @@ -88,7 +89,10 @@ Partial Class Boletos DtPasajeros.Columns.Add("CveViajePasajero", GetType(Integer)) DtPasajeros.Columns.Add("Numero", GetType(Integer)) DtPasajeros.Columns.Add("Nombre", GetType(String)) + DtPasajeros.Columns.Add("INE", GetType(String)) DtPasajeros.Columns.Add("Visa", GetType(String)) + DtPasajeros.Columns.Add("VisaVigencia", GetType(Date)) + DtPasajeros.Columns.Add("FechaNacimiento", GetType(Date)) DtPasajeros.Columns.Add("Sexo", GetType(String)) DtPasajeros.Columns.Add("CveSexo", GetType(Integer)) DtPasajeros.Columns.Add("Celular", GetType(String)) @@ -140,29 +144,15 @@ Partial Class Boletos If ObjDestinos.GetDestinosTarifas(CveSubProyecto, -1, -1) Then If ObjDestinos.DtResultados.Rows.Count > 0 Then DtDestinos = ObjDestinos.DtResultados - DdlPartida.DataSource = DtDestinos.FiltraParametros("", DistinctColumns:={"CveDestinoOrigen", "Partida"}) - DdlPartida.DataBind() + DdlPartida.DataSource = DtDestinos.FiltraParametros("", DistinctColumns:={"CveDestinoOrigen", "Partida"}) : DataBind() DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", "-1")) - - 'DdlDestino.DataSource = DtDestinos - 'DdlDestino.DataBind() - 'DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "-1")) End If End If - 'If ObjDestinos.GetDestinos(CveSubProyecto:=CveSubProyecto) Then - ' If ObjDestinos.DtResultados.Rows.Count > 0 Then - ' DdlPartida.DataSource = ObjDestinos.DtResultados - ' DdlPartida.DataBind() - ' DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", "-1")) - - ' DdlDestino.DataSource = ObjDestinos.DtResultados - ' DdlDestino.DataBind() - ' DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "-1")) - ' End If - 'End If ObjDestinos.Dispose() End Sub +#End Region + Protected Sub CotizarTarifa() If DdlDestino.SelectedValue <> "-1" And DdlPartida.SelectedValue <> "-1" Then Dim ImporteR As Decimal = 0 @@ -170,7 +160,18 @@ Partial Class Boletos Dim CveSubProyecto As Integer = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero If ObjDestinos.GetDestinosTarifas(CveSubProyecto, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Then - ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL + Dim fechaHoy As Date = Date.Today + Dim fechaNacimiento As Date = TxtFechaNacimiento.Text.ToDate + Dim edad As Integer + + ' Calcular la diferencia en años entre la fecha actual y la fecha de nacimiento + edad = CInt(DateDiff(DateInterval.Year, fechaNacimiento, fechaHoy)) + If edad < 8 Or edad > 65 Then + ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL - 20 + Else + ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL + + End If End If If ImporteR > 0 Then ViewState("Importe") = ImporteR @@ -216,22 +217,9 @@ Partial Class Boletos Try For Each dr As DataRow In DtPasajeros.Rows - Dim Nombre, Visa, Celular, Obs, Asiento As String - Dim Sexo As Boolean - Dim Importe As Decimal = 0 - Dim CveDestinoOrigen, CveDestinoFinal As Integer - CveDestinoOrigen = dr("CveDestinoOrigen").ToString.ToEntero - CveDestinoFinal = dr("CveDestinoFinal").ToString.ToEntero - Importe = dr("Importe").ToString.ToDecimal - Asiento = dr("Asiento").ToString - Nombre = dr("Nombre").ToString - Visa = dr("Visa").ToString - Celular = dr("Celular").ToString - Sexo = dr("CveSexo").ToString.ToBool - Obs = dr("Observaciones").ToString - Dim CveViajePasajero = ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) + Dim CveViajePasajero As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, dr("CveDestinoOrigen").ToString.ToEntero, dr("CveDestinoFinal").ToString.ToEntero, UsuarioActual.CveVendedor, dr("Importe").ToString.ToDecimal, dr("Asiento").ToString.ToEntero, dr("Nombre").ToString, dr("INE").ToString, dr("FechaNacimiento").ToString.ToDate, dr("CveSexo").ToString.ToBool, dr("Visa").ToString, dr("VisaVigencia").ToString.ToDate, dr("Celular").ToString, dr("Observaciones").ToString, UsuarioActual.CveUsuario) If CveViajePasajero < 1 Then TieneError = True @@ -328,6 +316,12 @@ Partial Class Boletos DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "-1")) End Sub Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDestino.SelectedIndexChanged + If TxtFechaNacimiento.Text = "" Then + DdlDestino.SelectedValue = "-1" + DdlPartida.SelectedValue = "-1" + Alert("Debe seleccionar la fecha de nacimiento", TipoMensaje.MsgAdvertencia) + Exit Sub + End If CotizarTarifa() End Sub Private Sub GeneraPasajeros(Cantidad As Integer) @@ -353,24 +347,30 @@ Partial Class Boletos Exit Sub End If Dim Dr1 As DataRow = DtPasajeros.NewRow - Dr1("Asiento") = AsientoSeleccionado.Replace("A", "") - Dr1("Nombre") = TxtNombre.Text.Trim - Dr1("Visa") = TxtVisa.Text.Trim - Dr1("Sexo") = RblSexo.SelectedItem - Dr1("CveSexo") = RblSexo.SelectedValue.ToBool - Dr1("Celular") = TxtCelular.Text.Trim - Dr1("Observaciones") = TxtObservaciones.Text.Trim Dr1("Partida") = DdlPartida.SelectedItem Dr1("Destino") = DdlDestino.SelectedItem Dr1("CveDestinoOrigen") = DdlPartida.SelectedValue.ToEntero Dr1("CveDestinoFinal") = DdlDestino.SelectedValue.ToEntero Dr1("Importe") = Me.Importe + Dr1("Asiento") = AsientoSeleccionado.Replace("A", "") + Dr1("Nombre") = TxtNombre.Text.Trim + Dr1("INE") = TxtINE.Text.Trim + Dr1("FechaNacimiento") = TxtFechaNacimiento.Text.Trim + Dr1("Sexo") = RblSexo.SelectedItem + Dr1("CveSexo") = RblSexo.SelectedValue.ToBool + Dr1("Visa") = TxtVisa.Text.Trim + Dr1("VisaVigencia") = TxtVisaVigencia.Text.Trim + Dr1("Celular") = TxtCelular.Text.Trim + Dr1("Observaciones") = TxtObservaciones.Text.Trim + 'Reiniciamos Datos' DtPasajeros.Rows.Add(Dr1) AsientoSeleccionado = "" TxtNombre.Text = "" + TxtINE.Text = "" + TxtFechaNacimiento.Text = "" TxtVisa.Text = "" - TxtCelular.Text = "" + TxtVisaVigencia.Text = "" TxtCelular.Text = "" TxtObservaciones.Text = "" GvB.DataSource = DtPasajeros @@ -408,7 +408,7 @@ Partial Class Boletos Return Retorno End If - Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, -1, CveCliente, CveMoneda, "Rem") + Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, -1, CveCliente, CveMoneda, "Rem") If ObjFactura IsNot Nothing Then 'TOMA EL SUBPROYECTO DEL CLIENTE @@ -426,8 +426,8 @@ Partial Class Boletos ObjFactura.SetSubProyectoMatriz() For Each Dr As DataRow In DtPasajeros.Rows - Dim Obs = Dr("Observaciones").ToString - Dim Importe = Dr("Importe").ToString.ToDecimal() + Dim Obs As String = Dr("Observaciones").ToString + Dim Importe As Decimal = Dr("Importe").ToString.ToDecimal() If Importe <= 0 Then Retorno.Mensajes.Add("El importe debe ser mayor a 0") @@ -477,8 +477,5 @@ Partial Class Boletos Return Retorno End Function - 'Protected Sub TimerActualizar_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles timerActualizar.Tick - ' ScriptManager.RegisterStartupScript(Me, Me.GetType(), "ActualizarTiempo", "actualizarTiempo();", True) - ' UpTimer.Update() - 'End Sub + End Class diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 8591d596e..945d85a0d 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -266,25 +266,29 @@
-
- +
+
-
- + + +
-
-
-
- -
- -
-
- + + + + +
- +
@@ -301,13 +305,13 @@
-
-
- - +
+ + +
<%-- Contrato Digitalizado --%> @@ -320,7 +324,7 @@
- Contrato Digitalizado + Contrato Digitalizado
@@ -349,6 +353,30 @@
+ <%-- Bitácora --%> +
+
+
+
+ +
+
+ Bitácora +
+
+
+ + + + + + +
+
+
@@ -574,6 +602,10 @@ <%-- Asientos --%> +
+ + +
0 Then - Dim Dolares As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal + Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal @@ -136,8 +140,7 @@ Partial Class RepContratoDetalle TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString) - TxtDolares.Text = Math.Round(Dolares, 2).ToString - TxtPesos.Text = Math.Round(Pesos, 2).ToString + TxtImporte.Text = Math.Round(Importe, 2).ToString TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString 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 @@ -158,6 +161,14 @@ Partial Class RepContratoDetalle ObjTransportes.Dispose() GvViajesPasajeros.DataBind() End If + 'Bitácora + Dim ObjEventoBitacora As New ClsOIEventos + If ObjEventoBitacora.GetEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then + GvEventosBitacora.DataSource = ObjEventoBitacora.DtResultados + GvEventosBitacora.DataBind() + End If + ObjEventoBitacora.Dispose() + End If Else ObjContratos.Dispose() @@ -245,8 +256,7 @@ Partial Class RepContratoDetalle Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() Try - '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 + 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, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then Alert("Contrato actualizado correctamente") End If ObjContratos.Commit() @@ -255,6 +265,7 @@ Partial Class RepContratoDetalle ObjContratos.RollBack() Finally ObjContratos.Dispose() + AgregarABitacora($"Actualización del contrato {CveContrato}") CargaDatos() End Try End Sub @@ -264,12 +275,16 @@ Partial Class RepContratoDetalle If CveMasivo <> 0 Then If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa, CveMasivo:=CveMasivo) Then Alert("Viajes masivos eliminados correctamente") + AgregarABitacora($"Eliminación del contrato {CveContrato}") + ObjContratos.Dispose() Response.Redirect("RepViajes.aspx") End If Else If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa) Then Alert("Viaje eliminado correctamente") + AgregarABitacora($"Eliminación de contratos masivos con clave {CveMasivo}") + ObjContratos.Dispose() Response.Redirect("RepViajes.aspx") End If @@ -296,13 +311,24 @@ Partial Class RepContratoDetalle New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")), New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), New ReportParameter("TipoAF", DdlTipoAF.Text), - New ReportParameter("Dolares", Math.Round(TxtDolares.Text.ToDecimal, 2).ToString), - New ReportParameter("Pesos", Math.Round(TxtPesos.Text.ToDecimal, 2).ToString), + New ReportParameter("Importe", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString) } ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato") End Sub + Protected Sub AgregarABitacora(Descripcion As String) + Dim ObjEventoBitacora As New ClsOIEventos + + Dim FileExtension As String = "-1" + + If ObjEventoBitacora.AddEventoBitacora(Descripcion, FileExtension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then + Alert("Evento agregado a bitácora correctamente", TipoMensaje.MsgInformacion) + + End If + ObjEventoBitacora.Dispose() + + End Sub #End Region #Region "Boletos" @@ -324,6 +350,8 @@ Partial Class RepContratoDetalle RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar")) End Sub Protected Sub UpdateBoleto(sender As Object, e As EventArgs) + + If PnEditarViaje.Visible = True Then For Each boleto As DataRow In ViajeActual.Rows If (boleto.Item("Asiento").ToString = TxtAsiento.Text) Then @@ -346,6 +374,8 @@ Partial Class RepContratoDetalle ObjTransportes.RollBack() Finally Alert("Su asiento fue actualizado correctamente") + AgregarABitacora($"Cambio de asiento del pasajero {CveViajePasajero} del asiento al {TxtAsiento.Text} del contrato {CveContrato}") + ObjTransportes.Dispose() End Try @@ -513,6 +543,15 @@ Partial Class RepContratoDetalle Alert($"No se pudo cambiar el estatus del boleto", TipoMensaje.MsgError) Finally ObjTransportes.Dispose() + Dim toggleEstatus As String + If CBool(RblSexo.SelectedValue) Then + toggleEstatus = "Cancelación" + Else + toggleEstatus = "Reactivación" + + End If + AgregarABitacora($"{toggleEstatus} del asiento {TxtAsiento.Text} del viaje {CveContrato} con clave de pasajero {CveViajePasajero}") + CargaDatos() End Try UpPasajeros.Update() diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 1e626144c..c60a2f43b 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -227,7 +227,7 @@ + @@ -445,44 +497,7 @@ - <%-- Modal Archivo--%> - - - - - diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index a56d3dd91..135ddb22d 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -19,7 +19,6 @@ Partial Class ListadoContratos End Set End Property #End Region - #Region "Carga Página" Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString @@ -34,7 +33,8 @@ Partial Class ListadoContratos 'Lista Tipo AF DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)") DdlTipoAF.DataBind() - DdlTipoAF.Items.Insert(0, New ListItem("-", "")) + DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoAF.SelectedValue = "-1" DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)") DdlTipoUnidad.DataBind() @@ -74,6 +74,21 @@ Partial Class ListadoContratos UpTitulos.Update() End Sub #End Region +#Region "Contrato" + Protected Sub OnChangePasajeros(sender As Object, e As EventArgs) + If TxtCantidadPasajeros.Text.ToDecimal > 19 Then + Dim sprintersItem As ListItem = DdlTipoAF.Items.FindByText("Sprinter") + If sprintersItem IsNot Nothing Then + DdlTipoAF.Items.Remove(sprintersItem) + End If + Else + Dim sprintersItem As ListItem = DdlTipoAF.Items.FindByText("Sprinter") + If sprintersItem Is Nothing Then + DdlTipoAF.Items.Add(New ListItem("Sprinter", "183")) + End If + + End If + End Sub Protected Sub AddContrato(sender As Object, e As EventArgs) If DdlClientes.SelectedValue = "" Then @@ -85,7 +100,7 @@ Partial Class ListadoContratos 'Agregamos Contrato Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - 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 + 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, -1, TxtImporte.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() Alert("Agregado Correctamente.") End If @@ -105,8 +120,7 @@ Partial Class ListadoContratos TxtUbicacion.Text = "" DdlClientes.SelectedText = "" DdlTipoAF.SelectedValue = "" - TxtDolares.Text = "" - TxtPesos.Text = "" + TxtImporte.Text = "" TxtAnticipo.Text = "" TxtCantidadPasajeros.Text = "" LbArchivo.Text = "" @@ -188,10 +202,10 @@ Partial Class ListadoContratos Next - UpArchivo.Update() UpModal.Update() - RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") End Sub +#End Region + End Class