EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP

EXECUTE 'SELECT DETAILCALCUL AVEC @ID = "[200103" AND AVEC SecteurAidantDetailCalcul ="001"'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   WRITEV "" ON F.DETAILCALCUL,W_Cle,1
REPEAT

STOP
