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

ENR_RUBCHARGE=""
ENR_RUBCHARGE901=""
ENR_RUBCHARGE905=""
W_Cle=""
W_ReqRub=""

EXECUTE 'SELECT RUBCHARGE AVEC 12 >= "3000" PAR @ID'
EXECUTE 'SAUVE-LISTE W_ReqRub'
EXECUTE "LISTE W_ReqRub" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	SELECT F.RUBCHARGE TO W_ReqRub
	READNEXT W_Cle FROM W_ReqRub ELSE PRINT "ERREUR LECTURE"
END
READ ENR_RUBCHARGE FROM F.RUBCHARGE, W_Cle ELSE ENR_RUBCHARGE=""

ENR_RUBCHARGE901<1>="REGUL CSG/CRDS"
ENR_RUBCHARGE901<2>="001"
ENR_RUBCHARGE901<10>="2900"
ENR_RUBCHARGE901<11>="%"
ENR_RUBCHARGE901<14>="0"
ENR_RUBCHARGE901<15>="%"
ENR_RUBCHARGE901<16>="01"
ENR_RUBCHARGE901<18>="1"
ENR_RUBCHARGE901<19>="1"
ENR_RUBCHARGE901<20>=ENR_RUBCHARGE<20>
ENR_RUBCHARGE901<21>=ENR_RUBCHARGE<21>
ENR_RUBCHARGE901<22>=ENR_RUBCHARGE<22>
ENR_RUBCHARGE901<23>=ENR_RUBCHARGE<23>
ENR_RUBCHARGE901<24>="1"
ENR_RUBCHARGE901<25>="0"
* Michael, le 24/12/07 : 
*ENR_RUBCHARGE901<27>="0"
ENR_RUBCHARGE901<27>="1"
ENR_RUBCHARGE901<28>="0"
ENR_RUBCHARGE901<29>="2"

ENR_RUBCHARGE905=ENR_RUBCHARGE901
ENR_RUBCHARGE905<1>="REGUL CSG DEDUCTIBLE"
ENR_RUBCHARGE905<10>="5100"
ENR_RUBCHARGE905<19>="0"

WRITE ENR_RUBCHARGE901 ON F.RUBCHARGE, "901"
WRITE ENR_RUBCHARGE905 ON F.RUBCHARGE, "905"

* Michael, le 24/12/07 :
W_Fin = "F"
LOOP
READNEXT W_Cle FROM W_ReqRub ELSE W_Fin = "V"
WHILE W_Fin = "F"
	* Rien : on vide simplement la slection afin qu'il n'y ai pas interfrence avec un traitement ultrieur...
REPEAT
EXECUTE "EFFACER-LISTE W_ReqRub"
STOP
