
*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP

EXECUTE 'SSELECT ACCORD AVEC TypeActOrg = "M"'

*TRAVAILLE LA LISTE
W_REQVIDE="FAUX"

LOOP 
    READNEXT CLE ELSE W_REQVIDE="VRAI"
UNTIL W_REQVIDE="VRAI" DO
    READ ENR_ACCORD FROM F.ACCORD,CLE ELSE ENR_ACCORD=""
    READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,ENR_ACCORD<1> ELSE ENR_ORGPRISECHARGE=""

    W_Date=OCONV(ENR_ACCORD<5>,"D4/")

    ENR_ACCORD<14>=W_Date[7,4]:W_Date[4,2]
    ENR_ACCORD<15>="0"
    ENR_ACCORD<16>="0"
    IF ENR_ORGPRISECHARGE<19>="3" THEN
       ENR_ACCORD<17>=ENR_ACCORD<9>
    END ELSE
       ENR_ACCORD<17>="0"
    END

    WRITE ENR_ACCORD ON F.ACCORD,CLE

REPEAT
  
STOP
