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) |