R/F31122.R

In ejneer/camdata: User Friendly Access to CAM Data Sources

#' Work Order Time Transactions
#' 
#' F31122 - Work Order Time Transactions 
#' 
#' @param db2_connection JDE Database Connection
#' @param friendly_names Flag to return human-readable column names.  Default TRUE.
#' @export
F31122 <- function(db2_connection, friendly_names = TRUE) {
    F31122 <- dplyr::tbl(db2_connection, dbplyr::in_schema('PRODDTA', 'F31122'))
        if (friendly_names) {
            F31122 <- F31122 %>% dplyr::select(
                `Processed Code` = `WTYST`,
                `Document (Order No Invoice etc.)` = `WTDOCO`,
                `Order Type` = `WTDCTO`,
                `Address Number` = `WTAN8`,
                `Transaction No. - Payroll` = `WTPRTR`,
                `Parent (short) Item Number` = `WTKIT`,
                `Kit - 2nd Item Number` = `WTKITL`,
                `3rd Item Number - Kit` = `WTKITA`,
                `Branch` = `WTMMCU`,
                `Business Unit` = `WTMCU`,
                `Sequence Number - Operations` = `WTOPSQ`,
                `Operation Status Code W.O.` = `WTOPST`,
                `Type of Hours` = `WTTYR`,
                `Name - Remark Explanation` = `WTEXR`,
                `Batch Number` = `WTICU`,
                `Document Type` = `WTDCT`,
                `Date - For G/L (and Voucher)` = `WTDGL`,
                `Date - Time Clock Start` = `WTPBDT`,
                `Time - Beginning (HH/MM/SS)` = `WTPBTM`,
                `Time - Ending (HH/MM/SS)` = `WTPETM`,
                `Shift Code` = `WTSHFT`,
                `Unit or Tag Number` = `WTAPID`,
                `Billing Rate - Equipment` = `WTEBRT`,
                `Rate - Hourly` = `WTHRT`,
                `Hours Worked` = `WTHRW`,
                `Hours - Equipment` = `WTHREQ`,
                `Amount - Gross Pay` = `WTGPAY`,
                `Quantity Shipped` = `WTSOQS`,
                `Units - Quantity Canceled/Scrapped` = `WTSOCN`,
                `Unit of Measure as Input` = `WTUOM`,
                `Summary Record` = `WTSUMR`,
                `User ID` = `WTUSER`,
                `Date - Updated` = `WTUPMJ`,
                `Time of Day` = `WTTDAY`,
                `Program ID` = `WTPID`,
                `Work Station ID` = `WTJOBN`,
                `Unique Key ID (Internal)` = `WTUKID`,
                `Reason Code` = `WTRCD`,
                `Standard hours` = `WTSTH`,
                `Line/Cell Identifier` = `WTLINE`,
                `User Reserved Code` = `WTURCD`,
                `User Reserved Date` = `WTURDT`,
                `User Reserved Amount` = `WTURAT`,
                `User Reserved Number` = `WTURAB`,
                `User Reserved Reference` = `WTURRF`,
                `Activity-Based Costing Activity Code` = `WTACTB`,
                `Asset Item Number` = `WTNUMB`,
                `Source Of Hours` = `WTSOHR`,
                `Source Of Rate` = `WTSORE`
            )
        }
    return(F31122)
}