EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","NUMEROFACT" TO F.NUMEROFACT ELSE STOP
OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP

W_Periode=""
PRINT "Priode de traitement  annuler (AAAAMM) : "
INPUT W_Periode

EXECUTE 'SELECT FACTURORG AVEC PeriodeFacturOrg = "':W_Periode:'"'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   DELETE F.FACTURORG,W_Cle
REPEAT

EXECUTE 'SELECT HRESHISTOR AVEC @ID = "[':W_Periode:'"'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   DELETE F.HRESHISTOR,W_Cle
REPEAT

EXECUTE 'SELECT STATACTAIDE AVEC @ID = "[':W_Periode:'"'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   DELETE F.STATACTAIDE,W_Cle
REPEAT

EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "':W_Periode:'"'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   DELETE F.FACTURAIDE,W_Cle
REPEAT

EXECUTE 'VIDER-FICHIER HRESATTENTE'

EXECUTE 'SELECT ELTSFACTAIDE'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,W_Cle ELSE STOP
   ENR_ELTSFACTAIDE<24>=""
   WRITE ENR_ELTSFACTAIDE ON F.ELTSFACTAIDE,W_Cle
REPEAT

EXECUTE 'SELECT ACCORD'
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE STOP
   i=1
   LOOP
   WHILE ENR_ACCORD<14,i>#"" DO
      IF ENR_ACCORD<14,i>=W_Periode THEN
         ENR_ACCORD=DELETE(ENR_ACCORD,14,i)
         ENR_ACCORD=DELETE(ENR_ACCORD,15,i)
         ENR_ACCORD=DELETE(ENR_ACCORD,16,i)
         ENR_ACCORD=DELETE(ENR_ACCORD,17,i)
      END
      i=i+1
   REPEAT
   WRITE ENR_ACCORD ON F.ACCORD,W_Cle
REPEAT

WRITEV "0000000000" ON F.NUMEROFACT,"001",1

STOP

