-agrupadores Contabilidad 2

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