begin
for
select
max(PD.ID),
max(su.objversion),
max(PD.posshift_id),
pd.correctedby_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 securityusers SU on SU.id=pd.correctedby_id
where
PD.posshift_id=:objid and
PD.opened = 'N'
group by
pd.correctedby_id,
su.shortname
order by
su.shortname
into
:id,
:objversion,
:parent_id,
:user_id,
:Quantity,
:Amount,
:DISCOUNT
do
suspend;
end