*********************************************
* Permet la rdition de factures par communes
* en cas de plantage imprimante
* REEDITEFACTCOMMUNE

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

W_RequeteMoul=""

PRINT "PERIODE DE TRAITEMENT (AAAAMM) : ":
INPUT W_Periode

PRINT "ENTITE JURIDIQUE : ":
INPUT W_Asso

PRINT "TYPE ACTIVITE (P/M/I) : ":
INPUT W_TypeAct

PRINT "INTERVALLE DE COMMUNES DE : ":
INPUT W_Debut:

PRINT "  A : ":
INPUT W_Fin

EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[':W_Asso:W_TypeAct:W_Periode:']" AND AVEC 11 = "1" AND AVEC LibComFactAide >= "':W_Debut:'" AND AVEC LibComFactAide <= "':W_Fin:'"'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FICHIER TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_FICHIER FROM F.FICHIER,W_Cle ELSE STOP
      ENR_FICHIER<11>=""
      ENR_FICHIER<12>=""
      WRITE ENR_FICHIER ON F.FICHIER,W_Cle
   REPEAT

END

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
