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

EXECUTE 'SELECT DETAILCALCUL AVEC @ID ="[200106" AND AVEC ConvColContratDetailCalcul = "02"'

W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE STOP
   ENR_DETAILCALCUL<1>=""
   ENR_DETAILCALCUL<43>=0
   ENR_DETAILCALCUL<44>=0
   ENR_DETAILCALCUL<45>=0
   ENR_DETAILCALCUL<46>=0
   WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,W_Cle
REPEAT
STOP
