R/F43099.R

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

#' Receipt Routing Ledger File
#' 
#' F43099 - Receipt Routing Ledger File 
#' 
#' @param db2_connection JDE Database Connection
#' @param friendly_names Flag to return human-readable column names.  Default TRUE.
#' @export
F43099 <- function(db2_connection, friendly_names = TRUE) {
    F43099 <- dplyr::tbl(db2_connection, dbplyr::in_schema('PRODDTA', 'F43099'))
        if (friendly_names) {
            F43099 <- F43099 %>% dplyr::select(
                `Order Company (Order Number)` = `POKCOO`,
                `Document (Order No Invoice etc.)` = `PODOCO`,
                `Order Type` = `PODCTO`,
                `Order Suffix` = `POSFXO`,
                `Line Number` = `POLNID`,
                `Number of Lines` = `PONLIN`,
                `Unit of Measure as Input` = `POUOM`,
                `Units - Moved` = `POQTYM`,
                `Code - From Operation` = `POOPRF`,
                `Code - To Operation` = `POOPRT`,
                `Code - Movement` = `POMCDE`,
                `Reason Code` = `PORCD`,
                `Replacement (Y/N)` = `PORPL`,
                `Purchase Order Line Number` = `POPOLN`,
                `Code - Reversal` = `PORVS`,
                `Number - Reversal` = `PORVSN`,
                `Program ID` = `POPID`,
                `User ID` = `POUSER`,
                `Work Station ID` = `POJOBN`,
                `Date - Updated` = `POUPMJ`,
                `Time of Day` = `POTDAY`,
                `Business Unit` = `POMCU`,
                `Item Number - Short` = `POITM`,
                `Document Company` = `POKCO`,
                `Document (Voucher Invoice etc.)` = `PODOC`,
                `Document Type` = `PODCT`,
                `Date - For G/L (and Voucher)` = `PODGL`,
                `In-Transit/In-Stock` = `POITIS`,
                `Valuation Period Ending Date` = `POVPEJ`
            )
        }
    return(F43099)
}