********************************************
* GENERATION FRAIS DE DOSSIER SUR PERIODES *
* SPECIF DOUAI                             *
* 07/02/2001               STEPHANE HERVET *
********************************************

PRINT @(-1)

* OUVERTURE FICHIER
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP

1 
PRINT "PERIODE A TRAITER :"
INPUT W_PERIODESAISIE

PRINT "MONTANT DES FRAIS DE DOSSIER A GENERER :"
INPUT W_MONTANTFRAISDOSSIER

IF W_PERIODESAISIE MATCH "4N" ELSE GOSUB 1

W_MONTANTFRAISDOSSIER=W_MONTANTFRAISDOSSIER*100

2
W_PERIODE="01/01/":W_PERIODESAISIE
W_PERIODE=ICONV(W_PERIODE,"D4/")

EXECUTE 'SSELECT ACTIVITESAIDE AVEC 2 <= "':W_PERIODE:'" AND AVEC 3 >= "':W_PERIODE:'" OR = "" AND AVEC TypeActivite = "M"'

W_REQVIDE=0
LOOP
     READNEXT CLE ELSE W_REQVIDE=1
     UNTIL W_REQVIDE=1 DO

     READ ENR_COMPLFACT FROM F.COMPLFACT,CLE:"002M" ELSE ENR_COMPLFACT=""

     ENR_COMPLFACT<1,-1>="FRAIS DE DOSSIER"
     ENR_COMPLFACT<2,-1>=""
     ENR_COMPLFACT<3,-1>=""
     ENR_COMPLFACT<4,-1>=W_MONTANTFRAISDOSSIER
     ENR_COMPLFACT<5,-1>="7061000000"
     ENR_COMPLFACT<6,-1>="200"
     ENR_COMPLFACT<7,-1>="0"

     WRITE ENR_COMPLFACT ON F.COMPLFACT,CLE:"002M"

REPEAT

STOP
