EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","BROUILLARDDETAIL" TO F.BROUILLARDDETAIL ELSE STOP
OPEN "","PLANCOMPTABLE" TO F.PLANCOMPTABLE ELSE STOP
OPEN "","TEMPO" TO F.TEMPO ELSE STOP

PROCREAD PARAMETRES ELSE STOP

W_RANGCLE=INDEX(PARAMETRES," ",1)
W_CLE=PARAMETRES[W_RANGCLE+1,999]

EXECUTE 'SSELECT BROUILLARDDETAIL AVEC 0 = "':W_CLE:']" PAR-DECR 0'

READ ENR_TEMPO FROM F.TEMPO,"BROUILLARD":W_CLE THEN
	DELETE F.TEMPO,"BROUILLARD":W_CLE
END

W_FIN=0
ENR_TEMPO=""
LOOP
	READNEXT CLEBROUILLARD ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_BROUILLARDDETAIL FROM F.BROUILLARDDETAIL,CLEBROUILLARD	ELSE ENR_BROUILLARDDETAIL=""
	READ ENR_PLANCOMPTABLE FROM F.PLANCOMPTABLE,ENR_BROUILLARDDETAIL<4> ELSE ENR_PLANCOMPTABLE=""
	
	* mise en forme libll compte
	ENR_BROUILLARDDETAIL<5>=ENR_BROUILLARDDETAIL<5>[1,31]
	ENR_BROUILLARDDETAIL<5>=ENR_BROUILLARDDETAIL<5> "L#31"
	* mise en forme numro de pice
	ENR_BROUILLARDDETAIL<6>=ENR_BROUILLARDDETAIL<6> "L#10"
	* mise en forme dbit + crdit
	IF ENR_BROUILLARDDETAIL<7>#"" THEN
		ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAIL<7> "R26(#11)"
	END ELSE	
		ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAIL<7> "R#11"
	END
	IF ENR_BROUILLARDDETAIL<8>#"" THEN
		ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAIL<8> "R26(#11)"
	END ELSE	
		ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAIL<8> "R#11"
	END

	IF ENR_BROUILLARDDETAIL<3>#"A" THEN
		ENR_TEMPO<-1>=CLEBROUILLARD[9,5]:" ":OCONV(ENR_BROUILLARDDETAIL<2>,"D4/"):" ":ENR_BROUILLARDDETAIL<4>[4,10]:" ":ENR_BROUILLARDDETAIL<5>:"  ":ENR_BROUILLARDDETAIL<6>:" ":ENR_BROUILLARDDETAIL<7>:" ":ENR_BROUILLARDDETAIL<8>:"   ":ENR_BROUILLARDDETAIL<11>
	END ELSE
		ENR_TEMPO<-1>=CLEBROUILLARD[9,5]:" ":OCONV(ENR_BROUILLARDDETAIL<2>,"D4/"):" ":ENR_BROUILLARDDETAIL<4>:SPACE(5):" ":ENR_BROUILLARDDETAIL<5>:"  ":ENR_BROUILLARDDETAIL<6>:" ":ENR_BROUILLARDDETAIL<7>:" ":ENR_BROUILLARDDETAIL<8>:"   ":ENR_BROUILLARDDETAIL<11>
	END
REPEAT
IF ENR_TEMPO#"" THEN WRITE ENR_TEMPO ON F.TEMPO,"BROUILLARD":W_CLE
