Procedura-PLMFlowByDateWIPJO

Parametry:

Název	Popis	Datový typ
AJobOrderID		ID

Návratové hodnoty:

Název	Popis	Datový typ
OUT_WIPDirection		Integer
OUT_ValueType		Char(3)
OUT_LocalAmount		Numeric(18, 8)
OUT_Division_ID		Char(10)
OUT_BusOrder_ID		Char(10)
OUT_BusTransaction_ID		Char(10)
OUT_BusProject_ID		Char(10)
OUT_InputStoreCard_ID		Char(10)
OUT_OutputStoreCard_ID		Char(10)
OUT_Worker_ID		Char(10)
OUT_WorkPlace_ID		Char(10)
OUT_Doc_ID		Char(10)
OUT_Source_ID		Char(10)
OUT_Acc_Record		Integer
OUT_Firm_ID		Char(10)
OUT_Acc_Date		Float(0, 0)
OUT_Doc_Date		Float(0, 0)
OUT_ObjVersion		Integer
OUT_SourceDocQueue_ID		Char(10)
OUT_SourcePeriod_ID		Char(10)
OUT_SourceOrdNumber		Integer

Závislosti:

Název	Popis	Třída
PLMFlowByDateWIPJOAccrue		Procedures
PLMFlowByDateWIPJODecrease		Procedures

Tělo:

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,
      jo.ID as Doc_ID,
      a.Out_Source_ID as Source_ID,      
      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,
      a.Out_ObjVersion as ObjVersion,
      a.Out_SourceDocQueue_ID as SourceDocQueue_ID,
      a.Out_SourcePeriod_ID as SourcePeriod_ID,
      a.Out_SourceOrdNumber as SourceOrdNumber        
    from
      PLMFlowByDateWIPJOAccrue(0, :AJobOrderID, 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 and JO.ID=:AJobOrderID
  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_Doc_ID,
    Out_Source_ID,    
    Out_Acc_Record,
    Out_Firm_ID,
    Out_Acc_Date,
    Out_Doc_Date,
    Out_ObjVersion,
    Out_SourceDocQueue_ID,
    Out_SourcePeriod_ID,
    Out_SourceOrdNumber        
  Do
  Begin
    Out_WIPDirection = 0;
    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,
      jo.ID as Doc_ID,
      a.Out_Source_ID as Source_ID,      
      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,
      a.Out_ObjVersion as ObjVersion,
      a.Out_SourceDocQueue_ID as SourceDocQueue_ID,
      a.Out_SourcePeriod_ID as SourcePeriod_ID,
      a.Out_SourceOrdNumber as SourceOrdNumber        
    from
      PLMFlowByDateWIPJODecrease(0, :AJobOrderID, 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 and JO.ID=:AJobOrderID
  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_Doc_ID,
    Out_Source_ID,    
    Out_Acc_Record,
    Out_Firm_ID,
    Out_Acc_Date,
    Out_Doc_Date,
    Out_ObjVersion,
    Out_SourceDocQueue_ID,
    Out_SourcePeriod_ID,
    Out_SourceOrdNumber        
  Do  
  Begin
    Out_WIPDirection = 1;
    Out_LocalAmount = -1 * Out_LocalAmount;
    Suspend;
  End
End

Generated by ABRA Software a.s. 27.10.2021 16:34:50