From cfedc4cdf274509159a42955fe4fba5f09b4baad Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 23 Mar 2020 16:20:56 -0700
Subject: [PATCH] -agrupadores Contabilidad 2

---
 App_Code/ClsContabilidad.vb | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 39578f6b3..c42ee329b 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -4609,26 +4609,10 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetMonedas() As Boolean
+    Public Function GetAgrupadoresSAT() As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter(" SELECT * FROM Monedas ".ToString, CommandType.Text)
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar las Monedas.", ex)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetAgrupadoresSAT(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter(" SELECT CveAgrupadorSAT, Codigo + REPLICATE(' ', 10 - len(Codigo)) + ' - ' + Nombre AS CodigoNombre FROM AgrupadoresSAT where CveEmpresa= '" & CveEmpresa & "'", CommandType.Text)
-
+        DataAdapter("PA_Conta_AgrupadoresSATGet")
         Try
             SqlAdapter.Fill(Data)
             Retorno = True