begin
for
select
max(PD2.ID),
max(sc.objversion),
max(PD.posshift_id),
pd2.storecard_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
where
PD.posshift_id=:objid and
PD.opened = 'N'
group by
pd2.storecard_id,
sc.code
order by
sc.code
into
:id,
:objversion,
:parent_id,
:storecard_id,
:Quantity,
:Amount,
:DISCOUNT
do
suspend;
end