Compras prodcutos servicios agrupador

App_Code/ClsInventarios.vb

@@ -2906,13 +2906,14 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional GPO As Integer = 1) As Boolean
+    Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional GPO As Integer = 1, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_InventarioFisicoResultadosGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@GPO", SqlDbType.Int).Value = GPO
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2923,13 +2924,14 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetInventarioFisicoResultadosAvance(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional GPO As Integer = 1) As Boolean
+    Public Function GetInventarioFisicoResultadosAvance(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional GPO As Integer = 1, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_InventarioFisicoResultadoAvance")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@GPO", SqlDbType.Int).Value = GPO
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
         Try
             SqlAdapter.Fill(Data)

Compras/RepProductosServicios.aspx.vb

@@ -191,6 +191,13 @@ Partial Class Compras_RepProductosServicios
         DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
         DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
         DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
+
+        'Agrega el grupo si es una empresa Agricola
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+            DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
+        End If
+
+
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub
@@ -296,7 +303,7 @@ Partial Class Compras_RepProductosServicios
     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 DdlGrupo.SelectedValue.ToEntero < 13 Then
+            If DdlGrupo.SelectedValue.ToEntero < 13 Or DdlGrupo.SelectedValue.ToEntero = 15 Then
                 If e.Row.DBCampo("GpoID") = "1" Then
                     e.Row.Cells(0).Text = e.Row.DBCampo("Moneda")
                     e.Row.CssClass = "Totales"

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -296,6 +296,12 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
         DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
         DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
+
+        'Agrega el grupo si es una empresa Agricola
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+            DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
+        End If
+
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub

Contabilidad/RepEstadoResultadosPorSegmento.aspx.vb

@@ -269,9 +269,10 @@ Partial Class Contabilidad_RepEstadoResultadosPorSegmento
             If DSDatos IsNot Nothing AndAlso DSDatos.Tables.Count = 2 Then
                 Try
 
-
                     HDSegmentos.Value = DSDatos.Tables(2).Rows(0)(0).ToString
+
                     liLnkDescarPersonalizado.Visible = True
+
                 Catch ex As Exception
 
                 End Try

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -254,8 +254,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
             End If
 
 
@@ -283,8 +283,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then

Empresas/160/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -1368,19 +1368,6 @@
                 </TextRuns>
                 <Style />
               </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Tel:6444153223</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Left>4.32565cm</Left>
@@ -4216,7 +4203,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Inventarios/RepAnomalias.aspx

@@ -75,23 +75,29 @@
     Reporte de Inventario Fisico
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
-    </li>
-     <li>
-        <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
-    </li>
  
-     <li>
-        <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
-    </li>
 
  
     <asp:UpdatePanel runat="server" id="UPAcciones" UpdateMode="Conditional">
         <ContentTemplate>
+
+
+               <li>
+                    <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
+                </li>
+                <li>
+                    <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
+                </li>
+                 <li>
+                    <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
+                </li>
+
+                 <li>
+                    <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
+                </li>
+                  <li>
+                        <asp:LinkButton ID="LnkDescarExcelGrupos" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel </asp:LinkButton>
+                    </li>
             <li>
                 <asp:LinkButton ID="btnFin" runat="server" Text="Finalizar Inventario" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
             </li>
@@ -104,6 +110,11 @@
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="btnFin" />
+            <asp:PostBackTrigger ControlID="LnkPDF"  />
+            <asp:PostBackTrigger ControlID="ImgExcel"  />
+            <asp:PostBackTrigger ControlID="ImgExcel2"  />
+            <asp:PostBackTrigger ControlID="ImgExcelProdcutosCoinciden"  />
+            <asp:PostBackTrigger ControlID="LnkDescarExcelGrupos"  />
         </Triggers>
     </asp:UpdatePanel>
 
@@ -125,6 +136,16 @@
                                     <asp:ListItem Text="Cantidad" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+
+                            <div class="col-md-1 truncate">Vista de Resultados:</div>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlVista" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
+                                    <asp:ListItem Text="Ver por Detalle" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Ver por Grupos" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+
                         </div>
 
                     </div>
