diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 952337c9a..92b5aa4d1 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1019,21 +1019,25 @@ Public Class ClsContabilidad
                 Dim dtt As DataTable = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable)
                 Dim StrMsg As String = ""
                 If dtt IsNot Nothing Then
+                    Dim tCveEmp As Integer = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa
                     Dim dr As Data.DataRow = dtt.FiltroPrimero("")
                     If dr IsNot Nothing Then
                         StrMsg = dr("ConceptoContable").ToString
                         If dr("AplicaClasificacion").ToString = "True" Then
-                            StrMsg = StrMsg + " - Clasificación: " + ClsPaginas.GlobalDTClasificaciones(CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("Clasificacion", "")
+                            StrMsg = StrMsg + " - Clasificación: " + ClsPaginas.GlobalDTClasificaciones(tCveEmp, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("Clasificacion", "")
+                        End If
+                        If dr("AplicaActivoFijo").ToString = "True" Then
+                            StrMsg = StrMsg + " - Activo Fijo: " + ClsPaginas.GlobalDTActivoFijos(tCveEmp, CveActivoFijo:=CveActivoFijo).FiltroPrimeroValor("CodigoDescripcion", "")
+                        End If
+                        If dr("AplicaProveedor").ToString = "True" Then
+                            StrMsg = StrMsg + " - Proveedor: " + ClsPaginas.GlobalDTCompProveedores(tCveEmp, CveProveedor:=CveProveedor).FiltroPrimeroValor("NombreComercial", "")
                         End If
                     End If
                 End If
                 OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", StrMsg), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto2 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto3 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") OrElse ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50025;") Then
                 OnError("La empresa no tiene un formato de cuenta asignado.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50026;") Then