Functional Description
Purpose
Setup Notes and Prerequisites
Special Logic
Technical Specification
// Retrieve Company for Input Business Unit
//
Call B0000130 passing Input MCU and returning CO
// Retrieve Rate Group from Equipment Master
//
Fetch Single on F1201 for Input NUMB
Return:FAACL0 to Variable RTGR
// Read Rental Rules to determine how to calculate the Billing Amount
//
Fetch Single on F1302 for Input MCU and B0000130 CO
Return:Equipment Rate Code (ERC)
Default Table 01 (DT01)
Default Table 02 (DT02)
Default Table 03 (DT03)
Default Table 04 (DT04)
Default Table 05 (DT05)
If Fetch unsuccessful
Fetch Single on F1302 for blank MCU and B0000130 CO
Return:Equipment Rate Code (ERC)
Default Table 01 (DT01)
Default Table 02 (DT02)
Default Table 03 (DT03)
Default Table 04 (DT04)
Default Table 05 (DT05)
If Fetch unsuccessful and B0000130 CO != "00000"
Fetch Single on F1302 for blank MCU and CO = "00000"
Return:Equipment Rate Code (ERC)
Default Table 01 (DT01)
Default Table 02 (DT02)
Default Table 03 (DT03)
Default Table 04 (DT04)
Default Table 05 (DT05)
End if
End if
// Continue if record found in F1302
//
If Fetch successful
//
If Input ERC = blank
//-----------------------------------------------------------------------------
// Determine Rate Table to use for Billing
//
// Rate Table 01
//
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT01
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = Input NUMB
Return PO01 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT01
Assign Variable NUMB = Input NUMB
Else
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT01
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = blank
Return PO01 to Variable PRCNT
// Rate Table 02
//
If Fetch successful
Assign Variable RTTB = F1302 DT01
Assign Variable NUMB = blank
Else
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT02
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = Input NUMB
Return PO02 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT02
Assign Variable NUMB = Input NUMB
Else
Fetch Single on F1301
Rate Table (RTTB) = B1302 DT02
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = blank
Return PO02 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT02
Assign Variable NUMB = blank
Else
// Rate Table 03
//
Fetch Single on F1301
Rate Table (RTTB) = B1302 DT03
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = Input NUMB
Return PO03 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT03
Assign Variable NUMB = Input NUMB
Else
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT03
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = blank
Return PO03 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT03
Assign Variable NUMB = blank
Else
// Rate Table 04
//
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT04
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = Input NUMB
Return PO04 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT04
Assign Variable NUMB = Input NUMB
Else
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT04
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = blank
Return PO04 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT04
Assign Variable NUMB = blank
Else
// Rate Table 05
//
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT05
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = Input NUMB
Return PO05 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT05
Assign Variable NUMB = Input NUMB
Else
Fetch Single on F1301
Rate Table (RTTB) = F1302 DT05
Rate Group (RTGR) = Variable RTGR
Equipment Number (NUMB) = blank
Return PO05 to Variable PRCNT
If Fetch successful
Assign Variable RTTB = F1302 DT05
Assign Variable NUMB = blank
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
//-----------------------------------------------------------------------------
// Read Equipment Rates to determine Billing Rate
//
Select F1301
RTTB = Variable RTTB
RTGR = Variable RTGR
NUMB = Variable NUMB
ERC = Input ERC
Assign Flag = blank
Fetch Next on F1301
Return:Effective Date (EFTB)
End Date (EFTE)
Billing Rate (EBRT)
Rate Component 01 (RK01)
Rate Component 02 (RK02)
Rate Component 03 (RK03)
Rate Component 04 (RK04)
Rate Component 05 (RK05)
Rate Component 06 (RK06)
Rate Component 07 (RK07)
Rate Component 08 (RK08)
Rate Component 09 (RK09)
Rate Component 10 (RK10)
While Fetch successful and Flag = blank
If F1301 EFTB <= Input Date and F1301 EFTE >= Input Date
Assign Flag = 1
Else
Fetch Next on F1301
Return:Effective Date (EFTB)
End Date (EFTE)
Billing Rate (EBRT)
Rate Component 01 (RK01)
Rate Component 02 (RK02)
Rate Component 03 (RK03)
Rate Component 04 (RK04)
Rate Component 05 (RK05)
Rate Component 06 (RK06)
Rate Component 07 (RK07)
Rate Component 08 (RK08)
Rate Component 09 (RK09)
Rate Component 10 (RK10)
End if
End While
If Flag = blank
RTTB = Variable RTTB
RTGR = Variable RTGR
NUMB = Variable NUMB
ERC = Input ERC
Return:Effective Date (EFTB)
End Date (EFTE)
Billing Rate (EBRT)
Rate Component 01 (RK01)
Rate Component 02 (RK02)
Rate Component 03 (RK03)
Rate Component 04 (RK04)
Rate Component 05 (RK05)
Rate Component 06 (RK06)
Rate Component 07 (RK07)
Rate Component 08 (RK08)
Rate Component 09 (RK09)
Rate Component 10 (RK10)
While Fetch successful and Flag = blank
If F1301 EFTB <= Input Date and F1301 EFTE = blank
Assign Flag = 1
Else
Fetch Next on F1301
Return:Effective Date (EFTB)
End Date (EFTE)
Billing Rate (EBRT)
Rate Component 01 (RK01)
Rate Component 02 (RK02)
Rate Component 03 (RK03)
Rate Component 04 (RK04)
Rate Component 05 (RK05)
Rate Component 06 (RK06)
Rate Component 07 (RK07)
Rate Component 08 (RK08)
Rate Component 09 (RK09)
Rate Component 10 (RK10)
End if
End While
If Flag = blank
RTTB = Variable RTTB
RTGR = Variable RTGR
NUMB = Variable NUMB
ERC = Input ERC
Return:Effective Date (EFTB)
End Date (EFTE)
D1300220 - F1302 Retrieve Equipment Billing Rate
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnAssetNumber | NUMB | MATH_NUMERIC | OPT | NONE |
An 8-digit number that uniquely identifies an asset. | ||||
szBillingRateCode | ERC | char | OPT | NONE |
A user defined code (00/RC) that indicates a billing rate, such as DY for daily, MO for monthly, and WK for weekly. You can set up multiple
| ||||
szBusinessUnit | MCU | char | OPT | NONE |
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit
| ||||
jdBillingDate | EFTB | JDEDATE | OPT | NONE |
The date that an address, item, transaction, or table record becomes active. The meaning of this field differs, depending on the program.
| ||||
mnBillingRate | EBRT | MATH_NUMERIC | OPT | NONE |
A code that represents the amount that you want to charge the job. Each piece of equipment can have numerous billing rates based on the
| ||||
mnBillingRateComponent01 | RK01 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type. The rate
component allows you to document the breakdown of the rate
| ||||
mnBillingRateComponent02 | RK02 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type. The rate component allows you to document the breakdown of the rate
| ||||
mnBillingRateComponent03 | RK03 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type. The rate component allows you to document the breakdown of the rate
| ||||
mnBillingRateComponent04 | RK04 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type. The rate component allows you to document the breakdown of the rate
| ||||
mnBillingRateComponent05 | RK05 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
mnBillingRateComponent06 | RK06 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
mnBillingRateComponent07 | RK07 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
mnBillingRateComponent08 | RK08 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
mnBillingRateComponent09 | RK09 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
mnBillingRateComponent10 | RK10 | MATH_NUMERIC | OPT | NONE |
Each equipment item has a specific billing rate for each rate type (see EBRT). The rate component allows you to document the
| ||||
cErrorCode | ERRC | char | OPT | NONE |
This error code indicates if any errors occurred during the creation of the Trip Document Detail (F4914) records by the Delivery Document
|
None |
None |