-- cuentas conceptos

App_Code/ClsContabilidad.vb

@@ -1562,6 +1562,30 @@ 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) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_CuentasConceptosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoSaldo", SqlDbType.Int).Value = CveTipoSaldo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener lod datos de Concepto Contables.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
 #Region " C O N T A B I L I D A D - T I P O - P O L I Z A "
     Public Function GetConta_TiposPoliza(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -4579,22 +4603,22 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Conta_GetCuentasyConceptos")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
+    'Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Conta_GetCuentasyConceptos")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
     Public Function UpdateCuentaCompaq(CveCuenta As Integer, IdCompaq As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False