Functional Description
Purpose
To insert the necessary Purchase Order Ledger (F43199) transactions for the
Purchase Receipts program.
The Actions include: 1)Receipt 2)Close 3)Cancel 4)Reversal
The Modes include: 1)PO UOM 2)New UOM 3)Primary UOM
Technical Specification
<Pre>
Edits:
If GENLNG is NULL or zero, return.
/* Retrieve next status from Order Activity Rules. */
MOVE OrderType FSDCTO
MOVE PONextStatus FSTRTY
MOVE LineType FSLNTY
VerifyActivityRuleStatusCode
IFFSWRTH Not = 'Y' OR Record not found, then exit program without an error.
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* Move subfile fields to PO Ledger fields. */
MOVEBranch OLMCU
MOVELocation OLLOCN
MOVELot OLLOTN
MOVESubledgerOLSBL
MOVESubledger Type OLSBLT
MOVELanded Cost RuleOLPDP5
MOVEAsset ID OLASID
MOVETax Rate/AreaOLTXA1*** 968601
MOVETax Explanation CodeOLEXR1*** 968601
MOVEQuantity OrderedOLUORG*** 968601
MOVEG/L DateOLDGL*** 968601
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* Load fields if line has been selected for receipt. */
IFAction = '1'ORAction = '2'
MOVE '1' Close (internal variable)
IF Mode = '1'
IF Receipt Routing = '1' AND Quantity Column to Update not = 'PQOH'
MOVE PO Next Status OLLTTR
MOVE PO Next Status PO Last Status
MOVE Receipt Status OLNXTR
MOVE Receipt Status PO Next Status
MOVE '0' Close
ELSE
IF PO Open Amount = 0AND PO Primary Quantity Ordered = 0
OR PO Open Quantity = 0AND PO Primary Quantity Ordered not = 0
MOVE PO Next Status OLLTTR
MOVE PO Next Status PO Last Status
MOVE Close Status OLNXTR
MOVE Close Status PO Next Status
ELSE
IF Receipt Status Not = ' 'ANDAction = '1'
MOVE PO Next Status OLLTTR
MOVE PO Next Status PO Last Status
MOVE Receipt Status OLNXTR
MOVE Receipt Status PO Next Status
END
END
END
END
IF Received UOM = PO UOM
OR Received UOM not = PO UOM ANDMode = '2'
MOVEUnit Cost OLPRRC
MOVEQuantity Received OLUREC
MOVEAmount Received OLAREC
MOVEForeign Amount Received OLFREC
MOVEForeign Unit Cost OLFRRC
MOVEForeign Amount Received OLFEA
MOVEAmount Received OLECST
MOVEUnit Cost OLAMC3
MOVEForeign Amount Received OLFEC
MOVEForeign Unit Cost OLFUC
END
InsertPurchaseLedger
END
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* Load fields if balance of line has been closed. */
IFAction = '2'
IF PO Open Quantity not = 0 ORPO Open Amount not = 0
/* If not in receipts routing, close line. */
IF Close = '1'
MOVE PO Next Status OLLTTR
MOVE PO Next Status PO Last Status
MOVE Close Status OLNXTR
MOVE Close Status PO Next Status
END
MOVEUnit Cost OLPRRC
MOVEPO Open Quantity OLUREC
MOVEPO Open Amount OLAREC
MOVEForeign Amount Received OLFREC
MOVE0 OLUOPN
MOVE0 OLAOPN
MOVE0 OLFAP
MOVEForeign Unit Cost OLFRRC
MOVEForeign Amount Received OLFEA
MOVEAmount Received OLECST
MOVEUnit Cost OLAMC3
MOVEForeign Amount Received OLFEC
MOVEForeign Unit Cost OLFUC
InsertPurchaseLedger
END
END
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* Load fields if balance of line has been canceled. */
IFAction = '3'
MOVE PO Next Status OLLTTR
MOVE PO Next Status PO Last Status
MOVE Cancel Status OLNXTR
MOVE Cancel Status PO Next Status
MOVEUnit Cost OLPRRC
MOVE0 OLUREC
MOVE0 OLAREC
MOVE0 OLFREC
MOVEForeign Unit Cost OLFRRC
MOVEForeign Amount Received OLFEA
MOVEAmount Received OLECST
MOVEUnit Cost OLAMC3
MOVEForeign Amount Received OLFEC
MOVEForeign Unit Cost OLFUC
InsertPurchaseLedger
END
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* Load fields if line has been reversed. */
IFAction = '4'
MOVEUnit Cost OLPRRC
MOVEQuantity Received OLUREC
MOVEAmount Received OLAREC
MOVEForeign Amount Received OLFREC
MOVEForeign Unit Cost OLFRRC
MOVEForeign Amount ReceivedOLFEA
MOVEAmount Received OLECST
MOVEUnit Cost OLAMC3
MOVEForeign Amount Received OLFEC
MOVEForeign Unit Cost OLFUC
InsertPurchaseLedger
END
Retrievals:
Use GENLNG to access F43199 information.
D4300200 - Insert PO Receipt Info to F43199
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
idF43199Pointer | GENLNG | ID | NONE | NONE |
General purpose ID variable. | ||||
szOrderType | DCTO | char | NONE | NONE |
A user defined code (00/DT) that identifies the type of document. This code also indicates the origin of the transaction. J.D. Edwards has
| ||||
szPOLastStatus | LTTR | char | NONE | NONE |
A code (system 40/type AT) specifying the last step in the processing cycle that this order line has successfully completed. | ||||
szPONextStatus | NXTR | char | NONE | NONE |
A user defined code (system 40/type AT) indicating the next step in the order flow of the line type. | ||||
szLineType | LNTY | char | NONE | NONE |
A code that controls how the system processes lines on a transaction. It controls the systems with which the transaction interfaces, such as
| ||||
cAction | EV01 | char | NONE | NONE |
Special Input Expected
| ||||
cMode | EV01 | char | NONE | NONE |
Special Input Expected
| ||||
cReceiptRouting | EV01 | char | NONE | NONE |
An option that specifies the type of processing for an event. | ||||
szQuantityColumnToUpdate | UPIB | char | NONE | NONE |
Indicates which quantity field in the Item Location table that the system updates when quantity is moved from one receipt routing operation
| ||||
szReceiptStatus | NXTR | char | NONE | NONE |
A user defined code (system 40/type AT) indicating the next step in the order flow of the line type. | ||||
szCloseStatus | NXTR | char | NONE | NONE |
A user defined code (system 40/type AT) indicating the next step in the order flow of the line type. | ||||
szCancelStatus | NXTR | char | NONE | NONE |
A user defined code (system 40/type AT) indicating the next step in the order flow of the line type. | ||||
szBranch | MCU | char | NONE | NONE |
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit
| ||||
szLocation | LOCN | char | NONE | NONE |
The storage location from which goods will be moved. | ||||
szLot | LOTN | char | NONE | NONE |
A number that identifies a lot or a serial number. A lot is a group of items with similar characteristics. | ||||
szSubledger | SBL | char | NONE | NONE |
A code that identifies a detailed, auxiliary account within a general ledger account. A subledger can be an equipment item number or an
| ||||
cSubledgerType | SBLT | char | NONE | NONE |
A user defined code (00/ST) that is used with the Subledger field to identify the subledger type and how the system performs subledger
| ||||
szLandedCostRule | PRP5 | char | NONE | NONE |
A user defined code (41/P5) that indicates the landed cost rule for an item.
The landed cost rule determines purchasing costs that exceed
| ||||
szAssetID | ASID | char | NONE | NONE |
A 25-character alphanumeric number that you can use as an alternate asset identification number. You might use this number to track
| ||||
szPOUOM | 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). | ||||
szReceivedUOM | 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). | ||||
mnQuantityReceived | UREC | MATH_NUMERIC | NONE | NONE |
The original quantity of the order line, plus or minus any changes to that quantity, less all quantities shipped, received and/or vouchered to
| ||||
mnPOOpenQuantity | UOPN | MATH_NUMERIC | NONE | NONE |
The original quantity for the order detail line, plus or minus any changes to that quantity, minus all quantities shipped, received, and
| ||||
mnPOPrimaryQuantityOrdered | PQOR | MATH_NUMERIC | NONE | NONE |
The quantity ordered by the customer expressed in the primary stocking unit of measure. | ||||
mnUnitCost | PRRC | MATH_NUMERIC | NONE | NONE |
The unit cost of one item, as purchased from the supplier, excluding freight,taxes, discounts, and other factors that might modify the actual
| ||||
mnAmountReceived | AREC | MATH_NUMERIC | NONE | NONE |
The value of the goods received to date against the original order line. | ||||
mnAmountOpen | AOPN | MATH_NUMERIC | NONE | NONE |
The amount of the order, invoice, or voucher that is still unpaid or open.
When you enter a document (for example, an order, invoice, or
| ||||
mnForeignUnitCost | FRRC | MATH_NUMERIC | NONE | NONE |
The foreign unit cost for this item, as purchased directly from the supplier,excluding freight, taxes, discounts and other factors which might
| ||||
mnForeignAmountReceived | FAP | MATH_NUMERIC | NONE | NONE |
The unpaid foreign amount of a transaction. | ||||
szTaxRateArea | TXA1 | char | NONE | NONE |
A code that identifies a tax or geographic area that has common tax rates and tax authorities. The system validates the code you enter
| ||||
szTaxExplanationCode | EXR1 | char | NONE | NONE |
A hard-coded user defined code (00/EX) that controls the algorithm that the system uses to calculate tax and G/L distribution amounts. The
| ||||
mnUnitsTransactionQty | UORG | MATH_NUMERIC | NONE | NONE |
The quantity of units affected by this transaction. | ||||
jdGLDateForVoucher | DGL | JDEDATE | NONE | NONE |
A date that identifies the financial period to which the transaction is to be posted.
The company constants specify the date range for each
|
B4000260 Line Type - Activity Rules | ||||
B9800100 Get Audit Information | ||||
X43199 Insert Purchase Ledger |
F43199 P.O. Detail Ledger File - Flexible Version |