***********************************
*
* MODIF FACTURORG ASMAD
*
***********************************
PRINTER ON

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

EXECUTE 'SAUVE-LISTE FACTURORG'
EXECUTE 'LISTE FACTURORG' CAPTURING MSG RETURNING MSGCODE
SELECT F.FACTURORG TO FACTURORG

W_FINFACTURORG="FAUX"
LOOP 
     READNEXT CLE FROM FACTURORG ELSE
	  W_FINFACTURORG="VRAI"
     END
     UNTIL W_FINFACTURORG="VRAI" DO
     
     EXECUTE 'SSELECT FACTURAIDE AVEC @ID = "':CLE[5,5]:']" AND AVEC PeriodeCleFactAide = "':CLE[13,6]:'"'
     EXECUTE 'SAUVE-LISTE FACTURAIDE'
     EXECUTE 'LISTE FACTURAIDE' CAPTURING MSG RETURNING MSGCODE
     SELECT F.FACTURAIDE TO FACTURAIDE

     W_NBARTICLE=MSGCODE<1,2>

     IF MSGCODE<1><>209 THEN

      W_FINFACTURAIDE="FAUX"
      LOOP
       READNEXT CLE2 FROM FACTURAIDE ELSE
	W_FINFACTURAIDE="VRAI"
       END
       UNTIL W_FINFACTURAIDE="VRAI" DO

       IF W_NBARTICLE=1 THEN
        * LECTURE ACCORD
        READ ENR_FACTURAIDE FROM F.FACTURAIDE,CLE2 ELSE 
	  ENR_FACTURAIDE=""
        END

        I=1
        W_MONTANT=0
        LOOP 
	   UNTIL ENR_FACTURAIDE<5,I>="" DO
	   IF ENR_FACTURAIDE<5,I>>0 THEN W_MONTANT=W_MONTANT+ENR_FACTURAIDE<5,I>
	   I=I+1
        REPEAT

	READ ENR_FACTURORG FROM F.FACTURORG,CLE ELSE
	   ENR_FACTURORG=""
	END

        ENR_FACTURORG<4>=W_MONTANT

        WRITE ENR_FACTURORG TO F.FACTURORG,CLE
       END ELSE
	PRINT "CODE FACTURE CAISSE=":CLE:" CODE FACTURE BENEF.=":CLE2
       END
      REPEAT
     END
REPEAT
