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

--

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-02-17 16:44:50 -07:00
parent 753812f2c4
commit 8562cd0cb4
6 changed files with 614 additions and 575 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
Transportes/Boletos.aspx
View File

@@ -85,74 +85,6 @@
<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="col-md-12">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-yellow">
<i class=" fa fa-bus font-yellow"></i>
<span class="caption-subject bold uppercase">Datos del Viaje</span>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<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>
<label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPartida" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestino" Class="form-control input-sm select2me" Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlDestino" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestino" Class="form-control input-sm select2me"
Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label>
</div>
</div>
</div>
<div class="row">
<asp:Label runat="server" ID="TxtCosto" CssClass="text-success bold mx-1"></asp:Label>
<br />
<div class="text-center">
</div>
</div>
</div>
</div>
</div>
</div>
<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">
@@ -216,14 +148,81 @@
<label>Observaciones:</label> <label>Observaciones:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright ">
<asp:Button ID="BtnAgregar" runat="server" Text="Agregar Pasajero" CssClass="btn btn-success " OnClick="BtnAgregar_Click" />
<i></i>
</div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-12">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-yellow">
<i class=" fa fa-bus font-yellow"></i>
<span class="caption-subject bold uppercase">Datos del Viaje</span>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<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>
<label for="<%= TxtRuta.ClientID.ToString()%>">Ruta:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPartida" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestino" Class="form-control input-sm select2me" Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPartida" runat="server" ControlToValidate="DdlPartida"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Partida''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlPartida.ClientID.ToString()%>">Partida:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFecha" runat="server" Width="100%" Enabled="false" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtFecha.ClientID.ToString()%>">Fecha:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlDestino" DataTextField="Destino"
AutoPostBack="true"
DataValueField="CveDestino" Class="form-control input-sm select2me"
Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDestino" runat="server" ControlToValidate="DdlDestino"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Destino''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlDestino.ClientID.ToString()%>">Destino:</label>
</div>
</div>
</div>
<div class="row">
<asp:Label runat="server" ID="LbCostos" CssClass="text-success bold mx-1" Visible="False"></asp:Label>
</div>
</div>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright ">
<asp:Button ID="BtnAgregarPasajero" runat="server" CssClass="btn btn-success" Visible="false" Text="Agregar Pasajeros" OnClick="AgregarPasajero"/>
</div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvB" runat="server" Width="100%" AutoGenerateColumns="false" CssClass="table table-advance table-hover" GridLines="None" DataKeyNames="Nombre,Visa,Asiento"> <asp:GridView ID="GvB" runat="server" Width="100%" AutoGenerateColumns="false" CssClass="table table-advance table-hover" GridLines="None" DataKeyNames="Nombre,Visa,Asiento">
@@ -236,10 +235,11 @@
</asp:GridView> </asp:GridView>
</div> </div>
</div> </div>
<%--OnClick="FinalizarVenta"--%>
<div class="row"> <div class="row">
<div class="col-md-5"></div> <div class="col-md-5"></div>
<div class="col-md-2"> <div class="col-md-2">
<asp:Button ID="BtnGuardar" Visible="False" OnClick="FinalizarVenta" runat="server" CssClass="btn btn-success " <asp:Button ID="BtnGuardar" Visible="False" runat="server" CssClass="btn btn-success "
Text="Finalizar Compra" Text="Finalizar Compra"
ValidationGroup="GrpGuardar"></asp:Button> ValidationGroup="GrpGuardar"></asp:Button>
</div> </div>

255
Transportes/Boletos.aspx.vb
View File

