W_FichierNonCree = "Faux"
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "PROVISIONDNT" TO F.PROVISIONDNT ELSE W_FichierNonCree = "Vrai" 
OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE STOP

IF W_FichierNonCree = "Vrai" THEN
	PRINT "Le fichier PROVISIONDNT n'a pas du tre cr..."
END ELSE

	EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[M200104]" OR AVEC @ID = "[M200105]" PAR-DECR @ID'
	PRINT 'SELECT FACTURAIDE AVEC @ID = "[M200104]" OR AVEC @ID = "[M200105]" PAR-DECR @ID'
	W_Fini = "Faux"
	W_TamponCle = ""
	W_TamponCodeAide = ""
	W_PremierAide = "Vrai"

	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

				IF W_Cle[1,5] = W_TamponCodeAide THEN

					* 2eme facture de l'aide (avril)

					W_Count = DCOUNT(ENR_FACTURAIDE<2>, CHAR(253))
					FOR i = 1 TO W_Count
						
						W_Libelle = ENR_FACTURAIDE<2,i>
						IF W_Libelle[1,29] = "CHARGES APPELEES PAR L'URSSAF" THEN
							ENR_PROVISIONDNT<1> = ENR_FACTURAIDE<5,i>								
						END

					NEXT i

				END ELSE

					* 1ere facture de l'aide (avril ou mai)
					* Rq : On change d'aide => ecriture de la provision de l'aide prcdent
			
					IF W_PremierAide = "Faux" THEN
						WRITE ENR_PROVISIONDNT ON F.PROVISIONDNT, W_TamponCodeAide:"20012"
					END ELSE
						W_PremierAide = "Faux"
					END					
					ENR_PROVISIONDNT = ""

					W_TamponCodeAide = W_Cle[1,5]
					W_Count = DCOUNT(ENR_FACTURAIDE<2>, CHAR(253))
					
					FOR i = 1 TO W_Count
						
						W_Libelle = ENR_FACTURAIDE<2,i>
						IF W_Libelle[1,29] = "CHARGES APPELEES PAR L'URSSAF" THEN
						
							IF W_Cle[10,6] = "200104" THEN
								* avril
								ENR_PROVISIONDNT<1> = ENR_FACTURAIDE<5,i>
							END ELSE
								* mai
								ENR_PROVISIONDNT<2> = ENR_FACTURAIDE<5,i>
							END				
						END
			
					NEXT i
				END			
			
			W_TamponCle = W_Cle[1,25]
		END
	REPEAT

	WRITE ENR_PROVISIONDNT ON F.PROVISIONDNT, W_TamponCodeAide:"20012"

END

STOP
