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

EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC @ID = "[200004" AND AVEC DateAdhPrev <= "11809" AND AVEC RadPrev >= "11780" OR = ""'
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 PRINT "DETAILCALCUL"
   ENR_DETAILCALCUL<8>="056"
   ENR_DETAILCALCUL<11>=-INT(ENR_DETAILCALCUL<7> * 0.28 / 100 + 1/2 )
   ENR_DETAILCALCUL<14>=INT(ENR_DETAILCALCUL<7> * 0.43 / 100 + 1/2 )
   WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,W_Cle
REPEAT

STOP
