AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Agregar pasajeros y timer

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-02-18 14:54:00 -07:00
parent 863128bc66
commit 991c4d0860
3 changed files with 192 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
Transportes/Boletos.aspx
View File

@@ -53,7 +53,7 @@
display: inline-block; display: inline-block;
width: 45px; width: 45px;
height: 45px; height: 45px;
background-color: #ff6a00; background-color: #C49F47;
border-radius: 10px !important; border-radius: 10px !important;
margin: 5px; margin: 5px;
cursor: pointer; cursor: pointer;
@@ -85,46 +85,56 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpPanel"> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpPanel">
<ContentTemplate> <ContentTemplate>
<%-- Boleto --%> <%-- Boleto --%>
<div class="col-md-8"> <div class="col-md-9">
<%-- Datos del Cliente --%> <%-- Datos del Cliente --%>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<div class="portlet light xspadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="row">
<i class="fa fa-users font-green"></i> <div class="caption font-green col-md-8">
<span class="caption-subject bold uppercase">Datos del Pasajero <i class="fa fa-users font-green"></i>
<asp:Label ID="LblNum" runat="server" Text='<%# Eval("Numero") %>'></asp:Label> <span class="caption-subject bold uppercase">Datos del Pasajero
</span> </span>
</div> </div>
<div class="actions">
<div class="btn-group"> <div class="col-md-4">
<asp:UpdatePanel runat="server" ID="UpTimer" UpdateMode="Conditional">
<ContentTemplate>
<asp:Label ID="lblTiempo" runat="server" Text="00:00:00"></asp:Label></p>
<asp:Timer ID="timerActualizar" runat="server" Interval="1000" OnTick="TimerActualizar_Tick" Enabled="False">
</asp:Timer>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body form"> <div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright "> <div class="row">
<asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200" <div class="col-md-6">
ClientIDMode="Static"></asp:TextBox> <div class="form-group form-md-line-input input-iconrigh">
<asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre" <asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200"
CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ClientIDMode="Static"></asp:TextBox>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre"
<label>Nombre:</label> CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo."
<i></i> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> <label>Nombre:</label>
</div>
<div class="row "> </div>
<div class="col-md-12">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox> <asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
<label>Visa:</label> <label>Visa:</label>
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -136,6 +146,7 @@
<i></i> <i></i>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox> <asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
@@ -225,7 +236,7 @@
</div> </div>
</div> </div>
<%-- Botón para Agregar Pasajero(Oculto) --%> <%-- Botón para Agregar Pasajero(Oculto) --%>
<div class="form-group form-md-line-input input-iconright "> <div class="form-group form-md-line-input input-iconright text-right">
<asp:Button ID="BtnAgregarPasajero" runat="server" CssClass="btn btn-success" Visible="false" <asp:Button ID="BtnAgregarPasajero" runat="server" CssClass="btn btn-success" Visible="false"
Text="Agregar Pasajeros" OnClick="AgregarPasajero" /> Text="Agregar Pasajeros" OnClick="AgregarPasajero" />
</div> </div>
@@ -237,6 +248,9 @@
<Columns> <Columns>
<asp:BoundField DataField="Nombre" HeaderText="Nombre" /> <asp:BoundField DataField="Nombre" HeaderText="Nombre" />
<asp:BoundField DataField="Visa" HeaderText="Visa" /> <asp:BoundField DataField="Visa" HeaderText="Visa" />
<asp:BoundField DataField="Sexo" HeaderText="Sexo" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Celular" HeaderText="Celular" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Asiento" HeaderText="Asiento" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="Asiento" HeaderText="Asiento" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Partida" HeaderText="Partida" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="Partida" HeaderText="Partida" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Destino" HeaderText="Destino" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="Destino" HeaderText="Destino" ItemStyle-HorizontalAlign="Center" />
@@ -247,18 +261,13 @@
</div> </div>
</div> </div>
<%--OnClick="FinalizarVenta"--%> <%--OnClick="FinalizarVenta"--%>
<div class="row"> <div class="form-group form-md-line-input input-iconright text-right">
<div class="col-md-5"></div> <asp:Button ID="BtnGuardar" runat="server" CssClass="btn btn-primary" Visible="false"
<div class="col-md-2"> Text="Finalizar Compra" OnClick="FinalizarVenta" />
<asp:Button ID="BtnGuardar" Visible="False" runat="server" CssClass="btn btn-success "
Text="Finalizar Compra"
ValidationGroup="GrpGuardar"></asp:Button>
</div>
<div class="col-md-5"></div>
</div> </div>
</div> </div>
<%-- Asientos --%> <%-- Asientos --%>
<div class="col-md-4"> <div class="col-md-3">
<div class="portlet light xspadding bordered margin-bottom-10"> <div class="portlet light xspadding bordered margin-bottom-10">
<table> <table>
<tbody> <tbody>
@@ -516,6 +525,18 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">
var tiempoTranscurrido = 0;
function actualizarTiempo() {
tiempoTranscurrido++;
var horas = Math.floor(tiempoTranscurrido / 3600);
var minutos = Math.floor((tiempoTranscurrido % 3600) / 60);
var segundos = tiempoTranscurrido % 60;
var tiempoFormateado = (horas < 10 ? "0" : "") + horas + " : " + (minutos < 10 ? "0" : "") + minutos + " : " + (segundos < 10 ? "0" : "") + segundos + " s";
document.getElementById('<%= lblTiempo.ClientID %>').innerText = tiempoFormateado;
}
</script>
</asp:Content> </asp:Content>

