Dim col
ActiveModel.GetCollectionByKind PdCommon.Cls_BusinessRule, col
if not col is nothing then
output « Il y’a » & col.count & » règles d’affaires dans le modèle »
end if
Dim col
ActiveModel.GetCollectionByKind PdCommon.Cls_BusinessRule, col
if not col is nothing then
output « Il y’a » & col.count & » règles d’affaires dans le modèle »
end if