begin
for
select PD2.id, st.code, op.printernumber, pd.id, pd.ordnumber
from
posdocuments2 PD2
left join posdocuments PD on pd.id=pd2.Parent_ID
left join stores st on st.id=pd2.store_id
left join storecards sc on sc.id=pd2.storecard_id
left join storecardcategories scc on scc.id=sc.storecardcategory_id
left join posstations3 op on (op.parent_id=:station_id) and (op.storecardcategory_id=sc.storecardcategory_id)
where
(pd2.OrderPrintState=1) and
(pd2.OrderCreatedBy_ID=:user_id) and
(pd.Shop_ID=:shop_id)
into
:iId, :istorecode,:iprinternumber, :IPOSDOCUMENT, :iordnumber
do begin
if (:iprinternumber is null) then
iprinternumber = 'LPT1' ;
suspend;
end
end;