InQueue (TStereotypeClassQueue)

Version actuelle en date du 13 janvier 2015 à 11:42

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.

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