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

PRINT "Sur quel mois dsirez vous cumuler les charges (AAAAMM : ex 200101 pour janvier 2001) ?"
INPUT W_Mois
PRINT "Voulez diter ce cumul sur l'imprimante (O/N)?"
INPUT W_Impr

IF W_Impr = "O" OR W_Impr = "o" THEN
	PRINTER ON
END


	EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[M':W_Mois:']" PAR-DECR @ID'
	PRINT " "
	W_Fini = "Faux"
	W_TamponCle = ""
	W_Cumul=""

	LOOP

		READNEXT W_Cle ELSE W_Fini = "Vrai"

	WHILE W_Fini = "Faux"
		
		IF W_Cle[1,25] # W_TamponCle THEN
		* on ne traite pas 2 fois une facture modifiee...

			READ ENR_FACTURAIDE FROM F.FACTURAIDE, W_Cle ELSE STOP
				
					W_Count = DCOUNT(ENR_FACTURAIDE<2>, CHAR(253))
					
					FOR i = 1 TO W_Count
						
						W_Libelle = ENR_FACTURAIDE<2,i>
						IF W_Libelle[1,13] = "SALAIRE VERSE" THEN
							W_Cumul<1> = W_Cumul<1> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,29] = "CHARGES APPELEES PAR L'URSSAF" THEN
							W_Cumul<2> = W_Cumul<2> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,23] = "CHARGES PREVOYANCE SUPP" THEN
							W_Cumul<3> = W_Cumul<3> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,21] = "PROVISION POUR CONGES" THEN
							W_Cumul<4> = W_Cumul<4> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,30] = "REPRISE PROVISIONS POUR CONGES" THEN
							W_Cumul<5> = W_Cumul<5> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,15] = "PRISE EN CHARGE" THEN
							W_Cumul<6> = W_Cumul<6> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,16] = "FRAIS DE GESTION" THEN
							W_Cumul<7> = W_Cumul<7> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,19] = "COTISATION ANNUELLE" THEN
							READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle[1,5] ELSE ENR_CIVILAIDE = ""
							PRINT 'AIDE : ':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>
							W_Cumul<8> = W_Cumul<8> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,28] = "MAJORATION PAR BULLETIN SUPP" THEN
							W_Cumul<9> = W_Cumul<9> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,22] = "FRAIS OUVERTURE DE DOS" THEN
							W_Cumul<10> = W_Cumul<10> + ENR_FACTURAIDE<5,i>
						END
						IF W_Libelle[1,10] = "TELEALARME" THEN
							W_Cumul<11> = W_Cumul<11> + ENR_FACTURAIDE<5,i>
						END
					NEXT i
			
			W_TamponCle = W_Cle[1,25]
		END
	REPEAT
W_LibMois=""
BEGIN CASE
	CASE W_Mois[5,2] MATCHES "01"
		W_LibMois = "janvier"
	CASE W_Mois[5,2] MATCHES "02"
		W_LibMois = "fevrier"
	CASE W_Mois[5,2] MATCHES "03"
		W_LibMois = "mars"
	CASE W_Mois[5,2] MATCHES "04"
		W_LibMois = "avril"
	CASE W_Mois[5,2] MATCHES "05"
		W_LibMois = "mai"
	CASE W_Mois[5,2] MATCHES "06"
		W_LibMois = "juin"
	CASE W_Mois[5,2] MATCHES "07"
		W_LibMois = "juillet"
	CASE W_Mois[5,2] MATCHES "08"
		W_LibMois = "aout"
	CASE W_Mois[5,2] MATCHES "09"
		W_LibMois = "septembre"
	CASE W_Mois[5,2] MATCHES "10"
		W_LibMois = "octobre"
	CASE W_Mois[5,2] MATCHES "11"
		W_LibMois = "novembre"
	CASE W_Mois[5,2] MATCHES "12"
		W_LibMois = "decembre"
END CASE
PRINT " Resultat du cumul sur le mois de ":W_LibMois:" ":W_Mois[1,4]
PRINT " "
PRINT "SALAIRE VERSE [...]                    ":(W_Cumul<1>/100)"R2"
PRINT "CHARGES APPELEES PAR L'URSSAF          ":(W_Cumul<2>/100)"R2"
PRINT "CHARGES PREVOYANCE SUPPLEMENTAIRE      ":(W_Cumul<3>/100)"R2"
PRINT "PROVISION POUR CONGES PAYES            ":(W_Cumul<4>/100)"R2"
PRINT "REPRISE PROVISIONS POUR CONGES PAYES   ":(W_Cumul<5>/100)"R2"
PRINT "PRISE EN CHARGE [...]                  ":(W_Cumul<6>/100)"R2"
PRINT "FRAIS DE GESTION                       ":(W_Cumul<7>/100)"R2"
PRINT "COTISATION ANNUELLE                    ":(W_Cumul<8>/100)"R2"
PRINT "MAJORATION PAR BULLETIN SUPPLEMENTAIRE ":(W_Cumul<9>/100)"R2"
PRINT "FRAIS OUVERTURE DE DOSSIER             ":(W_Cumul<10>/100)"R2"
PRINT "TELEALARME                             ":(W_Cumul<11>/100)"R2"

STOP
