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 = "[M200109]" 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:"20013"
				END ELSE
					W_PremierAide = "Faux"
				END					
				READ ENR_PROVISIONDNT FROM F.PROVISIONDNT, W_TamponCodeAide:"20013" ELSE 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<3> = ENR_FACTURAIDE<5,i>
										
					END
		
				NEXT i
		
		
			W_TamponCle = W_Cle[1,25]
		END
	REPEAT

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

END

STOP
