From 85510e14594a11465c4388402c1cc000eb884317 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 11 Feb 2020 17:29:06 -0700
Subject: [PATCH] agregando un nuevo catalogo

---
 App_Code/ClsGenerales.vb | 5 ++++-
 App_Code/ClsPaginas.vb   | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index d64782ccb..3e035cf13 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -369,9 +369,12 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetGralPaqueteriasGuiasTipo() As Boolean
+    Public Function GetGralPaqueteriasGuiasTipo(Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_PaqueteriasGuiasTipoGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 56ef2a7dd..5ce6ad484 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3957,6 +3957,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Compras/RepReqOCCompraInv.aspx".ToUpper(), 689)
             PaginaDict.Add("/Compras/RepComprasPrecios.aspx".ToUpper(), 690)
             PaginaDict.Add("/Compras/RepDocumentacionProveedor.aspx".ToUpper(), 1206)
+            PaginaDict.Add("/Compras/CatPaqueteriasGuiasTipo.aspx".ToUpper(), 753)
 
 
 #End Region