Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
72
Acarreos/Acarreos.aspx
Normal file
72
Acarreos/Acarreos.aspx
Normal file
@@ -0,0 +1,72 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Acarreos.aspx.vb" Inherits="Acarreos_Acarreos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkAcarreo" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvAcarreo.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvAcarreo.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvAcarreo" runat="server" GridLines="None" DataKeyNames="CveAcarreo,Transportista,CveTransportista,CveUnidad,CveChofer,Folio,Fecha,CveSubProyectoOrigen,CveSubProyectoDestino,Volumen,CveEstatus,CveTipoAcarreo,Unidad,Chofer,SubProyectoOrigen,SubProyectoDestino,FechaIng,Km,Material,CveMaterial,Usuario" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Acarreos">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto Origen" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto Destino" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField DataField="Km" HeaderText="Kilometraje" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField DataField="Volumen" HeaderText="Volumen" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Tipo Acarreo">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblTipoAcarreo" runat="server" Text='<%# Eval("CveTipoAcarreo") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" />
|
||||
<asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("CveEstatus") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
74
Acarreos/Acarreos.aspx.vb
Normal file
74
Acarreos/Acarreos.aspx.vb
Normal file
@@ -0,0 +1,74 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_Acarreos
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreo(UsuarioActual.CveEmpresa, -1) Then
|
||||
GvAcarreo.DataSource = ObjAcar.DtResultados
|
||||
GvAcarreo.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Response.Redirect($"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={GvRow.DataKey("CveAcarreo")}")
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveAcarreo")
|
||||
UpDatos.Update()
|
||||
If ObjAcar.RemoveAcarreo(HdnID.Value) Then
|
||||
CargaDatos()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvAcarreo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAcarreo.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("CveEstatus") = True Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("CveTipoAcarreo") = True Then
|
||||
e.Row.FCLabel("LblTipoAcarreo").Text = "Destino"
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblTipoAcarreo").Text = "Origen"
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkAcarreo_Click(sender As Object, e As EventArgs) Handles LnkAcarreo.Click
|
||||
Response.Redirect("/Acarreos/RegistroAcarreo.aspx", True)
|
||||
UppAddAcciones.Update()
|
||||
End Sub
|
||||
End Class
|
||||
242
Acarreos/AcarreosConcluidos.aspx
Normal file
242
Acarreos/AcarreosConcluidos.aspx
Normal file
@@ -0,0 +1,242 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="AcarreosConcluidos.aspx.vb" Inherits="Acarreos_AcarreosAutoConciliacion" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.dataTables_scrollHead {
|
||||
background-color: #95A5A6;
|
||||
color: white;
|
||||
}
|
||||
|
||||
.table-scrollable {
|
||||
margin-top: 0px !important;
|
||||
margin-bottom: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
padding-top: 0px;
|
||||
}
|
||||
|
||||
.Totales a {
|
||||
color: white;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Acarreos Concluidos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<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">
|
||||
<label class="col-md-1 ">Contrato:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="CveAcarreoProyecto" DataTextField="NumContrato" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.I:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.F:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" 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: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="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">P. Origen:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoOrigen" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">P. Destino:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoDestino" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1">Unidad: </label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlUnidad" DataValueField="CveUnidad" DataTextField="Unidad" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Chofer:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlChofer" DataValueField="CveChofer" DataTextField="Chofer" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">Transportista:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Material:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-bus font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Relacionados</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="bodyAcarreos" class="portlet-body form">
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="dvCa">
|
||||
<table id="dTable" class="correcto table Widthall ">
|
||||
<tr>
|
||||
<td id="Td1" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px;" width="40"><b>Origen</b></td>
|
||||
<td id="Td2" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px;" width="10"><b>Destino</b></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Acarreos con los filtros especificados" DataKeyNames="CveAcarreoOrigen,CveAcarreoDestino,Folio,CveEstatus,CveTipoAcarreoOrigen,CveTipoAcarreoDestino,Volumen,Km,FechaOrigen,FechaDestino,CveUnidad,CveSubProyectoOrigen,CveSubProyectoDestino,CveChofer,CveTransportista,CveMaterial" ToolTip="Listado de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="FechaOrigen" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField HeaderText="" ItemStyle-Width="3%">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlGrupo" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio2" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="FechaDestino" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkRow" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12" align="Center">
|
||||
<asp:LinkButton ID="BtnAgregarAcarreoConcluido" runat="server" CssClass="btn btn-primary" Width="20%" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Vincular</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-bus font-green"></i>
|
||||
<span class="caption-subject bold uppercase">No Relacionados</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatosNoMatch.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatosNoMatch.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<div id="bodyAcarreos2" class="portlet-body form">
|
||||
<asp:GridView ID="GvDatosNoMatch" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Acarreos con los filtros especificados" DataKeyNames="CveAcarreo,Folio,CveTipoAcarreo,Volumen,Km,Fecha,CveUnidad,CveSubProyectoOrigen,CveSubProyectoDestino,CveChofer,CveTransportista,CveMaterial" ToolTip="Listado de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto Origen" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto Destino" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Tipo de Acarreo">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblTipoAcarreo" runat="server" Text='<%# Eval("CveTipoAcarreo") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server" Text='<%# Eval("Volumen") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Km" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlKm" runat="server" Text='<%# Eval("Km") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
181
Acarreos/AcarreosConcluidos.aspx.vb
Normal file
181
Acarreos/AcarreosConcluidos.aspx.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_AcarreosAutoConciliacion
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDdlSubProyectoDestino()
|
||||
CargaDdlSubProyectoOrigen()
|
||||
CargaDdlChofer()
|
||||
CargaDdlUnidad()
|
||||
CargaDdlTransportista()
|
||||
CargaDdlMaterial()
|
||||
CargaDdlNumContrato()
|
||||
txtFechaF.Text = Now.AddDays(0).ToShortDateString
|
||||
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
|
||||
BtnAgregarAcarreoConcluido.Text = "Vincular"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlUnidad()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa, -1) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
DdlUnidad.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlChofer()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlMaterial()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvNoMatch()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosConcluidosNoMatch(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, DdlUnidad.SelectedValue, DdlChofer.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
|
||||
GvDatosNoMatch.DataSource = ObjAcar.DtResultados
|
||||
GvDatosNoMatch.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDdlSubProyectoOrigen()
|
||||
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoOrigen.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
Private Sub CargaDdlSubProyectoDestino()
|
||||
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoDestino.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaGvNoMatch()
|
||||
CargaGvMatch()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvMatch()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosConcluidosMatch(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, DdlUnidad.SelectedValue, DdlChofer.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Css As String = "Texto"
|
||||
Dim Css2 As String = "Texto"
|
||||
e.Row.Cells(4).BackColor = Drawing.Color.LightGray
|
||||
|
||||
Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreoOrigen")}"
|
||||
e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
|
||||
|
||||
Dim Liga2 As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreoDestino")}"
|
||||
e.Row.FCLiteral("LtlFolio2").Text = "<a class=""" & Css2 & """ href=""" & Liga2 & """>" & e.Row.FCLiteral("LtlFolio2").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarAcarreoConcluido_Click(sender As Object, e As EventArgs) Handles BtnAgregarAcarreoConcluido.Click
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim ErrorAdd As Boolean
|
||||
Dim si As Integer = 0
|
||||
ObjAcar.IniciaTransacSQL()
|
||||
For Each Gvr As GridViewRow In GvDatos.Rows
|
||||
If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
|
||||
si = 1
|
||||
If Not ObjAcar.AddAcarreosConcluidos(Gvr.DataKey("CveAcarreoOrigen").ToEntero, Gvr.DataKey("CveAcarreoDestino").ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ErrorAdd = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If ErrorAdd = True Then
|
||||
ObjAcar.RollBack()
|
||||
Alert("Ocurrio un error al momento de agregar.", TipoMensaje.MsgError)
|
||||
Else
|
||||
ObjAcar.Commit()
|
||||
If si = 1 Then
|
||||
Alert("Agregado(s) Correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("No ha seleccionado ningun acarreo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
CargaGvMatch()
|
||||
CargaGvNoMatch()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatosNoMatch_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosNoMatch.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Css As String = "Texto"
|
||||
e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlKm").Text = FormatNumber(e.Row.FCLiteral("LtlKm").Text, 2, , , TriState.True)
|
||||
|
||||
If e.Row.DBCampo("CveTipoAcarreo") = True Then
|
||||
e.Row.FCLabel("LblTipoAcarreo").Text = "Destino"
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblTipoAcarreo").Text = "Origen"
|
||||
End If
|
||||
Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreo")}"
|
||||
e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
129
Acarreos/AcarreosPreEstimacion.aspx
Normal file
129
Acarreos/AcarreosPreEstimacion.aspx
Normal file
@@ -0,0 +1,129 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="AcarreosPreEstimacion.aspx.vb" Inherits="Acarreos_AcarreosPreEstimacion" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Pre-Estimación de Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12 ">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-line-chart font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Pre-Estimación
|
||||
</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="bodyAcarreos" class="portlet-body form">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="CveAcarreoProyecto" DataTextField="NumContrato" AutoPostBack="true" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlNumContrato.ClientID.ToString()%>">Contrato:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" AutoPostBack="true" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" AutoPostBack="true" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlMaterial.ClientID.ToString()%>">Material:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumPreEstimacion" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FIETxtNumPreEstimacion" TargetControlID="TxtNumPreEstimacion" FilterType="Numbers" runat="server" />
|
||||
<asp:RequiredFieldValidator ID="RFVTxtNumPreEstimacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtNumPreEstimacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de PreEstimacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtNumPreEstimacion.ClientID.ToString()%>">Numero de Pre-Estimacion:</label>
|
||||
</div>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<label>Fecha de Pre-Estimación:</label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaPreEstimacion" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgFechaPreEstimacion" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaPreEstimacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaPreEstimacion" PopupButtonID="ImgFechaPreEstimacion" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFechaPreEstimacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVEFecha" runat="server" ControlToValidate="TxtFechaPreEstimacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpObligatorio"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio2" runat="server" HighlightCssClass="vco" TargetControlID="CVEFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPreEstimacion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPreEstimacion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GvPreEstimacion" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveAcarreoProyecto,CveAcarreoConcluido,CveAcarreo" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No hay registros" ToolTip="Listado de Acarreos Concluidos">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto Origen" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto Destino" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server" Text='<%# Eval("Volumen") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Km" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlKm" runat="server" Text='<%# Eval("Km") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Tarifa") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="FechaOrigen" HeaderText="Fecha Origen" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="FechaDestino" HeaderText="Fecha Destino" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkRow" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row" align="center">
|
||||
<asp:LinkButton ID="BtnAgregarPreEstimacion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio" Width="150px"> <i class='material-icons'>done_all</i>Pre-Estimar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
156
Acarreos/AcarreosPreEstimacion.aspx.vb
Normal file
156
Acarreos/AcarreosPreEstimacion.aspx.vb
Normal file
@@ -0,0 +1,156 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_AcarreosPreEstimacion
|
||||
Inherits ClsPaginas
|
||||
#Region " PROPIEDADES"
|
||||
Property _CvePreEstimacion As Integer
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataBind()
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataBind()
|
||||
TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
|
||||
BtnAgregarPreEstimacion.Text = "Pre-Estimar"
|
||||
CargaDdlNumContrato()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarPreEstimacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarPreEstimacion.Click
|
||||
If DdlNumContrato.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un contrato", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf DdlTransportista.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un transportista", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim ErrorAdd As Boolean = False
|
||||
ObjAcar.IniciaTransacSQL()
|
||||
For Each Gvr As GridViewRow In GvPreEstimacion.Rows
|
||||
If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
|
||||
If Not ObjAcar.AddPreEstimacion(DdlNumContrato.SelectedValue, DdlTransportista.SelectedValue, TxtNumPreEstimacion.Text, TxtFechaPreEstimacion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ErrorAdd = True
|
||||
Exit For
|
||||
End If
|
||||
_CvePreEstimacion = ObjAcar._CvePreEstimacion
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _CvePreEstimacion <> Nothing Then
|
||||
For Each Gvr As GridViewRow In GvPreEstimacion.Rows
|
||||
If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
|
||||
If Not ObjAcar.AddPreEstimacionDetalle(_CvePreEstimacion, Gvr.DataKey("CveAcarreoConcluido").ToEntero) Then
|
||||
ErrorAdd = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
If ErrorAdd = True Then
|
||||
ObjAcar.RollBack()
|
||||
Alert("Ocurrio un error al momento de agregar.", TipoMensaje.MsgError)
|
||||
Else
|
||||
ObjAcar.Commit()
|
||||
If _CvePreEstimacion <> Nothing Then
|
||||
Alert("Agregado(s) Correctamente.", TipoMensaje.MsgInformacion)
|
||||
DdlTransportista.Items.Clear()
|
||||
DdlNumContrato.Items.Clear()
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataBind()
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataBind()
|
||||
CargaDdlNumContrato()
|
||||
TxtNumPreEstimacion.Text = ""
|
||||
TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
|
||||
GvPreEstimacion.DataSource = Nothing
|
||||
GvPreEstimacion.DataBind()
|
||||
Else
|
||||
Alert("No selecciono ningun acarreo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlMaterial_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMaterial.SelectedIndexChanged
|
||||
GvPreEstimacion.DataSource = Nothing
|
||||
GvPreEstimacion.DataBind()
|
||||
If Not DdlTransportista.SelectedValue = "-1" Then
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosConcluidos(DdlTransportista.SelectedValue, UsuarioActual.CveEmpresa, DdlNumContrato.SelectedValue, 0, DdlMaterial.SelectedValue) Then
|
||||
GvPreEstimacion.DataSource = ObjAcar.DtResultados
|
||||
GvPreEstimacion.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DdlNumContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlNumContrato.SelectedIndexChanged
|
||||
DdlTransportista.Items.Clear()
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataBind()
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataBind()
|
||||
If Not DdlNumContrato.SelectedValue = "-1" Then
|
||||
DdlTransportista.Items.Clear()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1, DdlNumContrato.SelectedValue) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
Else
|
||||
GvPreEstimacion.DataSource = Nothing
|
||||
GvPreEstimacion.DataBind()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DdlTransportista_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTransportista.SelectedIndexChanged
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataBind()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(DdlNumContrato.SelectedValue, UsuarioActual.CveEmpresa, -1) Then
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GvPreEstimacion_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPreEstimacion.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Css As String = "Texto"
|
||||
Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreo")}"
|
||||
e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
|
||||
If e.Row.FCLiteral("LtlImporte").Text = "" Then
|
||||
e.Row.FCLiteral("LtlImporte").Text = "Error"
|
||||
e.Row.Cells(8).BackColor = Drawing.Color.Red
|
||||
e.Row.Cells(8).ForeColor = Drawing.Color.White
|
||||
e.Row.FCCheckBox("ChkRow").Enabled = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
98
Acarreos/CatChoferes.aspx
Normal file
98
Acarreos/CatChoferes.aspx
Normal file
@@ -0,0 +1,98 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChoferes.aspx.vb" Inherits="Acarreos_CatChoferes" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Choferes
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkChofer" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChofer.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvChofer.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GvChofer" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="A" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<%--POPUP AGREGAR--%>
|
||||
<div id="divAddChofer" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddChofer" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server">Agregar Chofer</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyChofer" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtChofer" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVChofer" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtChofer" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtChofer.ClientID.ToString()%>">Chofer:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarChofer" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
122
Acarreos/CatChoferes.aspx.vb
Normal file
122
Acarreos/CatChoferes.aspx.vb
Normal file
@@ -0,0 +1,122 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_CatChoferes
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
CargaDdlTransportista()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then
|
||||
GvChofer.DataSource = ObjAcar.DtResultados
|
||||
GvChofer.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpAddChofer.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
|
||||
If DdlTransportista.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim Estatus = 0
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
If HdnModalidad.Value = "A" Then
|
||||
If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue) Then
|
||||
CargaDatos()
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HdnModalidad.Value = "U" Then
|
||||
If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue) Then
|
||||
CargaDatos()
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveChofer")
|
||||
UpDatos.Update()
|
||||
BtnAgregarChofer.Text = "Actualizar"
|
||||
myModalLabel.InnerText = "Actualizar Chofer"
|
||||
TxtChofer.Text = GvRow.DataKey("Chofer")
|
||||
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
|
||||
divEstatus.Visible = True
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
UpAddChofer.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
|
||||
End Sub
|
||||
|
||||
Public Sub Agregar()
|
||||
HdnModalidad.Value = "A"
|
||||
UpDatos.Update()
|
||||
BtnAgregarChofer.Text = "Agregar"
|
||||
myModalLabel.InnerText = "Agregar Chofer"
|
||||
TxtChofer.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divEstatus.Visible = False
|
||||
UpAddChofer.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
|
||||
End Sub
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveChofer")
|
||||
UpDatos.Update()
|
||||
If ObjAcar.RemoveChofer(HdnID.Value) Then
|
||||
CargaDatos()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("Estatus") = True Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
|
||||
Agregar()
|
||||
End Sub
|
||||
End Class
|
||||
94
Acarreos/CatMateriales.aspx
Normal file
94
Acarreos/CatMateriales.aspx
Normal file
@@ -0,0 +1,94 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMateriales.aspx.vb" Inherits="Acarreos_CatMateriales" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
Catálogo de Materiales
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkMaterial" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvMaterial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvMaterial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GvMaterial" runat="server" GridLines="None" DataKeyNames="CveMaterial,Material,Estatus,FechaIng,CveEmpresa,CveUsuario,Usuario" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Materiales">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="A" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<%--POPUP AGREGAR--%>
|
||||
<div id="divAddMaterial" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddMaterial" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server" >Agregar Material</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyMaterial" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtMaterial" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVMaterial" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtMaterial" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Material''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtMaterial.ClientID.ToString()%>">Material:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarMaterial" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
103
Acarreos/CatMateriales.aspx.vb
Normal file
103
Acarreos/CatMateriales.aspx.vb
Normal file
@@ -0,0 +1,103 @@
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Partial Class Acarreos_CatMateriales
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarMaterial_Click(sender As Object, e As EventArgs) Handles BtnAgregarMaterial.Click
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim Estatus = 0
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
If HdnModalidad.Value = "A" Then
|
||||
If ObjAcar.AddMaterial(TxtMaterial.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDatos()
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HdnModalidad.Value = "U" Then
|
||||
If ObjAcar.UpdateMaterial(HdnID.Value, TxtMaterial.Text, Estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDatos()
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddMaterial"))
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcarreos As New ClsAcarreos()
|
||||
If ObjAcarreos.GetMaterial(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvMaterial.DataSource = ObjAcarreos.DtResultados
|
||||
GvMaterial.DataBind()
|
||||
End If
|
||||
ObjAcarreos.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveMaterial")
|
||||
UpDatos.Update()
|
||||
BtnAgregarMaterial.Text = "Actualizar"
|
||||
myModalLabel.InnerText = "Actualizar Material"
|
||||
TxtMaterial.Text = GvRow.DataKey("Material")
|
||||
divEstatus.Visible = True
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
UpAddMaterial.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMaterial"))
|
||||
End Sub
|
||||
|
||||
Public Sub Agregar()
|
||||
HdnModalidad.Value = "A"
|
||||
UpDatos.Update()
|
||||
BtnAgregarMaterial.Text = "Agregar"
|
||||
myModalLabel.InnerText = "Agregar Material"
|
||||
TxtMaterial.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divEstatus.Visible = False
|
||||
UpAddMaterial.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMaterial"))
|
||||
End Sub
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveMaterial")
|
||||
UpDatos.Update()
|
||||
If ObjAcar.RemoveMaterial(HdnID.Value) Then
|
||||
CargaDatos()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMaterial.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("Estatus") = True Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkMaterial_Click(sender As Object, e As EventArgs) Handles LnkMaterial.Click
|
||||
Agregar()
|
||||
End Sub
|
||||
End Class
|
||||
98
Acarreos/CatTransportistas.aspx
Normal file
98
Acarreos/CatTransportistas.aspx
Normal file
@@ -0,0 +1,98 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatTransportistas.aspx.vb" Inherits="Acarreos_CatTransportistas" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Transportistas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkTransportista" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTransportista.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTransportista.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GvTransportista" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveTransportista,Transportista,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveProveedor,RazonSocial" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Transportistas">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="A" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<%--POPUP AGREGAR--%>
|
||||
<div id="divAddTransportista" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddTransportista" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server">Agregar Transportista</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyTransportista" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtTransportista" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTransportista" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTransportista" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transportista''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlProveedor" DataValueField="CveProveedor" AppendDataBoundItems="true" DataTextField="RazonSocial" runat="server" CssClass="form-control select2me" Width="400px"></asp:DropDownList>
|
||||
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarTransportista" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
117
Acarreos/CatTransportistas.aspx.vb
Normal file
117
Acarreos/CatTransportistas.aspx.vb
Normal file
@@ -0,0 +1,117 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_CatTransportistas
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
CargaDdlProveedor()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvTransportista.DataSource = ObjAcar.DtResultados
|
||||
GvTransportista.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlProveedor()
|
||||
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedor.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarTransportista_Click(sender As Object, e As EventArgs) Handles BtnAgregarTransportista.Click
|
||||
If DdlProveedor.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim Estatus = 0
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
If HdnModalidad.Value = "A" Then
|
||||
If ObjAcar.AddTransportista(TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue) Then
|
||||
CargaDatos()
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HdnModalidad.Value = "U" Then
|
||||
If ObjAcar.UpdateTransportista(HdnID.Value, TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlProveedor.SelectedValue) Then
|
||||
CargaDatos()
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTransportista"))
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveTransportista")
|
||||
UpDatos.Update()
|
||||
BtnAgregarTransportista.Text = "Actualizar"
|
||||
myModalLabel.InnerText = "Actualizar Transportista"
|
||||
TxtTransportista.Text = GvRow.DataKey("Transportista")
|
||||
DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
|
||||
divEstatus.Visible = True
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
UpAddTransportista.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddTransportista"))
|
||||
End Sub
|
||||
|
||||
Public Sub Agregar()
|
||||
HdnModalidad.Value = "A"
|
||||
UpDatos.Update()
|
||||
BtnAgregarTransportista.Text = "Agregar"
|
||||
myModalLabel.InnerText = "Agregar Transportista"
|
||||
TxtTransportista.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divEstatus.Visible = False
|
||||
UpAddTransportista.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddTransportista"))
|
||||
End Sub
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveTransportista")
|
||||
UpDatos.Update()
|
||||
If ObjAcar.RemoveTransportista(HdnID.Value) Then
|
||||
CargaDatos()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvTransportista_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTransportista.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("Estatus") = True Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkTransportista_Click(sender As Object, e As EventArgs) Handles LnkTransportista.Click
|
||||
Agregar()
|
||||
End Sub
|
||||
End Class
|
||||
192
Acarreos/CatUnidades.aspx
Normal file
192
Acarreos/CatUnidades.aspx
Normal file
@@ -0,0 +1,192 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatUnidades.aspx.vb" Inherits="Acarreos_CatUnidades" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Unidades
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkUnidad" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUnidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUnidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GvUnidad" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveUnidad,UnidadCodigo,Unidad,Estatus,CveUsuario,Usuario,Transportista,CveTransportista" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Unidades">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Unidad" HeaderText=" Nombre de Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="UnidadCodigo" HeaderText="Codigo de Unidad" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Codigo" ItemStyle-Width="80" HeaderStyle-Width="80">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkModalCodigoBarrasQr" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" OnClick="LnkModalCodigoBarrasQr_Click" Text="<i class='fa fa-qrcode'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidad" runat="server" Value="A" ClientIDMode="Static" />
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<%--POPUP AGREGAR--%>
|
||||
<div id="divAddUnidad" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddUnidad" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server">Agregar Unidad</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyUnidad" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" AppendDataBoundItems="true" DataTextField="Transportista" runat="server" CssClass="form-control select2me" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtUnidadCodigo" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvUnidadCodigo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtUnidadCodigo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Codigo de Unidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtUnidadCodigo.ClientID.ToString()%>">Codigo:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtUnidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVUnidad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtUnidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtUnidad.ClientID.ToString()%>">Nombre de Unidad:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarUnidad" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="ModalCodigoBarrasQR" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:UpdatePanel ID="UpModalTitulo" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Literal ID="LtlModalTitleUpModalTitulo" runat="server">Codigo </asp:Literal>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</h4>
|
||||
</div>
|
||||
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpModalUploadCodigoBarras" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div style="text-align: center">
|
||||
<asp:Image ID="ImgModalCodigo" runat="server" Height="150" Width="150" />
|
||||
</div>
|
||||
<div>
|
||||
<div class="row">
|
||||
|
||||
<%-- <div class="col-md-4 form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCodigoBarrasModal" CssClass="form-control " runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigoBarrasModal.ClientID.ToString()%>">Código:</label>
|
||||
<i></i>
|
||||
</div>--%>
|
||||
|
||||
<div class="col-md-4 form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DDLCodigoFormato" runat="server" CssClass="form-control input-sm select2me" Width="200" AutoPostBack="true">
|
||||
<asp:ListItem Value="CODE_128">CODE_128</asp:ListItem>
|
||||
<asp:ListItem Selected="True" Value="QR_CODE">QR_CODE</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DDLCodigoFormato.ClientID.ToString()%>">Formato:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4 form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtAlto" runat="server" MaxLength="30" CssClass="form-control marginFixRow"></asp:TextBox>
|
||||
<label for="<%= TxtAlto.ClientID.ToString()%>">Alto:</label>
|
||||
<ajax:FilteredTextBoxExtender runat="server" ID="FETxtAlto" TargetControlID="TxtAlto" FilterType="Numbers" InvalidChars=".-," />
|
||||
|
||||
</div>
|
||||
|
||||
<div class="col-md-4 form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtAncho" runat="server" MaxLength="30" CssClass="form-control marginFixRow"></asp:TextBox>
|
||||
<label for="<%= TxtAncho.ClientID.ToString()%>">Ancho:</label>
|
||||
<ajax:FilteredTextBoxExtender runat="server" ID="FilteredTextBoxExtender1" TargetControlID="TxtAncho" FilterType="Numbers" InvalidChars=".-," />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-12 form-group form-md-line-input " style="text-align: center!important">
|
||||
<asp:LinkButton ID="LnkModalGenerarCodigoBarrasQR" runat="server" Text="Generar" CssClass="btn btn-primary"></asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server" ID="UpModalBotonesCodigos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:LinkButton ID="LnkDescargaImagen" runat="server" Text="Descargar <i class='fa fa-download' aria-hidden='true'></i>" CssClass="btn btn-primary"></asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkDescargaImpresion" runat="server" Text="Imprimir <i class='fa fa-print' aria-hidden='true'></i>" CssClass="btn btn-primary"></asp:LinkButton>
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkDescargaImagen" />
|
||||
<asp:PostBackTrigger ControlID="LnkDescargaImpresion" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
351
Acarreos/CatUnidades.aspx.vb
Normal file
351
Acarreos/CatUnidades.aspx.vb
Normal file
@@ -0,0 +1,351 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports ZXing
|
||||
|
||||
Partial Class Acarreos_CatUnidades
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
Property CveUnidad As Integer
|
||||
Get
|
||||
If Not ViewState("CveUnidad") Is Nothing Then
|
||||
Return ViewState("CveUnidad").ToString.ToEntero
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveUnidad") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
CargaDdlTransportista()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarUnidad_Click(sender As Object, e As EventArgs) Handles BtnAgregarUnidad.Click
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim Estatus = 0
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
If HdnModalidad.Value = "A" Then
|
||||
If ObjAcar.AddUnidad(TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue) Then
|
||||
CargaDatos()
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HdnModalidad.Value = "U" Then
|
||||
If ObjAcar.UpdateUnidad(HdnID.Value, TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue, Estatus) Then
|
||||
CargaDatos()
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddUnidad"))
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetUnidad(-1, -1, UsuarioActual.CveEmpresa,-1) Then
|
||||
GvUnidad.DataSource = ObjAcar.DtResultados
|
||||
GvUnidad.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveUnidad")
|
||||
UpDatos.Update()
|
||||
BtnAgregarUnidad.Text = "Actualizar"
|
||||
myModalLabel.InnerText = "Actualizar Unidad"
|
||||
TxtUnidad.Text = GvRow.DataKey("Unidad")
|
||||
TxtUnidadCodigo.Text = GvRow.DataKey("UnidadCodigo")
|
||||
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
|
||||
divEstatus.Visible = True
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
UpAddUnidad.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidad"))
|
||||
End Sub
|
||||
|
||||
Public Sub Agregar()
|
||||
HdnModalidad.Value = "A"
|
||||
UpDatos.Update()
|
||||
BtnAgregarUnidad.Text = "Agregar"
|
||||
myModalLabel.InnerText = "Agregar Unidad"
|
||||
TxtUnidad.Text = ""
|
||||
TxtUnidadCodigo.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divEstatus.Visible = False
|
||||
UpAddUnidad.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidad"))
|
||||
End Sub
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveUnidad")
|
||||
UpDatos.Update()
|
||||
If ObjAcar.RemoveUnidad(HdnID.Value) Then
|
||||
CargaDatos()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvUnidad_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvUnidad.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("Estatus") = True Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkUnidad_Click(sender As Object, e As EventArgs) Handles LnkUnidad.Click
|
||||
Agregar()
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Codigo Barras/QR"
|
||||
'Codigo barras/QR se retorna como una imagen bmp
|
||||
Private Function GeneraCodigoQR(CodigoBarras As String, Alto As Integer, Largo As Integer, Margen As Integer, Formato As String) As Byte()
|
||||
|
||||
Dim barcodeWriter As New BarcodeWriter
|
||||
Dim opciones As New ZXing.Common.EncodingOptions
|
||||
Dim FormatoBar As New BarcodeFormat
|
||||
'Dim Respuesta As Byte()
|
||||
|
||||
opciones.Height = Alto
|
||||
opciones.Width = Largo
|
||||
opciones.Margin = Margen
|
||||
|
||||
barcodeWriter.Options = opciones
|
||||
|
||||
Select Case Formato
|
||||
Case "All_1D"
|
||||
barcodeWriter.Format = BarcodeFormat.All_1D
|
||||
Exit Select
|
||||
Case "AZTEC"
|
||||
barcodeWriter.Format = BarcodeFormat.AZTEC
|
||||
Exit Select
|
||||
Case "CODABAR"
|
||||
barcodeWriter.Format = BarcodeFormat.CODABAR
|
||||
Exit Select
|
||||
Case "CODE_128"
|
||||
barcodeWriter.Format = BarcodeFormat.CODE_128
|
||||
Exit Select
|
||||
Case "CODE_39"
|
||||
barcodeWriter.Format = BarcodeFormat.CODE_39
|
||||
Exit Select
|
||||
Case "CODE_93"
|
||||
barcodeWriter.Format = BarcodeFormat.CODE_93
|
||||
Exit Select
|
||||
Case "DATA_MATRIX"
|
||||
barcodeWriter.Format = BarcodeFormat.DATA_MATRIX
|
||||
Exit Select
|
||||
Case "EAN_13"
|
||||
barcodeWriter.Format = BarcodeFormat.EAN_13
|
||||
Exit Select
|
||||
Case "EAN_8"
|
||||
barcodeWriter.Format = BarcodeFormat.EAN_8
|
||||
Exit Select
|
||||
Case "IMB"
|
||||
barcodeWriter.Format = BarcodeFormat.IMB
|
||||
Exit Select
|
||||
Case "ITF"
|
||||
barcodeWriter.Format = BarcodeFormat.ITF
|
||||
Exit Select
|
||||
Case "MAXICODE"
|
||||
barcodeWriter.Format = BarcodeFormat.MAXICODE
|
||||
Exit Select
|
||||
Case "MSI"
|
||||
barcodeWriter.Format = BarcodeFormat.MSI
|
||||
Exit Select
|
||||
Case "PDF_417"
|
||||
barcodeWriter.Format = BarcodeFormat.PDF_417
|
||||
Exit Select
|
||||
Case "PLESSEY"
|
||||
barcodeWriter.Format = BarcodeFormat.PLESSEY
|
||||
Exit Select
|
||||
Case "QR_CODE"
|
||||
barcodeWriter.Format = BarcodeFormat.QR_CODE
|
||||
Exit Select
|
||||
Case "RSS_14"
|
||||
barcodeWriter.Format = BarcodeFormat.RSS_14
|
||||
Exit Select
|
||||
Case "RSS_EXPANDED"
|
||||
barcodeWriter.Format = BarcodeFormat.RSS_EXPANDED
|
||||
Exit Select
|
||||
Case "UPC_A"
|
||||
barcodeWriter.Format = BarcodeFormat.UPC_A
|
||||
Exit Select
|
||||
Case "UPC_E"
|
||||
barcodeWriter.Format = BarcodeFormat.UPC_E
|
||||
Exit Select
|
||||
Case "UPC_EAN_EXTENSION"
|
||||
barcodeWriter.Format = BarcodeFormat.UPC_EAN_EXTENSION
|
||||
Exit Select
|
||||
|
||||
End Select
|
||||
|
||||
Dim imgCod As Drawing.Bitmap = barcodeWriter.Write(CodigoBarras)
|
||||
Dim memoriStream As New System.IO.MemoryStream
|
||||
imgCod.Save(memoriStream, Drawing.Imaging.ImageFormat.Bmp)
|
||||
|
||||
'Respuesta = Convert.ToBase64String(memoriStream.ToArray())
|
||||
|
||||
Return memoriStream.ToArray()
|
||||
|
||||
End Function
|
||||
|
||||
Sub LnkModalCodigoBarrasQr_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
CveUnidad = GvRow.DataKey("CveUnidad").ToString.ToEntero
|
||||
|
||||
LnkDescargaImagen.Enabled = False
|
||||
LnkDescargaImpresion.Enabled = False
|
||||
UpModalBotonesCodigos.Update()
|
||||
|
||||
' TxtCodigoBarrasModal.Text = TxtCodigoBarras.Text.Trim
|
||||
UpModalUploadCodigoBarras.Update()
|
||||
RegistraScript("$('#ModalCodigoBarrasQR').modal({ backdrop: 'static', keyboard: false});")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LnkModalGenerarCodigoBarrasQR_Click(sender As Object, e As EventArgs) Handles LnkModalGenerarCodigoBarrasQR.Click
|
||||
|
||||
Dim Alto As Integer = 150
|
||||
Dim Ancho As Integer = 150
|
||||
Dim Base64Code As String
|
||||
|
||||
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
||||
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
||||
|
||||
|
||||
If CveUnidad > 0 Then
|
||||
|
||||
Try
|
||||
Base64Code = Convert.ToBase64String(GeneraCodigoQR(CveUnidad.ToString, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
||||
ImgModalCodigo.Attributes.Add("src", $"data:image/gif;base64,{Base64Code}")
|
||||
ImgModalCodigo.Width = Ancho
|
||||
ImgModalCodigo.Height = Alto
|
||||
LnkDescargaImagen.Enabled = True
|
||||
LnkDescargaImpresion.Enabled = True
|
||||
UpModalBotonesCodigos.Update()
|
||||
Catch ex As Exception
|
||||
ImgModalCodigo.Attributes.Add("src", "")
|
||||
ImgModalCodigo.Width = Ancho
|
||||
ImgModalCodigo.Height = Alto
|
||||
LnkDescargaImagen.Enabled = False
|
||||
LnkDescargaImpresion.Enabled = False
|
||||
UpModalBotonesCodigos.Update()
|
||||
End Try
|
||||
|
||||
UpModalUploadCodigoBarras.Update()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LnkDescargaImagen_Click(sender As Object, e As EventArgs) Handles LnkDescargaImagen.Click
|
||||
|
||||
Dim Alto As Integer = 150
|
||||
Dim Ancho As Integer = 150
|
||||
|
||||
|
||||
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
||||
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
||||
|
||||
If CveUnidad > 0 Then
|
||||
Try
|
||||
Dim memoryStream As New System.IO.MemoryStream(GeneraCodigoQR(CveUnidad.ToString, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
||||
Response.Clear()
|
||||
Response.ContentType = "application/bmp"
|
||||
Response.AddHeader("content-disposition", "attachment;filename=labtest.bmp")
|
||||
Response.Buffer = True
|
||||
memoryStream.WriteTo(Response.OutputStream)
|
||||
Response.End()
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DDLCodigoFormato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLCodigoFormato.SelectedIndexChanged
|
||||
LnkDescargaImagen.Enabled = False
|
||||
LnkDescargaImpresion.Enabled = False
|
||||
UpModalBotonesCodigos.Update()
|
||||
End Sub
|
||||
Private Sub LnkDescargaImpresion_Click(sender As Object, e As EventArgs) Handles LnkDescargaImpresion.Click
|
||||
|
||||
Dim Alto As Integer = 150
|
||||
Dim Ancho As Integer = 150
|
||||
|
||||
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
||||
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
||||
|
||||
|
||||
If CveUnidad > 0 Then
|
||||
Try
|
||||
|
||||
Dim Doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 10.0F, 10.0F, 100.0F, 0F)
|
||||
Dim para As New iTextSharp.text.Paragraph
|
||||
Dim memoryStreamDoc As New System.IO.MemoryStream
|
||||
|
||||
Dim gemBox As New clsGemBoxDocument()
|
||||
|
||||
gemBox.AgregarImagen(GeneraCodigoQR(CveUnidad.ToString, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
||||
gemBox.GuardarStreamPDF()
|
||||
|
||||
Dim memoryStream As New System.IO.MemoryStream(gemBox.GetBytesDocumento())
|
||||
gemBox.Dispose()
|
||||
Response.Clear()
|
||||
Response.ContentType = "application/pdf"
|
||||
Response.AddHeader("content-disposition", "attachment;filename=code.pdf")
|
||||
Response.Buffer = True
|
||||
memoryStream.WriteTo(Response.OutputStream)
|
||||
Response.End()
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
59
Acarreos/ContratosAcarreos.aspx
Normal file
59
Acarreos/ContratosAcarreos.aspx
Normal file
@@ -0,0 +1,59 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratosAcarreos.aspx.vb" Inherits="Acarreos_ContratosAcarreos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Contratos de Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkContratoAcarreo" runat="server" Text="Agregar"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratoAcarreo.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratoAcarreo.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvContratoAcarreo" runat="server" GridLines="None" DataKeyNames="CveAcarreoProyecto" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Contratos de Acarreos">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="NumContrato" HeaderText="Numero de Contrato" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Descripcion" HeaderText="Descripcion" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto Origen" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto Destino" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="FechaInicio" HeaderText="Fecha Inicio" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="FechaFin" HeaderText="Fecha Fin" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
71
Acarreos/ContratosAcarreos.aspx.vb
Normal file
71
Acarreos/ContratosAcarreos.aspx.vb
Normal file
@@ -0,0 +1,71 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_ContratosAcarreos
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
If Not Request("Actualizar") = "" Then
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
GvContratoAcarreo.DataSource = ObjAcar.DtResultados
|
||||
GvContratoAcarreo.DataBind()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Response.Redirect($"/Acarreos/RegistroContratosAcarreos.aspx?&CveAcarreoProyecto={GvRow.DataKey("CveAcarreoProyecto")}", True)
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
Dim ErrorClasif As Boolean = False
|
||||
ObjAcar.IniciaTransacSQL()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
HdnID.Value = GvRow.DataKey("CveAcarreoProyecto")
|
||||
UpDatos.Update()
|
||||
If Not ObjAcar.RemoveAcarreosMaterialVolumen(HdnID.Value) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
If Not ObjAcar.RemoveAcarreosTarifas(HdnID.Value) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
If Not ObjAcar.RemoveAcarreosProyectos(HdnID.Value) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
|
||||
If ErrorClasif = False Then
|
||||
ObjAcar.Commit()
|
||||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpDatos.Update()
|
||||
Else
|
||||
ObjAcar.RollBack()
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub LnkContratoAcarreo_Click(sender As Object, e As EventArgs) Handles LnkContratoAcarreo.Click
|
||||
Response.Redirect("/Acarreos/RegistroContratosAcarreos.aspx", True)
|
||||
UppAddAcciones.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvContratoAcarreo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratoAcarreo.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
406
Acarreos/RegistroAcarreo.aspx
Normal file
406
Acarreos/RegistroAcarreo.aspx
Normal file
@@ -0,0 +1,406 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroAcarreo.aspx.vb" Inherits="Acarreos_EditarAcarreo" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style type="text/css">
|
||||
#map {
|
||||
height: 500px;
|
||||
width: 100%;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Registro de Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-6 ">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-bus font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Acarreo</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="bodyAcarreos" class="portlet-body form">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="NumContrato" AutoPostBack="true" DataTextField="NumContrato" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlNumContrato.ClientID.ToString()%>">Contrato:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" AutoPostBack="true" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlUnidad" DataValueField="CveUnidad" DataTextField="Unidad" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlUnidad.ClientID.ToString()%>">Unidad:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlChofer" DataValueField="CveChofer" DataTextField="Chofer" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlChofer.ClientID.ToString()%>">Chofer:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" AutoPostBack="true" DataTextField="Material" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlMaterial.ClientID.ToString()%>">Material:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtFolio" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FIETxtFolio" TargetControlID="TxtFolio" FilterType="Numbers" runat="server" />
|
||||
<asp:RequiredFieldValidator ID="RFVFolio" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFolio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtFolio.ClientID.ToString()%>">Folio:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtVolumen" runat="server" CssClass="form-control" CausesValidation="true" Enabled="false"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FIETTxtVolumen" TargetControlID="TxtVolumen" FilterType="Numbers,Custom" ValidChars="." runat="server" />
|
||||
<asp:RequiredFieldValidator ID="RFVVolumen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtVolumen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Volumen''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtVolumen.ClientID.ToString()%>">Volumen:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtKm" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBETxtKm" TargetControlID="TxtKm" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<asp:RequiredFieldValidator ID="RFVTxtKm" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtKm" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Kilometraje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtKm.ClientID.ToString()%>">Kilometraje:</label>
|
||||
</div>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<label>Fecha:</label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFecha" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVEFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpObligatorio"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio2" runat="server" HighlightCssClass="vco" TargetControlID="CVEFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-3">
|
||||
<label>Tipo Acarreo:</label>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<asp:RadioButton ID="RBOrigen" GroupName="TipoAcarreo" runat="server" Text="Origen" />
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:RadioButton ID="RBDestino" GroupName="TipoAcarreo" runat="server" Text="Destino" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server" >
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" align="center">
|
||||
<div class="col-md-12">
|
||||
<asp:LinkButton ID="BtnAgregarAcarreo" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio" Width="150px"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6" id="divGPS" runat="server" visible="false">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-map-o font-green"></i>
|
||||
<span class="caption-subject bold uppercase">RUTA GPS</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="mapa" class="portlet-body form">
|
||||
<div id="map" class="map"></div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row" id="divImagenes" runat="server" visible="false">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-picture-o font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Imagen de Remisión, transporte y carga</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
<div class="col-md-4" align="center">
|
||||
<label>Remisión</label>
|
||||
<br />
|
||||
<asp:Image ID="ImagenRemision" Width="200" Height="120" runat="server" Visible="false" />
|
||||
</div>
|
||||
<div class="col-md-4" align="center">
|
||||
<label>Transporte</label>
|
||||
<br />
|
||||
<asp:Image ID="ImagenTransporte" Width="200" Height="120" runat="server" Visible="false" />
|
||||
</div>
|
||||
<div class="col-md-4" align="center">
|
||||
<label>Carga</label>
|
||||
<br />
|
||||
<asp:Image ID="ImagenCarga" Width="200" Height="120" runat="server" Visible="false" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row" id="divBitacora" runat="server" visible="false">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered xspadding">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Bitacora</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script src="https://maps.googleapis.com/maps/api/js?key=AIzaSyA2D1C3WT3wfMliy2Wrglbs2ERaqZdfYdo&libraries=drawing"></script>
|
||||
<script>
|
||||
|
||||
var markers = [];
|
||||
var mcoords = [];
|
||||
var polygon;
|
||||
var map;
|
||||
function pageLoad(sender, args) {
|
||||
initMap();
|
||||
}
|
||||
var directionsService;
|
||||
var directionsDisplay;
|
||||
|
||||
function initMap() {
|
||||
if ($('.map').length > 0) {
|
||||
var uluru = { lat: 29.0730, lng: -110.9559 }
|
||||
map = new google.maps.Map(document.getElementById('map'), {
|
||||
center: uluru,
|
||||
zoom: 14
|
||||
});
|
||||
|
||||
//var marker = new google.maps.Marker({
|
||||
// position: { lat: 29.120164040626047, lng: -110.99298477172852 },
|
||||
// title: 'Punto',
|
||||
// map: map
|
||||
//});
|
||||
//markers.push(marker);
|
||||
//var marker2 = new google.maps.Marker({
|
||||
// position: { lat: 29.075015109843388, lng: -110.98028182983398 },
|
||||
// title: 'Punto 2',
|
||||
// map: map
|
||||
//});
|
||||
//markers.push(marker2);
|
||||
//var marker3 = new google.maps.Marker({
|
||||
// position: { lat: 29.04686576376486, lng: -110.96071243286133 },
|
||||
// title: 'Punto 3',
|
||||
// map: map
|
||||
//});
|
||||
//markers.push(marker3);
|
||||
|
||||
directionsService = new google.maps.DirectionsService;
|
||||
directionsDisplay = new google.maps.DirectionsRenderer;
|
||||
directionsDisplay.setOptions({ suppressMarkers: true });
|
||||
directionsDisplay.setMap(map);
|
||||
|
||||
//map.addListener('click', addLatLng);
|
||||
//CreaRuta();
|
||||
//marker.setMap(null);
|
||||
//marker2.setMap(null);
|
||||
//marker3.setMap(null);
|
||||
markers.forEach(function logArrayElements(element, index, array) {
|
||||
var marker = new google.maps.Marker({
|
||||
position: element.position,
|
||||
title: element.title,
|
||||
map: map
|
||||
});
|
||||
//google.maps.Marker(element );
|
||||
});
|
||||
|
||||
if (markers.length > 0) {
|
||||
map.setCenter(markers[0].getPosition());
|
||||
}
|
||||
$('.map').removeClass("map");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
function addLatLng(event) {
|
||||
// var path = poly.getPath();
|
||||
// path.push(event.latLng);
|
||||
var lat = event.latLng.lat();
|
||||
var lng = event.latLng.lng();
|
||||
mcoords.push(event.latLng)
|
||||
|
||||
var info = new google.maps.InfoWindow({
|
||||
content: "(" + lat + " " + lng + ")"
|
||||
});
|
||||
|
||||
var marker = new google.maps.Marker({
|
||||
position: event.latLng,
|
||||
title: 'Punto',
|
||||
map: map
|
||||
});
|
||||
markers.push(marker);
|
||||
marker.addListener('click', function () {
|
||||
info.open(map, marker);
|
||||
});
|
||||
//if ($("#C_DdlTipo").select2('data')[0].text === 'Ruta') {
|
||||
// if (markers.length > 1) {
|
||||
// CreaRuta();
|
||||
// }
|
||||
//}
|
||||
//else if ($("#C_DdlTipo").select2('data')[0].text === 'Geocerca') {
|
||||
// var h = $('#GeoCerca').val() + lng + " " + lat + ","
|
||||
// $('#GeoCerca').val(h)
|
||||
// if (markers.length == 1) {
|
||||
// $('#CommandArg').val(lng + " " + lat)
|
||||
// }
|
||||
// if (markers.length === 3) {
|
||||
// creaPoligono();
|
||||
// } else if (markers.length > 3) {
|
||||
// var path = polygon.getPath();
|
||||
// path.push(event.latLng)
|
||||
|
||||
// }
|
||||
//}
|
||||
|
||||
}
|
||||
|
||||
function CreaMarcador(coords, nomEquipo) {
|
||||
var marker = new google.maps.Marker({
|
||||
position: coords,
|
||||
title: nomEquipo,
|
||||
map: map
|
||||
});
|
||||
markers.push(marker);
|
||||
}
|
||||
|
||||
//function DeleteMarkers() {
|
||||
// for (var i = 0; i < markers.length; i++) {
|
||||
// markers[i].setMap(null);
|
||||
// }
|
||||
// markers = [];
|
||||
// directionsDisplay.setMap(null);
|
||||
// mcoords = [];
|
||||
// $('#GeoCerca').val('')
|
||||
// polygon.setMap(null);
|
||||
|
||||
//}
|
||||
|
||||
//var s = "";
|
||||
//var nextSegment;
|
||||
|
||||
|
||||
//function CreaRuta() {
|
||||
// var start = markers[0].position;
|
||||
// var end = markers[markers.length - 1].position;
|
||||
// var waypts = [];
|
||||
|
||||
// for (var i = 1; i < markers.length - 1; i++) {
|
||||
// waypts.push({
|
||||
// location: markers[i].position,
|
||||
// stopover: true
|
||||
// });
|
||||
// }
|
||||
// directionsService.route({
|
||||
// origin: start,
|
||||
// destination: end,
|
||||
// travelMode: 'DRIVING',
|
||||
// waypoints: waypts
|
||||
// }, function (response, status) {
|
||||
// if (status === 'OK') {
|
||||
// directionsDisplay.setDirections(response);
|
||||
// directionsDisplay.setMap(map);
|
||||
// } else {
|
||||
// window.alert('Directions request failed due to ' + status);
|
||||
// }
|
||||
// });
|
||||
//}
|
||||
|
||||
//function creaPoligono() {
|
||||
// polygon = new google.maps.Polygon({
|
||||
// paths: mcoords,
|
||||
// strokeColor: '#FF0000',
|
||||
// strokeOpacity: 0.8,
|
||||
// strokeWeight: 2,
|
||||
// fillColor: '#FF0000',
|
||||
// fillOpacity: 0.35
|
||||
// });
|
||||
// polygon.setMap(map);
|
||||
//}
|
||||
|
||||
function calculateAndDisplayRoute(origin, destination) {
|
||||
directionsService.route({
|
||||
origin: origin,
|
||||
destination: destination,
|
||||
travelMode: 'DRIVING'
|
||||
}, function (response, status) {
|
||||
if (status === 'OK') {
|
||||
directionsDisplay.setDirections(response);
|
||||
directionsDisplay.setMap(map);
|
||||
} else {
|
||||
window.alert('Directions request failed due to ' + status);
|
||||
}
|
||||
});
|
||||
}
|
||||
|
||||
// initMap();
|
||||
</script>
|
||||
</asp:Content>
|
||||
|
||||
465
Acarreos/RegistroAcarreo.aspx.vb
Normal file
465
Acarreos/RegistroAcarreo.aspx.vb
Normal file
@@ -0,0 +1,465 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
|
||||
Partial Class Acarreos_EditarAcarreo
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
Private Property CveAcarreo As Integer
|
||||
Get
|
||||
If ViewState("CveAcarreo") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveAcarreo").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAcarreo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveAcarreoProyecto As Integer
|
||||
Get
|
||||
If ViewState("CveAcarreoProyecto") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveAcarreoProyecto").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAcarreoProyecto") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveSubProyectoOrigen As Integer
|
||||
Get
|
||||
If ViewState("CveSubProyectoOrigen") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveSubProyectoOrigen").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveSubProyectoOrigen") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveSubProyectoDestino As Integer
|
||||
Get
|
||||
If ViewState("CveSubProyectoDestino") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveSubProyectoDestino").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveSubProyectoDestino") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveEstatus As Integer
|
||||
Get
|
||||
If ViewState("CveEstatus") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveEstatus").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveEstatus") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveTipoAcarreo As Integer
|
||||
Get
|
||||
If ViewState("CveTipoAcarreo") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveTipoAcarreo").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveTipoAcarreo") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Localizacion As String
|
||||
Get
|
||||
If ViewState("Localizacion") Is Nothing Then
|
||||
Return "-1"
|
||||
Else
|
||||
Return ViewState("Localizacion").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Localizacion") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Localizacion2 As String
|
||||
Get
|
||||
If ViewState("Localizacion2") Is Nothing Then
|
||||
Return "-1"
|
||||
Else
|
||||
Return ViewState("Localizacion2").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Localizacion2") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property LocalizacionTipo1 As String
|
||||
Get
|
||||
If ViewState("Localizacion") Is Nothing Then
|
||||
Return "-1"
|
||||
Else
|
||||
Return ViewState("Localizacion").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Localizacion") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property LocalizacionTipo2 As String
|
||||
Get
|
||||
If ViewState("Localizacion2") Is Nothing Then
|
||||
Return "-1"
|
||||
Else
|
||||
Return ViewState("Localizacion2").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Localizacion2") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
CargaDdlNumContrato()
|
||||
TxtFecha.Text = Now.AddDays(0).ToShortDateString
|
||||
CargaDatos()
|
||||
divEstatus.Visible = False
|
||||
SetPermisos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SetPermisos()
|
||||
If CveAcarreo > 0 Then
|
||||
If Not UsuarioActual.TienePermisoProceso(188) Then
|
||||
BtnAgregarAcarreo.Visible = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim script As New StringBuilder
|
||||
script.Append($"markers = [];")
|
||||
CveAcarreo = IfNull(Request("CveAcarreo"), "-1").ToString.ToEntero
|
||||
CargaGvBitacora()
|
||||
BtnAgregarAcarreo.Text = "Agregar"
|
||||
If CveAcarreo <> -1 Then
|
||||
DdlChofer.Items.Clear()
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlUnidad.Items.Clear()
|
||||
DdlTransportista.Items.Clear()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreo(UsuarioActual.CveEmpresa, CveAcarreo) Then
|
||||
divImagenes.Visible = True
|
||||
divBitacora.Visible = True
|
||||
divGPS.Visible = True
|
||||
Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
|
||||
DdlNumContrato.SelectedValue = dr("NumContrato").ToString
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, DdlNumContrato.SelectedValue) Then
|
||||
Dim drp As DataRow = ObjAcar.DtResultados.Rows(0)
|
||||
CveAcarreoProyecto = drp("CveAcarreoProyecto").ToString.ToEntero
|
||||
CveSubProyectoOrigen = drp("CveSubProyectoOrigen").ToString.ToEntero
|
||||
CveSubProyectoDestino = drp("CveSubProyectoDestino").ToString.ToEntero
|
||||
End If
|
||||
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
End If
|
||||
If Not DdlMaterial.SelectedValue = "-1" Then
|
||||
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
Dim drm As DataRow = ObjAcar.DtResultados.Rows(DdlMaterial.SelectedIndex)
|
||||
TxtVolumen.Text = drm("VolumenTipo").ToString
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjAcar.GetTarifasTransportista(CveAcarreoProyecto, UsuarioActual.CveEmpresa) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
End If
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
End If
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
DdlUnidad.DataBind()
|
||||
End If
|
||||
DdlTransportista.SelectedValue = dr("CveTransportista").ToString
|
||||
DdlChofer.SelectedValue = dr("CveChofer").ToString
|
||||
DdlUnidad.SelectedValue = dr("CveUnidad").ToString
|
||||
DdlMaterial.SelectedValue = dr("CveMaterial").ToString
|
||||
TxtFolio.Text = dr("Folio").ToString
|
||||
TxtKm.Text = dr("Km").ToString
|
||||
TxtVolumen.Text = dr("Volumen").ToString
|
||||
TxtFecha.Text = dr("Fecha").ToString
|
||||
BtnAgregarAcarreo.Text = "Guardar Cambios"
|
||||
CveEstatus = dr("CveEstatus").ToString.ToEntero
|
||||
CveTipoAcarreo = dr("CveTipoAcarreo").ToString.ToEntero
|
||||
If CveTipoAcarreo = 1 Then LocalizacionTipo1 = "Destino" Else LocalizacionTipo1 = "Origen"
|
||||
If LocalizacionTipo1 = "Destino" Then LocalizacionTipo2 = "Origen" Else LocalizacionTipo2 = "Destino"
|
||||
If dr("Localizacion").ToString <> Nothing Then
|
||||
Localizacion = SQLToGmaps(dr("Localizacion").ToString, "POINT")
|
||||
script.Append($"CreaMarcador({Localizacion},'{LocalizacionTipo1}');")
|
||||
|
||||
If dr("Localizacion2").ToString <> Nothing Then
|
||||
Localizacion2 = SQLToGmaps(dr("Localizacion2").ToString, "POINT")
|
||||
script.Append($"CreaMarcador({Localizacion2},'{LocalizacionTipo2}');")
|
||||
script.Append($"calculateAndDisplayRoute({Localizacion}, {Localizacion2});")
|
||||
End If
|
||||
End If
|
||||
If CveTipoAcarreo = 1 Then
|
||||
RBDestino.Checked = True
|
||||
Else
|
||||
RBOrigen.Checked = True
|
||||
End If
|
||||
If CveEstatus = 1 Then
|
||||
ChkEstatus.Checked = True
|
||||
Else
|
||||
ChkEstatus.Checked = False
|
||||
End If
|
||||
divEstatus.Visible = True
|
||||
If dr("ImagenRemision").ToString <> Nothing Then
|
||||
ImagenRemision.ImageUrl = String.Format("/Empresas/{0}/Acarreos/{1}", UsuarioActual.CveEmpresa, dr("ImagenRemision").ToString)
|
||||
ImagenRemision.Visible = True
|
||||
End If
|
||||
If dr("ImagenTransporte").ToString <> Nothing Then
|
||||
ImagenTransporte.ImageUrl = String.Format("/Empresas/{0}/Acarreos/{1}", UsuarioActual.CveEmpresa, dr("ImagenTransporte").ToString)
|
||||
ImagenTransporte.Visible = True
|
||||
End If
|
||||
If dr("ImagenCarga").ToString <> Nothing Then
|
||||
ImagenCarga.ImageUrl = String.Format("/Empresas/{0}/Acarreos/{1}", UsuarioActual.CveEmpresa, dr("ImagenCarga").ToString)
|
||||
ImagenCarga.Visible = True
|
||||
End If
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
Else
|
||||
divEstatus.Visible = False
|
||||
End If
|
||||
RegistraScript(script.ToString())
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvBitacora()
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetHistorialBitacora(CveAcarreo, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
GvBitacora.DataBind()
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BtnAgregarAcarreo_Click(sender As Object, e As EventArgs) Handles BtnAgregarAcarreo.Click
|
||||
|
||||
If DdlNumContrato.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un contrato.", TipoMensaje.MsgInformacion)
|
||||
ElseIf DdlUnidad.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar una unidad.", TipoMensaje.MsgInformacion)
|
||||
ElseIf DdlTransportista.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgInformacion)
|
||||
ElseIf DdlChofer.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un chofer.", TipoMensaje.MsgInformacion)
|
||||
ElseIf DdlMaterial.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un material.", TipoMensaje.MsgInformacion)
|
||||
ElseIf RBOrigen.Checked = False And RBDestino.Checked = False Then
|
||||
Alert("Tiene que seleccionar un tipo de acarreo.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim Estatus = 0
|
||||
Dim Folio As Integer
|
||||
Dim TipoAcarreo As Integer
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
If RBOrigen.Checked Then TipoAcarreo = 0
|
||||
If RBDestino.Checked Then TipoAcarreo = 1
|
||||
If CveAcarreo = -1 Then
|
||||
If ObjAcar.AddAcarreo(DdlUnidad.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, TxtFolio.Text.ToEntero, TxtFecha.Text.ToDate, CveSubProyectoOrigen, TxtVolumen.Text.ToDouble, 1, TipoAcarreo, UsuarioActual.CveEmpresa, CveSubProyectoDestino, DdlMaterial.SelectedValue.ToEntero, TxtKm.Text.ToDouble, UsuarioActual.CveUsuario, "", "", "", "0", "0", CveAcarreoProyecto) Then
|
||||
Folio = ObjAcar._Folio
|
||||
Alert("Agregado Correctamente con el folio: " + Folio.ToString + ".", TipoMensaje.MsgInformacion)
|
||||
TxtFecha.Text = ""
|
||||
TxtVolumen.Text = ""
|
||||
TxtKm.Text = ""
|
||||
TxtFolio.Text = ""
|
||||
DdlChofer.Items.Clear()
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlUnidad.Items.Clear()
|
||||
DdlTransportista.Items.Clear()
|
||||
RBDestino.Checked = False
|
||||
RBOrigen.Checked = False
|
||||
TxtFecha.Text = Now.AddDays(0).ToShortDateString
|
||||
DdlNumContrato.SelectedIndex = -1
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
Else
|
||||
If ObjAcar.UpdateAcarreo(CveAcarreo, DdlUnidad.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, TxtFolio.Text.ToEntero, TxtFecha.Text.ToDate, CveSubProyectoOrigen, TxtVolumen.Text.ToDouble, Estatus, TipoAcarreo, CveSubProyectoDestino, DdlMaterial.SelectedValue.ToEntero, TxtKm.Text.ToDouble, UsuarioActual.CveUsuario, CveAcarreoProyecto) Then
|
||||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaGvBitacora()
|
||||
End If
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function SQLToGmaps(CoordsSQL As String, Tipo As String) As String
|
||||
Dim CoordsPoligono As String = CoordsSQL.Replace($"{Tipo}", "").Replace(")", "").Replace("(", "")
|
||||
Dim CoordsPuntos() As String = CoordsPoligono.Split(","c)
|
||||
Dim Var As String = ""
|
||||
For Each coordenada As String In CoordsPuntos
|
||||
If coordenada Is CoordsPuntos.Last Then
|
||||
Dim latlng() As String = coordenada.Trim.Split(CType(" ", Char()))
|
||||
Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }}"
|
||||
Else
|
||||
Dim latlng() As String = coordenada.Trim.Split(CType(" ", Char()))
|
||||
Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }},"
|
||||
End If
|
||||
Next
|
||||
Return Var
|
||||
End Function
|
||||
|
||||
Private Sub DdlNumContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlNumContrato.SelectedIndexChanged
|
||||
|
||||
If DdlNumContrato.SelectedValue = "-1" Then
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlChofer.Items.Clear()
|
||||
DdlTransportista.Items.Clear()
|
||||
DdlUnidad.Items.Clear()
|
||||
TxtVolumen.Text = ""
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
Else
|
||||
DdlMaterial.Items.Clear()
|
||||
DdlChofer.Items.Clear()
|
||||
DdlTransportista.Items.Clear()
|
||||
DdlUnidad.Items.Clear()
|
||||
TxtVolumen.Text = ""
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, DdlNumContrato.SelectedValue) Then
|
||||
Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
|
||||
CveAcarreoProyecto = dr("CveAcarreoProyecto").ToString.ToEntero
|
||||
CveSubProyectoOrigen = dr("CveSubProyectoOrigen").ToString.ToEntero
|
||||
CveSubProyectoDestino = dr("CveSubProyectoDestino").ToString.ToEntero
|
||||
End If
|
||||
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
End If
|
||||
If Not DdlMaterial.SelectedValue = "-1" Then
|
||||
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
Dim dr As DataRow = ObjAcar.DtResultados.Rows(DdlMaterial.SelectedIndex.ToEntero)
|
||||
TxtVolumen.Text = dr("VolumenTipo").ToString
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjAcar.GetTarifasTransportista(CveAcarreoProyecto, UsuarioActual.CveEmpresa) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
End If
|
||||
If Not DdlTransportista.SelectedValue = "-1" Then
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
End If
|
||||
Else
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
If Not DdlTransportista.SelectedValue = "-1" Then
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
DdlUnidad.DataBind()
|
||||
End If
|
||||
Else
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
End If
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlTransportista_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTransportista.SelectedIndexChanged
|
||||
DdlChofer.Items.Clear()
|
||||
DdlUnidad.Items.Clear()
|
||||
If Not DdlTransportista.SelectedValue = "-1" Then
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
End If
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue.ToEntero) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
DdlUnidad.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
Else
|
||||
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlMaterial_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMaterial.SelectedIndexChanged
|
||||
If Not DdlMaterial.SelectedValue = "-1" Then
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
Dim dr As DataRow = ObjAcar.DtResultados.Rows(DdlMaterial.SelectedIndex.ToEntero - 1)
|
||||
TxtVolumen.Text = dr("VolumenTipo").ToString
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpDatos.Update()
|
||||
Else
|
||||
TxtVolumen.Text = ""
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
328
Acarreos/RegistroContratosAcarreos.aspx
Normal file
328
Acarreos/RegistroContratosAcarreos.aspx
Normal file
@@ -0,0 +1,328 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroContratosAcarreos.aspx.vb" Inherits="Acarreos_ContratosAcarreos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Registrar Contrato
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpProyecto" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12 ">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-bus font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Proyecto</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="bodyAcarreos" class="portlet-body form">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubProyectoOrigen" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectoOrigen.ClientID.ToString()%>">Proyecto Origen:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubProyectoDestino" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlSubProyectoDestino.ClientID.ToString()%>">Proyecto Destino:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumContrato" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTxtNumContrato" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtNumContrato" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Contrato''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtNumContrato.ClientID.ToString()%>">Número de Contrato:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="200"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTxtDescripcion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
|
||||
</div>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<label>Fecha Inicio:</label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVEFecha" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpObligatorio"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoFechaInicio2" runat="server" HighlightCssClass="vco" TargetControlID="CVEFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<label>Fecha Fin:</label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpObligatorio"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<br />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="row">
|
||||
<asp:UpdatePanel ID="UpTarifas" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-6 ">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-money font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Tarifa</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" align="center">
|
||||
<asp:Button ID="BtnAgregarTarifa" runat="server" CssClass="btn btn-primary btn-sm" Text="Agregar Tarifa" />
|
||||
</div>
|
||||
<br />
|
||||
<div id="bodyTarifas" class="portlet-body form">
|
||||
<div class="row">
|
||||
<asp:GridView ID="GvTarifa" runat="server" GridLines="None" data-sort="true" DataKeyNames="Tarifa,DistanciaInicio,DistanciaFin,CveTransportista,CveMaterial,Material" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No ha seleccionado una tarifa" ToolTip="Listado de Tarifas">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Distancia Inicio" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDistanciaInicio" runat="server" Text='<%# Eval("DistanciaInicio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Distancia Fin" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDistanciaFin" runat="server" Text='<%# Eval("DistanciaFin") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Tarifa" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTarifa" runat="server" Text='<%# Eval("Tarifa") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="EditTarifa_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="DeleteTarifa_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidadTarifa" runat="server" Value="A" ClientIDMode="Static" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpMaterialVolumen" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-6 ">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-archive font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Material y Volumen</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" align="center">
|
||||
<asp:Button ID="BtnAgregarMaterialVolumen" runat="server" align="center" CssClass="btn btn-primary btn-sm" Text="Agregar Material" />
|
||||
</div>
|
||||
<br />
|
||||
<div id="bodyMaterialVolumen" class="portlet-body form">
|
||||
<div class="row" >
|
||||
<asp:GridView ID="GvMaterialVolumen" runat="server" data-sort="true" GridLines="None" DataKeyNames="CveUnidadMedida,CveMaterial,Volumen,Presupuesto,VolumenTipo" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No ha seleccionado un material y volumen" ToolTip="Listado de Material y Volumen">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="UnidadMedida" HeaderText="Unidad de Medida" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server" Text='<%# Eval("Volumen") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Presupuesto" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPresupuesto" runat="server" Text='<%# Eval("Presupuesto") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Volumen Tipo" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumenTipo" runat="server" Text='<%# Eval("VolumenTipo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="EditMaterial_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="DeleteMaterialVolumen_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:HiddenField ID="HdnModalidadMaterial" runat="server" Value="A" ClientIDMode="Static" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpAgregar" class="Widthall" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" align="center">
|
||||
<div class="col-md-12">
|
||||
<asp:LinkButton ID="BtnAgregarContratoAcarreo" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio" Width="150px"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div id="divAddTarifa" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddTarifa" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server">Agregar Tarifa</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyTarifa" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMaterialTarifa" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Material:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDistanciaInicio" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FBETxtDistanciaInicio" TargetControlID="TxtDistanciaInicio" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<label for="<%= TxtDistanciaInicio.ClientID.ToString()%>">Distancia Inicio:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDistanciaFin" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FBETxtDistanciaFin" TargetControlID="TxtDistanciaFin" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<label for="<%= TxtDistanciaFin.ClientID.ToString()%>">Distancia Fin:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtTarifa" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBETxtTarifa" TargetControlID="TxtTarifa" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<label for="<%= TxtTarifa.ClientID.ToString()%>">Tarifa:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarTarifaModal" runat="server" CssClass="btn btn-primary"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divAddMaterial" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddMaterial" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H1" runat="server">Agregar Material y Volumen</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyMaterial" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlMaterial.ClientID.ToString()%>">Material:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlUnidadMedida" DataValueField="CveUnidadMedida" DataTextField="UnidadMedida" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
|
||||
<label for="<%= DdlUnidadMedida.ClientID.ToString()%>">Unidad de Medida:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtVolumen" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FIETTxtVolumen" TargetControlID="TxtVolumen" FilterType="Numbers,Custom" ValidChars="." runat="server" />
|
||||
<label for="<%= TxtVolumen.ClientID.ToString()%>">Volumen:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPresupuesto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBETxtPresupuesto" TargetControlID="TxtPresupuesto" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<label for="<%= TxtPresupuesto.ClientID.ToString()%>">Presupuesto:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtVolumenTipo" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBETxtVolumenTipo" TargetControlID="TxtVolumenTipo" FilterType="Numbers,Custom" runat="server" ValidChars="." />
|
||||
<label for="<%= TxtVolumenTipo.ClientID.ToString()%>">Volumen Tipo:</label>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooterMaterial" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarMaterialModal" runat="server" CssClass="btn btn-primary"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
489
Acarreos/RegistroContratosAcarreos.aspx.vb
Normal file
489
Acarreos/RegistroContratosAcarreos.aspx.vb
Normal file
@@ -0,0 +1,489 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
|
||||
Partial Class Acarreos_ContratosAcarreos
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
Private Property CveAcarreoProyecto As Integer
|
||||
Get
|
||||
If ViewState("CveAcarreoProyecto") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveAcarreoProyecto").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAcarreoProyecto") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveMaterial As Integer
|
||||
Get
|
||||
If ViewState("CveMaterial") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveMaterial").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMaterial") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveTarifa As Integer
|
||||
Get
|
||||
If ViewState("CveTarifa") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveTarifa").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveTarifa") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DTTarifa As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTTarifa")), Nothing, CType(ViewState("DTTarifa"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTTarifa") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property DTMaterialVolumen As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTMaterialVolumen")), Nothing, CType(ViewState("DTMaterialVolumen"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTMaterialVolumen") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDdlSubProyectoOrigen()
|
||||
CargaDdlSubProyectoDestino()
|
||||
CargaDdlMaterial()
|
||||
CargaDdlTransportista()
|
||||
CargaDdlUnidadMedida()
|
||||
CreaTmpTarifas()
|
||||
CreaTmpMaterialVolumen()
|
||||
TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
|
||||
TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
CveAcarreoProyecto = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero
|
||||
BtnAgregarContratoAcarreo.Text = "Agregar Contrato"
|
||||
If CveAcarreoProyecto <> -1 Then
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
|
||||
CargaGvMaterialVolumen()
|
||||
CargaGvTarifa()
|
||||
DdlSubProyectoDestino.SelectedValue = dr("CveSubProyectoDestino").ToString
|
||||
DdlSubProyectoOrigen.SelectedValue = dr("CveSubProyectoOrigen").ToString
|
||||
TxtDescripcion.Text = dr("Descripcion").ToString
|
||||
TxtNumContrato.Text = dr("NumContrato").ToString
|
||||
TxtFechaInicio.Text = dr("FechaInicio").ToString.ToDate
|
||||
TxtFechaFin.Text = dr("FechaFin").ToString.ToDate
|
||||
BtnAgregarContratoAcarreo.Text = "Guardar Cambios"
|
||||
DTMaterialVolumen = GvMaterialVolumen.DataSource
|
||||
DTTarifa = GvTarifa.DataSource
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BtnAgregarTarifa_Click(sender As Object, e As EventArgs) Handles BtnAgregarTarifa.Click
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddTarifa"))
|
||||
HdnModalidadTarifa.Value = "A"
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub DeleteTarifa_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
DTTarifa.AcceptChanges()
|
||||
DTTarifa.Rows(GvRow.RowIndex.ToEntero).Delete()
|
||||
DTTarifa.AcceptChanges()
|
||||
GvTarifa.DataSource = DTTarifa
|
||||
GvTarifa.DataBind()
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvTarifa()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosTarifas(CveAcarreoProyecto, UsuarioActual.CveEmpresa) Then
|
||||
DTTarifa = ObjAcar.DtResultados
|
||||
GvTarifa.DataSource = DTTarifa
|
||||
GvTarifa.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CreaTmpTarifas()
|
||||
DTTarifa = New DataTable
|
||||
DTTarifa.Columns.Add("CveTransportista", GetType(Integer))
|
||||
DTTarifa.Columns.Add("CveMaterial", GetType(Integer))
|
||||
DTTarifa.Columns.Add("Material", GetType(String))
|
||||
DTTarifa.Columns.Add("Transportista", GetType(String))
|
||||
DTTarifa.Columns.Add("Tarifa", GetType(Double))
|
||||
DTTarifa.Columns.Add("DistanciaInicio", GetType(Double))
|
||||
DTTarifa.Columns.Add("DistanciaFin", GetType(Double))
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarMaterialVolumen_Click(sender As Object, e As EventArgs) Handles BtnAgregarMaterialVolumen.Click
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMaterial"))
|
||||
HdnModalidadMaterial.Value = "A"
|
||||
UpMaterialVolumen.Update()
|
||||
End Sub
|
||||
|
||||
Public Sub DeleteMaterialVolumen_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
DTMaterialVolumen.AcceptChanges()
|
||||
DTMaterialVolumen.Rows(GvRow.RowIndex.ToEntero).Delete()
|
||||
DTMaterialVolumen.AcceptChanges()
|
||||
GvMaterialVolumen.DataSource = DTMaterialVolumen
|
||||
GvMaterialVolumen.DataBind()
|
||||
UpMaterialVolumen.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvMaterialVolumen()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetAcarreosMaterialVolumen(CveAcarreoProyecto, UsuarioActual.CveEmpresa, -1) Then
|
||||
DTMaterialVolumen = ObjAcar.DtResultados
|
||||
GvMaterialVolumen.DataSource = DTMaterialVolumen
|
||||
GvMaterialVolumen.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CreaTmpMaterialVolumen()
|
||||
DTMaterialVolumen = New DataTable
|
||||
DTMaterialVolumen.Columns.Add("CveUnidadMedida", GetType(Integer))
|
||||
DTMaterialVolumen.Columns.Add("UnidadMedida", GetType(String))
|
||||
DTMaterialVolumen.Columns.Add("CveMaterial", GetType(Integer))
|
||||
DTMaterialVolumen.Columns.Add("Material", GetType(String))
|
||||
DTMaterialVolumen.Columns.Add("Volumen", GetType(Double))
|
||||
DTMaterialVolumen.Columns.Add("Presupuesto", GetType(Double))
|
||||
DTMaterialVolumen.Columns.Add("VolumenTipo", GetType(Double))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoOrigen()
|
||||
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoOrigen.DataBind()
|
||||
UpProyecto.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoDestino()
|
||||
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoDestino.DataBind()
|
||||
UpProyecto.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlUnidadMedida()
|
||||
DdlUnidadMedida.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlUnidadMedida.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
||||
DdlUnidadMedida.DataBind()
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlMaterial()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
DdlMaterialTarifa.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlMaterialTarifa.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterialTarifa.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpMaterialVolumen.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UpTarifas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarContratoAcarreo_Click(sender As Object, e As EventArgs) Handles BtnAgregarContratoAcarreo.Click
|
||||
If DdlSubProyectoDestino.SelectedValue = "-1" Then
|
||||
Alert("Debe seleccionar un proyecto destino.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf DdlSubProyectoOrigen.SelectedValue = "-1" Then
|
||||
Alert("Debe seleccionar un proyecto origen.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf GvTarifa.Rows.Count = 0 Then
|
||||
Alert("Debe introducir una tarifa.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf GvMaterialVolumen.Rows.Count = 0 Then
|
||||
Alert("Debe introducir un material.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
Dim ErrorClasif As Boolean = False
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
Dim _CveAcarreoProyecto As Integer
|
||||
ObjAcar.IniciaTransacSQL()
|
||||
If CveAcarreoProyecto <> -1 Then
|
||||
|
||||
|
||||
If Not ObjAcar.RemoveAcarreosMaterialVolumen(CveAcarreoProyecto) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
|
||||
If Not ObjAcar.RemoveAcarreosTarifas(CveAcarreoProyecto) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
|
||||
If Not ObjAcar.UpdateAcarreosProyectos(CveAcarreoProyecto, DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
|
||||
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
Next
|
||||
For Each Gvr As GridViewRow In GvTarifa.Rows
|
||||
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
If Not ObjAcar.AddAcarreosProyectos(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, UsuarioActual.CveEmpresa, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
_CveAcarreoProyecto = ObjAcar._CveAcarreoProyecto
|
||||
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
|
||||
If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), _CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
Next
|
||||
For Each Gvr As GridViewRow In GvTarifa.Rows
|
||||
If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), _CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If ErrorClasif = False Then
|
||||
ObjAcar.Commit()
|
||||
If CveAcarreoProyecto <> -1 Then
|
||||
Response.Redirect($"/Acarreos/ContratosAcarreos.aspx?&Actualizar={"1"}", True)
|
||||
Else
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
DdlMaterial.SelectedIndex = -1
|
||||
DdlMaterialTarifa.SelectedIndex = -1
|
||||
DdlSubProyectoDestino.SelectedIndex = -1
|
||||
DdlSubProyectoOrigen.SelectedIndex = -1
|
||||
DdlTransportista.SelectedIndex = -1
|
||||
DdlUnidadMedida.SelectedIndex = -1
|
||||
TxtDistanciaFin.Text = ""
|
||||
TxtDistanciaInicio.Text = ""
|
||||
TxtFechaFin.Text = ""
|
||||
TxtFechaInicio.Text = ""
|
||||
TxtPresupuesto.Text = ""
|
||||
TxtTarifa.Text = ""
|
||||
TxtVolumen.Text = ""
|
||||
TxtVolumenTipo.Text = ""
|
||||
TxtDescripcion.Text = ""
|
||||
TxtNumContrato.Text = ""
|
||||
TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
|
||||
TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
|
||||
DTTarifa.Rows.Clear()
|
||||
DTMaterialVolumen.Rows.Clear()
|
||||
GvTarifa.DataSource = Nothing
|
||||
GvTarifa.DataBind()
|
||||
GvMaterialVolumen.DataSource = Nothing
|
||||
GvMaterialVolumen.DataBind()
|
||||
UpTarifas.Update()
|
||||
UpProyecto.Update()
|
||||
UpMaterialVolumen.Update()
|
||||
UpAgregar.Update()
|
||||
End If
|
||||
Else
|
||||
ObjAcar.RollBack()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarTarifaModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTarifaModal.Click
|
||||
|
||||
Dim ErrorAgregar As Boolean = False
|
||||
If DdlTransportista.SelectedValue = "-1" Then
|
||||
Alert("Debe seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf DdlMaterialTarifa.SelectedValue = "-1" Then
|
||||
Alert("Debe introducir un material.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtTarifa.Text = "" Then
|
||||
Alert("Debe introducir una tarifa.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtDistanciaFin.Text = "" Then
|
||||
Alert("Debe introducir una distancia fin.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtDistanciaInicio.Text = "" Then
|
||||
Alert("Debe introducir una distancia inicio.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtDistanciaInicio.Text.ToDouble > TxtDistanciaFin.Text.ToDouble Then
|
||||
Alert("La distancia inicio tiene que ser menor que la distancia fin.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
For Each Gvr As GridViewRow In GvTarifa.Rows
|
||||
If ((Gvr.DataKey("DistanciaInicio").ToDouble <= TxtDistanciaInicio.Text.ToDouble And Gvr.DataKey("DistanciaFin").ToDouble >= TxtDistanciaInicio.Text.ToDouble) Or (Gvr.DataKey("DistanciaInicio").ToDouble <= TxtDistanciaFin.Text.ToDouble And Gvr.DataKey("DistanciaFin").ToDouble >= TxtDistanciaFin.Text.ToDouble) Or (Gvr.DataKey("DistanciaInicio").ToDouble >= TxtDistanciaInicio.Text.ToDouble And Gvr.DataKey("DistanciaFin").ToDouble <= TxtDistanciaFin.Text.ToDouble)) And (Gvr.RowIndex <> CveTarifa And DdlMaterialTarifa.SelectedValue = Gvr.DataKey("CveMaterial")) Then
|
||||
Alert("El rango que desea agregar en este material esta dentro de los limites de otro.", TipoMensaje.MsgAdvertencia)
|
||||
ErrorAgregar = True
|
||||
End If
|
||||
Next
|
||||
If ErrorAgregar = False Then
|
||||
If HdnModalidadTarifa.Value = "U" Then
|
||||
DTTarifa.AcceptChanges()
|
||||
DTTarifa.Rows(CveTarifa).Delete()
|
||||
DTTarifa.AcceptChanges()
|
||||
End If
|
||||
Dim Row As DataRow = Nothing
|
||||
Row = DTTarifa.NewRow
|
||||
Row("CveTransportista") = DdlTransportista.SelectedValue.ToEntero
|
||||
Row("Transportista") = DdlTransportista.SelectedItem.Text
|
||||
Row("CveMaterial") = DdlMaterialTarifa.SelectedValue.ToEntero
|
||||
Row("Material") = DdlMaterialTarifa.SelectedItem.Text
|
||||
Row("Tarifa") = TxtTarifa.Text
|
||||
Row("DistanciaInicio") = TxtDistanciaInicio.Text
|
||||
Row("DistanciaFin") = TxtDistanciaFin.Text
|
||||
DTTarifa.Rows.Add(Row)
|
||||
GvTarifa.DataSource = DTTarifa
|
||||
GvTarifa.DataBind()
|
||||
UpTarifas.Update()
|
||||
TxtDistanciaFin.Text = ""
|
||||
TxtDistanciaInicio.Text = ""
|
||||
TxtTarifa.Text = ""
|
||||
DdlTransportista.SelectedIndex = -1
|
||||
DdlMaterialTarifa.SelectedIndex = -1
|
||||
BtnAgregarTarifaModal.Text = "Agregar"
|
||||
myModalLabel.InnerText = "Agregar Tarifa"
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTarifa"))
|
||||
UpAddTarifa.Update()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub EditTarifa_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
CveTarifa = GvRow.RowIndex
|
||||
HdnModalidadTarifa.Value = "U"
|
||||
UpTarifas.Update()
|
||||
BtnAgregarTarifaModal.Text = "Actualizar"
|
||||
myModalLabel.InnerText = "Actualizar Tarifa"
|
||||
TxtDistanciaFin.Text = GvRow.DataKey("DistanciaFin")
|
||||
TxtDistanciaInicio.Text = GvRow.DataKey("DistanciaInicio")
|
||||
TxtTarifa.Text = GvRow.DataKey("Tarifa")
|
||||
DdlMaterialTarifa.SelectedValueExist(GvRow.DataKey("CveMaterial"))
|
||||
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddTarifa"))
|
||||
UpAddTarifa.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarMaterialModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarMaterialModal.Click
|
||||
Dim ErrorAgregar As Boolean = False
|
||||
If DdlMaterial.SelectedValue = "-1" Then
|
||||
Alert("Debe seleccionar un material.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf DdlUnidadMedida.SelectedValue = "-1" Then
|
||||
Alert("Debe seleccionar una unidad de medida.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtVolumen.Text = "" Then
|
||||
Alert("Debe introducir un volumen.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtPresupuesto.Text = "" Then
|
||||
Alert("Debe introducir un presupuesto.", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TxtVolumenTipo.Text = "" Then
|
||||
Alert("Debe introducir un tipo de volumen.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
|
||||
If HdnModalidadMaterial.Value = "A" Then
|
||||
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
|
||||
If Gvr.DataKey("CveMaterial").ToEntero = DdlMaterial.SelectedValue.ToEntero Then
|
||||
Alert("No puede haber dos materiales iguales.", TipoMensaje.MsgAdvertencia)
|
||||
ErrorAgregar = True
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
For Each Gvr As GridViewRow In GvMaterialVolumen.Rows
|
||||
If (Gvr.DataKey("CveMaterial").ToEntero = DdlMaterial.SelectedValue.ToEntero And Gvr.RowIndex <> CveMaterial) Then
|
||||
Alert("No puede haber dos materiales iguales.", TipoMensaje.MsgAdvertencia)
|
||||
ErrorAgregar = True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If ErrorAgregar = False Then
|
||||
If HdnModalidadMaterial.Value = "U" Then
|
||||
DTMaterialVolumen.AcceptChanges()
|
||||
DTMaterialVolumen.Rows(CveMaterial).Delete()
|
||||
DTMaterialVolumen.AcceptChanges()
|
||||
End If
|
||||
Dim Row As DataRow = Nothing
|
||||
Row = DTMaterialVolumen.NewRow
|
||||
Row("CveUnidadMedida") = DdlUnidadMedida.SelectedValue.ToEntero
|
||||
Row("UnidadMedida") = DdlUnidadMedida.SelectedItem.Text
|
||||
Row("CveMaterial") = DdlMaterial.SelectedValue.ToEntero
|
||||
Row("Material") = DdlMaterial.SelectedItem.Text
|
||||
Row("Volumen") = TxtVolumen.Text
|
||||
Row("Presupuesto") = TxtPresupuesto.Text
|
||||
Row("VolumenTipo") = TxtVolumenTipo.Text
|
||||
DTMaterialVolumen.Rows.Add(Row)
|
||||
GvMaterialVolumen.DataSource = DTMaterialVolumen
|
||||
GvMaterialVolumen.DataBind()
|
||||
UpMaterialVolumen.Update()
|
||||
BtnAgregarMaterialModal.Text = "Agregar"
|
||||
H1.InnerText = "Agregar Material y Volumen"
|
||||
TxtPresupuesto.Text = ""
|
||||
TxtVolumen.Text = ""
|
||||
TxtVolumenTipo.Text = ""
|
||||
DdlMaterial.SelectedIndex = -1
|
||||
DdlUnidadMedida.SelectedIndex = -1
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddMaterial"))
|
||||
UpAddMaterial.Update()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub EditMaterial_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
CveMaterial = GvRow.RowIndex
|
||||
HdnModalidadMaterial.Value = "U"
|
||||
UpMaterialVolumen.Update()
|
||||
BtnAgregarMaterialModal.Text = "Actualizar"
|
||||
H1.InnerText = "Actualizar Material y Volumen"
|
||||
TxtVolumen.Text = GvRow.DataKey("Volumen")
|
||||
TxtPresupuesto.Text = GvRow.DataKey("Presupuesto")
|
||||
TxtVolumenTipo.Text = GvRow.DataKey("VolumenTipo")
|
||||
DdlMaterial.SelectedValueExist(GvRow.DataKey("CveMaterial"))
|
||||
DdlUnidadMedida.SelectedValueExist(GvRow.DataKey("CveUnidadMedida"))
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMaterial"))
|
||||
UpAddMaterial.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvMaterialVolumen_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMaterialVolumen.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.FCLiteral("LtlPresupuesto").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlPresupuesto").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolumenTipo").Text = FormatNumber(e.Row.FCLiteral("LtlVolumenTipo").Text, 2, , , TriState.True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GvTarifa_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTarifa.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.FCLiteral("LtlDistanciaInicio").Text = FormatNumber(e.Row.FCLiteral("LtlDistanciaInicio").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlDistanciaFin").Text = FormatNumber(e.Row.FCLiteral("LtlDistanciaFin").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlTarifa").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlTarifa").Text, 2, , , TriState.True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
136
Acarreos/RepAcarreos.aspx
Normal file
136
Acarreos/RepAcarreos.aspx
Normal file
@@ -0,0 +1,136 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAcarreos.aspx.vb" Inherits="Acarreos_RepAcarreos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Reporte Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<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">
|
||||
<label class="col-md-1 ">Proyecto Origen:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoOrigen" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.I:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.F:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" 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: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="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">Transportista:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1">Unidad: </label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlUnidad" DataValueField="CveUnidad" DataTextField="Unidad" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Chofer:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlChofer" DataValueField="CveChofer" DataTextField="Chofer" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Agrupador:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlAgrupador" CssClass="form-control input-sm select2me" runat="server" Width="150px">
|
||||
<asp:ListItem Value="1" Text="SubProyecto"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Transportista"></asp:ListItem>
|
||||
<asp:ListItem Value="3" Text="Chofer"></asp:ListItem>
|
||||
<asp:ListItem Value="4" Text="Unidad"></asp:ListItem>
|
||||
<asp:ListItem Value="5" Text="Material"></asp:ListItem>
|
||||
<asp:ListItem Value="6" Text="Año"></asp:ListItem>
|
||||
<asp:ListItem Value="7" Text="Mes"></asp:ListItem>
|
||||
<asp:ListItem Value="8" Text="Dia"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">P. Destino:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoDestino" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Material:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Contrato:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="CveAcarreoProyecto" DataTextField="NumContrato" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Acarreos con los filtros especificados" DataKeyNames="" ToolTip="Listado de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("Gpo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cantidad">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblCantidad" ItemStyle-Width="15%" runat="server" Text='<%# Eval("Cantidad") %>'>></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTotalVolumen" runat="server" Text='<%# Eval("TotalVolumen") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
131
Acarreos/RepAcarreos.aspx.vb
Normal file
131
Acarreos/RepAcarreos.aspx.vb
Normal file
@@ -0,0 +1,131 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_RepAcarreos
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDdlChofer()
|
||||
CargaDdlSubProyectoOrigen()
|
||||
CargaDdlSubProyectoDestino()
|
||||
CargaDdlUnidad()
|
||||
CargaDdlTransportista()
|
||||
CargaDdlMaterial()
|
||||
CargaDdlNumContrato()
|
||||
txtFechaF.Text = Now.AddDays(0).ToShortDateString
|
||||
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlUnidad()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa,-1) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
DdlUnidad.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlChofer()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlMaterial()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoOrigen()
|
||||
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoOrigen.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
Private Sub CargaDdlSubProyectoDestino()
|
||||
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoDestino.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Css As String = "Texto"
|
||||
If e.Row.DBCampo("Gpo") = "" Then
|
||||
e.Row.Visible = False
|
||||
End If
|
||||
If e.Row.DBCampo("Gpo") = "Total" And e.Row.RowIndex <> 0 Then
|
||||
e.Row.Visible = False
|
||||
End If
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
e.Row.FCLiteral("LtlTotalVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlTotalVolumen").Text, 2, , , TriState.True)
|
||||
|
||||
Dim Liga As String = $"/Acarreos/RepAcarreosDetalle.aspx?&Gpo={e.Row.DBCampo("Gpo")}&CveUnidad={e.Row.DBCampo("CveUnidad")}&CveSubProyectoOrigen={e.Row.DBCampo("CveSubProyectoOrigen")}&CveChofer={e.Row.DBCampo("CveChofer")}&CveTransportista={e.Row.DBCampo("CveTransportista")}&FFinal={e.Row.DBCampo("FehaFin")}&FInicial={e.Row.DBCampo("FechaInicio")}&Grupo={e.Row.DBCampo("Grupo")}&CveSubProyectoDestino={e.Row.DBCampo("CveSubProyectoDestino")}&CveMaterial={e.Row.DBCampo("CveMaterial")}&CveAcarreoProyecto={e.Row.DBCampo("CveAcarreoProyecto")}"
|
||||
e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
End Class
|
||||
144
Acarreos/RepAcarreosDetalle.aspx
Normal file
144
Acarreos/RepAcarreosDetalle.aspx
Normal file
@@ -0,0 +1,144 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAcarreosDetalle.aspx.vb" Inherits="Acarreos_RepAcarreosDetalle" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Reporte de Acarreos Detalle
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<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">
|
||||
<label class="col-md-1 ">Proyecto Origen:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoOrigen" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.I:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.F:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" 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: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="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">Transportista:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1">Unidad: </label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlUnidad" DataValueField="CveUnidad" DataTextField="Unidad" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Chofer:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlChofer" DataValueField="CveChofer" DataTextField="Chofer" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Agrupador:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlAgrupador" CssClass="form-control input-sm select2me" runat="server" Width="150px">
|
||||
<asp:ListItem Value="1" Text="SubProyecto"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Transportista"></asp:ListItem>
|
||||
<asp:ListItem Value="3" Text="Chofer"></asp:ListItem>
|
||||
<asp:ListItem Value="4" Text="Unidad"></asp:ListItem>
|
||||
<asp:ListItem Value="5" Text="Material"></asp:ListItem>
|
||||
<asp:ListItem Value="6" Text="Año"></asp:ListItem>
|
||||
<asp:ListItem Value="7" Text="Mes"></asp:ListItem>
|
||||
<asp:ListItem Value="8" Text="Dia"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">P. Destino:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoDestino" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Material:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Contrato:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="CveAcarreoProyecto" DataTextField="NumContrato" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" DataKeyNames="CveAcarreo,Transportista,CveTransportista,CveUnidad,CveChofer,Folio,Fecha,CveSubProyectoOrigen,CveSubProyectoDestino,Volumen,CveEstatus,CveTipoAcarreo,Unidad,Chofer,SubProyectoOrigen,SubProyectoDestino,FechaIng,Km,Material,CveMaterial" EmptyDataText="No se encontraron Acarreos con los filtros especificados" ToolTip="Listado de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Unidad" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUnidad" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="NumContrato" HeaderText="Contrato" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoOrigen" HeaderText="Proyecto Origen" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="SubProyectoDestino" HeaderText="Proyecto Destino" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Material" HeaderText="Material" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Km" HeaderText="Kilometraje" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
159
Acarreos/RepAcarreosDetalle.aspx.vb
Normal file
159
Acarreos/RepAcarreosDetalle.aspx.vb
Normal file
@@ -0,0 +1,159 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Acarreos_RepAcarreosDetalle
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
Private Property Gpo As String
|
||||
Get
|
||||
If ViewState("Gpo") Is Nothing Then
|
||||
Return "-1"
|
||||
Else
|
||||
Return ViewState("Gpo").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Gpo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
txtFechaF.Text = Now.AddDays(0).ToShortDateString
|
||||
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
|
||||
CargaDdlChofer()
|
||||
CargaDdlSubProyectoOrigen()
|
||||
CargaDdlSubProyectoDestino()
|
||||
CargaDdlUnidad()
|
||||
CargaDdlTransportista()
|
||||
CargaDdlMaterial()
|
||||
CargaDdlNumContrato()
|
||||
DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString.ToEntero
|
||||
DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString.ToEntero
|
||||
DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString.ToEntero
|
||||
DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString.ToEntero
|
||||
DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString.ToEntero
|
||||
DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString.ToEntero
|
||||
DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString.ToEntero
|
||||
DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero
|
||||
Gpo = IfNull(Request("Gpo"), "-1").ToString
|
||||
txtFechaF.Text = IfNull(Request("FFinal"), "-1").ToString
|
||||
txtFechaI.Text = IfNull(Request("FInicial"), "-1").ToString
|
||||
CargaDatos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
Gpo = "-1"
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlUnidad()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa,-1) Then
|
||||
DdlUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlUnidad.DataSource = ObjAcar.DtResultados
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
|
||||
DdlUnidad.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlMaterial()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
DdlMaterial.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlChofer()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
|
||||
DdlChofer.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlChofer.DataSource = ObjAcar.DtResultados
|
||||
DdlChofer.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoOrigen()
|
||||
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoOrigen.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoDestino()
|
||||
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoDestino.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim Css As String = "Texto"
|
||||
e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Unidad")
|
||||
e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("Volumen")
|
||||
If e.Row.DBCampo("Folio") = "" Then
|
||||
If DdlAgrupador.SelectedValue = 6 Or DdlAgrupador.SelectedValue = 7 Or DdlAgrupador.SelectedValue = 8 Then
|
||||
e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Gpo")
|
||||
End If
|
||||
e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("TotalVolumen")
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
|
||||
Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreo")}"
|
||||
e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
203
Acarreos/RepContratosAcarreos.aspx
Normal file
203
Acarreos/RepContratosAcarreos.aspx
Normal file
@@ -0,0 +1,203 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosAcarreos.aspx.vb" Inherits="Acarreos_RepContratosAcarreos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.dataTables_scrollHead {
|
||||
background-color: #95A5A6;
|
||||
color: white;
|
||||
}
|
||||
|
||||
.table-scrollable {
|
||||
margin-top: 0px !important;
|
||||
margin-bottom: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
padding-top: 0px;
|
||||
}
|
||||
|
||||
.Totales a {
|
||||
color: white;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Reporte de Contratos de Acarreos
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
|
||||
</li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<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">
|
||||
<label class="col-md-1 ">Contrato:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlNumContrato" DataValueField="CveAcarreoProyecto" DataTextField="NumContrato" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.I:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-1 ">F.F:</label>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
|
||||
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" 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: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="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">Transportista:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">P. Origen:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoOrigen" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">P. Destino:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoDestino" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">Agrupador:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlAgrupador" CssClass="form-control input-sm select2me" runat="server" Width="150px">
|
||||
<asp:ListItem Value="1" Text="Contrato"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Transportista"></asp:ListItem>
|
||||
<asp:ListItem Value="3" Text="Material"></asp:ListItem>
|
||||
<asp:ListItem Value="4" Text="Proyecto Origen"></asp:ListItem>
|
||||
<asp:ListItem Value="5" Text="Proyecto Destino"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-1 ">Proveedor:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlProveedor" DataValueField="CveProveedor" DataTextField="RazonSocial" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 ">Material:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlMaterial" DataValueField="CveMaterial" DataTextField="Material" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="dvCa">
|
||||
<table id="dTable" class="correcto table Widthall ">
|
||||
<tr>
|
||||
<td id="Td1" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px;" width="40"><b>Contrato</b></td>
|
||||
<td id="Td2" runat="server" class="dataTables_scrollHead" style="text-align: right!important; font-size: 14px;" width="10"><b>Contratado</b></td>
|
||||
<td id="dvImp" runat="server" class="dataTables_scrollHead" style="text-align: right!important; font-size: 14px;" width="10"><b>X Estimar</b></td>
|
||||
<td id="dvEst" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px;" width="10"><b>Estimado</b></td>
|
||||
<td id="divFalt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px;" width="10"><b>Faltante</b></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Contratos de Acarreos con los filtros especificados" DataKeyNames="" ToolTip="Listado de Contratos de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("Contrato") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Vol." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolContratado" runat="server" Text='<%# Eval("VolContratado") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="$" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPresContratado" runat="server" Text='<%# Eval("PresContratado") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Vol." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolXEstimar" runat="server" Text='<%# Eval("VolXEstimar") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="$" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPresXEstimar" runat="server" Text='<%# Eval("ImporteXEstimar") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Vol." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolEstimado" runat="server" Text='<%# Eval("VolEstimado") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="$" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPresEstimado" runat="server" Text='<%# Eval("ImporteEstimado") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Vol." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolFaltante" runat="server" Text='<%# Eval("VolFaltante") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="$" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPresFaltante" runat="server" Text='<%# Eval("ImporteFaltante") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
204
Acarreos/RepContratosAcarreos.aspx.vb
Normal file
204
Acarreos/RepContratosAcarreos.aspx.vb
Normal file
@@ -0,0 +1,204 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Acarreos_RepContratosAcarreos
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
Private Property DTCont As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTCont")), Nothing, CType(ViewState("DTCont"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTCont") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDdlNumContrato()
|
||||
CargaDdlMaterial()
|
||||
CargaDdlSubProyectoDestino()
|
||||
CargaDdlSubProyectoOrigen()
|
||||
CargaDdlTransportista()
|
||||
CargaDdlProveedor()
|
||||
txtFechaF.Text = Now.AddDays(0).ToShortDateString
|
||||
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlNumContrato()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
|
||||
DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlNumContrato.DataSource = ObjAcar.DtResultados
|
||||
DdlNumContrato.DataBind()
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDdlMaterial()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlMaterial.DataSource = ObjAcar.DtResultados
|
||||
DdlMaterial.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlSubProyectoOrigen()
|
||||
DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoOrigen.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
Private Sub CargaDdlSubProyectoDestino()
|
||||
DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
||||
DdlSubProyectoDestino.DataBind()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlTransportista()
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlTransportista.DataSource = ObjAcar.DtResultados
|
||||
DdlTransportista.DataBind()
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlProveedor()
|
||||
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedor.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.FCLiteral("LtlVolContratado").Text = FormatNumber(e.Row.FCLiteral("LtlVolContratado").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlPresContratado").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlPresContratado").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolXEstimar").Text = FormatNumber(e.Row.FCLiteral("LtlVolXEstimar").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlPresXEstimar").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlPresXEstimar").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolEstimado").Text = FormatNumber(e.Row.FCLiteral("LtlVolEstimado").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlPresEstimado").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlPresEstimado").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolFaltante").Text = FormatNumber(e.Row.FCLiteral("LtlVolFaltante").Text.ToDouble, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlPresFaltante").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlPresFaltante").Text.ToDouble, 2, , , TriState.True)
|
||||
If e.Row.FCLiteral("LtlContrato").Text = "" Then
|
||||
e.Row.FCLiteral("LtlContrato").Text = e.Row.DBCampo("Gpo")
|
||||
e.Row.FCLiteral("LtlVolXEstimar").Text = ""
|
||||
e.Row.FCLiteral("LtlPresXEstimar").Text = ""
|
||||
e.Row.FCLiteral("LtlVolEstimado").Text = ""
|
||||
e.Row.FCLiteral("LtlPresEstimado").Text = ""
|
||||
e.Row.FCLiteral("LtlVolContratado").Text = ""
|
||||
e.Row.FCLiteral("LtlPresContratado").Text = ""
|
||||
e.Row.FCLiteral("LtlVolFaltante").Text = ""
|
||||
e.Row.FCLiteral("LtlPresFaltante").Text = ""
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
Dim Css As String = "Texto"
|
||||
Dim Liga As String = $"/Acarreos/RepContratosAcarreosDetalle.aspx?&CveAcarreoProyecto={e.Row.DBCampo("CveAcarreoProyecto")}&CveMaterial={e.Row.DBCampo("CveMaterial")}"
|
||||
e.Row.FCLiteral("LtlContrato").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlContrato").Text & "</a>"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
If ObjAcar.GetRepContratosAcarreos(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
|
||||
DdlNumContrato.SelectedValue, DdlTransportista.SelectedValue, DdlSubProyectoOrigen.SelectedValue,
|
||||
DdlSubProyectoDestino.SelectedValue, DdlProveedor.SelectedValue,
|
||||
DdlMaterial.SelectedValue, DdlAgrupador.SelectedValue) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
DTCont = ObjAcar.DtResultados
|
||||
End If
|
||||
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "PDF"
|
||||
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
|
||||
If DTCont IsNot Nothing Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
If DdlNumContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Contrato</b>: {0}", DdlNumContrato.SelectedItem.Text)
|
||||
If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||
If DdlTransportista.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Transportista</b>: {0}", DdlTransportista.SelectedItem.Text)
|
||||
If DdlSubProyectoOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Proyecto Origen</b>: {0}", DdlSubProyectoOrigen.SelectedItem.Text)
|
||||
If DdlSubProyectoDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Proyecto Destino</b>: {0}", DdlSubProyectoDestino.SelectedItem.Text)
|
||||
If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text)
|
||||
If DdlMaterial.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Material</b>: {0}", DdlMaterial.SelectedItem.Text)
|
||||
If DdlAgrupador.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Agrupador</b>: {0}", DdlAgrupador.SelectedItem.Text)
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString))
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "EXCEL"
|
||||
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||
|
||||
If DTCont IsNot Nothing Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
If DdlNumContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Contrato</b>: {0}", DdlNumContrato.SelectedItem.Text)
|
||||
If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel")
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
263
Acarreos/RepContratosAcarreosDetalle.aspx
Normal file
263
Acarreos/RepContratosAcarreosDetalle.aspx
Normal file
@@ -0,0 +1,263 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosAcarreosDetalle.aspx.vb" Inherits="Acarreos_RepContratosAcarreosDetalle" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
<style>
|
||||
.gvFull tr td:nth-child(4) {
|
||||
display: none;
|
||||
}
|
||||
|
||||
.gvFull tr th:nth-child(4) {
|
||||
display: none;
|
||||
}
|
||||
|
||||
.gvFull tr td:nth-child(7) {
|
||||
display: none;
|
||||
}
|
||||
|
||||
.gvFull tr th:nth-child(7) {
|
||||
display: none;
|
||||
}
|
||||
|
||||
|
||||
.Widthall {
|
||||
width: 100% !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollHeadInner {
|
||||
width: 100% !important;
|
||||
background-color: #dddddd;
|
||||
padding-left: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollFoot {
|
||||
display: none;
|
||||
position: static;
|
||||
}
|
||||
|
||||
.table-scrollable {
|
||||
margin: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
margin-bottom: 0px;
|
||||
}
|
||||
|
||||
.table.dataTable {
|
||||
margin-top: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scrollBody table th {
|
||||
padding: 0px !important;
|
||||
padding-right: 4px !important;
|
||||
padding-left: 4px !important;
|
||||
}
|
||||
|
||||
.sinlink td a {
|
||||
pointer-events: none;
|
||||
cursor: default;
|
||||
color: black;
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
.white a {
|
||||
color: white !important;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
Reporte de Contratos Acarreos Detalle
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
|
||||
</li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
|
||||
<asp:UpdatePanel ID="UpDetalles" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet smmallpadding light bordered" id="DivContratosDetalle" runat="server">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase"><a id="HlContratos" runat="server" class="Texto">Datos del Contrato </a></span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-top: 0px; margin-top: -5px;">
|
||||
<div class="form-body">
|
||||
|
||||
<table border="0" >
|
||||
<tr align="left">
|
||||
<td width="95px"><b>Contrato:</b> </td>
|
||||
<td width="200px">
|
||||
<%-- <asp:HyperLink ID="HLContrato" runat="server" Text=""></asp:HyperLink>--%>
|
||||
<asp:Label ID="LblContrato" runat="server" Text="Contrato"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Fecha Inicio:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblFechaInicio" runat="server" Text="Fecha Inicio" DataFormatString="{0:d}"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Fecha Fin:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblFechaFin" runat="server" Text="Fecha Fin" DataFormatString="{0:d}"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Volumen Tipo:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblVolumenTipo" runat="server" Text="Volumen Tipo"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td width="95px"><b>Material:</b> </td>
|
||||
<td width="200px">
|
||||
<%-- <asp:HyperLink ID="HLContrato" runat="server" Text=""></asp:HyperLink>--%>
|
||||
<asp:Label ID="LblMaterial" runat="server" Text="Material"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Volumen:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblVolumen" runat="server" Text="Volumen"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Presupuesto:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblPresupuesto" runat="server" Text="Presupuesto"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td width="95px"><b>Proyecto Origen:</b> </td>
|
||||
<td width="200px">
|
||||
<%-- <asp:HyperLink ID="HLContrato" runat="server" Text=""></asp:HyperLink>--%>
|
||||
<asp:Label ID="LblSubProyectoOrigen" runat="server" Text="Proyecto Origen"></asp:Label>
|
||||
</td>
|
||||
<td width="85px"><b>Proyecto Destino:</b></td>
|
||||
<td width="135px">
|
||||
<asp:Label ID="LblSubProyectoDestino" runat="server" Text="Proyecto Destino"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpIndicador" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivXEstimar" visible="True" runat="server" class="col-md-4">
|
||||
<div class="dashboard-stat dashboard-stat-v2 yellow">
|
||||
<div class="visual"><i class="fa fa-bar-chart" '=""></i></div>
|
||||
<div class="details"><div class="number">XEstimar</div>
|
||||
<div class="desc"><label class="indicadortipo2 col-md-4 tooltips" data-original-title="Volumen">
|
||||
<asp:Label ID="LblVolXEstimar" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Importe">
|
||||
<asp:Label ID="LblPresXEstimar" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Cantidad">
|
||||
<asp:Label ID="LblNumXEstimar" runat="server"></asp:Label></label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="DivEstimado" visible="True" runat="server" class="col-md-4">
|
||||
<div class="dashboard-stat dashboard-stat-v2 green">
|
||||
<div class="visual"><i class="fa fa-bar-chart" '=""></i></div>
|
||||
<div class="details"><div class="number">Estimado</div>
|
||||
<div class="desc"><label class="indicadortipo2 col-md-4 tooltips" data-original-title="Volumen">
|
||||
<asp:Label ID="LblVolEstimado" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Importe">
|
||||
<asp:Label ID="LblPresEstimado" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Cantidad">
|
||||
<asp:Label ID="LblNumEstimado" runat="server"></asp:Label></label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="DivFaltante" visible="True" runat="server" class="col-md-4">
|
||||
<div class="dashboard-stat dashboard-stat-v2 red">
|
||||
<div class="visual"><i class="fa fa-bar-chart" '=""></i></div>
|
||||
<div class="details"><div class="number">Faltante</div>
|
||||
<div class="desc"><label class="indicadortipo2 col-md-4 tooltips" data-original-title="Volumen">
|
||||
<asp:Label ID="LblVolFaltante" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Importe">
|
||||
<asp:Label ID="LblPresFaltante" runat="server"></asp:Label></label>
|
||||
<label class="indicadortipo2 col-md-4 tooltips" data-original-title="Cantidad">
|
||||
<asp:Label ID="LblNumFaltante" runat="server"></asp:Label></label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<br />
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Contratos de Acarreos con los filtros especificados" DataKeyNames="NumAcarreosEstimados,NumAcarreosXEstimar,VolTot,Importe,SerieFolio" ToolTip="Listado de Contratos de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Num. Pre-Estimacion" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNumPreEstimacion" runat="server" Text='<%# Eval("NumPreEstimacion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Factura" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSerieFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Transportista" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTransportista" runat="server" Text='<%# Eval("Transportista") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server" Text='<%# Eval("VolTot") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlICantidad" runat="server" Text='<%# Eval("Cantidad") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="FechaPreEstimacion" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
255
Acarreos/RepContratosAcarreosDetalle.aspx.vb
Normal file
255
Acarreos/RepContratosAcarreosDetalle.aspx.vb
Normal file
@@ -0,0 +1,255 @@
|
||||
|
||||
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Drawing
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Acarreos_RepContratosAcarreosDetalle
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property CveAcarreoProyecto As Integer
|
||||
Get
|
||||
CveAcarreoProyecto = ViewState("CveAcarreoProyecto").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAcarreoProyecto") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveMaterial As Integer
|
||||
Get
|
||||
CveMaterial = ViewState("CveMaterial").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMaterial") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DTCont As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTCont")), Nothing, CType(ViewState("DTCont"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTCont") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property NumAcarreosEstimados As Integer
|
||||
Get
|
||||
NumAcarreosEstimados = ViewState("NumAcarreosEstimados").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("NumAcarreosEstimados") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property NumAcarreosXEstimar As Integer
|
||||
Get
|
||||
NumAcarreosXEstimar = ViewState("NumAcarreosXEstimar").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("NumAcarreosXEstimar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property VolXEstimar As Double
|
||||
Get
|
||||
VolXEstimar = ViewState("VolXEstimar").ToString.ToDouble
|
||||
End Get
|
||||
Set(value As Double)
|
||||
ViewState("VolXEstimar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property VolEstimado As Double
|
||||
Get
|
||||
VolEstimado = ViewState("VolEstimado").ToString.ToDouble
|
||||
End Get
|
||||
Set(value As Double)
|
||||
ViewState("VolEstimado") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property PresXEstimar As Double
|
||||
Get
|
||||
PresXEstimar = ViewState("PresXEstimar").ToString.ToDouble
|
||||
End Get
|
||||
Set(value As Double)
|
||||
ViewState("PresXEstimar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property PresEstimado As Double
|
||||
Get
|
||||
PresEstimado = ViewState("PresEstimado").ToString.ToDouble
|
||||
End Get
|
||||
Set(value As Double)
|
||||
ViewState("PresEstimado") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
NumAcarreosEstimados = 0
|
||||
NumAcarreosXEstimar = 0
|
||||
VolEstimado = 0
|
||||
VolXEstimar = 0
|
||||
PresXEstimar = 0
|
||||
PresEstimado = 0
|
||||
CveAcarreoProyecto = IfNull(Request("CveAcarreoProyecto"), "").ToString.ToEntero
|
||||
CveMaterial = IfNull(Request("CveMaterial"), "").ToString.ToEntero
|
||||
CargaDatos()
|
||||
|
||||
For Each Gvr As GridViewRow In GvDatos.Rows
|
||||
NumAcarreosEstimados = FormatNumber(NumAcarreosEstimados + Gvr.DataKey("NumAcarreosEstimados"), 2, , , TriState.True)
|
||||
NumAcarreosXEstimar = FormatNumber(NumAcarreosXEstimar + Gvr.DataKey("NumAcarreosXEstimar"), 2, , , TriState.True)
|
||||
|
||||
If Gvr.DataKey("SerieFolio") = "" Then
|
||||
VolXEstimar = FormatNumber(VolXEstimar + Gvr.DataKey("VolTot"), 2, , , TriState.True)
|
||||
PresXEstimar = FormatNumber(PresXEstimar + Gvr.DataKey("Importe"), 2, , , TriState.True)
|
||||
Else
|
||||
VolEstimado = FormatNumber(VolEstimado + Gvr.DataKey("VolTot"), 2, , , TriState.True)
|
||||
PresEstimado = FormatNumber(PresEstimado + Gvr.DataKey("Importe"), 2, , , TriState.True)
|
||||
End If
|
||||
Next
|
||||
LblVolEstimado.Text = FormatNumber(VolEstimado.ToString, 2, , , TriState.True)
|
||||
LblVolXEstimar.Text = FormatNumber(VolXEstimar.ToString, 2, , , TriState.True)
|
||||
LblVolFaltante.Text = FormatNumber(LblVolumen.Text.ToDouble - LblVolEstimado.Text.ToDouble, 2, , , TriState.True)
|
||||
LblPresEstimado.Text = "$" + FormatNumber(PresEstimado.ToString, 2, , , TriState.True)
|
||||
LblPresXEstimar.Text = "$" + FormatNumber(PresXEstimar.ToString, 2, , , TriState.True)
|
||||
LblPresFaltante.Text = "$" + FormatNumber((LblPresupuesto.Text.ToDouble * LblVolumen.Text.ToDouble) - LblPresEstimado.Text.ToDouble, 2, , , TriState.True)
|
||||
LblNumEstimado.Text = FormatNumber(NumAcarreosEstimados.ToString, 2, , , TriState.True)
|
||||
LblNumXEstimar.Text = FormatNumber(NumAcarreosXEstimar.ToString, 2, , , TriState.True)
|
||||
LblNumFaltante.Text = FormatNumber(LblVolFaltante.Text.ToDouble / LblVolumenTipo.Text.ToDouble, 1, , , TriState.True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetRepContratosAcarreosDetalle(CveAcarreoProyecto, CveMaterial, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
DTCont = ObjAcar.DtResultados
|
||||
|
||||
Dim DRES2 As DataRow
|
||||
DRES2 = ObjAcar.DtResultados(0)
|
||||
LblContrato.Text = DRES2("NumContrato").ToString
|
||||
LblFechaFin.Text = DRES2("FechaFin").ToString
|
||||
LblFechaInicio.Text = DRES2("FechaInicio").ToString
|
||||
LblMaterial.Text = DRES2("Material").ToString
|
||||
LblSubProyectoDestino.Text = DRES2("SubProyectoDestino").ToString
|
||||
LblSubProyectoOrigen.Text = DRES2("SubProyectoOrigen").ToString
|
||||
LblVolumenTipo.Text = FormatNumber(DRES2("VolumenTipo").ToString, 2, , , TriState.True)
|
||||
LblVolumen.Text = FormatNumber(DRES2("Volumen").ToString, 2, , , TriState.True)
|
||||
LblPresupuesto.Text = "$" + FormatNumber(DRES2("Presupuesto").ToString, 2, , , TriState.True)
|
||||
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
UpDetalles.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim Css As String = "Texto"
|
||||
Dim Liga As String = $"/Acarreos/RepPreEstimacionDetalle.aspx?&NumPreEstimacion={e.Row.DBCampo("NumPreEstimacion")}
|
||||
&CveAcarreoProyecto={CveAcarreoProyecto}&CveMaterial={CveMaterial}"
|
||||
e.Row.FCLiteral("LtlNumPreEstimacion").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlNumPreEstimacion").Text & "</a>"
|
||||
|
||||
e.Row.FCLiteral("LtlImporte").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlImporte").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "PDF"
|
||||
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
If DTCont IsNot Nothing Then
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Contrato", LblContrato.Text))
|
||||
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
|
||||
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
|
||||
params.Add(New ReportParameter("Material", LblMaterial.Text))
|
||||
params.Add(New ReportParameter("Volumen", LblVolumen.Text))
|
||||
params.Add(New ReportParameter("Presupuesto", LblPresupuesto.Text))
|
||||
params.Add(New ReportParameter("VolumenTipo", LblVolumenTipo.Text))
|
||||
params.Add(New ReportParameter("POrigen", LblSubProyectoOrigen.Text))
|
||||
params.Add(New ReportParameter("PDestino", LblSubProyectoDestino.Text))
|
||||
params.Add(New ReportParameter("Num", LblNumEstimado.Text))
|
||||
params.Add(New ReportParameter("VolXEstimar", LblVolXEstimar.Text))
|
||||
params.Add(New ReportParameter("PresXEstimar", LblPresXEstimar.Text))
|
||||
params.Add(New ReportParameter("VolEstimado", LblVolEstimado.Text))
|
||||
params.Add(New ReportParameter("PresEstimado", LblPresEstimado.Text))
|
||||
params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
|
||||
params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString))
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "EXCEL"
|
||||
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||
If DTCont IsNot Nothing Then
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Contrato", LblContrato.Text))
|
||||
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
|
||||
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
|
||||
params.Add(New ReportParameter("Material", LblMaterial.Text))
|
||||
params.Add(New ReportParameter("Volumen", LblVolumen.Text))
|
||||
params.Add(New ReportParameter("Presupuesto", LblPresupuesto.Text))
|
||||
params.Add(New ReportParameter("VolumenTipo", LblVolumenTipo.Text))
|
||||
params.Add(New ReportParameter("POrigen", LblSubProyectoOrigen.Text))
|
||||
params.Add(New ReportParameter("PDestino", LblSubProyectoDestino.Text))
|
||||
params.Add(New ReportParameter("Num", LblNumEstimado.Text))
|
||||
params.Add(New ReportParameter("VolXEstimar", LblVolXEstimar.Text))
|
||||
params.Add(New ReportParameter("PresXEstimar", LblPresXEstimar.Text))
|
||||
params.Add(New ReportParameter("VolEstimado", LblVolEstimado.Text))
|
||||
params.Add(New ReportParameter("PresEstimado", LblPresEstimado.Text))
|
||||
params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
|
||||
params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
79
Acarreos/RepPreEstimacionDetalle.aspx
Normal file
79
Acarreos/RepPreEstimacionDetalle.aspx
Normal file
@@ -0,0 +1,79 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepPreEstimacionDetalle.aspx.vb" Inherits="Acarreos_RepPreEstimacionDetalle" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
Reporte de Pre-Estimacion Detalle
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
|
||||
</li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Contratos de Acarreos con los filtros especificados" DataKeyNames="" ToolTip="Listado de Contratos de Acarreos" CssClass="table table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Factura" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSerieFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Transportista" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTransportista" runat="server" Text='<%# Eval("Transportista") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Unidad" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUnidad" runat="server" Text='<%# Eval("Unidad") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Chofer" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlChofer" runat="server" Text='<%# Eval("Chofer") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Volumen" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVolumen" runat="server" Text='<%# Eval("VolTot") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
151
Acarreos/RepPreEstimacionDetalle.aspx.vb
Normal file
151
Acarreos/RepPreEstimacionDetalle.aspx.vb
Normal file
@@ -0,0 +1,151 @@
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Drawing
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Acarreos_RepPreEstimacionDetalle
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property CveAcarreoProyecto As Integer
|
||||
Get
|
||||
CveAcarreoProyecto = ViewState("CveAcarreoProyecto").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAcarreoProyecto") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveMaterial As Integer
|
||||
Get
|
||||
CveMaterial = ViewState("CveMaterial").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMaterial") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property NumPreEstimacion As Integer
|
||||
Get
|
||||
NumPreEstimacion = ViewState("NumPreEstimacion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("NumPreEstimacion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DTCont As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTCont")), Nothing, CType(ViewState("DTCont"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTCont") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
CveAcarreoProyecto = IfNull(Request("CveAcarreoProyecto"), "").ToString.ToEntero
|
||||
CveMaterial = IfNull(Request("CveMaterial"), "").ToString.ToEntero
|
||||
NumPreEstimacion = IfNull(Request("NumPreEstimacion"), "").ToString.ToEntero
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjAcar As New ClsAcarreos
|
||||
If ObjAcar.GetRepPreEstimacionDetalle(CveAcarreoProyecto, CveMaterial, UsuarioActual.CveEmpresa, NumPreEstimacion) Then
|
||||
GvDatos.DataSource = ObjAcar.DtResultados
|
||||
GvDatos.DataBind()
|
||||
DTCont = ObjAcar.DtResultados
|
||||
End If
|
||||
ObjAcar.Dispose()
|
||||
UPDatos.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.FCLiteral("LtlFolio").Text = "" Then
|
||||
e.Row.FCLiteral("LtlFolio").Text = e.Row.DBCampo("Gpo")
|
||||
e.Row.CssClass = "Totales"
|
||||
Else
|
||||
Dim Css As String = "Texto"
|
||||
Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DBCampo("CveAcarreo")}"
|
||||
e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
|
||||
End If
|
||||
|
||||
|
||||
e.Row.FCLiteral("LtlImporte").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlImporte").Text, 2, , , TriState.True)
|
||||
e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "PDF"
|
||||
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
|
||||
If DTCont IsNot Nothing Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
StrFiltro.AppendFormat(" <b>Numero de Pre-Estimacion</b>: {0}", NumPreEstimacion)
|
||||
|
||||
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString))
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "EXCEL"
|
||||
|
||||
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||
|
||||
If DTCont IsNot Nothing Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
StrFiltro.AppendFormat(" <b>Numero de Pre-Estimacion</b>: {0}", NumPreEstimacion)
|
||||
|
||||
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
BIN
Acarreos/vssver2.scc
Normal file
BIN
Acarreos/vssver2.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user