current app?

[Tyann]

Voici un programme qui pourrait être utile pour plusieurs
AVars à réinitialiser.

Here is a program that could be useful for several
AVars to reset.

Code:

EXPORT APPINIT()
BEGIN
 LOCAL listap:={},v:="Active";
 LOCAL i,r,c;
 FOR i FROM 252 TO 256 DO
  listap(0):=STRINGFROMID(i);
 END;
 FOR i FROM 407 TO 417 DO
  listap(0):=STRINGFROMID(i);
 END;
 listap(0):=STRINGFROMID(1446);
 listap(0):=STRINGFROMID(1734);
 r:=CHOOSE(c,"APPLINIT",listap);
 IF r THEN
  EXPR(listap(c)+".AVars("+STRING(v)+"):="+STRING(listap(c)));
 END;
END;

STRINGFROMID devrait permettre de fonctionner dans tous les langages.
On peut réinistialiser une application depuis une autre, il est surement possible d'en faire
une version utilisable en sous-programme.
Qu'en pensez-vous ?

STRINGFROMID should make it possible to work in all languages.
One can reinitialize one application from another, it is surely possible to make one
A version that can be used as a subroutine.
What do you think ?