1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
TableSupprimeTout(TableEntete)
sql est une chaîne
sql="SELECT COUNT(*) as nb FROM BonSortie_M "+Fil_Sortie+""
HExécuteRequêteSQL(Req_Sortie,hRequêteDéfaut,sql)
HLitPremier(Req_Sortie)
SI Req_Sortie.nb>30 ALORS
var1=Req_Sortie.nb-30
var2=30
SINON
var1=0
var2=30
FIN
sql="SELECT BonSortie_M.nbs AS nbs, BonSortie_M.date AS DATE, BonSortie_M.CodeUser, BonSortie_M.MLE AS MLE, BonSortie_M.valide AS valide FROM BonSortie_M "+Fil_Sortie+" ORDER BY nbs ASC LIMIT "+var1+", "+var2+""
HExécuteRequêteSQL(Req_Sortie,hRequêteDéfaut,sql)
POUR TOUTE Req_Sortie
TableAjouteLigne(TableEntete,Req_Sortie.nbs,Req_Sortie.date,Req_Sortie.CodeUser,Req_Sortie.MLE,Req_Sortie.MLE,Req_Sortie.valide)
FIN |
Partager