diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 994ef7716..653f8f120 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1773,7 +1773,12 @@ Public Class ClsContabilidad
 #End Region
 
 
-    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1,
+                                            Optional CveProveedor As Integer = -1,
+                                            Optional CveClasificacion As Integer = -1,
+                                            Optional CveCuentaBancos As Integer = -1,
+                                            Optional CvePersonal As Integer = -1,
+                                            Optional CveAF As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_CuentasConceptosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1784,6 +1789,7 @@ Public Class ClsContabilidad
             .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -4803,7 +4809,7 @@ Public Class ClsContabilidad
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Conta_UpdateCuentas")
+        DataAdapter("PA_Conta_CuentasUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
@@ -4844,7 +4850,7 @@ Public Class ClsContabilidad
                               Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1,
                               Optional CveBancoCuenta As Integer = -1) As Integer
         Dim Retorno As Integer = 0
-        DataAdapter("PA_Conta_AddCuentas")
+        DataAdapter("PA_Conta_CuentasAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePadre", SqlDbType.Int).Value = CvePadre
@@ -4892,7 +4898,7 @@ Public Class ClsContabilidad
             Return False
         End If
 
-        DataAdapter("PA_Conta_RemoveCuentas")
+        DataAdapter("PA_Conta_CuentasRemove")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta