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

PRINT "PERIODE (AAAAMM) :":
INPUT W_Periode

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

W_RequeteMoul=""

W_PeriodeForm=W_Periode[4,2]:"/":W_Periode[1,4]

PRINT SPACE(30):"LISTE RECAPITULATIVE DES FACTURES DE ":W_PeriodeForm:SPACE(5):"DATE :":OCONV(DATE(),"D4/")
PRINT ""
PRINT ""
PRINT ""

EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide ="':W_Periode:'" PAR NumFactFactAide PAR-DECR @ID'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

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

   W_MontTot = 0
   W_CleAv=""
   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      IF W_CleAv[1,25] # W_Cle[1,25] THEN
         READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP
         READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE STOP

         PRINT "CODE BENEFICIAIRE : ":W_Cle[1,5]:SPACE(10):"NUMERO FACTURE : ":W_Cle[16,10]

         W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
         W_NomPrenom=W_NomPrenom[1,25]
         W_NomPrenom=W_NomPrenom "L#25"

         W_ADRESSE1=ENR_CIVILAIDE<5>
         IF ENR_CIVILAIDE<6> # "" THEN
            W_ADRESSE1=W_ADRESSE1:" ":ENR_CIVILAIDE<6>
         END
         IF ENR_CIVILAIDE<7> # "" THEN
            W_ADRESSE1=W_ADRESSE1:" ":ENR_CIVILAIDE<7>
         END
         IF ENR_CIVILAIDE<8> # "" THEN
            W_ADRESSE1=W_ADRESSE1:" ":ENR_CIVILAIDE<8>
         END

         W_ADRESSE1=W_ADRESSE1[1,20]
         W_ADRESSE1=W_ADRESSE1 "L#20"

         W_ADRESSE2=ENR_CIVILAIDE<9>
         W_ADRESSE2=W_ADRESSE2[1,20]
         W_ADRESSE2=W_ADRESSE2 "L#20"

         W_ADRESSE3=ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>
         W_ADRESSE3=W_ADRESSE3[1,30]
         W_ADRESSE3=W_ADRESSE3 "L#30"

         IF W_ADRESSE1 = "" THEN
            W_Adresse=W_ADRESSE2:" :"W_ADRESSE1
         END ELSE
            W_Adresse=W_ADRESSE1:" :"W_ADRESSE2
         END
         W_Adresse=W_Adresse:" ":W_ADRESSE3

         PRINT "NOM ET ADRESSE : ":" ":W_NomPrenom:" ":W_Adresse
        
         W_Count=DCOUNT(ENR_FACTURAIDE<1>,CHAR(253))
         W_Total=0
         FOR i=1 TO W_Count
            W_Libelle=ENR_FACTURAIDE<2,i>
            W_Libelle=W_Libelle[1,30]
            W_Libelle=W_Libelle "L#30"

            W_Montant=ENR_FACTURAIDE<5,i>
            W_Total=W_Total+W_Montant
            W_Montant=W_Montant[1,8]
            W_Montant=W_Montant"MR2,"
            W_Montant=W_Montant "R#8"
            PRINT SPACE(18):W_Libelle:" ":W_Montant
            
         NEXT i

	 W_MontTot = W_MontTot + W_Total
         W_Total=W_Total[1,8]
         W_Total=W_Total"MR2,"
         W_Total=W_Total "R#8"
         PRINT ""
         PRINT SPACE(18):"T O T A L : ":SPACE(19):W_Total

         PRINT ""
         PRINT ""
         PRINT ""

         W_CleAv=W_Cle

      END
   REPEAT

   W_MontTot=W_MontTot[1,11]
   W_MontTot=W_MontTot"MR2,"
   W_MontTot=W_MontTot "R#11"
   PRINT ""
   PRINT SPACE(14):"TOTAL GENERAL : ":SPACE(16):W_MontTot

   PRINT ""
   PRINT ""
   PRINT ""

END

STOP

