Zoom

Owned by Bertrand Littel
29/12/2021

Déclaration
Module 'A5TMRAPPORT.dhop'
Procedure ZoomDebut
if zoom.flagcombozoom = False
Ajouter_Menus_Dynamique_Decisionnel(Zoom.MsqEcran, Zoom.IdMenu)
endif
Procedure ZoomConsult
1 NomSectionRapport S
1 NomFichierRapport S
…
Case 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
ART = Article.ART
Ouvrir_Rapport_Decisionnel_Appelant(NomFichierRapport, NomSectionRapport)
Appelant_Recevoir_Chemins_et_Appel_Navigateur()
EndIf