--Agregar pasajeros y timer
This commit is contained in:
AbrahamCastilloV
@@ -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} <br/>", 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} <br/>", 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
|
||||
|
||||
Reference in New Issue
Block a user