begin
for
select
max(pd2.id),
max(sc.objversion),
max(PD.posshift_id),
sc.storecardcategory_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 storecards SC on sc.id=pd2.storecard_id
join storecardcategories SCC on scc.id=sc.storecardcategory_id
where
PD.posshift_id=:objid and
PD.opened = 'N'
group by
sc.storecardcategory_id,
scc.code,
scc.name
order by
scc.code
into
:id, :objversion, :parent_id, :storecardcategory_id, :Quantity, :Amount, :Discount
do
suspend;
end