InQueue (TStereotypeClassQueue)

class function inQueue(const iTopic:string; const iSourceClassName:string; const iWhere:string; iDescendants:boolean; iArgs:Array of variant);

Cette méthode insère les objets de la classe iSourceName sélectionnés par l'expression iWhere dans la file d'attente.

iTopic	Sujet des objets insérés
iSourceClassName	Classe source des objets insérés
iWhere	Expression objet sélectionnant les objets à insérer
iDescendants	Insérer les objets descendants
iArgs	Paramètres de l'expression

Insérer un objet de la classe source dans la file d'attente consiste à créer un objet de la file d'attente en positionnant :

• queueState = 0 (Ready state)
• queueTopic = valeur du sujet pour l'objet source
• oidQueueRef = oid de l'objet source.

Seul les objets qui ne sont pas déjà présent (*) dans la file sont insérés, les objets déjà présent ont leur sujet mis à jour.

(*) : Il n'existe pas d'objet dans la file tel que oidQueueRef = oid de l'objet source

Sujet:

Le sujet des objets peut être paramétré par des attributs de la classe source, seul les attributs persistants sont autorisés et la valeur prise en compte est celle de la base de données.

Utilisez le préfixe @ pour désigner un paramètre.

Tip : L'opération est réalisée en SQL et encapsulée dans une transaction

Exemple :

//Procedure TestInQueue;
var obj:MyQueue; inst:WFClasseA; S,stag:string;
begin
  MyQueue.InQueue('wfclassea/@oid','WFClasseA','',true,[]);
 
  S := ''; stag := '';
  repeat
    obj := MyQueue.deQueue('') as MyQueue;
    if Assigned(obj) then
     try
       inst := obj.queueRef as WFClasseA;
       if Assigned(inst) then
        begin
          S := S+stag+inst.unCode;
          stag := ',';
        end;
     finally
     obj.DeleteThisObject;
     end;
  until not Assigned(obj);
  showMessage(S);
end;

Voir aussi :

• Insertion d'objet dans la file d'attente à partir d'un sélecteur

— Classe_file_d'attente_(stereotype) — Développement DSM —