EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "':"200008":'" AND AVEC ActiviteFact = "':"P":'" PAR-DECR @ID'
W_Fini="FAUX"

W_ANCIENCODE=""
W_SALAIRE=0
W_CHARGESURSSAF=0
W_CHARGESPREV=0
W_CHARGESPROV=0
W_FRAIS=0
W_PRISE=0


LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

	IF W_ANCIENCODE # W_Cle[1,25] THEN
		GOSUB 100
		W_ANCIENCODE=W_Cle[1,25]
	END
 
REPEAT
	PRINT "SALAIRE     :":W_SALAIRE
	PRINT "CHG URSSAF  :":W_CHARGESURSSAF
	PRINT "CHG PREV    :":W_CHARGESPREV
	PRINT "PROVISION   :":W_CHARGESPROV
	PRINT "FRAIS       :":W_FRAIS
	PRINT "PRISE CHG   :":W_PRISE
	W_TOTAL=W_SALAIRE+W_CHARGESURSSAF+W_CHARGESPREV+W_CHARGESPROV+W_FRAIS+W_PRISE
	PRINT "TOTAL       :":W_TOTAL

STOP



100
   READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP

   W_COMPTEUR=DCOUNT(ENR_FACTURAIDE<1>,CHAR(253))

   FOR I=1 TO W_COMPTEUR

	IF ENR_FACTURAIDE<2,I>[1,13]="SALAIRE VERSE" THEN
		W_SALAIRE=W_SALAIRE+ENR_FACTURAIDE<5,I>
	END ELSE
		IF ENR_FACTURAIDE<2,I>="CHARGES APPELEES PAR L'URSSAF" THEN
			W_CHARGESURSSAF=W_CHARGESURSSAF+ENR_FACTURAIDE<5,I>
		END ELSE
			IF ENR_FACTURAIDE<2,I>="CHARGES PREVOYANCE SUPPLEMENTAIRE" THEN
				W_CHARGESPREV=W_CHARGESPREV+ENR_FACTURAIDE<5,I>
			END ELSE
				IF ENR_FACTURAIDE<2,I>="PROVISION POUR CONGES PAYES" THEN
					W_CHARGESPROV=W_CHARGESPROV+ENR_FACTURAIDE<5,I>
				END ELSE
					IF ENR_FACTURAIDE<2,I>[1,15]="PRISE EN CHARGE" THEN
						W_PRISE=W_PRISE+ENR_FACTURAIDE<5,I>
					END ELSE
						W_FRAIS=W_FRAIS+ENR_FACTURAIDE<5,I>
					END

				END
			END
		END
	END  

   NEXT I

RETURN
