diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index 5acd858d8..3b831d553 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -53,7 +53,7 @@ display: inline-block; width: 45px; height: 45px; - background-color: #ff6a00; + background-color: #C49F47; border-radius: 10px !important; margin: 5px; cursor: pointer; @@ -85,46 +85,56 @@ + <%-- Boleto --%> -
+
<%-- Datos del Cliente --%>
-
- - Datos del Pasajero - - -
-
-
+
+
+ + Datos del Pasajero + +
+ +
+ + +

+ + + +
-
- - - - -
+
+
+
+ + + +
-
-
+
+ +
-
+
@@ -136,6 +146,7 @@
+
@@ -225,7 +236,7 @@
<%-- Botón para Agregar Pasajero(Oculto) --%> -
+
@@ -237,6 +248,9 @@ + + + @@ -247,18 +261,13 @@
<%--OnClick="FinalizarVenta"--%> -
-
-
- -
-
+
+
<%-- Asientos --%> -
+
@@ -516,6 +525,18 @@ + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index d7fbe804a..0c8321815 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,9 +1,9 @@ Option Explicit On Option Strict On Imports System.Data +Imports ADSNetLibrary.Helpers Imports Extensiones Imports Extensiones.ModExtensiones - Partial Class Boletos Inherits ClsPaginas #Region "Propiedades" @@ -79,13 +79,16 @@ Partial Class Boletos DtPasajeros.Columns.Add("Numero", GetType(Integer)) DtPasajeros.Columns.Add("Nombre", GetType(String)) DtPasajeros.Columns.Add("Visa", GetType(String)) + DtPasajeros.Columns.Add("Sexo", GetType(String)) + DtPasajeros.Columns.Add("CveSexo", GetType(Integer)) + DtPasajeros.Columns.Add("Celular", GetType(String)) + DtPasajeros.Columns.Add("Observaciones", GetType(String)) DtPasajeros.Columns.Add("Partida", GetType(String)) DtPasajeros.Columns.Add("Destino", GetType(String)) + DtPasajeros.Columns.Add("CveDestinoOrigen", GetType(Integer)) + DtPasajeros.Columns.Add("CveDestinoFinal", GetType(Integer)) DtPasajeros.Columns.Add("Asiento", GetType(String)) - DtPasajeros.Columns.Add("Celular", GetType(String)) DtPasajeros.Columns.Add("Importe", GetType(Decimal)) - DtPasajeros.Columns.Add("Observaciones", GetType(String)) - InicializaCombos() 'Boletos Vendidos @@ -156,10 +159,10 @@ Partial Class Boletos ViewState("Importe") = 0 BtnAgregarPasajero.Visible = False LbCostos.Visible = False - Alert("No se encontro una tarifa para esta ruta", TipoMensaje.MsgAdvertencia) + Alert("No se encontro una tarifa para estos destinos", TipoMensaje.MsgAdvertencia) End If Catch ex As Exception - Alert("No se encontro una tarifa para esta ruta", TipoMensaje.MsgAdvertencia) + Alert("No se encontro una tarifa para estos destinos", TipoMensaje.MsgAdvertencia) ObjDestinos.RollBack() Finally ObjDestinos.Dispose() @@ -182,94 +185,96 @@ Partial Class Boletos UpPanel.Update() End Sub - 'Protected Sub FinalizarVenta(sender As Object, e As EventArgs) - ' Dim SbAlert As New StringBuilder() - ' Dim Retorno As New Modelos.Factura.MMensajeFactura() + Protected Sub FinalizarVenta(sender As Object, e As EventArgs) - ' Dim ObjTransporte As New ClsTransportes() - ' ObjTransporte.IniciaTransacSQL() + Dim SbAlert As New StringBuilder() + Dim Retorno As New Modelos.Factura.MMensajeFactura() - ' Dim TieneError As Boolean = False + Dim ObjTransporte As New ClsTransportes() + ObjTransporte.IniciaTransacSQL() - ' Try - ' For Each dr As DataRow In DtPasajeros.Rows 'gvr As GridViewRow In GvB.Rows - ' Dim Nombre, Visa, Celular, Obs, Asiento As String - ' Dim Sexo As Boolean = False - ' Dim Importe As Decimal = 0 + Dim TieneError As Boolean = False - ' Nombre = dr("Nombre").ToString - ' Visa = dr("Visa").ToString - ' Celular = dr("Celular").ToString - ' Obs = dr("Observaciones").ToString - ' Asiento = dr("Asiento").ToString - ' Importe = dr("Importe").ToString.ToDecimal + 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 - ' '.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text - ' If Not ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then - ' TieneError = True - ' SbAlert.Append("Ocurrió un error al generar el viaje") - ' End If - ' Next + 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 - ' If Not TieneError Then - ' Retorno = CrearRemision(ObjTransporte) - ' End If + If ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then + ObjTransporte.Commit() + End If + Next + DtPasajeros.Clear() - ' If Retorno IsNot Nothing Then - ' TieneError = Retorno.TieneError + If Not TieneError Then + Retorno = CrearRemision(ObjTransporte) + End If - ' If Not TieneError Then - ' If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then - ' SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) - ' Else - ' TieneError = True - ' SbAlert.Append("Ocurrió un error al generar la factura") - ' End If + If Retorno IsNot Nothing Then + TieneError = Retorno.TieneError - ' If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then - ' For Each Mensaje As String In Retorno.Mensajes - ' SbAlert.AppendFormat("{0}
", Mensaje) - ' Next - ' Else - ' TieneError = True - ' End If - ' End If - ' Else - ' TieneError = True - ' SbAlert.Append("Ocurrió un error al generar la factura") - ' End If + If Not TieneError Then + If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then + SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) + Else + TieneError = True + SbAlert.Append("Ocurrió un error al generar la factura") + End If - ' If SbAlert.Length = 0 Then - ' SbAlert.Append("Ocurrió un error al generar la factura") - ' End If + If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then + For Each Mensaje As String In Retorno.Mensajes + SbAlert.AppendFormat("{0}
", Mensaje) + Next + Else + TieneError = True + End If + End If + Else + TieneError = True + SbAlert.Append("Ocurrió un error al generar la factura") + End If - ' Catch ex As Exception - ' TieneError = True - ' SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString()) - ' GuardaLog(ex.ToString()) - ' Finally - ' If TieneError Then - ' ObjTransporte.RollBack() - ' ObjTransporte.Dispose() - ' Else - ' SbAlert.Append("El boleto se genero correctamente") - ' ObjTransporte.Commit() - ' ObjTransporte.Dispose() + If SbAlert.Length = 0 Then + SbAlert.Append("Ocurrió un error al generar la factura") + End If - ' DdlPartida.SelectedValueExist("-1") - ' DdlDestino.SelectedValueExist("-1") - ' AsientoSeleccionado = "" - ' CargaDatos() - ' End If + Catch ex As Exception + TieneError = True + SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString()) + GuardaLog(ex.ToString()) + Finally + If TieneError Then + ObjTransporte.RollBack() + ObjTransporte.Dispose() + Else + SbAlert.Append("El boleto se genero correctamente") + ObjTransporte.Dispose() - ' Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False) + DdlPartida.SelectedValueExist("-1") + DdlDestino.SelectedValueExist("-1") + AsientoSeleccionado = "" + CargaDatos() + End If - ' UpPanel.Update() - ' End Try + Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False) - 'End Sub + End Try + UpPanel.Update() + End Sub Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPartida.SelectedIndexChanged CotizarTarifa() @@ -279,10 +284,6 @@ Partial Class Boletos CotizarTarifa() End Sub - Protected Sub BtnNumPasajeros_Click(sender As Object, e As EventArgs) - ' GeneraPasajeros(TxtNumPasajeros.Text.ToEntero) - End Sub - Private Sub GeneraPasajeros(Cantidad As Integer) DtPasajeros.Clear() For i As Integer = 1 To Cantidad @@ -306,18 +307,27 @@ Partial Class Boletos Alert("No hay un importe asignado.") 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("Partida") = DdlPartida.SelectedTextExist - Dr1("Destino") = DdlPartida.Text - 'asiento + 'Reiniciamos Datos' DtPasajeros.Rows.Add(Dr1) AsientoSeleccionado = "" - + TxtNombre.Text = "" + TxtVisa.Text = "" + TxtCelular.Text = "" + TxtCelular.Text = "" + TxtObservaciones.Text = "" GvB.DataSource = DtPasajeros GvB.DataBind() @@ -331,55 +341,60 @@ Partial Class Boletos lnk.ToolTip = dr("Nombre").ToString End If Next - + BtnGuardar.Visible = True UpPanel.Update() End Sub - 'Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura - ' Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing + Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura + Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing - ' Dim CveCliente As Integer = 1154164 - ' Dim CveMoneda As Integer = 2 - ' Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() + Dim CveCliente As Integer = 1154164 + Dim CveMoneda As Integer = 2 + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() - ' If CveCliente <= 0 Then - ' Retorno.Mensajes.Add("No se pudo cargar el cliente") - ' Return Retorno - ' End If + If CveCliente <= 0 Then + Retorno.Mensajes.Add("No se pudo cargar el cliente") + Return Retorno + End If - ' If CveSubProyecto <= 0 Then - ' Retorno.Mensajes.Add("No se pudo cargar el subproyecto") - ' Return Retorno - ' End If + If CveSubProyecto <= 0 Then + Retorno.Mensajes.Add("No se pudo cargar el subproyecto") + Return Retorno + End If - ' Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, CveCliente, CveMoneda, "Rem") + Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, CveCliente, CveMoneda, "Rem") - ' Dim CvePSBoleto As Integer = 912720 + Dim CvePSBoleto As Integer = 912720 - ' For Each Dr As DataRow In DtPasajeros.Rows - ' Dim Obs = Dr("Nombre").ToString - ' Dim Importe = Dr("Importe").ToString.ToDecimal() - ' If Importe <= 0 Then - ' Retorno.Mensajes.Add("El importe debe ser mayor a 0") - ' Return Retorno - ' End If + For Each Dr As DataRow In DtPasajeros.Rows + Dim Obs = Dr("Nombre").ToString + Dim Importe = Dr("Importe").ToString.ToDecimal() + If Importe <= 0 Then + Retorno.Mensajes.Add("El importe debe ser mayor a 0") + Return Retorno + End If - ' ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0) - ' Next + ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0) + Next - ' ObjFactura.CalculaTotales() + ObjFactura.CalculaTotales() - ' Try - ' Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) - ' Catch ex As Exception - ' Retorno = Nothing - ' GuardaLog(ex.ToString()) - ' End Try + Try + Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) + Catch ex As Exception + Retorno = Nothing + GuardaLog(ex.ToString()) + End Try - ' If ObjFactura IsNot Nothing Then - ' ObjFactura.Dispose() - ' End If + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + End If - ' Return Retorno - 'End Function + 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/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb index 050ad184b..83207d813 100644 --- a/Transportes/RepViajes.aspx.vb +++ b/Transportes/RepViajes.aspx.vb @@ -127,7 +127,7 @@ Partial Class ListadoViajes End If 'Agregamos contrato ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then ObjContratos.Commit() End If 'Actualizamos Folio