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

EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[200103" AND AVEC TypeActivite = "P"'

W_FINI=0
LOOP
     READNEXT CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""
     IF ENR_DETAILCALCUL<1>="P" THEN ENR_DETAILCALCUL<1>="E"
     WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,CLE

REPEAT
