From 31415c80417627b361cce76b3ec6ca917cc104d9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 28 Jul 2021 18:55:27 -0700
Subject: [PATCH] parametro de ver por detalle/cantidad en if. ya cerrado

---
 App_Code/ClsInventarios.vb       | 3 ++-
 Inventarios/RepAnomalias.aspx.vb | 8 ++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 2c8d4284b..a4f596a68 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -2863,12 +2863,13 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional GPO 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
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 6935e4ef9..29071ec0c 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -82,7 +82,7 @@ Partial Class Inventarios_RepAnomalias
                     dt = Inventario.DtResultados
                 End If
             Else
-                If Inventario.GetInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                If Inventario.GetInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveEmpresa, DdlGPO.SelectedValue.ToString.ToEntero) Then
                     dt = Inventario.DtResultados
                 End If
             End If
@@ -155,7 +155,7 @@ Partial Class Inventarios_RepAnomalias
             If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
                 Dim dta As DataTable = Inventario.DtResultados
                 Dim str As New StringBuilder
-                If dta IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                If dta IsNot Nothing AndAlso dta.Rows.Count > 0 Then
 
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
                         str.AppendFormat("{0},", dr("RazonSocial"))
@@ -273,9 +273,9 @@ Partial Class Inventarios_RepAnomalias
     'End Sub
 
     Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
-        ImprimirbytesPDF(Impimir, Formato:="PDF")
+        ImprimirbytesPDF(Imprimir, Formato:="PDF")
     End Sub
-    Protected Function Impimir() As Byte()
+    Protected Function Imprimir() As Byte()
         Dim retorno As Byte() = Nothing
 
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta))