begin
for
select
max(PD2.ID),
max(fi.objversion),
max(PD.posshift_id),
pd.firm_id,
sum(pd2.quantity),
sum(pd2.tamount),
sum(pd2.documentdiscount+pd2.rowdiscount+pd2.actiondiscount+pd2.dealerdiscount+pd2.financialdocumentdiscount)
from
posdocuments2 pd2
join posdocuments PD on pd.id=pd2.parent_id
join firms fi on fi.id=pd.firm_id
where
PD.posshift_id=:objid and
PD.opened = 'N'
group by
pd.firm_id,
fi.code
order by
fi.code
into
:id,
:objversion,
:parent_id,
:firm_id,
:Quantity,
:Amount,
:DISCOUNT
do
suspend;
end