Mais là je bloque pour ouvrir un etat à partir d'une fiche pour aller chercher le code dans la bibliotheque. Ca marche pas !!
![Crying or Very sad :cry:](./images/smilies/icon_cry.gif)
----------------------------------------------
method pushButton(var eventInfo Event)
Lib.ConstMenu("CAPITAL.rsl")
endMethod
----------------------------------------------
et ta methoque ecrite dans une bilbliotheque
-----------------------------------------------
Var
PmFichier,PmEtat PopUpMenu
M Menu
Etat Report
EndVar
Etat.open(NomEtat)
Etat.maximize()
if not M.isAssigned() then
PmFichier.AddText("&Imprimer...",MenuEnabled,MenufilePrint)
PmFichier.AddText("&Configurer l'imprimante...",MenuEnabled,MenufilePrinterSetUp)
PmFichier.AddText("&Fermer",MenuEnabled,MenuControlClose)
PmEtat.AddText("Première page",MenuEnabled,MenuReportPageFirst)
PmEtat.AddText("Page suivante",MenuEnabled,MenuReportPageNext)
PmEtat.AddText("Page précédente",MenuEnabled,MenuReportPagePrevious)
PmEtat.AddText("Dernière page",MenuEnabled,MenuReportPageLast)
PmEtat.AddText("Aller à la page...",MenuEnabled,MenuReportPageGoto)
M.AddPopUp("&Fichier",PmFichier)
M.AddPopUp("&Etat",PmEtat)
endif
Etat.setmenu(M)