Dnico
...быстродействие ~ 20 минут ...

А если так попробывать:

[/quot]
CREATE PROCEDURE peDocGidCid (GID INTEGER, CID INTEGER)
RETURNS (NAME CHAR(40),
QTY1 DOUBLE PRECISION, QTY2 DOUBLE PRECISION,
QTY3 DOUBLE PRECISION, QTY4 DOUBLE PRECISION,
QTY5 DOUBLE PRECISION, QTY6 DOUBLE PRECISION,
QTY7 DOUBLE PRECISION, QTY8 DOUBLE PRECISION,
QTY9 DOUBLE PRECISION, QTY10 DOUBLE PRECISION,
QTY11 DOUBLE PRECISION, QTY12 DOUBLE PRECISION
QTY DOUBLE PRECISION)
AS DECLARE VARIABLE MM INTEGER;
BEGIN
SELECT NAME FROM GOODS WHERE GID = :GID INTO :NAME;
QTY = 0; QTY1 = 0; QTY2 = 0; QTY3 = 0; QTY4 = 0; QTY5 = 0; QTY6 = 0;
QTY7 = 0; QTY8 = 0; QTY9 = 0; QTY10 = 0; QTY11 = 0; QTY12 = 0;
FOR SELECT MM,QTY FROM DOC WHERE GID = :GID AND CID = :CID
INTO :MM,:QTY
DO BEGIN
IF (MM = 1) THEN QTY1 = QTY1 + QTY;
ELSE IF (MM = 2) THEN QTY2 = QTY2 + QTY;
ELSE IF (MM = 3) THEN QTY3 = QTY3 + QTY;
ELSE IF (MM = 4) THEN QTY4 = QTY4 + QTY;
ELSE IF (MM = 5) THEN QTY5 = QTY5 + QTY;
ELSE IF (MM = 6) THEN QTY6 = QTY6 + QTY;
ELSE IF (MM = 7) THEN QTY7 = QTY7 + QTY;
ELSE IF (MM = 8) THEN QTY8 = QTY8 + QTY;
ELSE IF (MM = 9) THEN QTY9 = QTY9 + QTY;
ELSE IF (MM = 10) THEN QTY10 = QTY10 + QTY;
ELSE IF (MM = 11) THEN QTY11 = QTY11 + QTY;
ELSE IF (MM = 12) THEN QTY12 = QTY12 + QTY;
END
QTY = QTY1 + QTY2 + QTY3 + QTY4 + QTY5 + QTY6
+ QTY7 + QTY8 + QTY9 + QTY10 + QTY11 + QTY12;
END
[/quot]

SELECT NAME... - лучше бы перенести во внешнюю ХП (которая выбирает GID) чтоб неделать ее на каждый CID...
и QTY =... - туда же...

ELSE IF... заменить на CASE...

автор

Базу на всякий случай бакап/ресторни...

...две рекурсивные процедуры, которые отбирают нужных клиентов и товары...


Можно хоть на них взглянуть... вдруг собака там зарыта...
Почему рекурсивные? и почему две?
Записей в принципе не так уж много, но любое лишнее телодвижение в тысячах на тысячу могут дать большие объемы работы...

Трудно судить о задаче... но если нужен отчет за год по клиентам, то я бы сделал приблизительно так:

[quot]
CREATE PROCEDURE psDocYY (YY INTEGER)
RETURNS (СNAME CHAR(40), GNAME CHAR(40),
QTY1 DOUBLE PRECISION, QTY2 DOUBLE PRECISION,
QTY3 DOUBLE PRECISION, QTY4 DOUBLE PRECISION,
QTY5 DOUBLE PRECISION, QTY6 DOUBLE PRECISION,
QTY7 DOUBLE PRECISION, QTY8 DOUBLE PRECISION,
QTY9 DOUBLE PRECISION, QTY10 DOUBLE PRECISION,
QTY11 DOUBLE PRECISION, QTY12 DOUBLE PRECISION)
AS DECLARE VARIABLE GID INTEGER; DECLARE VARIABLE CID INTEGER;
DECLARE VARIABLE GOODS INTEGER; DECLARE VARIABLE CUST INTEGER;
BEGIN
GOODS = 0; CUST = 0;
FOR SELECT DISTINCT GOODS,CUST FROM GOODS WHERE YY = :YY
INTO :GID,:CID
DO BEGIN
IF (GID <> :GOODS) THEN BEGIN GOODS = GID;
SELECT NAME FROM GOODS WHERE GID = :GID INTO :GNAME; END
IF (CID <> :CUST) THEN BEGIN CUST = CID;
SELECT NAME FROM CUST WHERE CID = :CID INTO :CNAME; END
EXECUTE PROCEDURE peDocGidCid (:GID, :CID)
RETURNING_VALUES :QTY1,:QTY2,:QTY3,:QTY4,:QTY5,:QTY6,
:QTY7,:QTY8,:QTY9,:QTY10,:QTY11,:QTY12;
END
END

автор

Поторопился и SUSPEND; забыл поставить...

Может я чего то не понимаю, но помоему для корневых групп товаров и клиентов GETGOODS и GETCUST выдадут все записи, что составит 10000 * 2000 = ...дофига получается комбинаций и для каждой будет считаться SUM... (при ее наличии в DOC)...

Если там всего 100 000 записей, то их не будет для каждой и по одной за год...

Не лучше ли плясать от DOC получив сначала ...DISTINCT GOODS,CUST FROM DOC WHERE YY = :YY (тогда лишних комбинаций не будет),
а уж потом проверять на их принадлежность GETGOODS и GETCUST и считать SUM...

P.S. что-то я не заметил проверки на YY !!! (помесячно за все года что ли...)
и я бы ID записей не делал VARCHAR(10) !!!