-- función de asignaciones

App_Code/ClsContabilidad.vb

@@ -950,7 +950,7 @@ Public Class ClsContabilidad
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
                 Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
-                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
                 Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
                 OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -5747,6 +5747,26 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación2", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
                                            Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean