EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
EXECUTE 'SELECT FACTURORG AVEC @ID="130M]" AND AVEC @ID="[200009]"'
 W_Fini="FAUX"
 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    READ ENR_FACTURORG FROM F.FACTURORG,W_Cle ELSE STOP
	ENR_FACTURORG<9>=""
	ENR_FACTURORG<10>=""
    WRITE ENR_FACTURORG ON F.FACTURORG,W_Cle
 REPEAT
STOP
