Functional Description
Purpose
This Named ER will try to match a record entered to an existing receipt routing batch record using a
the following.
F43092
Operation Code From
2.Order Number, Line Number, Number of Lines, Branch/Plant, Operation Code From
F43092 Join
Operation 'b9 0
4.Order Number, Branch/Plant, Item Number, Operation Code From, Quantity at Operation 'b9 0
5.Branch/Plant, Address Number, Container ID, Item Number, Operation Code From, Quantity at
Operation 'b9 0.
6.Branch/Plant, Address Number, Item Number, Operation Code From, Quantity at Operation 'b9 0
Skip record if the Move Quantity is greater than Quantity at Operation.
Setup Notes and Prerequisites
It is assumed that the business functions to convert the customer/supplier item number to a J.D.
Edwards item number have been called prior to calling this NER.
Six sets of input parameters for correct searches are valid. One of the sets is required for the
NER to perform a search:
Operation Code From
2.Order Number, Line Number, Number of Lines, Branch/Plant, Operation Code From
3.Order Number, Branch/Plant, Lot Number, Item Number, Operation Code From, Order Number,
Branch/Plant, Item Number, Operation Code From
4.Branch/Plant, Address Number, Container ID, Item Number, Operation Code From
Special Logic
Technical Specification
cRecordFound =
//
// If the first set of match parameters are passed in, use them to try and find a receipt routing
batch record.
// If found, set on Record Found flag and exit function.
//
If (mnOrderNumber is not zero) and (szOrderType is not blank) and (szOrderCompany is not blank) and
(szOrderSuffix is not blank) and (mnLineNumber is not zero) and (mnNumberOfLines is not zero) and
(szOperationCodeFrom is not blank)
F43092.Select
OrderCompany=szOrderCompany
OrderSuffix=szOrderSuffix
LineNumber=mnLineNumber
NumberOfLines=mnNumberOfLines
OperationCodeFrom=szOperationCodeFrom
F43092.FetchNext
If(FILE_IO_STATUS is equal to SUCCESS)
cRecordFound = 1
End If
End If
//
//If previous matches fail, try Order Number, Line Number, Number of Lines, Branch/Plant, Operation
Code //From. If found, load all output fields and exit function.
//
If (cRecordFound is not '1') and (mnOrderNumber is not zero) and (mnLineNumber is not zero) and
(mnNumberOfLines is not zero) and (szBranch/Plant is not equal to blank) and (szOperationCodeFrom is not
blank)
NumberOfLines=mnNumberOfLines
Branch/Plant=szBranch/Plant
OperationCodeFrom=szOperationCodeFrom
F43092.FetchNext
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
If(FILE_IO_STATUS is equal to SUCCESS)
cRecordFound = 1
OrderType=evt_OrderType
OrderCompany=evt_OrderCompany
OrderSuffix=evt_OrderSuffix
End If
//
//If previous matches fail, use Order Number, Branch/Plant, Lot Number, Item Number, Operation Code
From, //Quantity at Operation.
//
If (cRecordFound is not '1') and (mnOrderNumber is not zero) and (szBranch/Plant is not blank) and
(mnLotNumber is not zero) and (szItemNumber is not equal to blank) and (szOperationCodeFrom is not
blank) and (mnMoveQuantity is greater than zero)
LotNumber=mnLotNumber
ItemNumber=szItemNumber
OperationCodeFrom=szOperationCodeFrom
F43092Join.FetchNext
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
While(FILE_IO_STATUS is equal to SUCCESS) and (cRecordType 'b9 1)
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
Else
cRecordFound ='1'
OrderType=evt_OrderType
OrderCompany=evt_OrderCompany
OrderSuffix=evt_OrderSuffix
LineNumber=evt_LineNumber
NumberOfLines=evt_NumberOfLines
End If
End While
End If
//
// Try to find F43092 Join using Order Number, Branch/Plant, Item Number, Operation Code From,
Quantity
// at operation 'b9 0.
//
If (cRecordFound is not '1') and (mnOrderNumber is not zero) and (szBranch/Plant is not blank) and
(szItemNumber is not equal to blank) and (szOperationCodeFrom is not blank) and (mnMoveQuantity is
greater than zero)
ItemNumber=szItemNumber
OperationCodeFrom=szOperationCodeFrom
F43092Join.FetchNext
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
While(FILE_IO_STATUS is equal to SUCCESS) and (cRecordFound 'b9 1)
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
Else
cRecordFound = '1'
OrderType=evt_OrderType
OrderCompany=evt_OrderCompany
OrderSuffix=evt_OrderSuffix
LineNumber=evt_LineNumber
NumberOfLines=evt_NumberOfLines
End If
End While
End If
//
// Try to find F43092Join using Branch/Plant, Address Number, Container ID, Item Number, Operation
Code // From, Quantity at Operation 'b9 0.
//
If (cRecordFound is not '1') and (szBranch/Plant is not blank) and (mnAddressNumber is not zero) and
(szContainerID is not blank) and (szItemNumber is not equal to blank) and (szOperationCodeFrom is not
blank) and (mnMoveQuantity is greater than zero)
AddressNumber=mnAddressNumber
ContainerID=szContainerID
ItemNumber=szItemNumber
OperationCodeFrom=szOperationCodeFrom
F43092Join.FetchNext
OrderNumber->evt_OrderNumber
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
While(FILE_IO_STATUS is equal to SUCCESS) and (cRecordType 'b9 1)
OrderNumber->evt_OrderNumber
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
Else
cRecordFound is equal to '1'
OrderNumber=evt_OrderNumber
OrderType=evt_OrderType
OrderCompany=evt_OrderCompany
OrderSuffix=evt_OrderSuffix
LineNumber=evt_LineNumber
NumberOfLines=evt_NumberOfLines
End If
End While
End If
//
// Try to find F43092Join using Branch/Plant, Address Number, Item Number, Operation Code
/ From, Quantity at Operation 'b9 0.
//
If (cRecordFound is not '1') and (szBranch/Plant is not blank) and (mnAddressNumber is not zero) and
(szItemNumber is not equal to blank) and (szOperationCodeFrom is not blank) and (mnMoveQuantity is
greater than zero)
AddressNumber=mnAddressNumber
ItemNumber=szItemNumber
OperationCodeFrom=szOperationCodeFrom
F43092Join.FetchNext
OrderNumber->evt_OrderNumber
OrderType->evt_OrderType
OrderCompany->evt_OrderCompany
OrderSuffix->evt_OrderSuffix
LineNumber->evt_LineNumber
NumberOfLines->evt_NumberOfLines
QuantityAtOperation->evt_QuantityAtOperation
While(FILE_IO_STATUS is equal to SUCCESS) and (cRecordType 'b9 1)
D4300401 - Data Structure for Receipt Routing Preprocessor
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnDocumentOrderInvoiceE | 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,
| ||||
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
| ||||
szCompanyKeyOrderNo | KCOO | char | NONE | NONE |
A number that, along with order number and order type, uniquely identifies an order document (such as a purchase order, a contract, a
| ||||
szOrderSuffix | SFXO | char | NONE | NONE |
In the A/R and A/P systems, a code that corresponds to the pay item. In the Sales Order and Procurement systems, this code identifies
| ||||
mnLineNumber | LNID | MATH_NUMERIC | NONE | NONE |
A number that identifies multiple occurrences, such as line numbers on a purchase order or other document. Generally, the system assigns
| ||||
mnNoOfLinesOnOrder | NLIN | MATH_NUMERIC | NONE | NONE |
A number representing the number of lines on either a purchase or sales order.
or The number of receivers recorded during the receipts
| ||||
szCostCenter | 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
| ||||
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. | ||||
mnIdentifierShortItem | 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
| ||||
mnAddressNumber | AN8 | MATH_NUMERIC | NONE | NONE |
A number that identifies an entry in the Address Book system, such as employee, applicant, participant, customer, supplier, tenant, or
| ||||
szContainerID | CNID | char | NONE | NONE |
A code on the container or that you assign to the container in which the items on this purchase order or order line were shipped to you. You
| ||||
szOperationCode | OPRC | char | NONE | NONE |
A user defined code (43/OC) that represents an operation or step within the receipt route. | ||||
mnQuantityMoved | QTYM | MATH_NUMERIC | NONE | NONE |
The number of units that have been either moved or dispositioned. | ||||
cRecordFound | EV01 | char | NONE | NONE |
An option that specifies the type of processing for an event. |
None |
None |