@@ -208,7 +229,13 @@
     </asp:UpdatePanel>
     <br />
     
-    <asp:UpdatePanel ID="UPAnomalias" UpdateMode="Conditional" runat="server">
+    
+
+    <asp:UpdatePanel runat="server"   ID="UpGeneral"   UpdateMode="Conditional">
+        <ContentTemplate>
+
+                <div runat="server" id="DVNormal">
+        <asp:UpdatePanel ID="UPAnomalias" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
             <div class="row">
                 <div class="col-md-12">
@@ -248,8 +275,8 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <%--<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
+                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
@@ -298,7 +325,7 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />
+                    <%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
@@ -342,7 +369,7 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />
+                    <%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
@@ -384,6 +411,70 @@
                     </div>
                 </div>
             </div>
+    </div>
+
+    <div runat="server" id="DVGrupos" visible="false"  >
+
+         <div class="col-md-12">
+
+                    <div class="row">
+                        <div class="col-md-2" align="left" id="div2" runat="server">                            
+                            <asp:Label runat="server">Registros Productos que Faltan: <b><asp:Literal ID="LtlGrupos1" runat="server"></asp:Literal></b></asp:Label>
+                        </div>
+
+                        <div class="col-md-2" align="left" id="div4" runat="server">
+                            <asp:Label runat="server">Registros Productos que Sobran: <b><asp:Literal ID="LtlGrupos2" runat="server"></asp:Literal></b></asp:Label>
+                        </div>
+
+                        <div class="col-md-2" align="left" id="div5" runat="server">
+                             <asp:Label runat="server">Registros Productos Coincidentes: <b><asp:Literal ID="LtlGrupos3" runat="server"></asp:Literal></b></asp:Label>
+                        </div>
+                        
+                        <div class="col-md-6" align="right" id="div3" runat="server">
+                            <input type="text" id="TxtBusqueda4" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvGrupos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvGrupos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        </div>
+                    </div>
+                </div>
+
+
+        
+              <asp:GridView ID="GvGrupos" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
+                CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;"
+                GridLines="None"  DataKeyNames="CvePS,PS,Grupo,Orden">
+                <Columns>
+                    <asp:TemplateField Visible="false">
+                        <HeaderTemplate>
+                            <asp:CheckBox ID="ChkAllFaltante" runat="server"/>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:CheckBox ID="ChkPSFaltante"  runat="server" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                     
+                    <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen"/>
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />                    
+                    <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
+                    <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                </Columns>
+            </asp:GridView>
+
+
+    </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    
+
+    
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Inventarios/RepAnomalias.aspx.vb

@@ -97,11 +97,11 @@ Partial Class Inventarios_RepAnomalias
             End If
 
             If EsAvance Then
-                If Inventario.GetInventarioFisicoResultadosAvance(CveInventarioFisico, UsuarioActual.CveEmpresa, DdlGPO.SelectedValue.ToString.ToEntero) Then
+                If Inventario.GetInventarioFisicoResultadosAvance(CveInventarioFisico, UsuarioActual.CveEmpresa, DdlGPO.SelectedValue.ToString.ToEntero, DdlVista.SelectedValue.ToEntero) Then
                     dt = Inventario.DtResultados
                 End If
             Else
-                If Inventario.GetInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveEmpresa, DdlGPO.SelectedValue.ToString.ToEntero) Then
+                If Inventario.GetInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveEmpresa, DdlGPO.SelectedValue.ToString.ToEntero, DdlVista.SelectedValue.ToEntero) Then
                     dt = Inventario.DtResultados
                 End If
             End If
@@ -189,61 +189,103 @@ Partial Class Inventarios_RepAnomalias
                 End If
 
             End If
+
+
         End If
         Inventario.Dispose()
 
-        If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
-        If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
-        If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
 
+        If DdlVista.SelectedValue.ToEntero = 1 Then
 
-        GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
+            DVNormal.Visible = True
-        Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
+            DVGrupos.Visible = False
-        GvS.DataBind()
-        BanderaSerieLoteCad(GvS, DtS)
 
