begin
for
select
max(pd3.ID),
max(pd3.objversion),
max(pd.posshift_id),
pd3.currency_id,
pd3.paymenttype_id,
sum(pd3.payment),
sum(pd3.refund)
from
posdocuments PD
join posdocuments3 pd3 on pd.id=pd3.parent_id
join paymenttypes PT on PT.id=pd3.paymenttype_id
join currencies CU on CU.id=pd3.currency_id
where
PD.posshift_id=:objid and
PD.opened = 'N'
group by
pd3.currency_id,
pd3.paymenttype_id,
CU.Code,
PT.name
order by
CU.Code,
PT.name
into
:id,
:objversion,
:parent_id,
:currency_id,
:paymenttype_id,
:payment,
:refund
do
suspend;
end