ContinueFormularInstance
Poursuite de l'exécution d'un formulaire dans Qubes.exe (dépréciée)
Syntaxe
procedure ContinueFormularInstance(executionNo: Integer)
IMPORTANT
Cette fonction ne doit plus être utilisée, il convient a la place d'utiliser la fonction ClientServerOnlyContinueFormularInstance ou en contexte Web d'appeler l'url voulu comme décrit ci dessous
L'utilisation de cette fonction est bloqué par défaut dans le QubesExpress, car son usage dans ce contexte est susceptible de provoquer des blocages intempestifs du service.
il est possible de temporairement la réactiver de la manière suivante en positionnant l'entrée suivante dans le fichier QubesExpress.ini
[LEGACY]
StartNewFormular=Y
La réactivation doit être temporaire pour débloquer des cas de processus bloqués en production et seulement le temps de remplacer cette fonction par un appel approprié au contexte.
Remarques
Cette fonction est dépréciée à partir de la version Qubes 9.0
Il faut être responsable du formulaire pour pouvoir le poursuivre.
Pour démarrer une nouvelle exécution d'un formulaire dans Qubes.exe, utiliser StartNewFormularInstance.
Cette fonction n'est utilisable que dans Qubes.exe, car elle s'exécute en mode interactif.
Pour poursuivre un formulaire en intranet, via QubesExpress, il suffit de rediriger l'utilisateur vers l'url de poursuite du formulaire (i.e. /Formular.QXSLT?ExecNo=123456).
Exemples
uses Qubes, QuBESUsers, QuBESStatSource;
var rud := 'RudDuFormulaire';
// Récupération du n° d'une exécution en cours dont je suis responsable
var pss := TProcessStatSource.CreateFromDocRUD(rud);
var lstFilters := new TStrings;
lstFilters.Values['Status'] := 'Actif';
lstFilters.Values['Responsable'] := CurrentUserLogin;
pss.Filters := lstFilters.CommaText;
pss.Open('ExecutionNo');
var execNo : Integer = if not pss.EOF then pss.CurrentRowItem[0];
// S'il existe, poursuite de l'exécution, sinon, démarrage d'une nouvelle exécution
if execNo > 0 then
ContinueFormularInstance(execNo)
else
execNo := StartNewFormularInstance(rud);