-        GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
+            LnkPDF.Visible = True
-        Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
+            ImgExcel.Visible = True
-        GvF.DataBind()
+            ImgExcel2.Visible = True
-        BanderaSerieLoteCad(GvF, DtF)
+            ImgExcelProdcutosCoinciden.Visible = True
+            LnkDescarExcelGrupos.Visible = False
 
-        Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
-        GvC.DataSource = DtC
-        GvC.DataBind()
-        BanderaSerieLoteCad(GvC, DtC)
 
-        Dim Script = ""
+            If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
-        If (GvF.Rows.Count > 0) Then
+            If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
-            GvF.UseAccessibleHeader = True
+            If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
-            GvF.HeaderRow.TableSection = TableRowSection.TableHeader
+
+            GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
+            Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
+            GvS.DataBind()
+            BanderaSerieLoteCad(GvS, DtS)
+
+            GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
+            Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
+            GvF.DataBind()
+            BanderaSerieLoteCad(GvF, DtF)
+
+            Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
+            GvC.DataSource = DtC
+            GvC.DataBind()
+            BanderaSerieLoteCad(GvC, DtC)
+
+
+            If (GvF.Rows.Count > 0) Then
+                GvF.UseAccessibleHeader = True
+                GvF.HeaderRow.TableSection = TableRowSection.TableHeader
+
+                divRegistradosFaltan.Visible = True
+                LtlTotalRegistrosFaltan.Text = GvF.Rows.Count.ToString
+            End If
+
+            If (GvS.Rows.Count > 0) Then
+                GvS.UseAccessibleHeader = True
+                GvS.HeaderRow.TableSection = TableRowSection.TableHeader
+
+                divRegistradosSobran.Visible = True
+                LtlTotalRegistrosSobran.Text = GvS.Rows.Count.ToString
+            End If
+
+            If (GvC.Rows.Count > 0) Then
+                GvC.UseAccessibleHeader = True
+                GvC.HeaderRow.TableSection = TableRowSection.TableHeader
+
+                divRegistradosCoinciden.Visible = True
+                LtlCoincidentes.Text = GvC.Rows.Count.ToString
+            End If
+
+            PSIguales()
+
+
+            UPAnomalias.Update()
+            UpdateGvS.Update()
+            UPDatos.Update()
+
+        Else
+            DVNormal.Visible = False
+            DVGrupos.Visible = True
+
+
+            LnkPDF.Visible = False
+            ImgExcel.Visible = False
+            ImgExcel2.Visible = False
+            ImgExcelProdcutosCoinciden.Visible = False
+            LnkDescarExcelGrupos.Visible = True
+
+            GvGrupos.DataSource = dt
+            GvGrupos.DataBind()
+
+            LtlGrupos1.Text = dt.FiltraParametros("Orden = 1  and CvePS > 0").Rows.Count.ToString
+            LtlGrupos2.Text = dt.FiltraParametros("Orden = 2  and CvePS > 0").Rows.Count.ToString
+            LtlGrupos3.Text = dt.FiltraParametros("Orden = 3  and CvePS > 0").Rows.Count.ToString
+
+            PSIguales()
 
-            divRegistradosFaltan.Visible = True
-            LtlTotalRegistrosFaltan.Text = GvF.Rows.Count.ToString
         End If
 
-        If (GvS.Rows.Count > 0) Then
-            GvS.UseAccessibleHeader = True
-            GvS.HeaderRow.TableSection = TableRowSection.TableHeader
 
-            divRegistradosSobran.Visible = True
+        UpGeneral.Update()
-            LtlTotalRegistrosSobran.Text = GvS.Rows.Count.ToString
+        UPAcciones.Update()
-        End If
 
-        If (GvC.Rows.Count > 0) Then
-            GvC.UseAccessibleHeader = True
-            GvC.HeaderRow.TableSection = TableRowSection.TableHeader
 