@@ -3,7 +3,6 @@ Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports Extensiones.ModExtensiones Imports Extensiones.ModExtensiones
Imports Microsoft.Ajax.Utilities
Partial Class Boletos Partial Class Boletos
Inherits ClsPaginas Inherits ClsPaginas
@@ -138,25 +137,31 @@ Partial Class Boletos
End Sub End Sub
Protected Sub CotizarTarifa() Protected Sub CotizarTarifa()
If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then If DdlDestino.SelectedValue <> "-1" And DdlPartida.SelectedValue <> "-1" Then
Dim ImporteR As Decimal = 0 Dim ImporteR As Decimal = 0
Dim ObjDestinos As New ClsTransportes() Dim ObjDestinos As New ClsTransportes()
If ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Then
ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL
End If
ObjDestinos.Dispose()
If ImporteR > 0 Then Try
ViewState("Importe") = ImporteR If ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Then
TxtCosto.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL
BtnGuardar.Visible = True End If
Else If ImporteR > 0 Then
ViewState("Importe") = ImporteR
LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}"
LbCostos.Visible = True
BtnAgregarPasajero.Visible = True
Else
ViewState("Importe") = 0
BtnAgregarPasajero.Visible = False
LbCostos.Visible = False
Alert("No se encontro una tarifa para esta ruta", 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 esta ruta", TipoMensaje.MsgAdvertencia)
ObjDestinos.RollBack()
TxtCosto.Text = "" Finally
BtnGuardar.Visible = False ObjDestinos.Dispose()
ViewState("Importe") = 0 End Try
End If
End If End If
End Sub End Sub
@@ -175,103 +180,101 @@ Partial Class Boletos
UpPanel.Update() UpPanel.Update()
End Sub End Sub
Protected Sub FinalizarVenta(sender As Object, e As EventArgs) 'Protected Sub FinalizarVenta(sender As Object, e As EventArgs)
Dim SbAlert As New StringBuilder() ' Dim SbAlert As New StringBuilder()
Dim Retorno As New Modelos.Factura.MMensajeFactura() ' Dim Retorno As New Modelos.Factura.MMensajeFactura()
Dim ObjTransporte As New ClsTransportes() ' Dim ObjTransporte As New ClsTransportes()
ObjTransporte.IniciaTransacSQL() ' ObjTransporte.IniciaTransacSQL()
Dim TieneError As Boolean = False ' Dim TieneError As Boolean = False
Try ' 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
Dim Importe As Decimal = 0 ' Dim Importe As Decimal = 0
Nombre = dr("Nombre").ToString ' Nombre = dr("Nombre").ToString
Visa = dr("Visa").ToString ' Visa = dr("Visa").ToString
Celular = dr("Celular").ToString ' Celular = dr("Celular").ToString
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 ' '.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 ' 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 ' TieneError = True
SbAlert.Append("Ocurrió un error al generar el viaje") ' SbAlert.Append("Ocurrió un error al generar el viaje")
End If ' End If
Next ' Next
If Not TieneError Then ' If Not TieneError Then
Retorno = CrearRemision(ObjTransporte) ' Retorno = CrearRemision(ObjTransporte)
End If ' End If
If Retorno IsNot Nothing Then ' If Retorno IsNot Nothing Then
TieneError = Retorno.TieneError ' TieneError = Retorno.TieneError
If Not TieneError Then ' If Not TieneError Then
If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then ' If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then
SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) ' SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
Else ' Else
TieneError = True ' TieneError = True
SbAlert.Append("Ocurrió un error al generar la factura") ' SbAlert.Append("Ocurrió un error al generar la factura")
End If ' End If
If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then ' If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then
For Each Mensaje As String In Retorno.Mensajes ' For Each Mensaje As String In Retorno.Mensajes
SbAlert.AppendFormat("{0} <br/>", Mensaje) ' SbAlert.AppendFormat("{0} <br/>", Mensaje)
Next ' Next
Else ' Else
TieneError = True ' TieneError = True
End If ' End If
End If ' End If
Else ' Else
TieneError = True ' TieneError = True
SbAlert.Append("Ocurrió un error al generar la factura") ' SbAlert.Append("Ocurrió un error al generar la factura")
End If ' End If
If SbAlert.Length = 0 Then ' If SbAlert.Length = 0 Then
SbAlert.Append("Ocurrió un error al generar la factura") ' SbAlert.Append("Ocurrió un error al generar la factura")
End If ' End If
Catch ex As Exception ' Catch ex As Exception
TieneError = True ' TieneError = True
SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString()) ' SbAlert.Append("Ocurrió un error al generar la factura." + ex.ToString())
GuardaLog(ex.ToString()) ' GuardaLog(ex.ToString())
Finally ' Finally
If TieneError Then ' If TieneError Then
ObjTransporte.RollBack() ' ObjTransporte.RollBack()
ObjTransporte.Dispose() ' ObjTransporte.Dispose()
Else ' Else
SbAlert.Append("El boleto se genero correctamente") ' SbAlert.Append("El boleto se genero correctamente")
ObjTransporte.Commit() ' ObjTransporte.Commit()
ObjTransporte.Dispose() ' ObjTransporte.Dispose()
DdlPartida.SelectedValueExist("-1") ' DdlPartida.SelectedValueExist("-1")
DdlDestino.SelectedValueExist("-1") ' DdlDestino.SelectedValueExist("-1")
AsientoSeleccionado = "" ' AsientoSeleccionado = ""
CargaDatos() ' CargaDatos()
End If ' End If
Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False) ' 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) Handles DdlPartida.SelectedIndexChanged Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPartida.SelectedIndexChanged
CotizarTarifa() CotizarTarifa()
UpPanel.Update()
End Sub End Sub
Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDestino.SelectedIndexChanged Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDestino.SelectedIndexChanged
CotizarTarifa() 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)
@@ -290,7 +293,7 @@ Partial Class Boletos
GvB.DataBind() GvB.DataBind()
End Sub End Sub
Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Protected Sub AgregarPasajero(sender As Object, e As EventArgs)
If AsientoSeleccionado = "" Then If AsientoSeleccionado = "" Then
Alert("No se ha seleccionado el asiento.") Alert("No se ha seleccionado el asiento.")
@@ -328,51 +331,51 @@ Partial Class Boletos
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
End Class End Class

