Зачем писать то что уже написано.

В модуле rfunc.dll есть ф-и
DIIF(i,i1,i2) - для Integer
IIF(i,f1,f2) - для Double
CIF(i,s1,s2) - для String
Если i<>0 то 1-й иначе 2-й

В твоем случае будет
SELECT id_firm, SUM (DIF(id_account-1,suma,0))
FROM vznosi
GROUP BY id_firm

Объявление ф-ий:
DECLARE EXTERNAL FUNCTION IIF
INTEGER, INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'fn_iif' MODULE_NAME 'rfunc';

DECLARE EXTERNAL FUNCTION DIF
INTEGER, DOUBLE PRECISION, DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'fn_dif' MODULE_NAME 'rfunc';

DECLARE EXTERNAL FUNCTION CIF
INTEGER, CSTRING(256), CSTRING(256)
RETURNS CSTRING(256)
ENTRY_POINT 'fn_cif' MODULE_NAME 'rfunc';

Кстати а можно еще так :)

Select id_firm, SUM(suma)
FROM vznosi
WHERE id_account=1
GROUP BY id_firm