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

-- mejora

Browse Source
This commit is contained in:
rrene
2024-04-04 13:13:07 -07:00
parent 80d34b3631
commit 98a51e8202
2 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Transportes/RepContratosCalendario.aspx
View File

@@ -92,7 +92,7 @@
<%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
<a href="javascript:;" class="expand"></a>
</div>
@@ -290,14 +290,14 @@
<div class="row my-1">
<label class="col-md-4 bold text-primary">Folio:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFolio" runat="server" ReadOnly="true" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtFolio" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
<div class="row my-1">
<label class="col-md-4 bold text-primary">Numero de Pasajeros:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtCantidadPasajeros" runat="server" ReadOnly="true" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtCantidadPasajeros" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
@@ -314,8 +314,7 @@
<label class="col-md-4">Servicio:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDescripcion" runat="server" Width="100%" TextMode="MultiLine"
Rows="2"
ReadOnly="true"></asp:TextBox>
Rows="2" ></asp:TextBox>
</div>
</div>
@@ -323,15 +322,14 @@
<label class="col-md-4">Observaciones:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" TextMode="MultiLine"
Rows="2"
ReadOnly="true"></asp:TextBox>
Rows="2" ></asp:TextBox>
</div>
</div>
<div class="row my-1">
<label class="col-md-4">Lugar de Salida:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtUbicacion" runat="server" ReadOnly="true" Width="100%"></asp:TextBox>
<asp:TextBox ID="TxtUbicacion" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
@@ -339,7 +337,7 @@
<label class="col-md-4">Fecha Salida:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control"
ReadOnly="true" Width="100%"></asp:TextBox>
Width="100%"></asp:TextBox>
</div>
</div>
@@ -348,7 +346,7 @@
<label class="col-md-4">Fecha Regreso:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control"
ReadOnly="true" Width="100%"></asp:TextBox>
Width="100%"></asp:TextBox>
</div>
</div>

12
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -20,7 +20,7 @@ Partial Class RepContratosCalendario
Public Property Contrato As String
Get
Return ViewState("Contrato").ToString()
Return IfNull(ViewState("Contrato"), "").ToString()
End Get
Set(value As String)
ViewState("Contrato") = value
@@ -29,10 +29,11 @@ Partial Class RepContratosCalendario
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
If Not IsPostBack Then
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
InicializaCombos()
InicializaCalendar()
CargaDatos()
@@ -54,6 +55,7 @@ Partial Class RepContratosCalendario
ObjContratos.Dispose()
GvContratos.DataBind()
UpTitulos.Update()
End Sub
Private Sub InicializaCalendar()
@@ -122,6 +124,7 @@ Partial Class RepContratosCalendario
Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL()
If Contrato.ToEntero <= 0 Then Contrato = CveContrato.Value
If ObjContratos.UpdateContratos(Contrato.ToEntero, TxtFolio.Text, TxtDescripcion.Text, "", -1, 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:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then
ObjContratos.Commit()
Alert("Actualizado Correctamente.")
@@ -185,4 +188,7 @@ Partial Class RepContratosCalendario
ObjContratos.Dispose()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
End Class