24
Transportes/RepContratos.aspx
View File

@@ -200,13 +200,13 @@
<asp:TemplateField HeaderText="Chofer 2" Visible="false"> <asp:TemplateField HeaderText="Chofer 2" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtChofer2" runat="server" Text='<%# Eval("NombreChofer2") %>'></asp:Literal> <asp:Literal ID="LtChofer2" runat="server" Text='<%# Eval("NombreChofer2") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Unidad" Visible="false"> <asp:TemplateField HeaderText="Unidad" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal> <asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -364,11 +364,29 @@
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Anticipo</label> <label class="col-md-4">Anticipo</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtAnticipo" CssStyle=" form-control" Width="95%" runat="server" <asp:TextBox ID="TxtAnticipo" CssStyle="form-control" Width="95%" runat="server"
type="decimal"></asp:TextBox> type="decimal"></asp:TextBox>
<span class="fa fa-percent"></span> <span class="fa fa-percent"></span>
</div> </div>
</div> </div>
<div class="row">
<label class="col-md-4">Moneda</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMoneda" AppendDataBoundItems="true" DataTextField="Moneda"
DataValueField="CveMoneda"
Class="table-group-action-input form-control input-inline select2me"
Width="100%" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco"
TargetControlID="RFVMoneda" Width="400px">
</ajax:ValidatorCalloutExtender>
</div>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">

5
Transportes/RepContratos.aspx.vb
View File

@@ -40,6 +40,9 @@ Partial Class ListadoContratos
DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlChofer.DataBind() DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("-", "")) DdlChofer.Items.Insert(0, New ListItem("-", ""))
'Lista de Monedas
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
@@ -90,7 +93,7 @@ Partial Class ListadoContratos
'Agregamos Contrato 'Agregamos Contrato
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL() ObjContratos.IniciaTransacSQL()
If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
ObjContratos.Commit() ObjContratos.Commit()
Alert("Agregado Correctamente.") Alert("Agregado Correctamente.")
End If End If

133
Transportes/RepContratosCalendario.aspx
View File

