**********************************************************************
*								     *
* GENERATION DU FICHIER NOMINATIF DES DEBITEURS			     *
* SPECIF ST AMAND    						     *
*								     *
* VANESSA                              AVRIL 2002		     *
**********************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE PRINT "OUVERTURE FACTURAIDE"
OPEN "","FACTURATION" TO F.FACTURATION ELSE PRINT "OUVERTURE FACTURATION"
OPEN "","PERIODESPAIE" TO F.PERIODESPAIE ELSE PRINT "OUVERTURE PERIODESPAIE"
**********************************************************************
* Rcupration des arguments

PROCREAD VARIABLE ELSE STOP
TITRCOLL=VARIABLE[1,2]

**********************************************************************

   READ ENR_PERIODESPAIE FROM F.PERIODESPAIE,"1" ELSE ENR_PERIODESPAIE=""
   VIDE=""
   ZERO42=VIDE "R(%42)"
   DATESYS=DATE()
   DATESYS=OCONV(DATESYS,"D2/")
   CODEXER=DATESYS[7,2]
   DATESYS=DATESYS[7,2]:DATESYS[4,2]:DATESYS[1,2]
   FINI="NON"
   LIGNE=""
   ENREG=""
   ATTRIBUT=1
   ARTICLE="TRESOR"
   ORDRE=0
   MONTANTTOTAL=0
   W_Sauve=""

   EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "':ENR_PERIODESPAIE<1>:'" PAR NumFactFactAide PAR-DECR 0'

   LOOP
      READNEXT W_CleFact ELSE
         ENREG=REPLACE(ENREG,ATTRIBUT;LIGNE)
         *ENREG=LIGNE

         GOSUB 100
         PRINT @(-1)
         ORDRE=ORDRE "R(#12)"
         MONTANTTOTAL=MONTANTTOTAL "R26,(#12)"
         PRINT @(10,10):"NOMBRE D'ORDRES ............. ":ORDRE
         PRINT @(10,12):"MONTANT TOTAL DES FACTURES .. ":MONTANTTOTAL
*         PRINT @(20,17):"FAIRE 'RC' POUR CONTINUER":
*         INPUT RETOUR
         FINI="OUI"
      END
   UNTIL FINI="OUI" DO

      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_CleFact ELSE GOTO 10
      IF W_Sauve # W_CleFact[1,25] THEN
         W_Sauve = W_CleFact[1,25]


         NUMFAC=W_CleFact[16,10]
         NUMFAC=NUMFAC "R(%13)"
         CODEPB=W_CleFact[1,5]

         W_Count=DCOUNT(ENR_FACTURAIDE<5>,CHAR(253))
         MONTANTFAC=0
         FOR i = 1 TO W_Count
            MONTANTFAC=MONTANTFAC+ENR_FACTURAIDE<5,i>
         NEXT i

         MONTANTTOTAL=MONTANTTOTAL+MONTANTFAC
         MONTANTFAC=MONTANTFAC "R(%11)"

         READ ENR_CIVILAIDE FROM F.CIVILAIDE,CODEPB ELSE GOTO 10
         NOMPB=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
         NOMPB=NOMPB "L(#30)"

         AD1=""
         IF ENR_CIVILAIDE<5> # "" THEN
            AD1=ENR_CIVILAIDE<5>:" "
         END
         IF ENR_CIVILAIDE<6> # "" THEN
            AD1=AD1:ENR_CIVILAIDE<6>:" "
         END
         IF ENR_CIVILAIDE<7> # "" THEN
            AD1=AD1:ENR_CIVILAIDE<7>:" "
         END
         IF ENR_CIVILAIDE<8> # "" THEN
            AD1=AD1:ENR_CIVILAIDE<8>
         END
         AD1=AD1 "L(#25)"
   
         AD2=""
         AD2=ENR_CIVILAIDE<9>
         AD2=AD2 "L(#25)"

         CPVILLE=ENR_CIVILAIDE<10>:ENR_CIVILAIDE<11>
         CPVILLE=CPVILLE "L(#30)"

         ORDRE=ORDRE+1
         LIGNE=LIGNE:" 2505":CODEXER:" ":NUMFAC:"     ":DATESYS:TITRCOLL:ZERO42:MONTANTFAC:SPACE(14):NOMPB:SPACE(34):AD1:SPACE(7):AD2:SPACE(7):CPVILLE:SPACE(241)
      END
10 REPEAT

STOP


************
* ECRITURE DU FICHIER
************
100 
   ENREG = ENREG[1,LEN(ENREG)-2]
   WRITE ENREG ON F.FACTURATION,ARTICLE
   ATTRIBUT=0
   ENREG=""
RETURN
