Begin
FOR
Select
a.Out_ValueType as ValueType,
a.Out_LocalAmount as LocalAmount,
a.Out_Division_ID as Division_ID,
a.Out_BusOrder_ID as busorder_ID,
a.Out_BusTransaction_ID as bustransaction_ID,
a.Out_BusProject_ID as busproject_ID,
a.Out_InputStoreCard_ID as INPUTSTORECARD_ID,
a.Out_OutputStoreCard_ID as OUTPUTSTORECARD_id,
a.Out_Worker_ID as WORKER_ID,
a.Out_WorkPlace_ID as WORKPLACE_ID,
Dq.code || '-' || cast(jo.ordnumber as varchar(8)) || '/' || p.code as DOCDISPLAYNAME,
a.Out_Source_DocDN as Source_DOCDN,
a.Out_Acc_Record as ACC_RECORD,
a.Out_Firm_ID As Firm_ID,
a.Out_Acc_Date as Acc_date,
a.Out_Doc_Date as Doc_date
from
PLMFlowByDateWIPAccrue(0, :ADateTo, 1) A
join plmjoborders JO On JO.productiontask_id = a.Out_ProductionTask_ID
join docqueues Dq On Dq.id = JO.docqueue_id
join periods P On P.ID = JO.period_id
Where a.Out_LocalAmount is not null and a.Out_LocalAmount <> 0
Into
Out_ValueType,
Out_LocalAmount,
Out_Division_ID,
Out_BusOrder_ID,
Out_BusTransaction_ID,
Out_BusProject_ID,
Out_InputStoreCard_ID,
Out_OutputStoreCard_ID,
Out_Worker_ID,
Out_WorkPlace_ID,
Out_DocDisplayName,
Out_Source_DocDN,
Out_Acc_Record,
Out_Firm_ID,
Out_Acc_Date,
Out_Doc_Date
Do
Begin
Out_WIPDirection = 'náběh NV';
Suspend;
end
FOR
Select
a.Out_ValueType as ValueType,
a.Out_LocalAmount as LocalAmount,
a.Out_Division_ID as Division_ID,
a.Out_BusOrder_ID as busorder_ID,
a.Out_BusTransaction_ID as bustransaction_ID,
a.Out_BusProject_ID as busproject_ID,
a.Out_InputStoreCard_ID as INPUTSTORECARD_ID,
a.Out_OutputStoreCard_ID as OUTPUTSTORECARD_id,
a.Out_Worker_ID as WORKER_ID,
a.Out_WorkPlace_ID as WORKPLACE_ID,
Dq.code || '-' || cast(jo.ordnumber as varchar(8)) || '/' || p.code as DOCDISPLAYNAME,
a.Out_Source_DocDN as Source_DOCDN,
a.Out_Acc_record as ACC_RECORD,
a.Out_Firm_ID As Firm_ID,
a.Out_Acc_date as Acc_Date,
a.Out_Doc_date as Doc_date
from
PLMFlowByDateWIPDecrease(0, :ADateTo, 1) A
join plmjoborders JO On JO.productiontask_id = a.Out_ProductionTask_ID
join docqueues Dq On Dq.id = JO.docqueue_id
join periods P On P.ID = JO.period_id
Where a.Out_LocalAmount is not null and a.Out_LocalAmount <> 0
Into
Out_ValueType,
Out_LocalAmount,
Out_Division_ID,
Out_BusOrder_ID,
Out_BusTransaction_ID,
Out_BusProject_ID,
Out_InputStoreCard_ID,
Out_OutputStoreCard_ID,
Out_Worker_ID,
Out_WorkPlace_ID,
Out_DocDisplayName,
Out_Source_DocDN,
Out_Acc_Record,
Out_Firm_ID,
Out_Acc_Date,
Out_Doc_Date
Do
Begin
Out_WIPDirection = 'úbytek NV';
Out_LocalAmount = -1 * Out_LocalAmount;
Suspend;
End
End