1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
//initialisation de la liste
ListeAffiche(LISTE_SQJournalT)
HLitPremier(SQJournalT,journaldate)
SI HTrouve(SQJournalT) ALORS
LIB_journaldate=SQJournalT.journaldate
LIB_nbrsmouve=SQJournalT.nbrsdemouve
LIB_typefermeture=SQJournalT.typefermeture
LIB_joursemaine=SQJournalT.joursemaine
LIB_annéencours=SQJournalT.annéencorurs
LIB_datederef=SQJournalT.datederef
LIB_totpayerjour=SQJournalT.TotalPayer_Jour
LIB_totnonpayerjour=SQJournalT.TotalNonpayer_Jour
FIN
//a chaque sélection d'une ligne
dAterech est une Date=LISTE_SQJournalT
sAterecherche est une chaîne=DateVersChaîne(dAterech,"AAAAMMJJ")
HLitRecherchePremier(SQJournalT,journaldate,sAterecherche)
SI HTrouve(SQJournalT) ALORS
LIB_journaldate=SQJournalT.journaldate
LIB_nbrsmouve=SQJournalT.nbrsdemouve
LIB_typefermeture=SQJournalT.typefermeture
LIB_joursemaine=SQJournalT.joursemaine
LIB_annéencours=SQJournalT.annéencorurs
LIB_datederef=SQJournalT.datederef
LIB_totpayerjour=SQJournalT.TotalPayer_Jour
LIB_totnonpayerjour=SQJournalT.TotalNonpayer_Jour
FIN |