correcion funcion rep indicadores diarios
This commit is contained in:
Rakcsle Supertramp
396
Acumuladores/RepIndicadorDiario.aspx
Normal file
396
Acumuladores/RepIndicadorDiario.aspx
Normal file
@@ -0,0 +1,396 @@
|
|||||||
|
<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadorDiario.aspx.vb" Inherits="ACumuladores_RepIndicadorDiario" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkExportar" runat="server">
|
||||||
|
<i class="fa fa-ad-excel"></i> Exportar Excel
|
||||||
|
</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Reporte Indicador Diario
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
|
||||||
|
<style>
|
||||||
|
.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 {
|
||||||
|
overflow: hidden !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
.dataTables_scrollBody table th {
|
||||||
|
padding: 0px !important;
|
||||||
|
padding-right: 4px !important;
|
||||||
|
padding-left: 4px !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 31/05/2018 - ListBoxs */
|
||||||
|
.select2 .select2-selection__rendered {
|
||||||
|
line-height: 1;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2 .select2-selection--multiple {
|
||||||
|
box-sizing: border-box;
|
||||||
|
cursor: pointer;
|
||||||
|
display: block;
|
||||||
|
min-height: 20px;
|
||||||
|
user-select: none;
|
||||||
|
-webkit-user-select: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default .select2-selection--multiple .select2-selection__choice {
|
||||||
|
margin-top: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection__rendered {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 25px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-selection {
|
||||||
|
margin-top: 0px;
|
||||||
|
height: 31px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.select2-container--default.select2-container--focus .select2-selection--multiple {
|
||||||
|
border: none;
|
||||||
|
outline: 0;
|
||||||
|
}
|
||||||
|
#chartdiv {
|
||||||
|
width: 100%;
|
||||||
|
height: 500px;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
|
||||||
|
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
|
||||||
|
<div class="portlet-title portlet-filterT smalltitle">
|
||||||
|
<div class="tools">
|
||||||
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||||
|
<a href="javascript:;" class="expand"></a>
|
||||||
|
</div>
|
||||||
|
<div class="titlefiltros caption ">
|
||||||
|
<div class="row">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<div class="col-md-1 truncate">
|
||||||
|
Fecha Inicio:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width:115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" 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: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>
|
||||||
|
<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="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1 truncate">
|
||||||
|
Fecha Fin:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width:115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
|
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<%-- <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
|
||||||
|
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
|
||||||
|
</asp:DropDownList>--%>
|
||||||
|
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body" style="display: none">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<br />
|
||||||
|
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" data-sort="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip=""
|
||||||
|
DataKeyNames="Tipo,Seccion,TipoCategoria,Ordernador2"
|
||||||
|
>
|
||||||
|
<Columns>
|
||||||
|
<asp:TemplateField ItemStyle-Width="60">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Concepto
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlTipo" runat="server" Text='<%# Eval("Tipo") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Acumulado
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Importe Acumulado
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlImporteAcumulado" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Venta Diaria
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Importe Al Día
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlImporteAldia" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField ItemStyle-Width="60" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Cantidad Total
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal")%>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right" >
|
||||||
|
<HeaderTemplate>
|
||||||
|
Total
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Label ID="LtlTotal" style="margin-right:10px" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div id="DivTipoCambio" class="modal 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:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
|
||||||
|
<asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
|
||||||
|
</asp:RadioButtonList>
|
||||||
|
|
||||||
|
<div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
|
||||||
|
Especifico:
|
||||||
|
<asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnTipoCambio" runat="server" Text="Aceptar" class="btn btn-primary" />
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<div id="DivModalGrafica" class="modal ADS fade" role="dialog">
|
||||||
|
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-2"></div>
|
||||||
|
<label class="col-md-1 truncate">Grafica:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
<label class="col-md-1 truncate"> Ver:</label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="SubTotal" Value="2"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="IVA" Value="3"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div id="chartdiv"></div>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||||
|
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/serial.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/pie.js"></script>
|
||||||
|
<script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
|
||||||
|
<link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
|
||||||
|
<script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
|
||||||
|
<script>
|
||||||
|
|
||||||
|
function CargaGraficaBarras(data) {
|
||||||
|
|
||||||
|
var chart = AmCharts.makeChart("chartdiv", {
|
||||||
|
"type": "serial",
|
||||||
|
"theme": "light",
|
||||||
|
"dataProvider": data,
|
||||||
|
"startDuration": 2,
|
||||||
|
"valueAxes": [{
|
||||||
|
"position": "left",
|
||||||
|
"title": "Ventas"
|
||||||
|
}],
|
||||||
|
"graphs": [{
|
||||||
|
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
|
||||||
|
"colorField": "Color",
|
||||||
|
"fillAlphas": 1,
|
||||||
|
"lineAlpha": 0.1,
|
||||||
|
"type": "column",
|
||||||
|
"valueField": "Valor"
|
||||||
|
}],
|
||||||
|
"depth3D": 20,
|
||||||
|
"angle": 30,
|
||||||
|
"chartCursor": {
|
||||||
|
"categoryBalloonEnabled": false,
|
||||||
|
"cursorAlpha": 0,
|
||||||
|
"zoomable": false
|
||||||
|
},
|
||||||
|
"categoryField": "Texto",
|
||||||
|
"categoryAxis": {
|
||||||
|
"gridPosition": "start",
|
||||||
|
"labelRotation": 90
|
||||||
|
},
|
||||||
|
"export": {
|
||||||
|
"enabled": true
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
|
||||||
|
function CargaGraficaPastel(data) {
|
||||||
|
|
||||||
|
var chart = AmCharts.makeChart("chartdiv", {
|
||||||
|
"type": "pie",
|
||||||
|
"theme": "light",
|
||||||
|
"dataProvider":
|
||||||
|
data,
|
||||||
|
"valueField": "Valor",
|
||||||
|
"titleField": "Texto",
|
||||||
|
"outlineAlpha": 0.4,
|
||||||
|
"depth3D": 0,
|
||||||
|
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
|
||||||
|
"angle": 0,
|
||||||
|
"export": {
|
||||||
|
"enabled": true
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
|
||||||
|
</script>
|
||||||
|
</asp:Content>
|
||||||
371
Acumuladores/RepIndicadorDiario.aspx.vb
Normal file
371
Acumuladores/RepIndicadorDiario.aspx.vb
Normal file
@@ -0,0 +1,371 @@
|
|||||||
|
Option Explicit On
|
||||||
|
Option Strict On
|
||||||
|
|
||||||
|
Imports Extensiones
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
Imports System.Data
|
||||||
|
|
||||||
|
Partial Class ACumuladores_RepIndicadorDiario
|
||||||
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
#Region " PROPIEDADES "
|
||||||
|
Private Property DtDatos As DataTable
|
||||||
|
Get
|
||||||
|
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(ByVal value As DataTable)
|
||||||
|
ViewState("DtDatos") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property NumeroRemesa As String
|
||||||
|
Get
|
||||||
|
NumeroRemesa = ViewState("NumeroRemesa").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("NumeroRemesa") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property TCEspecifico As Double
|
||||||
|
Get
|
||||||
|
If ViewState("TCEspecifico") Is Nothing Then
|
||||||
|
Return -1
|
||||||
|
Else
|
||||||
|
Return DirectCast(ViewState("TCEspecifico"), Double)
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
Set(value As Double)
|
||||||
|
ViewState("TCEspecifico") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property DtColor As DataTable
|
||||||
|
Get
|
||||||
|
Return DirectCast(ViewState("DtColor"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DtColor") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property Agrupador As String
|
||||||
|
Get
|
||||||
|
Return ViewState("Agrupador").ToString
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("Agrupador") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property CveMoneda As Integer
|
||||||
|
Get
|
||||||
|
CveMoneda = ViewState("CveMoneda").ToString.ToEntero
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
ViewState("CveMoneda") = 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
|
||||||
|
|
||||||
|
txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
|
||||||
|
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
|
||||||
|
|
||||||
|
CargaCombos()
|
||||||
|
|
||||||
|
CargaDatos()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "CARGAS"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CargaCombos()
|
||||||
|
|
||||||
|
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
|
||||||
|
DdlSubProyecto.DataBind()
|
||||||
|
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
DdlSubProyecto.SelectedValuesIfExist("-1")
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CargaDatos()
|
||||||
|
|
||||||
|
Dim ObjAcum As New ClsAcumuladores()
|
||||||
|
|
||||||
|
Dim FechaI, FechaF As Date
|
||||||
|
FechaI = txtFechaI.Text.ToDate
|
||||||
|
FechaF = txtFechaF.Text.ToDate
|
||||||
|
|
||||||
|
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
|
||||||
|
TCEspecifico = TxtEspecifico.Text.ToDouble
|
||||||
|
Else
|
||||||
|
TCEspecifico = -1
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjAcum.GetRepInicadorDiario(FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||||
|
GvDatos.DataSource = ObjAcum.DtResultados
|
||||||
|
DtDatos = ObjAcum.DtResultados
|
||||||
|
Else
|
||||||
|
GvDatos.DataSource = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjAcum.Dispose()
|
||||||
|
GvDatos.DataBind()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "SELECTED INDEX CHANGE"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
|
||||||
|
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
|
||||||
|
Dim TipoCambio As Double
|
||||||
|
LiEspecifico.Visible = True
|
||||||
|
TipoCambio = GlobalTipoCambio(Now)
|
||||||
|
TxtEspecifico.Text = TipoCambio.ToString
|
||||||
|
Else
|
||||||
|
LiEspecifico.Visible = False
|
||||||
|
End If
|
||||||
|
UpBodyTipoCambio.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "CONSULTAR"
|
||||||
|
|
||||||
|
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
||||||
|
CargaDatos()
|
||||||
|
UPDatos.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "GRIDVIEW"
|
||||||
|
|
||||||
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
|
|
||||||
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
If e.Row.DataKey("Ordernador2").ToEntero = 100 Or e.Row.DataKey("Seccion").ToEntero = 3 And (e.Row.DataKey("TipoCategoria").ToEntero = 6 Or e.Row.DataKey("TipoCategoria").ToEntero = 7) Then
|
||||||
|
e.Row.Font.Bold = True
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region " IMPRIMIR "
|
||||||
|
|
||||||
|
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||||
|
'GvDatos.ExportToExcel("ReporteComprasClasificacion" & Now.ToShortDateString)
|
||||||
|
GenerarPDF("EXCEL")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
|
||||||
|
GenerarPDF("PDF")
|
||||||
|
End Sub
|
||||||
|
Private Sub GenerarPDF(Opcion As String)
|
||||||
|
Dim FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
|
||||||
|
Dim FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Dim FechaIn As String = $" <b>Fecha Inicio:</b> {txtFechaI.Text}"
|
||||||
|
Dim FechaFn As String = $" <b>Fecha Fin:</b> {txtFechaF.Text}"
|
||||||
|
If txtFechaI.Text = "" Then FechaIn = ""
|
||||||
|
If txtFechaF.Text = "" Then FechaFn = ""
|
||||||
|
|
||||||
|
|
||||||
|
Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" <b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
|
||||||
|
|
||||||
|
|
||||||
|
Dim FechaIF, FechaFF As String
|
||||||
|
FechaIF = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
||||||
|
FechaFF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||||
|
For Each Dr As DataRow In DtDatos.Rows
|
||||||
|
Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
|
||||||
|
Next
|
||||||
|
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("FechaInicio", FechaI))
|
||||||
|
params.Add(New ReportParameter("FechaFin", FechaF))
|
||||||
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
|
||||||
|
params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b> {FechaIn} {FechaFn} {SubProyecto} "))
|
||||||
|
If Imagen.Exists Then
|
||||||
|
params.Add(New ReportParameter("LogoPath", logouri))
|
||||||
|
Else
|
||||||
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
|
End If
|
||||||
|
ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion)
|
||||||
|
Else
|
||||||
|
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "GRAFICA"
|
||||||
|
|
||||||
|
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
|
||||||
|
If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||||
|
Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
LblTituloGrafica.Text = $"Agrupado por: {Agrupador}"
|
||||||
|
RegistraScript("$('#DivModalGrafica').modal('show')")
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
Private Sub CreaDataTableColor()
|
||||||
|
DtColor = New DataTable
|
||||||
|
DtColor.Columns.Add("Color")
|
||||||
|
Dim RowColor As DataRow = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF0F00"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF6600"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FF9E01"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#FCD202"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#F8FF01"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#B0DE09"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#04D215"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#0D8ECF"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#0D52D1"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#2A0CD0"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#8A0CCF"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#CD0D74"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#754DEB"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#DDDDDD"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#999999"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#333333"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
RowColor = Nothing
|
||||||
|
RowColor = DtColor.NewRow()
|
||||||
|
RowColor("Color") = "#000000"
|
||||||
|
DtColor.Rows.Add(RowColor)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CambioGrafica()
|
||||||
|
Dim Dt As New DataTable()
|
||||||
|
Dt.Columns.Add("Texto")
|
||||||
|
Dt.Columns.Add("Valor")
|
||||||
|
Dt.Columns.Add("Color")
|
||||||
|
Dt.Columns.Add("Moneda")
|
||||||
|
Dim RowColorIndex As Integer = 0
|
||||||
|
For Each Dr As DataRow In DtDatos.Rows
|
||||||
|
If Not Dr("CveCompra").ToString.ToEntero > 0 Then
|
||||||
|
Dim Row As DataRow = Nothing
|
||||||
|
Row = Dt.NewRow()
|
||||||
|
Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Abreviatura").ToString}"
|
||||||
|
Select Case DdlVer.SelectedValue.ToEntero
|
||||||
|
Case 1
|
||||||
|
Row("Valor") = Dr("Total").ToString.FormatoNumero
|
||||||
|
Case 2
|
||||||
|
Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
|
||||||
|
Case 3
|
||||||
|
Row("Valor") = Dr("IVA").ToString.FormatoNumero
|
||||||
|
End Select
|
||||||
|
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
|
||||||
|
Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
|
||||||
|
Dt.Rows.Add(Row)
|
||||||
|
RowColorIndex += 1
|
||||||
|
If RowColorIndex = 17 Then
|
||||||
|
RowColorIndex = 0
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
|
||||||
|
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
|
||||||
|
Select Case DdlGrafica.SelectedValue.ToEntero
|
||||||
|
Case 1
|
||||||
|
RegistraScript($"CargaGraficaBarras({json})", "22")
|
||||||
|
Case 2
|
||||||
|
RegistraScript($"CargaGraficaPastel({json})", "22")
|
||||||
|
End Select
|
||||||
|
UPModalProd.Update()
|
||||||
|
End Sub
|
||||||
|
Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
|
CambioGrafica()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
@@ -898,12 +898,12 @@ Public Class ClsAcumuladores
|
|||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
SqlDataAdapter("PA_Acum_RepInicadorDiarioGet")
|
SqlDataAdapter("PA_Acum_RepIndicadorDiarioGet")
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||||
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
||||||
.Add("@CveSubProeycto", SqlDbType.Int).Value = CveSubProeycto
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProeycto
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
End With
|
End With
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user