R/F41021.R

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

#' Item Location File
#' 
#' F41021 - Item Location File 
#' 
#' @param db2_connection JDE Database Connection
#' @param friendly_names Flag to return human-readable column names.  Default TRUE.
#' @export
F41021 <- function(db2_connection, friendly_names = TRUE) {
    F41021 <- dplyr::tbl(db2_connection, dbplyr::in_schema('PRODDTA', 'F41021'))
        if (friendly_names) {
            F41021 <- F41021 %>% dplyr::select(
                `Item Number - Short` = `LIITM`,
                `Business Unit` = `LIMCU`,
                `Location` = `LILOCN`,
                `Lot/Serial Number` = `LILOTN`,
                `Primary Location (P/S)` = `LIPBIN`,
                `Category - G/L` = `LIGLPT`,
                `Lot Status Code` = `LILOTS`,
                `Date - Last Receipt (Julian)` = `LILRCJ`,
                `Quantity on Hand - Primary units` = `LIPQOH`,
                `Quantity on Backorder` = `LIPBCK`,
                `Quantity on Purchase Order-primary units` = `LIPREQ`,
                `Quantity on Work Order Receipt` = `LIQWBO`,
                `Quantity 1 - Other primary units` = `LIOT1P`,
                `Quantity 2 - Other primary units` = `LIOT2P`,
                `Quantity - Other Purchasing 1` = `LIOT1A`,
                `Quantity - Hard Committed` = `LIHCOM`,
                `Quantity Soft Committed` = `LIPCOM`,
                `Quantity on Future Commit` = `LIFCOM`,
                `Quantity - Work Order Soft Commit` = `LIFUN1`,
                `Quantity - Work Order Hard Commit` = `LIQOWO`,
                `Units - In Transit - Primary units` = `LIQTTR`,
                `Units - In Inspection - Primary units` = `LIQTIN`,
                `Quantity - On Loan to Manufacturing` = `LIQONL`,
                `Quantity Inbound - Warehouse` = `LIQTRI`,
                `Quantity Outbound - Warehouse` = `LIQTRO`,
                `Date - Next Count (Julian)` = `LINCDJ`,
                `Future Use Quantity` = `LIQTY1`,
                `Future Use Quantity 2` = `LIQTY2`,
                `User Reserved Number` = `LIURAB`,
                `User Reserved Reference` = `LIURRF`,
                `User Reserved Amount` = `LIURAT`,
                `User Reserved Code` = `LIURCD`,
                `Work Station ID` = `LIJOBN`,
                `Program ID` = `LIPID`,
                `Date - Updated` = `LIUPMJ`,
                `User ID` = `LIUSER`,
                `Time of Day` = `LITDAY`,
                `User Reserved Date` = `LIURDT`,
                `Units - In Operation 1 - Primary units` = `LIQTO1`,
                `Units - In Operation 2 - Primary units` = `LIQTO2`,
                `Secondary Quantity Hard Committed` = `LIHCMS`,
                `Project Hard Committed Quantity in Prima` = `LIPJCM`,
                `Project Hard Committed Quantity in Secon` = `LIPJDM`,
                `Secondary Quantity Soft Committed` = `LISCMS`,
                `Secondary Quantity Inbound - Warehouse` = `LISIBW`,
                `Secondary Quantity Outbound - Warehouse` = `LISOBW`,
                `Quantity on Hand - in Secondary units` = `LISQOH`,
                `Secondary Quantity on Work Order Receipt` = `LISQWO`,
                `Quantity on Purchase Order - Secondary` = `LISREQ`,
                `Secondary Quantity WO Hard Commit` = `LISWHC`,
                `SecondaryQuantity W.O. Soft Commit` = `LISWSC`,
                `Critical Hold Flag` = `LICHDF`,
                `Work Flow Pending Flag` = `LIWPDF`,
                `Unique Configuration ID` = `LICFGSID`
            )
        }
    return(F41021)
}