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

	EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[M200104]" 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_PremierAide = "Faux" THEN
					WRITE ENR_PROVISIONDNT ON F.PROVISIONDNT, W_TamponCodeAide:"20012"
				END ELSE
					W_PremierAide = "Faux"
				END					
				ENR_PROVISIONDNT = ""
					
				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
		
			W_TamponCodeAide = W_Cle[1,5] 
			W_TamponCle = W_Cle[1,25]
		END
	REPEAT

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

STOP
