From d2059d6665ddc674c1bb5cad60530ca639a22c2d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 21 Feb 2022 17:10:37 -0700
Subject: [PATCH] - mejoras en envio del detalle

---
 Acumuladores/RepIndicadorDiario.aspx          |  11 +-
 Acumuladores/RepIndicadorDiario.aspx.vb       |   4 +
 Acumuladores/RepIndicadorDiarioDetalle.aspx   | 120 ++++--------------
 .../RepIndicadorDiarioDetalle.aspx.vb         |  25 +++-
 4 files changed, 52 insertions(+), 108 deletions(-)

diff --git a/Acumuladores/RepIndicadorDiario.aspx b/Acumuladores/RepIndicadorDiario.aspx
index c818314b3..dfe552523 100644
--- a/Acumuladores/RepIndicadorDiario.aspx
+++ b/Acumuladores/RepIndicadorDiario.aspx
@@ -175,8 +175,7 @@
     <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"
-                >
+                DataKeyNames="Tipo,Seccion,TipoCategoria,Ordernador2">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="60">
                         <HeaderTemplate>
@@ -191,7 +190,7 @@
                             Acumulado
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado") %>'></asp:Literal>
+                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
@@ -207,7 +206,7 @@
                             Venta Diaria
                         </HeaderTemplate>
                         <ItemTemplate>
-                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia") %>'></asp:Literal>
+                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
@@ -215,7 +214,7 @@
                             Importe Al Día
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlImporteAldia" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:Literal>
+                            <asp:HyperLink ID="HplImporteAldia" NavigateUrl="#" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>                    
 
@@ -224,7 +223,7 @@
                             Cantidad Total
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal")%>'></asp:Literal>
+                            <asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal", "{0:N0}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
 
diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb
index 74b9e0cf3..ca676daf2 100644
--- a/Acumuladores/RepIndicadorDiario.aspx.vb
+++ b/Acumuladores/RepIndicadorDiario.aspx.vb
@@ -153,6 +153,10 @@ Partial Class ACumuladores_RepIndicadorDiario
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If e.Row.DBCampo("Partida").Contiene("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14") Then
+                e.Row.FCHyperLink("HplImporteAldia").NavigateUrl = String.Format("RepIndicadorDiarioDetalle.aspx?Partida={0}&FI={1}&FF={2}&CveSubProyecto={3}", e.Row.DBCampo("Partida"), txtFechaI.Text, txtFechaF.Text, DdlSubProyecto.SelectedValue)
+            End If
+
             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
 
diff --git a/Acumuladores/RepIndicadorDiarioDetalle.aspx b/Acumuladores/RepIndicadorDiarioDetalle.aspx
index 70cf16e06..5a5a8955c 100644
--- a/Acumuladores/RepIndicadorDiarioDetalle.aspx
+++ b/Acumuladores/RepIndicadorDiarioDetalle.aspx
@@ -89,9 +89,22 @@
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row">
-                            <label class="col-md-1">Tipo: </label>
+                            <label class="col-md-1">Opción: </label>
                             <div class="col-md-2">
-                                 
+                                <asp:DropDownList ID="DdlOpcion" runat="server" Enabled="false">
+                                    <asp:ListItem Text="ACUM. CONTADO" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="ACUM. DIST. CONT." Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="ACUM. DIST. CRED." Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="DEV. DE ACUM." Value="4"></asp:ListItem>
+                                    <asp:ListItem Text="FILTROS." Value="7"></asp:ListItem>
+                                     <asp:ListItem Text="FILTROS CRED" Value="8"></asp:ListItem>
+                                     <asp:ListItem Text="DEV. DE FILTROS" Value="9"></asp:ListItem>
+                                     <asp:ListItem Text="TOTAL FILTROS" Value="10"></asp:ListItem>
+                                    <asp:ListItem Text="ACEITES" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="ACEITES CRED." Value="12"></asp:ListItem>
+                                    <asp:ListItem Text="DEV ACEITES" Value="13"></asp:ListItem>
+                                    <asp:ListItem Text="TOTAL ACEITES" Value="14"></asp:ListItem>
+                                </asp:DropDownList>
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:
@@ -128,20 +141,16 @@
                                 <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                            <label class="col-md-1 ">Grupo:</label>
-                            <div class="col-md-2">
-                                 
-                            </div>
+                            </div>                             
                         </div>
                     </div>
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <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>
                         </div>
                         
@@ -155,26 +164,13 @@
         <ContentTemplate>
 
             <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio">
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="SerieFolio">
                 <Columns>
                     <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
-                    <asp:BoundField HeaderText="Método de Pago" DataField="MetodoPago" ItemStyle-Width="5%" Visible="false" />
-                    <asp:BoundField HeaderText="Forma de Pago" DataField="FormaPago" ItemStyle-Width="5%" Visible="false" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -183,77 +179,9 @@
         </ContentTemplate>
     </asp:UpdatePanel>
     
-
      
-    
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-    <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>
+ </asp:Content>
 
diff --git a/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb b/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb
index cd77622b5..f06c03605 100644
--- a/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb
+++ b/Acumuladores/RepIndicadorDiarioDetalle.aspx.vb
@@ -24,22 +24,27 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
 
     Private Sub CargaParametrosDetalle()
 
-        Dim Opcion As Integer = If(Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToEntero() > 0, Request("Opcion").ToEntero(), -1)
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        Dim Partida As Integer = If(Request("Partida") IsNot Nothing AndAlso Request("Partida").ToEntero() > 0, Request("Partida").ToEntero(), -1)
+        DdlOpcion.SelectedValueExist(Partida.ToEntero)
 
         Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
 
-
-
+        txtFechaI.Text = If(Request("FI") IsNot Nothing AndAlso Request("FI").ToString <> "", Request("FI").ToString.ToDate, MinFecha).ToShortDateString
+        txtFechaF.Text = If(Request("FF") IsNot Nothing AndAlso Request("FF").ToString <> "", Request("FF").ToString.ToDate, MinFecha).ToShortDateString
+        CargaDatos(Partida)
     End Sub
 #End Region
 
 #Region "   CARGA DATOS   "
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
+        CargaDatos(1)
         UPDatos.Update()
     End Sub
 
-    Private Sub CargaDatos()
+    Private Sub CargaDatos(opcion As Integer)
 
         Dim ObjAcum As New ClsAcumuladores()
 
@@ -47,7 +52,7 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
         FechaI = txtFechaI.Text.ToDate
         FechaF = txtFechaF.Text.ToDate
 
-        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, 1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, DdlOpcion.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjAcum.DtResultados
         Else
             GvDatos.DataSource = Nothing
@@ -58,6 +63,14 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
 
     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.DBCampo("SerieFolio") = "" Then
+                e.Row.CssClass = "SubTotales"
+            End If
+        End If
+    End Sub
+
 
 #End Region