1.Functional Description
1.1Purpose
This function will load the F30UI008 work file with Parts from the Parts List table and BOM Master.
1.2Setup Notes and Prerequisites
1.3Special Logic
2.Technical Specifications
2.4Internal Function Load()
1.0Insert Parts List Items
1.1SelectKeyed on F3111 with Input Order Number 1
While Fetch Is Successful
VA PLItem 'dfTK Component Item Number
VA 2ndItemNumber 'dfTK Component 2ndItemNumber
VA 3rdItemNumber 'dfTK Component 3rdItemNumber
VA PLComponentBranch 'dfTK Description
VA PLItemQuantity 'dfTK.Description
VA PLItemUOM 'dfTK Unit of Measure
If FileI/O is Success
1.3SelectKeyed on F3112 with OrderNumber to retrieve the workcenter
1.4FetchNext F3112 whereVA WorkCenter'dfTK Business Unit
1.5Insert Records to F30UI008
BF JobNumber 'e0TK Job Number
BF ComputerID 'e0TK ComputerID
VA WorkCenter 'e0TK Business Unit
VA UnitOfMeasure 'e0TK Unit of Measure
VA ComponentBranch'e0TK Branch
VA ItemQuantiy 'e0TK Units Batch Quantity
VA ItemUOM 'e0TK Unit of Measure as Input
VA 2ndItemNumber 'e0TK 2nd Item Number
VA 3rdItemNumber 'e0TK 3rd Item Number
End While
2.0Insert BOM Items
Note
If Order Qty I (in primary UOM Already) = Batch Bill for the Item
Use that Batch Bill
Else
Use the zero Batch Bill
Endif
VA ConversionFactor = 1
If BOM Unit of Measure in not equal to UOM Display then convert it UOM display
F41002Get Item UOM Conversion
BF BOMBranch 'e0BranchPlant
BF BOMUnitofMeasure'e0FromUnitofMeasure
BF UOMDisplay 'e0ToUnitofMeasure
VA ConversionFactor'dfConversionFactor From to To
VA BOMErrorMsgId 'dfErrorMessageID
'1' 'dfSupressErrorMsg
BF StdUOMConversion'e0StandardUOMConversion
If VA BOMErrorMsgId Not equal to Blank
VA ConversionFactor = 1
Endif
Endif
VA Endof VerticalBranch = 0
VA RecordFlag =0
While Record Flag is not equal to 1 and End of vertical branch not equal to 1
Call BsFn B3000840 (BFGetBOMStructureVertical) to retrieve first record.
BF BOMParentItemNumber'e0ParentItem
BF BOMTypeBill 'e0TypeofBill
BF BOMBatchQuantity 'e0BatchQuantity
BF BOMUnitofMeasure 'e0BatchQuantityUOM
VA BOMComponentBranch'dfComponentBranch
VA BOMComponentItem 'dfComponentItem
VA BOMQntyRequired 'dfQuantityRequired
VA BOMComponentUM 'dfUnitofMeasure
VA OperationSequence 'dfOperationSequence
VA BOMGenleng 'dfBOMStructureLinkList
'0' 'e0ReturnPointer
'1' 'e0Bill Retrieved
VA BOMErrorMsgID 'dfErrorMsgID
VA 2nd ItemNumber 'dfSecondItemNumber
VA 3rdItemNumber 'dfThirdItemNumber
VA FixedVariableQuantity'dfFixedorVariableQuantity
BF jdAsOfDate 'e0jdAsOfDate
2.2If BOMBatchQuantity is zero and FixedVariable Qty is Variable
and Level as Integer is equal to zero
VA BatchQuantityRequired = Multiply VA BatchQuantityRequired by
Order Qty1
endif
Variable and level as Integer is equal to zero.
ConversionFactor
F3002 Calculate Extended Quantity
VA BOMQuantityRequired'e0DS Quantity
VA BOMQuantityRequired'e0DS Extended Quantity
Zero'e0DS Delete All nodes
Zero'e0DS Batch Quantity
VAFixedorVariableQuantity'e0DS Fixed Variable
Quantity
VA Level AsInteger'e0DS Level
VA GenlngExtendedQuantity'df'e0DS Pointer to LinkedList
VA NodeCount'df'e0DS NodeCount
BF BOMBranch 'e0Branch
BF BOMParentItemNumber'e0ParentItemNumber
BF BOMTypeBill 'e0TypeRouting
BF BOMBatchQuantity 'e0BatchQuantity
VA OperationSequence 'e0OperationSequence
VA WorkCenter 'dfWorkCenter
VA RecordFlag = 1
.
VA BOMComponentBranch 'e0TK Component Branch
VA BOMComponentUM 'e0TK Unit Of Mesure Display
VA BOMQntyRequrired 'e0TK Quanity
Else
Insert new record
BF JobNumber 'e0TK Job Number
BF ComputerID 'e0TK ComputerID
VA WorkCenter 'e0TK Business Unit
VA BOMUnitOfMeasure 'e0TK Unit of Measure
VA BOMComponentBranch 'e0TK Component Branch
VA BOMQntyRequired 'e0TK Quantity
VA BOMComponetUM 'e0TK Unit of Measure as Display
VA 2ndItemNumber 'e0TK 2nd Item Number
VA 3rdItemNumber 'e0TK 3rd Item Number
Endif
Endif
EndWhile
BF BOMBranch 'e0ParentBranch
BF BOMParentItemNumber'e0ParentItem
BF BOMTypeBill 'e0TypeofBill
BF BOMBatchQuantity 'e0BatchQuantity
BF BOMUnitofMeasure 'e0BatchQuantityUOM
VA BOMComponentBranch'dfComponentBranch
VA BOMComponentItem 'dfComponentItem
VA BOMQntyRequired 'dfQuantityRequired
VA BOMComponentUM 'dfUnitofMeasure
VA OperationSequence 'dfOperationSequence
VA BOMGenleng 'dfBOMStructureLinkList
'0' 'e0
D3003070 - F30UI008 Load BOM to PL Comparison Data
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnJobnumberA | JOBS | MATH_NUMERIC | NONE | NONE |
The job number (work station ID) which executed the particular job. | ||||
szComputerID | CTID | char | NONE | NONE |
mnOrderNumber | DOCO | MATH_NUMERIC | NONE | NONE |
A number that identifies an original document. This document can be a voucher, a sales order, an invoice, unapplied cash, a journal entry,
| ||||
mnOrderQty | UORG | MATH_NUMERIC | NONE | NONE |
The quantity of units affected by this transaction. | ||||
mnBOMParentItemNumber | KIT | MATH_NUMERIC | NONE | NONE |
The system provides for three separate item numbers.
1. Item Number (short) - An eight-digit, computer assigned, completely
| ||||
szBOMBranch | MMCU | char | NONE | NONE |
A code that represents a high-level business unit. Use this code to refer to a branch or plant that might have departments or jobs, which
| ||||
szBOMTypeBill | TBM | char | NONE | NONE |
A user defined code (40/TB) that designates the type of bill of material. You can define different types of bills of material for different uses.
| ||||
jdAsOfDateBOM | ASDE1 | JDEDATE | NONE | NONE |
The date used for effectivity checking. Enter a specific date to display documents (orders, bills of material, routings, as applicable) that are
| ||||
mnBOMBatchQuantity | BQTY | MATH_NUMERIC | NONE | NONE |
The quantity of finished units that you expect this bill of material or routing to produce. You can specify varying quantities of components
| ||||
szBOMUnitOfMeasure | UOM | char | NONE | NONE |
A user defined code (00/UM) that indicates the quantity in which to express an inventory item, for example, CS (case) or BX (box). | ||||
cErrorCode | ERRC | char | NONE | NONE |
This error code indicates if any errors occurred during the creation of the Trip Document Detail (F4914) records by the Delivery Document
| ||||
szErrorMessageID | DTAI | char | NONE | NONE |
A code that identifies and defines a unit of information. It is an alphanumeric code up to 8 characters long that does not allow blanks or
| ||||
cSuppressErrorMessage | SUPPS | char | NONE | NONE |
A flag indicating whether or not runtime error messaging will occur when an error message is issued from a business function.
0 = allow
| ||||
mnParentitemPL | ITM | MATH_NUMERIC | NONE | NONE |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
szUOMDisplay | UOM | char | NONE | NONE |
A user defined code (00/UM) that indicates the quantity in which to express an inventory item, for example, CS (case) or BX (box). | ||||
szStdUOMConversion | TFLA | char | NONE | NONE |
Allows you to bypass the item-specific unit of measure and use the standard unit of measure. Valid values are:
blank Use the item-specific
| ||||
cIncludePhantom | PHANT | char | OPT | NONE |
Use this option to specify whether to include phantom items. Valid values are: 0 Default 1 Include phantom items | ||||
cIncludeSubassemblies | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. |
None |
None |