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

-

Browse Source
This commit is contained in:
rrene
2024-02-07 05:12:00 -07:00
parent df3b1eeb9e
commit 573652b221
2 changed files with 101 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
Transportes/RepContratosCalendario.aspx
View File

@@ -14,7 +14,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
Calendario de contratos Calendario de Viajes
</asp:Content> </asp:Content>
@@ -25,19 +25,38 @@
<ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario"> <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row" style="height: 32px;">
<label class="col-md-1">Tipo Vista: </label>
<div class="col-md-2">
<asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
<asp:ListItem Text="Duración" Value="duracion" Selected="True" />
<asp:ListItem Text="Fecha de Salida" Value="fecha" />
</asp:RadioButtonList>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
<div class="row"> <div class="row">
<div class="col-md-12 col-sm-12"> <div class="col-md-12 col-sm-12">
<div class="portlet light calendar "> <div class="portlet light calendar ">
<div class="tipo_vista"> <div class="tipo_vista">
<div> <div>
<h4 class="bold ribbon-color-success">Tipo de Vista</h4> <h4 class="bold ribbon-color-success">&nbsp;</h4>
</div> </div>
<asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True">
<asp:ListItem Text="Duración" Value="duracion" Selected="True" />
<asp:ListItem Text="Fecha de Inicio" Value="fecha" />
</asp:RadioButtonList>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div id="calendar"> <div id="calendar">
</div> </div>
@@ -56,21 +75,23 @@
data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax "> data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax ">
<Columns> <Columns>
<asp:TemplateField HeaderText="No. Contrato"> <asp:TemplateField HeaderText="Folio">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCveContrato" runat="server" Text='<%# Eval("CveContrato") %>'></asp:Literal> <asp:Literal ID="LtlCveContrato" runat="server" Text='<%# Eval("CveContrato") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
<asp:TemplateField HeaderText="Descripcion"> <HeaderTemplate>
Fecha<br />
Salida
</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlDescripcionContrato" runat="server" Text='<%# Eval("DescripcionContrato") %>'></asp:Literal> <asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Viaje">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Ubicación">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal> <asp:Literal ID="LtlDescripcionContrato" runat="server" Text='<%# Eval("DescripcionContrato") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -85,17 +106,11 @@
<asp:Literal ID="LtlChofer" runat="server" Text='<%# Eval("NombreCompleto") %>'></asp:Literal> <asp:Literal ID="LtlChofer" runat="server" Text='<%# Eval("NombreCompleto") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Unidad">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
<HeaderTemplate>
Fecha<br />
Salida
</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaInicial", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("AF") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px"> <asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
<HeaderTemplate> <HeaderTemplate>
Fecha<br /> Fecha<br />
@@ -207,15 +222,33 @@
<asp:Label runat="server" Text="Transporte:"></asp:Label></label><div <asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
class="col-md-8"> class="col-md-8">
<asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataValueField="CveActivoFijo" <asp:DropDownList ID="DdlTipoAF" DataValueField="CveTipoActivoFijo"
DataTextField="Descripcion" Class="table-group-action-input form-control input-inline text-center" DataTextField="TipoActivoFijo" Class="table-group-action-input form-control input-inline "
Width="200px" runat="server"> Width="200px" runat="server">
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte" <asp:RequiredFieldValidator ID="RFVTipoAF" runat="server" ControlToValidate="DdlTipoAF"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo." Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco" <ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
TargetControlID="RFVTransporte" Width="400px" BehaviorID="_content_VCETransporte"> TargetControlID="RFVTipoAF" Width="400px" >
</ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row margin-bottom-5" id="DivAF" runat="server">
<label class="col-md-4 bold">
<asp:Label runat="server" Text="Unidad:"></asp:Label></label><div
class="col-md-8">
<asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
DataTextField="CodigoDescripcion" Class="table-group-action-input form-control input-inline "
Width="200px" runat="server">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAF" runat="server" ControlToValidate="DdlAF"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco"
TargetControlID="RFVAF" Width="400px" >
</ajax:ValidatorCalloutExtender> </ajax:ValidatorCalloutExtender>
</div> </div>
@@ -324,7 +357,7 @@
$('#<%=TxtFechaSalida.ClientID.ToString%>').val(event.start._i); $('#<%=TxtFechaSalida.ClientID.ToString%>').val(event.start._i);
$('#<%=TxtFechaRegreso.ClientID.ToString%>').val(event.end._i); $('#<%=TxtFechaRegreso.ClientID.ToString%>').val(event.end._i);
$('#<%=DdlClientes.ClientID%>').val(event.CveCliente); $('#<%=DdlClientes.ClientID%>').val(event.CveCliente);
$('#<%=DdlTransporte.ClientID%>').val(event.CveActivoFijo); $('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);
$('#<%=DdlChofer.ClientID%>').val(event.CvePersonal); $('#<%=DdlChofer.ClientID%>').val(event.CvePersonal);
$('#<%=TxtDolares.ClientID%>').val(event.Dolares); $('#<%=TxtDolares.ClientID%>').val(event.Dolares);
$('#<%=TxtPesos.ClientID%>').val(event.Pesos); $('#<%=TxtPesos.ClientID%>').val(event.Pesos);

49
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -11,6 +11,7 @@ Partial Class RepContratosCalendario
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
CargaCombos()
InicializaCalendar() InicializaCalendar()
CargaDatos() CargaDatos()
@@ -28,24 +29,27 @@ Partial Class RepContratosCalendario
End Sub End Sub
Private Sub InicializaCalendar() Private Sub InicializaCalendar()
'Lista Activos Fijos'
Dim ObjAF As New ClsAF() RegistraScript("InitCalendar();")
If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
If ObjAF.DtResultados.Rows.Count > 0 Then End Sub
DdlTransporte.DataSource = ObjAF.DtResultados
DdlTransporte.Items.Insert(0, New ListItem("Seleccione", "")) Private Sub CargaCombos()
End If DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
End If DdlTipoAF.DataBind()
DdlTransporte.DataBind() DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
ObjAF.Dispose() DdlTipoAF.DataBind()
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("-", ""))
DdlTipoAF.DataBind()
'Lista Chofer' 'Lista Chofer'
DdlChofer.DataSource = GlobalDTRHPersonal(185) DdlChofer.DataSource = GlobalDTRHPersonal(185)
DdlChofer.DataBind() DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "")) DdlChofer.Items.Insert(0, New ListItem("-", ""))
RegistraScript("InitCalendar();")
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
End Sub End Sub
Protected Sub MostrarModal(sender As Object, e As System.EventArgs) Protected Sub MostrarModal(sender As Object, e As System.EventArgs)
@@ -55,28 +59,23 @@ Partial Class RepContratosCalendario
Protected Sub UpdateContrato(sender As Object, e As EventArgs) Protected Sub UpdateContrato(sender As Object, e As EventArgs)
If DdlClientes.SelectedValue = "" Then 'If DdlClientes.SelectedValue = "" Then
Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia) ' Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If 'End If
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL() ObjContratos.IniciaTransacSQL()
Try
If ObjContratos.UpdateContratos(CveContrato.Value.ToEntero, "", 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:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) Then
If ObjContratos.UpdateContratoAF(CveContrato.Value.ToEntero, DdlAF.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
ObjContratos.Commit() ObjContratos.Commit()
Alert("Actualizado Correctamente.") Alert("Actualizado Correctamente.")
Else
ObjContratos.RollBack()
End If End If
Catch ex As Exception
Alert("Ocurrió un error al actualizar el contrato", TipoMensaje.MsgError)
ObjContratos.RollBack()
Finally
ObjContratos.Dispose() ObjContratos.Dispose()
CargaDatos() CargaDatos()
End Try
End Sub End Sub