-            divRegistradosCoinciden.Visible = True
-            LtlCoincidentes.Text = GvC.Rows.Count.ToString
-        End If
-
-        PSIguales()
-        RegistraScript(Script)
-
-        UPAnomalias.Update()
-        UpdateGvS.Update()
-        UPDatos.Update()
     End Sub
 #End Region
 
@@ -274,6 +316,7 @@ Partial Class Inventarios_RepAnomalias
 
 
     Protected Sub GVF_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvF.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("Costo") = "-1" Then
                 e.Row.Cells(8).Text = "0"
@@ -288,10 +331,12 @@ Partial Class Inventarios_RepAnomalias
                 e.Row.FCCheckBox("ChkAllFaltante").Attributes.Add("onclick", "SeleccionarTodosFaltante(this);")
             End If
         End If
+
     End Sub
 
 
     Protected Sub GVS_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvS.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("Costo") = "-1" Then
                 e.Row.Cells(8).Text = "0"
@@ -306,6 +351,7 @@ Partial Class Inventarios_RepAnomalias
                 e.Row.FCCheckBox("ChkAllSobrante").Attributes.Add("onclick", "SeleccionarTodosSobrante(this);")
             End If
         End If
+
     End Sub
 
 #Region "  IMPRIMIR  "
@@ -386,6 +432,11 @@ Partial Class Inventarios_RepAnomalias
         GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
     End Sub
 
+
+    Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
+        GvGrupos.ExportToExcel("Reporte de Inventario Fisico" & Now.ToShortDateString)
+    End Sub
+
 #End Region
 
     Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable)
@@ -531,20 +582,66 @@ Partial Class Inventarios_RepAnomalias
     Private Sub PSIguales()
         Dim contadorF As Integer = 0
         Dim contadorS As Integer = 0
-        For Each dtF As GridViewRow In GvF.Rows
+
-            contadorS = 0
+        If DdlVista.SelectedValue.ToEntero = 1 Then
-            For Each dtS As GridViewRow In GvS.Rows
+            For Each dtF As GridViewRow In GvF.Rows
-                If dtS.DataKey("CvePS") = dtF.DataKey("CvePS") Then
+                contadorS = 0
-                    GvS.Rows(contadorS).BackColor = Drawing.Color.FromArgb(202, 52, 52)
+                For Each dtS As GridViewRow In GvS.Rows
-                    GvF.Rows(contadorF).BackColor = Drawing.Color.FromArgb(202, 52, 52)
+                    If dtS.DataKey("CvePS") = dtF.DataKey("CvePS") Then
-                End If
+                        GvS.Rows(contadorS).BackColor = Drawing.Color.FromArgb(202, 52, 52)
-                contadorS += 1
+                        GvF.Rows(contadorF).BackColor = Drawing.Color.FromArgb(202, 52, 52)
+                    End If
+                    contadorS += 1
+                Next
+                contadorF += 1
             Next
-            contadorF += 1
+        Else
-        Next
+
+
+            For Each dtF As GridViewRow In GvGrupos.Rows
+                contadorS = 0
+
+                If dtF.DataKey("Orden").ToEntero = 1 And dtF.DataKey("CvePS").ToEntero > 0 Then
+                    For Each dtS As GridViewRow In GvGrupos.Rows
+                        If dtS.DataKey("Orden").ToEntero = 2 Then
+
+                            If dtS.DataKey("CvePS") = dtF.DataKey("CvePS") Then
+                                GvGrupos.Rows(contadorS).BackColor = Drawing.Color.FromArgb(202, 52, 52)
+                                GvGrupos.Rows(contadorF).BackColor = Drawing.Color.FromArgb(202, 52, 52)
+                            End If
+
+                        End If
+                        contadorS += 1
+                    Next
+                End If
+
+
+
+
+                contadorF += 1
+
+            Next
+
+
+        End If
+
+
+
+
     End Sub
 
+    Private Sub GvGrupos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGrupos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("CvePS").ToString.ToEntero = 0 Then
 
 
+                e.Row.CssClass = "SubTotales"
+                e.Row.Cells(1).Text = e.Row.DataKey("Grupo").ToString
 
+            End If
+        End If
+
+
+    End Sub
 End Class