R/F4301.R

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

#' Purchase Order Header
#' 
#' F4301 - Purchase Order Header 
#' 
#' @param db2_connection JDE Database Connection
#' @param friendly_names Flag to return human-readable column names.  Default TRUE.
#' @export
F4301 <- function(db2_connection, friendly_names = TRUE) {
    F4301 <- dplyr::tbl(db2_connection, dbplyr::in_schema('PRODDTA', 'F4301'))
        if (friendly_names) {
            F4301 <- F4301 %>% dplyr::select(
                `Order Company (Order Number)` = `PHKCOO`,
                `Document (Order No Invoice etc.)` = `PHDOCO`,
                `Order Type` = `PHDCTO`,
                `Order Suffix` = `PHSFXO`,
                `Business Unit` = `PHMCU`,
                `Document Company (Original Order)` = `PHOKCO`,
                `Original Order Number` = `PHOORN`,
                `Original Order Type` = `PHOCTO`,
                `Company - Key (Related Order)` = `PHRKCO`,
                `Related PO/SO/WO Number` = `PHRORN`,
                `Related PO/SO/WO Order Type` = `PHRCTO`,
                `Address Number` = `PHAN8`,
                `Address Number - Ship To` = `PHSHAN`,
                `Date - Requested` = `PHDRQJ`,
                `Date - Order/Transaction` = `PHTRDJ`,
                `Date - Scheduled Pick` = `PHPDDJ`,
                `Date - Original Promised Delivery` = `PHOPDJ`,
                `Date - Actual Ship Date` = `PHADDJ`,
                `Date - Cancel` = `PHCNDJ`,
                `Date - Price Effective Date` = `PHPEFJ`,
                `Date - Promised Shipment` = `PHPPDJ`,
                `Date - Future Date 2` = `PHPSDJ`,
                `Reference` = `PHVR01`,
                `Reference 2` = `PHVR02`,
                `Delivery Instructions Line 1` = `PHDEL1`,
                `Delivery Instructions Line 2` = `PHDEL2`,
                `Name - Remark` = `PHRMK`,
                `Description` = `PHDESC`,
                `Print Message` = `PHINMG`,
                `Price and Adjustment Schedule` = `PHASN`,
                `Pricing Group` = `PHPRGP`,
                `Payment Terms Code` = `PHPTC`,
                `Tax Expl Code 1` = `PHEXR1`,
                `Tax Rate/Area` = `PHTXA1`,
                `Certificate Tax Exemption` = `PHTXCT`,
                `Hold Orders Code` = `PHHOLD`,
                `Associated Text` = `PHATXT`,
                `Invoice Copies` = `PHINVC`,
                `Nature of Transaction` = `PHNTR`,
                `Container I.D.` = `PHCNID`,
                `Freight Handling Code` = `PHFRTH`,
                `Zone Number` = `PHZON`,
                `Buyer Number` = `PHANBY`,
                `Carrier Number` = `PHANCR`,
                `Mode of Transport` = `PHMOT`,
                `Conditions of Transport` = `PHCOT`,
                `Reason Code` = `PHRCD`,
                `Freight Calculated (Y/N)` = `PHFRTC`,
                `AIA Document Flag` = `PHFUF1`,
                `Post Quantities` = `PHFUF2`,
                `Amount - Order Gross` = `PHOTOT`,
                `Percent - Retainage` = `PHPCRT`,
                `Retainage Rule` = `PHRTNR`,
                `Unit of Measure - Weight Display` = `PHWUMD`,
                `Unit of Measure - Volume Display` = `PHVUMD`,
                `Purge Code` = `PHPURG`,
                `Logic Control` = `PHLGCT`,
                `Processing Mode` = `PHPROM`,
                `Type - Match Type` = `PHMATY`,
                `Status - Purchase Order` = `PHOSTS`,
                `Code - Evaluated Receipt Settlement` = `PHAVCH`,
                `Pre-Payment (Y/N)` = `PHPRPY`,
                `Send Method` = `PHCRMD`,
                `Purchasing Category Code 5` = `PHPRP5`,
                `Code - Approval Routing` = `PHARTG`,
                `Change Order Number` = `PHCORD`,
                `Currency Mode-Foreign or Domestic Entry` = `PHCRRM`,
                `Currency Code - From` = `PHCRCD`,
                `Currency Conversion Rate - Spot Rate` = `PHCRR`,
                `Language` = `PHLNGP`,
                `Amount - Foreign Open` = `PHFAP`,
                `Ordered By` = `PHORBY`,
                `Order Taken By` = `PHTKBY`,
                `User Reserved Code` = `PHURCD`,
                `User Reserved Date` = `PHURDT`,
                `User Reserved Amount` = `PHURAT`,
                `User Reserved Number` = `PHURAB`,
                `User Reserved Reference` = `PHURRF`,
                `User ID` = `PHUSER`,
                `Program ID` = `PHPID`,
                `Work Station ID` = `PHJOBN`,
                `Date - Updated` = `PHUPMJ`,
                `Time of Day` = `PHTDAY`,
                `Requested Ship Time` = `PHRSHT`,
                `Requested Delivery Time` = `PHDRQT`,
                `Document (Order # Invoice etc.)` = `PHDOC1`,
                `Document Type` = `PHDCT4`,
                `Currency Code - Base` = `PHBCRC`,
                `Address Number - Mark-for` = `PHMKFR`,
                `Purchase Order Property 01` = `PHPOHP01`,
                `Purchase Order Property 02` = `PHPOHP02`,
                `Purchase Order Property 03` = `PHPOHP03`,
                `Purchase Order Property 04` = `PHPOHP04`,
                `Purchase Order Property 05` = `PHPOHP05`,
                `Purchase Order Property 06` = `PHPOHP06`,
                `Purchase Order Property 07` = `PHPOHP07`,
                `Purchase Order Property 08` = `PHPOHP08`,
                `Purchase Order Property 09` = `PHPOHP09`,
                `Purchase Order Property 10` = `PHPOHP10`,
                `Purchase Order Property 11` = `PHPOHP11`,
                `Purchase Order Property 12` = `PHPOHP12`,
                `Purchase Order Code 01` = `PHPOHC01`,
                `Purchase Order Code 02` = `PHPOHC02`,
                `Purchase Order Code 03` = `PHPOHC03`,
                `Purchase Order Code 04` = `PHPOHC04`,
                `Purchase Order Code 05` = `PHPOHC05`,
                `Purchase Order Code 06` = `PHPOHC06`,
                `Purchase Order Code 07` = `PHPOHC07`,
                `Purchase Order Code 08` = `PHPOHC08`,
                `Purchase Order Code 09` = `PHPOHC09`,
                `Purchase Order Code 10` = `PHPOHC10`,
                `Purchase Order Code 11` = `PHPOHC11`,
                `Purchase Order Code 12` = `PHPOHC12`,
                `Purchase Order Date 01` = `PHPOHD01`,
                `Purchase Order Date 02` = `PHPOHD02`,
                `Purchase Order Address Book 01` = `PHPOHAB01`,
                `Purchase Order Address Book 02` = `PHPOHAB02`,
                `Clause Unique ID` = `PHCUKID`,
                `Purchase Order Property 13` = `PHPOHP13`,
                `Purchase Order Universal Date 01` = `PHPOHU01`,
                `Purchase Order Universal Date 02` = `PHPOHU02`,
                `Retainage Indicator` = `PHRETI`,
                `Classification Code 01` = `PHCLASS01`,
                `Classification Code 02` = `PHCLASS02`,
                `Classification Code 03` = `PHCLASS03`,
                `Classification Code 04` = `PHCLASS04`,
                `Classification Code 05` = `PHCLASS05`
            )
        }
    return(F4301)
}