261
Transportes/Boletos.aspx.vb
View File

@@ -1,9 +1,9 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports ADSNetLibrary.Helpers
Imports Extensiones Imports Extensiones
Imports Extensiones.ModExtensiones Imports Extensiones.ModExtensiones
Partial Class Boletos Partial Class Boletos
Inherits ClsPaginas Inherits ClsPaginas
#Region "Propiedades" #Region "Propiedades"
@@ -79,13 +79,16 @@ Partial Class Boletos
DtPasajeros.Columns.Add("Numero", GetType(Integer)) DtPasajeros.Columns.Add("Numero", GetType(Integer))
DtPasajeros.Columns.Add("Nombre", GetType(String)) DtPasajeros.Columns.Add("Nombre", GetType(String))
DtPasajeros.Columns.Add("Visa", 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("Partida", GetType(String))
DtPasajeros.Columns.Add("Destino", 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("Asiento", GetType(String))
DtPasajeros.Columns.Add("Celular", GetType(String))
DtPasajeros.Columns.Add("Importe", GetType(Decimal)) DtPasajeros.Columns.Add("Importe", GetType(Decimal))
DtPasajeros.Columns.Add("Observaciones", GetType(String))
InicializaCombos() InicializaCombos()
'Boletos Vendidos 'Boletos Vendidos
@@ -156,10 +159,10 @@ Partial Class Boletos
ViewState("Importe") = 0 ViewState("Importe") = 0
BtnAgregarPasajero.Visible = False BtnAgregarPasajero.Visible = False
LbCostos.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 End If
Catch ex As Exception 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() ObjDestinos.RollBack()
Finally Finally
ObjDestinos.Dispose() ObjDestinos.Dispose()
@@ -182,94 +185,96 @@ Partial Class Boletos
UpPanel.Update() UpPanel.Update()
End Sub End Sub
'Protected Sub FinalizarVenta(sender As Object, e As EventArgs)
' Dim SbAlert As New StringBuilder() Protected Sub FinalizarVenta(sender As Object, e As EventArgs)
' Dim Retorno As New Modelos.Factura.MMensajeFactura()
' Dim ObjTransporte As New ClsTransportes() Dim SbAlert As New StringBuilder()
' ObjTransporte.IniciaTransacSQL() Dim Retorno As New Modelos.Factura.MMensajeFactura()
' Dim TieneError As Boolean = False Dim ObjTransporte As New ClsTransportes()
ObjTransporte.IniciaTransacSQL()
' Try Dim TieneError As Boolean = False
' 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
' Nombre = dr("Nombre").ToString Try
' Visa = dr("Visa").ToString For Each dr As DataRow In DtPasajeros.Rows
' Celular = dr("Celular").ToString Dim Nombre, Visa, Celular, Obs, Asiento As String
' Obs = dr("Observaciones").ToString Dim Sexo As Boolean
' Asiento = dr("Asiento").ToString Dim Importe As Decimal = 0
' Importe = dr("Importe").ToString.ToDecimal Dim CveDestinoOrigen, CveDestinoFinal As Integer
' '.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text CveDestinoOrigen = dr("CveDestinoOrigen").ToString.ToEntero
' 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 CveDestinoFinal = dr("CveDestinoFinal").ToString.ToEntero
' TieneError = True Importe = dr("Importe").ToString.ToDecimal
' SbAlert.Append("Ocurrió un error al generar el viaje") Asiento = dr("Asiento").ToString
' End If Nombre = dr("Nombre").ToString
' Next Visa = dr("Visa").ToString
Celular = dr("Celular").ToString
Sexo = dr("CveSexo").ToString.ToBool
Obs = dr("Observaciones").ToString
' If Not TieneError Then If ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then
' Retorno = CrearRemision(ObjTransporte) ObjTransporte.Commit()
' End If End If
Next
DtPasajeros.Clear()
' If Retorno IsNot Nothing Then If Not TieneError Then
' TieneError = Retorno.TieneError Retorno = CrearRemision(ObjTransporte)
End If
' If Not TieneError Then If Retorno IsNot Nothing Then
' If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then TieneError = Retorno.TieneError
' 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.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then If Not TieneError Then
' For Each Mensaje As String In Retorno.Mensajes If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then
' SbAlert.AppendFormat("{0} <br/>", Mensaje) SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
' Next Else
' Else TieneError = True
' TieneError = True SbAlert.Append("Ocurrió un error al generar la factura")
' End If End If
' End If
' Else
' TieneError = True
' SbAlert.Append("Ocurrió un error al generar la factura")
' End If
' If SbAlert.Length = 0 Then If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then
' SbAlert.Append("Ocurrió un error al generar la factura") For Each Mensaje As String In Retorno.Mensajes
' End If 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 If SbAlert.Length = 0 Then
' TieneError = True SbAlert.Append("Ocurrió un error al generar la factura")
' SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString()) End If
' GuardaLog(ex.ToString())
' Finally
' If TieneError Then
' ObjTransporte.RollBack()
' ObjTransporte.Dispose()
' Else
' SbAlert.Append("El boleto se genero correctamente")
' ObjTransporte.Commit()
' ObjTransporte.Dispose()
' DdlPartida.SelectedValueExist("-1") Catch ex As Exception
' DdlDestino.SelectedValueExist("-1") TieneError = True
' AsientoSeleccionado = "" SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString())
' CargaDatos() GuardaLog(ex.ToString())
' End If 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() Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False)
' End Try
'End Sub End Try
UpPanel.Update()
End Sub
Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPartida.SelectedIndexChanged Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPartida.SelectedIndexChanged
CotizarTarifa() CotizarTarifa()
@@ -279,10 +284,6 @@ Partial Class Boletos
CotizarTarifa() CotizarTarifa()
End Sub End Sub
Protected Sub BtnNumPasajeros_Click(sender As Object, e As EventArgs)
' GeneraPasajeros(TxtNumPasajeros.Text.ToEntero)
End Sub
Private Sub GeneraPasajeros(Cantidad As Integer) Private Sub GeneraPasajeros(Cantidad As Integer)
DtPasajeros.Clear() DtPasajeros.Clear()
For i As Integer = 1 To Cantidad For i As Integer = 1 To Cantidad
@@ -306,18 +307,27 @@ Partial Class Boletos
Alert("No hay un importe asignado.") Alert("No hay un importe asignado.")
Exit Sub Exit Sub
End If End If
Dim Dr1 As DataRow = DtPasajeros.NewRow Dim Dr1 As DataRow = DtPasajeros.NewRow
Dr1("Asiento") = AsientoSeleccionado.Replace("A", "") Dr1("Asiento") = AsientoSeleccionado.Replace("A", "")
Dr1("Nombre") = TxtNombre.Text.Trim Dr1("Nombre") = TxtNombre.Text.Trim
Dr1("Visa") = TxtVisa.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("Importe") = Me.Importe
Dr1("Partida") = DdlPartida.SelectedTextExist 'Reiniciamos Datos'
Dr1("Destino") = DdlPartida.Text
'asiento
DtPasajeros.Rows.Add(Dr1) DtPasajeros.Rows.Add(Dr1)
AsientoSeleccionado = "" AsientoSeleccionado = ""
TxtNombre.Text = ""
TxtVisa.Text = ""
TxtCelular.Text = ""
TxtCelular.Text = ""
TxtObservaciones.Text = ""
GvB.DataSource = DtPasajeros GvB.DataSource = DtPasajeros
GvB.DataBind() GvB.DataBind()
@@ -331,55 +341,60 @@ Partial Class Boletos
lnk.ToolTip = dr("Nombre").ToString lnk.ToolTip = dr("Nombre").ToString
End If End If
Next Next
BtnGuardar.Visible = True
UpPanel.Update() UpPanel.Update()
End Sub End Sub
'Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura
' Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
' Dim CveCliente As Integer = 1154164 Dim CveCliente As Integer = 1154164
' Dim CveMoneda As Integer = 2 Dim CveMoneda As Integer = 2
' Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero()
' If CveCliente <= 0 Then If CveCliente <= 0 Then
' Retorno.Mensajes.Add("No se pudo cargar el cliente") Retorno.Mensajes.Add("No se pudo cargar el cliente")
' Return Retorno Return Retorno
' End If End If
' If CveSubProyecto <= 0 Then If CveSubProyecto <= 0 Then
' Retorno.Mensajes.Add("No se pudo cargar el subproyecto") Retorno.Mensajes.Add("No se pudo cargar el subproyecto")
' Return Retorno Return Retorno
' End If 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 For Each Dr As DataRow In DtPasajeros.Rows
' Dim Obs = Dr("Nombre").ToString Dim Obs = Dr("Nombre").ToString
' Dim Importe = Dr("Importe").ToString.ToDecimal() Dim Importe = Dr("Importe").ToString.ToDecimal()
' If Importe <= 0 Then If Importe <= 0 Then
' Retorno.Mensajes.Add("El importe debe ser mayor a 0") Retorno.Mensajes.Add("El importe debe ser mayor a 0")
' Return Retorno Return Retorno
' End If End If
' ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0) ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0)
' Next Next
' ObjFactura.CalculaTotales() ObjFactura.CalculaTotales()
' Try Try
' Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL())
' Catch ex As Exception Catch ex As Exception
' Retorno = Nothing Retorno = Nothing
' GuardaLog(ex.ToString()) GuardaLog(ex.ToString())
' End Try End Try
' If ObjFactura IsNot Nothing Then If ObjFactura IsNot Nothing Then
' ObjFactura.Dispose() ObjFactura.Dispose()
' End If End If
' Return Retorno Return Retorno
'End Function 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 End Class

2
Transportes/RepViajes.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class ListadoViajes
End If End If
'Agregamos contrato 'Agregamos contrato
ObjContratos.IniciaTransacSQL() 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() ObjContratos.Commit()
End If End If
'Actualizamos Folio 'Actualizamos Folio