//***************************************************************************//
// Visszaadja, hogy a törlő akció engedélyezett-e, vagy sem.                 //
//                                                                           //
// true, ha engedélyezett; egyébként false.                                  //
//***************************************************************************//
proc IsDeleterEnabled(MClass)
    if ([ProjectName] == "Poszeidon")
        if (toLower(GetTaggedValue([MClass], "PoszeidonDeleter")) == "false")
            return "false";
        else
            return "true";
        end if
    else
        return "true";
    end if
end proc


//***************************************************************************//
// Legenerálja az entitás nevéből és a művelet nevéből a saját (egyéni)      //
// akció nevét.                                                              //
//***************************************************************************//
proc GenerateCustomActionName(CLASSNAME, OPERATIONNAME)
    return [CLASSNAME] "_" [OPERATIONNAME];
end proc


//***************************************************************************//
// Nevet generál egy osztályhoz tartozó service-nek.                         //
//***************************************************************************//
proc GenerateServiceName(ENTITYNAME)
    return [ENTITYNAME] "Service";
end proc


//***************************************************************************//
// Legenerálja az entitás nevéből az alaphalmazt lekérdező akció nevét.      //
//***************************************************************************//
proc GenerateLoadBaseSetActionName(ENTITYNAME)
    return [ENTITYNAME] "BaseSetLoader";
end proc


//***************************************************************************//
// Legenrálja az entitás nevéből az azonosító alapján lekérdező ació nevét.  //
//***************************************************************************//
proc GenerateLoadEntityActionName(ENTITYNAME)
    return [ENTITYNAME] "Loader";
end proc


//***************************************************************************//
// Legenerálja az entitás nevéből a törlő akció nevét.                       //
//***************************************************************************//
proc GenerateDeleteEntityActionName(ENTITYNAME)
    return [ENTITYNAME] "Deleter";
end proc


//***************************************************************************//
// Legenerálja az entitás nevéből a létrehozó akció nevét.                   //
//***************************************************************************//
proc GenerateInsertEntityActionName(ENTITYNAME)
    return [ENTITYNAME] "Inserter";
end proc


//***************************************************************************//
// Legenerálja az entitás nevéből a módosító akció nevét.                    //
//***************************************************************************//
proc GenerateModifyEntityActionName(ENTITYNAME)
    return [ENTITYNAME] "Modifier";
end proc


//***************************************************************************//
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből  //
// az összerendelő akció nevét.                                              //
//***************************************************************************//
proc GenerateAssociaterName(MClass, MAssociationEnd)
    if (([MAssociationEnd.multiplicity] == "1") or ([MAssociationEnd.multiplicity] == "0..1"))
        return [MClass.name] "_" "Set" "_" DefineRoleName([MAssociationEnd]);
    else
        return [MClass.name] "_" "AddTo" "_" DefineRoleName([MAssociationEnd]);
    end if
end proc


//***************************************************************************//
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből  //
// a szétkapcsoló akció nevét.                                               //
//***************************************************************************//
proc GenerateDeAssociaterName(MClass, MAssociationEnd)
    if (([MAssociationEnd.multiplicity] == "1") or ([MAssociationEnd.multiplicity] == "0..1"))
        return [MClass.name] "_" "Null" "_" DefineRoleName([MAssociationEnd]);
    else
        return [MClass.name] "_" "RemoveFrom" "_" DefineRoleName([MAssociationEnd]);
    end if
end proc


//***************************************************************************//
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből  //
// a lekérdező akció nevét.                                                  //
//***************************************************************************//
proc GenerateAssociationQuerierName(MClass, MAssociationEnd)
    return [MClass.name] "_" "Get" "_" DefineRoleName([MAssociationEnd]);
end proc