--Generacion de remisiones al guardar boletos

This commit is contained in:
2024-02-17 10:39:57 -07:00
parent 87e070d1c7
commit 82c5ce2b4d
2 changed files with 602 additions and 507 deletions

View File

@@ -1,12 +1,12 @@
<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" <%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false"
MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb"
Inherits="Boletos" EnableEventValidation="true" %> Inherits="Boletos" EnableEventValidation="false" %>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Comprar Boleto Comprar Boleto
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.my-1 { .my-1 {
margin-block: 1rem; margin-block: 1rem;
@@ -77,429 +77,434 @@
.btnChofer:hover { .btnChofer:hover {
background-color: #E1E5EC; background-color: #E1E5EC;
} }
</style> </style>
</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>
<%-- Datos de cliente y su viaje --%> <%-- Datos de cliente y su viaje --%>
<div class="col-md-8"> <div class="col-md-8">
<div class="row">
<div class="portlet light xspadding bordered "> <div class="col-md-12">
<div class="portlet-title"> <div class="portlet light xspadding bordered ">
<div class="caption font-yellow"> <div class="portlet-title">
<i class=" fa fa-bus font-yellow"></i> <div class="caption font-yellow">
<span class="caption-subject bold uppercase">Datos del Viaje</span> <i class=" fa fa-bus font-yellow"></i>
</div> <span class="caption-subject bold uppercase">Datos del Viaje</span>
</div> </div>
</div>
<div class="portlet-body form"> <div class="portlet-body form">
<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">
<asp:TextBox ID="TxtRuta" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox> <asp:TextBox ID="TxtRuta" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label> <label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label>
</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:DropDownList ID="DdlPartida" AppendDataBoundItems="true" DataTextField="Destino" <asp:DropDownList ID="DdlPartida" DataTextField="Destino"
AutoPostBack="true" AutoPostBack="true"
DataValueField="CveDestino" Class="form-control input-sm select2me" DataValueField="CveDestino" Class="form-control input-sm select2me" Width="200px" runat="server">
OnTextChanged="CotizarTarifa" </asp:DropDownList>
Width="200px" runat="server"> <asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida"
</asp:DropDownList> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo."
<asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo." <label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> </div>
<label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label> </div>
</div> </div>
</div>
</div> <div class="row">
<div class="col-md-6">
<div class="row"> <div class="form-group form-md-line-input input-iconright">
<div class="col-md-6"> <asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<div class="form-group form-md-line-input input-iconright"> <label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label>
<asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox> </div>
<label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label> </div>
</div>
</div> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<div class="col-md-6"> <asp:DropDownList ID="DdlDestino" DataTextField="Destino"
<div class="form-group form-md-line-input input-iconright"> AutoPostBack="true"
<asp:DropDownList ID="DdlDestino" AppendDataBoundItems="true" DataTextField="Destino" DataValueField="CveDestino" Class="form-control input-sm select2me"
AutoPostBack="true" Width="200px" runat="server">
DataValueField="CveDestino" Class="form-control input-sm select2me" </asp:DropDownList>
OnTextChanged="CotizarTarifa" <asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino"
Width="200px" runat="server"> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo."
</asp:DropDownList> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino" <label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo." </div>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> </div>
<label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label> </div>
</div>
</div> <div class="row">
</div> <asp:Label runat="server" ID="TxtCosto" CssClass="text-success bold mx-1"></asp:Label>
<br />
<div class="row"> <div class="text-center">
<asp:Label runat="server" ID="TxtCosto" CssClass="text-success bold mx-1"></asp:Label> </div>
<br /> </div>
<div class="text-center">
</div>
</div> </div>
</div> </div>
</div>
</div> <div class="row">
</div> <div class="col-md-12">
<div class="row"> <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="caption font-green"> <i class="fa fa-users font-green"></i>
<i class="fa fa-users font-green"></i> <span class="caption-subject bold uppercase">Datos del Pasajero
<span class="caption-subject bold uppercase">Datos del Pasajero <asp:Label ID="LblNum" runat="server" Text='<%# Eval("Numero") %>'></asp:Label> </span> <asp:Label ID="LblNum" runat="server" Text='<%# Eval("Numero") %>'></asp:Label>
</div> </span>
<div class="actions"> </div>
<div class="btn-group"> <div class="actions">
</div> <div class="btn-group">
</div> </div>
</div> </div>
<div class="portlet-body form"> </div>
<div class="form-group form-md-line-input input-iconright "> <div class="portlet-body form">
<asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200" <div class="form-group form-md-line-input input-iconright ">
ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtNombre" CssClass="form-control" runat="server" MaxLength="200"
<asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre" ClientIDMode="Static"></asp:TextBox>
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." <asp:RequiredFieldValidator ID="RFVTxtNombre" runat="server" ControlToValidate="TxtNombre"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> 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."
<label >Nombre:</label> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <label>Nombre:</label>
</div> <i></i>
</div>
<div class="row ">
<div class="col-md-12"> <div class="row ">
<div class="form-group form-md-line-input input-iconright"> <div class="col-md-12">
<asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox> <div class="form-group form-md-line-input input-iconright">
<label >Visa:</label> <asp:TextBox ID="TxtVisa" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
</div> <label>Visa:</label>
</div> </div>
</div>
</div>
<div class="row"> </div>
<div class="col-md-6"> <div class="row">
<div class="form-group form-md-line-input input-iconright"> <div class="col-md-6">
<asp:DropDownList ID="RblSexo" CssClass="form-control" runat="server"> <div class="form-group form-md-line-input input-iconright">
<asp:ListItem Text="Masculino" Value="1" Selected="True" /> <asp:DropDownList ID="RblSexo" CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Text="Femenino" Value="0" /> <asp:ListItem Text="Masculino" Value="1" Selected="True" />
</asp:DropDownList> <asp:ListItem Text="Femenino" Value="0" />
<label >Sexo:</label> </asp:DropDownList>
<i></i> <label>Sexo:</label>
</div> <i></i>
</div> </div>
<div class="col-md-6"> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="col-md-6">
<asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox> <div class="form-group form-md-line-input input-iconright">
<asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput" <asp:TextBox ID="TxtCelular" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
ControlToValidate="TxtCelular" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo." <asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ControlToValidate="TxtCelular" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo."
<label> Celular:</label> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> <label>Celular:</label>
</div> </div>
</div> </div>
</div>
<div class="form-group form-md-line-input input-iconright ">
<asp:TextBox ID="TxtObservaciones" CssClass="form-control" runat="server" MaxLength="200" <div class="form-group form-md-line-input input-iconright ">
ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtObservaciones" CssClass="form-control" runat="server" MaxLength="200"
<label >Observaciones:</label> ClientIDMode="Static"></asp:TextBox>
<i></i> <label>Observaciones:</label>
</div> <i></i>
<div class="form-group form-md-line-input input-iconright "> </div>
<asp:Button ID="BtnAgregar" runat="server" Text="Agregar Pasajero" CssClass="btn btn-success " OnClick="BtnAgregar_Click" /> <div class="form-group form-md-line-input input-iconright ">
<i></i> <asp:Button ID="BtnAgregar" runat="server" Text="Agregar Pasajero" CssClass="btn btn-success " OnClick="BtnAgregar_Click" />
</div> <i></i>
</div> </div>
</div> </div>
</div> </div>
</div>
<div class="row"> </div>
<div class="row">
<asp:GridView ID="GvB" runat="server" Width="100%" AutoGenerateColumns="false" CssClass="table table-advance table-hover" GridLines="None" DataKeyNames="Nombre,Visa,Asiento"> <div class="col-md-12">
<Columns> <asp:GridView ID="GvB" runat="server" Width="100%" AutoGenerateColumns="false" CssClass="table table-advance table-hover" GridLines="None" DataKeyNames="Nombre,Visa,Asiento">
<asp:BoundField DataField="Nombre" HeaderText="Nombre" /> <Columns>
<asp:BoundField DataField="Visa" HeaderText="Visa" /> <asp:BoundField DataField="Nombre" HeaderText="Nombre" />
<asp:BoundField DataField="Asiento" HeaderText="Asiento" /> <asp:BoundField DataField="Visa" HeaderText="Visa" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="${0:N2}" /> <asp:BoundField DataField="Asiento" HeaderText="Asiento" ItemStyle-HorizontalAlign="Center" />
</Columns> <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="${0:N2}" ItemStyle-HorizontalAlign="Right" />
</asp:GridView> </Columns>
</asp:GridView>
</div> </div>
<div class="row"> </div>
<asp:Button ID="BtnGuardar" Visible="False" OnClick="FinalizarVenta" runat="server" CssClass="btn btn-success " <div class="row">
Text="Finalizar Compra" <div class="col-md-5"></div>
ValidationGroup="GrpGuardar"></asp:Button> <div class="col-md-2">
</div> <asp:Button ID="BtnGuardar" Visible="False" OnClick="FinalizarVenta" runat="server" CssClass="btn btn-success "
Text="Finalizar Compra"
</div> ValidationGroup="GrpGuardar"></asp:Button>
<%-- Asientos --%> </div>
<div class="col-md-4"> <div class="col-md-5"></div>
<div class="portlet light xspadding bordered margin-bottom-10"> </div>
<table> </div>
<tbody> <%-- Asientos --%>
<tr> <div class="col-md-4">
<td colspan="2" class="btnChofer my-1"> <div class="portlet light xspadding bordered margin-bottom-10">
<asp:LinkButton ID="chofer" runat="server" <table>
Text="<i class='fa fa-user'><br/>Chofer</i>" /> <tbody>
</td> <tr>
</tr> <td colspan="2" class="btnChofer my-1">
<tr> <asp:LinkButton ID="chofer" runat="server"
<td> Text="<i class='fa fa-user'><br/>Chofer</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" </td>
runat="server" ID="A1" Text="<i class='fa fa-user my-1'><br/>1</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A2" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible"
Text="<i class='fa fa-user my-1'><br/>2</i>" /> runat="server" ID="A1" Text="<i class='fa fa-user my-1'><br/>1</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A2" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A3" runat="server" Text="<i class='fa fa-user my-1'><br/>2</i>" />
Text="<i class='fa fa-user my-1'><br/>3</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A4" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A3" runat="server"
Text="<i class='fa fa-user my-1'><br/>4</i>" /> Text="<i class='fa fa-user my-1'><br/>3</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A4" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>4</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A5" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>5</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A6" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A5" runat="server"
Text="<i class='fa fa-user my-1'><br/>6</i>" /> Text="<i class='fa fa-user my-1'><br/>5</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A6" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A7" runat="server" Text="<i class='fa fa-user my-1'><br/>6</i>" />
Text="<i class='fa fa-user my-1'><br/>7</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A8" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A7" runat="server"
Text="<i class='fa fa-user my-1'><br/>8</i>" /> Text="<i class='fa fa-user my-1'><br/>7</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A8" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>8</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A9" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>9</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A10" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A9" runat="server"
Text="<i class='fa fa-user my-1'><br/>10</i>" /> Text="<i class='fa fa-user my-1'><br/>9</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A10" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A11" runat="server" Text="<i class='fa fa-user my-1'><br/>10</i>" />
Text="<i class='fa fa-user my-1'><br/>11</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A12" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A11" runat="server"
Text="<i class='fa fa-user my-1'><br/>12</i>" /> Text="<i class='fa fa-user my-1'><br/>11</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A12" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>12</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A13" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>13</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A14" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A13" runat="server"
Text="<i class='fa fa-user my-1'><br/>14</i>" /> Text="<i class='fa fa-user my-1'><br/>13</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A14" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A15" runat="server" Text="<i class='fa fa-user my-1'><br/>14</i>" />
Text="<i class='fa fa-user my-1'><br/>15</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A16" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A15" runat="server"
Text="<i class='fa fa-user my-1'><br/>16</i>" /> Text="<i class='fa fa-user my-1'><br/>15</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A16" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>16</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A17" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>17</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A18" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A17" runat="server"
Text="<i class='fa fa-user my-1'><br/>18</i>" /> Text="<i class='fa fa-user my-1'><br/>17</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A18" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A19" runat="server" Text="<i class='fa fa-user my-1'><br/>18</i>" />
Text="<i class='fa fa-user my-1'><br/>19</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A20" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A19" runat="server"
Text="<i class='fa fa-user my-1'><br/>20</i>" /> Text="<i class='fa fa-user my-1'><br/>19</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A20" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>20</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A21" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>21</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A22" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A21" runat="server"
Text="<i class='fa fa-user my-1'><br/>22</i>" /> Text="<i class='fa fa-user my-1'><br/>21</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A22" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A23" runat="server" Text="<i class='fa fa-user my-1'><br/>22</i>" />
Text="<i class='fa fa-user my-1'><br/>23</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A24" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A23" runat="server"
Text="<i class='fa fa-user my-1'><br/>24</i>" /> Text="<i class='fa fa-user my-1'><br/>23</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A24" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>24</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A25" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>25</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A26" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A25" runat="server"
Text="<i class='fa fa-user my-1'><br/>26</i>" /> Text="<i class='fa fa-user my-1'><br/>25</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A26" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A27" runat="server" Text="<i class='fa fa-user my-1'><br/>26</i>" />
Text="<i class='fa fa-user my-1'><br/>27</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A28" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A27" runat="server"
Text="<i class='fa fa-user my-1'><br/>28</i>" /> Text="<i class='fa fa-user my-1'><br/>27</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A28" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>28</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A29" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>29</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A30" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A29" runat="server"
Text="<i class='fa fa-user my-1'><br/>30</i>" /> Text="<i class='fa fa-user my-1'><br/>29</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A30" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A31" runat="server" Text="<i class='fa fa-user my-1'><br/>30</i>" />
Text="<i class='fa fa-user my-1'><br/>31</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A32" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A31" runat="server"
Text="<i class='fa fa-user my-1'><br/>32</i>" /> Text="<i class='fa fa-user my-1'><br/>31</i>" />
</td> </td>
<td>
</tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A32" runat="server"
<tr> Text="<i class='fa fa-user my-1'><br/>32</i>" />
<td> </td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A33" runat="server"
Text="<i class='fa fa-user my-1'><br/>33</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A34" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A33" runat="server"
Text="<i class='fa fa-user my-1'><br/>34</i>" /> Text="<i class='fa fa-user my-1'><br/>33</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A34" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A35" runat="server" Text="<i class='fa fa-user my-1'><br/>34</i>" />
Text="<i class='fa fa-user my-1'><br/>35</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A36" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A35" runat="server"
Text="<i class='fa fa-user my-1'><br/>36</i>" /> Text="<i class='fa fa-user my-1'><br/>35</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A36" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>36</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A37" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>37</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A38" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A37" runat="server"
Text="<i class='fa fa-user my-1'><br/>38</i>" /> Text="<i class='fa fa-user my-1'><br/>37</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A38" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A39" runat="server" Text="<i class='fa fa-user my-1'><br/>38</i>" />
Text="<i class='fa fa-user my-1'><br/>39</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A40" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A39" runat="server"
Text="<i class='fa fa-user my-1'><br/>40</i>" /> Text="<i class='fa fa-user my-1'><br/>39</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A40" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>40</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A41" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>41</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A42" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A41" runat="server"
Text="<i class='fa fa-user my-1'><br/>42</i>" /> Text="<i class='fa fa-user my-1'><br/>41</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A42" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A43" runat="server" Text="<i class='fa fa-user my-1'><br/>42</i>" />
Text="<i class='fa fa-user my-1'><br/>43</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A44" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A43" runat="server"
Text="<i class='fa fa-user my-1'><br/>44</i>" /> Text="<i class='fa fa-user my-1'><br/>43</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A44" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>44</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A45" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>45</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A46" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A45" runat="server"
Text="<i class='fa fa-user my-1'><br/>46</i>" /> Text="<i class='fa fa-user my-1'><br/>45</i>" />
</td> </td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td> <td>
<td> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A46" runat="server"
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A47" runat="server" Text="<i class='fa fa-user my-1'><br/>46</i>" />
Text="<i class='fa fa-user my-1'><br/>47</i>" /> </td>
</td> <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A48" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A47" runat="server"
Text="<i class='fa fa-user my-1'><br/>48</i>" /> Text="<i class='fa fa-user my-1'><br/>47</i>" />
</td> </td>
</tr> <td>
<tr> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A48" runat="server"
<td> Text="<i class='fa fa-user my-1'><br/>48</i>" />
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A49" runat="server" </td>
Text="<i class='fa fa-user my-1'><br/>49</i>" /> </tr>
</td> <tr>
<td> <td>
<asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A50" runat="server" <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A49" runat="server"
Text="<i class='fa fa-user my-1'><br/>50</i>" /> Text="<i class='fa fa-user my-1'><br/>49</i>" />
</td> </td>
</tr> <td>
</tbody> <asp:LinkButton OnClick="OnLinkButtonClick" CssClass="disponible" ID="A50" runat="server"
</table> Text="<i class='fa fa-user my-1'><br/>50</i>" />
</div> </td>
</ContentTemplate> </tr>
</asp:UpdatePanel> </tbody>
</asp:Content> </table>
</div>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> </div>
</asp:Content> </ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -6,7 +6,7 @@ Imports Extensiones.ModExtensiones
Imports Microsoft.Ajax.Utilities Imports Microsoft.Ajax.Utilities
Partial Class Boletos Partial Class Boletos
Inherits ClsPaginas Inherits ClsPaginas
#Region "Propiedades" #Region "Propiedades"
Private Property AsientoSeleccionado As String Private Property AsientoSeleccionado As String
Get Get
@@ -18,7 +18,7 @@ Partial Class Boletos
End Property End Property
Private Property Importe As Decimal Private Property Importe As Decimal
Get Get
Return ViewState("Importe").ToString().ToDecimal Return If(IsNothing(ViewState("Importe")), 0, ViewState("Importe")).ToString().ToDecimal()
End Get End Get
Set(value As Decimal) Set(value As Decimal)
ViewState("Importe") = value ViewState("Importe") = value
@@ -48,9 +48,11 @@ Partial Class Boletos
Set(value As DataTable) Set(value As DataTable)
ViewState("DtPasajeros") = value ViewState("DtPasajeros") = value
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
If Request.QueryString("CveViaje") Is Nothing Then If Request.QueryString("CveViaje") Is Nothing Then
@@ -60,7 +62,6 @@ Partial Class Boletos
CveViaje = Request.QueryString("CveViaje").ToEntero CveViaje = Request.QueryString("CveViaje").ToEntero
If CveViaje > 0 Then If CveViaje > 0 Then
CargaDatos() CargaDatos()
End If End If
End If End If
@@ -69,6 +70,7 @@ Partial Class Boletos
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
Dim ObjViaje As New ClsTransportes Dim ObjViaje As New ClsTransportes
If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then
Contrato = ObjContratos.DtResultados Contrato = ObjContratos.DtResultados
If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then
@@ -78,8 +80,10 @@ 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("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()
@@ -99,30 +103,18 @@ Partial Class Boletos
End If End If
End If End If
Else Else
ObjContratos.Dispose() ObjContratos.Dispose()
ObjViaje.Dispose()
Response.Redirect($"~/Transportes/RepContratos.aspx") Response.Redirect($"~/Transportes/RepContratos.aspx")
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
ObjViaje.Dispose() ObjViaje.Dispose()
Dim ObjViaje As New ClsTransportes
'Boletos Vendidos 'Boletos Vendidos
Dim dt As DataTable
If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) Then 'Poner párametro para estatus y cancelado de viajes
dt = ObjViaje.DtResultados
Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
For Each dr As DataRow In dt.Rows
Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton)
If lnk IsNot Nothing Then
lnk.Enabled = False
lnk.CssClass = "nodisponible"
lnk.ToolTip = dr("Nombre").ToString
End If
Next
End If
End Sub End Sub
Protected Sub InicializaCombos() Protected Sub InicializaCombos()
@@ -130,48 +122,42 @@ Partial Class Boletos
'Lista Destinos''carga específicos 'Lista Destinos''carga específicos
Dim ObjDestinos As New ClsTransportes() Dim ObjDestinos As New ClsTransportes()
If Not ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
Else
If ObjDestinos.DtResultados.Rows.Count > 0 Then If ObjDestinos.DtResultados.Rows.Count > 0 Then
DdlPartida.DataSource = ObjDestinos.DtResultados DdlPartida.DataSource = ObjDestinos.DtResultados
DdlPartida.DataBind() DdlPartida.DataBind()
DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", "")) DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", "-1"))
DdlDestino.DataSource = ObjDestinos.DtResultados DdlDestino.DataSource = ObjDestinos.DtResultados
DdlDestino.DataBind() DdlDestino.DataBind()
DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "")) DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "-1"))
End If End If
End If End If
ObjDestinos.Dispose() ObjDestinos.Dispose()
End Sub End Sub
Protected Sub CargaDestinos() Protected Sub CotizarTarifa()
End Sub
Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then
Dim ImporteR As Decimal = 0
Dim ObjDestinos As New ClsTransportes() Dim ObjDestinos As New ClsTransportes()
Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) If ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Then
Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL
End If
ObjDestinos.Dispose() ObjDestinos.Dispose()
If retorno Then If ImporteR > 0 Then
If ImporteR > 0 Then ViewState("Importe") = ImporteR
ViewState("Importe") = ImporteR TxtCosto.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}"
TxtCosto.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" BtnGuardar.Visible = True
BtnGuardar.Visible = True Else
UpPanel.Visible = True Alert("No se encontro una tarifa para esta ruta", TipoMensaje.MsgAdvertencia)
Else
TxtCosto.Text = "" TxtCosto.Text = ""
BtnGuardar.Visible = False BtnGuardar.Visible = False
UpPanel.Visible = False ViewState("Importe") = 0
ViewState("Importe") = 0
End If
End If End If
End If End If
End Sub End Sub
Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs) Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
@@ -186,19 +172,20 @@ Partial Class Boletos
Dim buttonID As String = linkButton.ID Dim buttonID As String = linkButton.ID
linkButton.CssClass += " activo" linkButton.CssClass += " activo"
AsientoSeleccionado = buttonID AsientoSeleccionado = buttonID
UpPanel.Update()
End Sub End Sub
Protected Sub FinalizarVenta(sender As Object, e As EventArgs) Protected Sub FinalizarVenta(sender As Object, e As EventArgs)
If AsientoSeleccionado = "" Then
Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia) Dim SbAlert As New StringBuilder()
Exit Sub Dim Retorno As New Modelos.Factura.MMensajeFactura()
End If
Dim ObjTransporte As New ClsTransportes() Dim ObjTransporte As New ClsTransportes()
ObjTransporte.IniciaTransacSQL() ObjTransporte.IniciaTransacSQL()
Try Dim TieneError As Boolean = False
AsientoSeleccionado = AsientoSeleccionado.Replace("A", "")
Try
For Each dr As DataRow In DtPasajeros.Rows 'gvr As GridViewRow In GvB.Rows For Each dr As DataRow In DtPasajeros.Rows 'gvr As GridViewRow In GvB.Rows
Dim Nombre, Visa, Celular, Obs, Asiento As String Dim Nombre, Visa, Celular, Obs, Asiento As String
Dim Sexo As Boolean = False Dim Sexo As Boolean = False
@@ -210,34 +197,81 @@ Partial Class Boletos
Obs = dr("Observaciones").ToString Obs = dr("Observaciones").ToString
Asiento = dr("Asiento").ToString Asiento = dr("Asiento").ToString
Importe = dr("Importe").ToString.ToDecimal Importe = dr("Importe").ToString.ToDecimal
'.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text
If ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then
Alert("Boleto generado correctamente")
ObjTransporte.Commit()
DdlPartida.SelectedValue = ""
DdlDestino.SelectedValue = ""
AsientoSeleccionado = ""
End If
Next
'.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
If Not TieneError Then
Retorno = CrearRemision(ObjTransporte)
End If
If Retorno IsNot Nothing Then
TieneError = Retorno.TieneError
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.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 SbAlert.Length = 0 Then
SbAlert.Append("Ocurrió un error al generar la factura")
End If
Catch ex As Exception Catch ex As Exception
ObjTransporte.RollBack() TieneError = True
Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString())
Finally GuardaLog(ex.ToString())
ObjTransporte.Dispose() Finally
CargaDatos() If TieneError Then
ObjTransporte.RollBack()
ObjTransporte.Dispose()
Else
SbAlert.Append("El boleto se genero correctamente")
ObjTransporte.Commit()
ObjTransporte.Dispose()
DdlPartida.SelectedValueExist("-1")
DdlDestino.SelectedValueExist("-1")
AsientoSeleccionado = ""
CargaDatos()
End If
Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False)
UpPanel.Update() UpPanel.Update()
End Try End Try
End Sub End Sub
Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPartida.SelectedIndexChanged
CotizarTarifa(sender, e) CotizarTarifa()
UpPanel.Update()
End Sub End Sub
Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDestino.SelectedIndexChanged
CotizarTarifa(sender, e) CotizarTarifa()
UpPanel.Update()
End Sub End Sub
Protected Sub BtnNumPasajeros_Click(sender As Object, e As EventArgs) Protected Sub BtnNumPasajeros_Click(sender As Object, e As EventArgs)
@@ -263,10 +297,16 @@ Partial Class Boletos
Exit Sub Exit Sub
End If End If
If Me.Importe <= 0 Then
Alert("No hay un importe asignado.")
Exit Sub
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("Importe") = Me.Importe
'asiento 'asiento
DtPasajeros.Rows.Add(Dr1) DtPasajeros.Rows.Add(Dr1)
AsientoSeleccionado = "" AsientoSeleccionado = ""
@@ -284,5 +324,55 @@ Partial Class Boletos
lnk.ToolTip = dr("Nombre").ToString lnk.ToolTip = dr("Nombre").ToString
End If End If
Next Next
UpPanel.Update()
End Sub End Sub
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()
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
Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, CveCliente, CveMoneda, "Rem")
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
ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0)
Next
ObjFactura.CalculaTotales()
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
Return Retorno
End Function
End Class End Class