Traitement de programme (tt)
Déclaration
Module 'A5TMRAPPORT.dhop'
Procedure Programme_debut
1 idMenu L
BeginP
idMenu = XmeMenuGetId(MZ.MECLE, "NOMDUMENUPRINCIPAL")
Ajouter_Menus_Dynamique_Decisionnel(MZ.MeCle, idMenu)
EndP
Public Procedure xxxx_Apres = ouverture qui permet de traiter les arrêts spécifiques
1 NomSectionRapport S
1 NomFichierRapport S
Beginp
If Harmony.DataArret in (10600..10699) ;arrêt générique menu décisionnel
If Trouve_Rapport_Decisionnel(Harmony.DataArret, NomFichierRapport, NomSectionRapport)
;il faut mettre en ligne l'enreg requis pour la substitution des paramètres, puis appeler ces fonctions pour que le contexte de l'appelant reste ici
Seek_ART(Nom_Entete.Ref)
Ouvrir_Rapport_Decisionnel_Appelant(NomFichierRapport, NomSectionRapport)
Appelant_Recevoir_Chemins_et_Appel_Navigateur()
EndIf
EndIf
Endp