adxpno retourne les noms des traitements empilés.
adxpno( < exp_num > )
Elément | Description | Restrictions |
exp_num | Expression numérique désignant un niveau d'empilement | exp_num >= 0 |
# Nombre d'OBJets empilés à l'exécution du traitement courant
Integer NIVEAU
While adxpno(NIVEAU) <> "" NIVEAU += 1 Wend# Le traitement courant est-il dans l'application courante ?
if adxpno(0) <> filpath("TRT", trtcou, "adx", -1)
Errbox "Traitement n'appartenant pas à l'application courante" Endif# Quelle est l'application d'origine du programme appelant ?
# Son nom se trouve entre les 2 et 3 "/" en partant de la fin # de la chaîne renvoyée par adxpno pour l'indice 1.Local Libelle J, K, P1, P2, P3
J = len(adxpno(1)) While J > 0 & K < 3 If seg$(adxpno(1), J, J) = "/" K += 1 Assign("P" + num$(K)) With J Endif J -= 1 Wend Errbox "Application d'origine ="-seg$(adxpno(1), P3+1, P2-1)
adxpno retourne le nom complet (chemin) du traitement exécutable se trouvant sur la pile d'exécution d'Adonix au niveau dont le numéro est donné en argument. Le niveau 0 étant le niveau courant, le niveau 1 est celui du programme appelant etc.
Aucune erreur n'est retournée lorsqu'un argument numérique ne correspond à aucun niveau actif, la fonction retournant la chaîne vide.
Le résultat de la fonction est de type Char.