@@ -44,7 +44,7 @@
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria"> <div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" /> <asp:Button runat="server" Text="Consultar" class="btn btn-primary" OnClick="Consultar" />
<a href="javascript:;" class="expand"></a> <a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
@@ -86,7 +86,6 @@
<%--Contratos Tab--%> <%--Contratos Tab--%>
<ajax:TabPanel ID="TabPanel1" runat="server" HeaderText="Contratos"> <ajax:TabPanel ID="TabPanel1" runat="server" HeaderText="Contratos">
<ContentTemplate> <ContentTemplate>
<%-- Filtros --%>
<%-- Filtros --%> <%-- Filtros --%>
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -94,62 +93,69 @@
<%-- Filtro Visible - Consulta --%> <%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultarListado" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultarListado_Click" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a> <a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row" style="height: 32px;">
<%-- Fecha Inicial --%>
<div class="col-md-1 truncate"> <label class="col-md-1 truncate">Fecha Inicial</label>
Fecha Inicio: <div class="col-md-1" style="min-width: 115px">
</div> <div class="input-group input-sm input-small date date-picker "
<div class="col-md-1" style="min-width: 115px"> data-date-format="dd/mm/yyyy"
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control"
<span class="input-group-btn "> MaxLength="10"></asp:TextBox>
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <span class="input-group-btn ">
</span> <asp:LinkButton ID="imgCalendario" class="btn default" Text="<i class='fa fa-calendar'></i>"
</div> runat="server"></asp:LinkButton>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> </span>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> </div>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator> <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI"
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator> Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender> </ajax:MaskedEditExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI"
</div> PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<div class="col-md-1 truncate">
Fecha Fin:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 ">Cliente:</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesFiltro" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div>
<label class="col-md-1 ">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatusConsulta" runat="server" Class="table-group-action-input form-control input-inline select2me"
DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus"
AppendDataBoundItems="true" Width="200px">
</asp:DropDownList>
</div>
</div> </div>
<%-- Fecha Final --%>
<label class="col-md-1 truncate">Fecha Fin</label>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy"
style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control"
MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default "
Text="<i class='fa fa-calendar'></i>"
runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF"
Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
</ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF"
PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<%-- Cliente --%>
<label class="col-md-1">Cliente</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="86%"
data-metodo="getcliente"
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
CssStyle="width: 86%;"
UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
</div>
<%-- Estatus --%>
<label class="col-md-1 ">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true"
DataTextField="ContratoEstatus"
DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
</div>
</div> </div>
</div> </div>
<%-- Filtro Oculto --%> <%-- Filtro Oculto --%>
@@ -173,7 +179,7 @@
<%-- Chofer --%> <%-- Chofer --%>
<label class="col-md-1 ">Chofer:</label> <label class="col-md-1 ">Chofer:</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlChoferConsulta" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlChoferFiltro" data-text="Todos" AppendDataBoundItems="true"
DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server"> Style="width: 100%;" runat="server">
</asp:DropDownList> </asp:DropDownList>
@@ -192,7 +198,7 @@
<Columns> <Columns>
<asp:TemplateField HeaderText="Contrato"> <asp:TemplateField HeaderText="Contrato">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink runat="server" NavigateUrl='<%# "~/Transportes/RepContratoDetalle.aspx?CveContrato=" + If(Eval("CveContrato") IsNot DBNull.Value, Eval("CveContrato").ToString(), String.Empty) %>' <asp:HyperLink ForeColor="White" runat="server" NavigateUrl='<%# "~/Transportes/RepContratoDetalle.aspx?CveContrato=" + If(Eval("CveContrato") IsNot DBNull.Value, Eval("CveContrato").ToString(), String.Empty) %>'
Text='<%# Eval("NumeroContrato") %>'></asp:HyperLink> Text='<%# Eval("NumeroContrato") %>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -256,7 +262,8 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal"
CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
@@ -319,7 +326,6 @@
<asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" TextMode="MultiLine" <asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" TextMode="MultiLine"
Rows="2" Rows="2"
ReadOnly="true"></asp:TextBox> ReadOnly="true"></asp:TextBox>
</div> </div>
</div> </div>
@@ -333,7 +339,6 @@
<div class="row"> <div class="row">
<label class="col-md-4">Fecha Salida:</label> <label class="col-md-4">Fecha Salida:</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control"
ReadOnly="true" Width="100%"></asp:TextBox> ReadOnly="true" Width="100%"></asp:TextBox>
@@ -343,12 +348,18 @@
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Fecha Regreso:</label> <label class="col-md-4">Fecha Regreso:</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control"
ReadOnly="true" Width="100%"></asp:TextBox> ReadOnly="true" Width="100%"></asp:TextBox>
</div> </div>
</div> </div>
<div class="row my-1">
<label class="col-md-4">Moneda:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtMoneda" runat="server" ReadOnly="true" Width="100%"></asp:TextBox>
</div>
</div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Tipo Unidad</label> <label class="col-md-4">Tipo Unidad</label>
<div class="col-md-8"> <div class="col-md-8">
@@ -356,7 +367,6 @@
DataTextField="TipoActivoFijo" Class="form-control input-inline" DataTextField="TipoActivoFijo" Class="form-control input-inline"
Width="100%" runat="server" Enabled="false"> Width="100%" runat="server" Enabled="false">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
@@ -379,6 +389,7 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Chofer 2</label> <label class="col-md-4">Chofer 2</label>
<div class="col-md-8"> <div class="col-md-8">

12
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -42,11 +42,12 @@ Partial Class RepContratosCalendario
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
' GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black 'EL fondo de las líneas es blanco, por eso cambio el color a negro de la cabecera
Dim CveCliente As Integer = DdlClientesFiltro.SelectedValue.ToEntero GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
If CveCliente = 0 Then CveCliente = -1 If CveCliente = 0 Then CveCliente = -1
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientesFiltro.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataSource = ObjContratos.DtResultados
GvContratos.DataBind() GvContratos.DataBind()
End If End If
@@ -101,7 +102,7 @@ Partial Class RepContratosCalendario
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) 'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
End Sub End Sub
@@ -142,6 +143,7 @@ Partial Class RepContratosCalendario
TxtUbicacion.Text = GvRow.DataKey("Ubicacion") TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt") TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt")
TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt") TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt")
TxtMoneda.Text = GvRow.DataKey("CveMoneda")
'Requeridos 'Requeridos
ViewState("Contrato") = GvRow.DataKey("CveContrato") ViewState("Contrato") = GvRow.DataKey("CveContrato")
DdlAF.SelectedValue = GvRow.DataKey("CveAF") DdlAF.SelectedValue = GvRow.DataKey("CveAF")
@@ -153,7 +155,9 @@ Partial Class RepContratosCalendario
RegistraScript("$('#ModalActualizar').modal('show');") RegistraScript("$('#ModalActualizar').modal('show');")
End Sub End Sub
Protected Sub Consultar(sender As Object, e As EventArgs)
End Sub
Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
End Sub End Sub