Bonjour, Exemple de code qui pourra t'aider peut-être
TableActivités..Visible=Vrai // branche en cours sBranche = ArbreSelect(Arbre_Services)
// Qu'est-ce qu'on a choisi SELON ChaîneOccurrence(sBranche,TAB) CAS 1 : // Pôles WIdentifiant=ArbreRécupèreIdentifiant(Arbre_Services,sBranche) HExécuteRequête(Req_PoleRen,hRequêteDéfaut,WIdentifiant,Wdate1,Wdate2,Null) HExécuteRequête(Req_PoleSubvention,hRequêteDéfaut,Wdate1,Wdate2,WIdentifiant,Null) Lib_Det_Fiche=ExtraitChaîne(sBranche,1,TAB,DepuisFin) CAS 2 : // services WIdentifiant=ArbreRécupèreIdentifiant(Arbre_Services,sBranche) // Fiches HExécuteRequête(Req_PoleRen,hRequêteDéfaut,Null,Wdate1,Wdate2,WIdentifiant) HExécuteRequête(Req_PoleSubvention,hRequêteDéfaut,Wdate1,Wdate2,Null,WIdentifiant) Lib_Det_Fiche=ExtraitChaîne(sBranche,1,TAB,DepuisFin) AUTRE CAS : // Racines HExécuteRequête(Req_PoleRen,hRequêteDéfaut,Null,Wdate1,Wdate2,Null) HExécuteRequête(Req_PoleSubvention,hRequêteDéfaut,Wdate1,Wdate2,Null,Null) Lib_Det_Fiche="Tous les pôles" FIN Lib_Det_Fiche2=Lib_Det_Fiche Cal_Activités() Cal_Finances() HAnnuleDéclaration(Req_PoleRen) HAnnuleDéclaration(Req_PoleSubvention) |