*************************************************************************
* MOULINETTE SUITE A LA MIGRATION DE TOURS                              *
* GENERE UN FICHIER DE FACTURATION AUX ORGANISMES                       *
* POUR RECUPERER LES DONNEES SOUS EXCEL                                 *
* VANESSA                                                NOVEMBRE 2002  *
*************************************************************************

*             NE PAS MODIFIER CAR PROG SPECIFIQUE TOURS                 *

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

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE PRINT "OUVERTURE ACCORD" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","FACTURATION" TO F.FACTURATION ELSE PRINT "OUVERTURE FACTURATION" ;* en lecture criture
OPEN "","FACTURORG" TO F.FACTURORG ELSE PRINT "OUVERTURE FACTURORG" ;* en lecture criture

0
PRINT "PERIODE DE TRAITEMENT (AAAAMM) ="
INPUT PERIODE
IF PERIODE MATCH "6N" ELSE GOSUB 0
1
PRINT "CODE ORGANISME (XXX) ="
INPUT ORGANISME
IF ORGANISME MATCH "3N" ELSE GOSUB 1

   W_SauvePeriode=""
   ENR_FICHIER=""
   i=1

   EXECUTE 'SELECT FACTURORG AVEC 10 = "':PERIODE:'" OR = "" AND AVEC OrgaFacturOrg = "':ORGANISME:'" PAR PeriodeFacturOrg PAR NomPrenomFacturOrg'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FACTURORG FROM F.FACTURORG,W_Cle ELSE ENR_FACTURORG=""

      IF ENR_FACTURORG<9>="" THEN
         ENR_FACTURORG<9>="0000":PERIODE
         ENR_FACTURORG<10>=PERIODE
      END
      WRITE ENR_FACTURORG ON F.FACTURORG,W_Cle

      IF W_SauvePeriode="" THEN
         W_SauvePeriode = W_Cle[13,6]
      END

      IF W_SauvePeriode # W_Cle[13,6] THEN

         W_CleFichier = "TOURS":PERIODE:ORGANISME:W_SauvePeriode:".CSV"
         WRITE ENR_FICHIER ON F.FACTURATION,W_CleFichier

         W_SauvePeriode = W_Cle[13,6]
         ENR_FICHIER=""
         i=1

         READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[5,5] ELSE ENR_CIVILAIDE=""
         READ ENR_ACCORD FROM F.ACCORD,W_Cle[5,8] ELSE ENR_ACCORD=""

         ENR_FICHIER<i>=W_Cle[5,5]:";":ENR_ACCORD<2>:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":ENR_ACCORD<9> "MR2,":";":ENR_FACTURORG<1> "MR2,":";":ENR_FACTURORG<3> "MR2,":";":ENR_FACTURORG<4> "MR2,"
         i=i+1

      END ELSE

         READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[5,5] ELSE ENR_CIVILAIDE=""
         READ ENR_ACCORD FROM F.ACCORD,W_Cle[5,8] ELSE ENR_ACCORD=""

         ENR_FICHIER<i>=W_Cle[5,5]:";":ENR_ACCORD<2>:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":ENR_ACCORD<9> "MR2,":";":ENR_FACTURORG<1> "MR2,":";":ENR_FACTURORG<3> "MR2,":";":ENR_FACTURORG<4> "MR2,"
         i=i+1

      END

   REPEAT

   W_CleFichier = "TOURS":PERIODE:ORGANISME:W_SauvePeriode:".CSV"
   WRITE ENR_FICHIER ON F.FACTURATION,W_CleFichier

STOP
