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

W_Bull060 = ""
W_BaseRub1=0
W_BaseRub2=0

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "200403" AND AVEC 8 = "901"'
EXECUTE 'SAUVE-LISTE W_Bull060'
EXECUTE 'LISTE W_Bull060' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
    SELECT F.DETAILCALCUL TO W_Bull060

    W_Fin = "F"
    LOOP
	READNEXT W_Cle FROM W_Bull060 ELSE W_Fin = "V"
      WHILE W_Fin = "F"

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle THEN
		i = 0
		W_Trouve = "F"
		LOOP
			i = i + 1
		WHILE ENR_DETAILCALCUL<8,i> # "" AND W_Trouve = "F"		
		   IF ENR_DETAILCALCUL<8,i> = "901" THEN
			W_Trouve = "V"				
			W_BaseRub1 = W_BaseRub1 + ENR_DETAILCALCUL<11,i>
			W_BaseRub2 = W_BaseRub2 + ENR_DETAILCALCUL<14,i>
		   END
		REPEAT
	END
    REPEAT
END

PRINT W_BaseRub1
PRINT W_BaseRub2
STOP
