js1972

*----------------------------------------------------------------------*
*       CLASS ZCL_PPO_ORDER_ONCREATE DEFINITION
*----------------------------------------------------------------------*
*       This BAdI implementation allows us to send a notification
*       whenever a Post-Processing Office Order is created.
*
*       Emails are sent via an ALM alert, the PPO worklist is used to
*       determine who should receive the alert.
*
*       PPO provides config to allow smartforms to be used but

js1972

report y_create_ppo_order.

"
" Sample program to create a PPO Order for error management.
"
" The PPO Component and Business Process is configured in SPRO
" under Cross Application Components -> General Application
" Functions -> Postprocessing Office.
"
" The OBJTPYE (ZJASON below) is what the PPO desktop (worklist)

js1972

@AbapCatalog.sqlViewName: 'ZPURITEMS'
define view PurchaseOrderItem 
  as select from ekko inner join ekpo on ekko.ebeln = ekpo.ebeln {
  
  key ekko.ebeln as id,
  key ebelp as item_no,
  lifnr as vendor,
  ernam as created_by,
  ekko.aedat as created_on,
  txz01 as text,

js1972

function catsxt_simple_text_editor.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(IM_TITLE) TYPE  SYTITLE
*"     REFERENCE(IM_DISPLAY_MODE) TYPE  XFELD DEFAULT SPACE
*"     REFERENCE(IM_START_COLUMN) TYPE  I DEFAULT 10
*"     REFERENCE(IM_START_ROW) TYPE  I DEFAULT 10
*"  CHANGING
*"     REFERENCE(CH_TEXT) TYPE  CATSXT_LONGTEXT_ITAB

js1972

report y_test_abap_740.

interface lif_test.
  methods:
    print
      importing msg type string.
endinterface.

class lcl_test definition.
  public section.

js1972

" Create MDG change pointers if email or street2 have changed
try.
    data(mdg_cp) = value mdg_cp_s_cp( object_key = vendor ).

    "Create a MDG Change Pointer so Vendor can be replicated later via DRF (TCODE DRFOUT)
    call method cl_mdg_change_pointer=>create_cp
      exporting
        iv_business_object = 'ZM_VENDOR'
        is_change_pointer  = mdg_cp.

js1972

report y_test_json_output.

DATA purchaseorders TYPE STANDARD TABLE OF ekko.

SELECT * FROM ekko
  INTO TABLE @purchaseorders
  where bukrs = '2000'
    and ernam = 'JSCOTT'.

DATA(lo_json_writer) = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).

js1972

package shapeless.stuff

import shapeless._
import nat._
import ops.nat._
import ops.hlist._

/**
 * The goal is to determine whether a list of numbers is the appropriate length
 * (nine) and has a valid checksum, which is calculated by taking the sum of

js1972

/* This UDF reads all contents and creates an output along with an attachment to SAP PI message, which has data in CSV foramt as expected by DB Schenker.
Please note that DB Schenker expect some of the fields as empty and hence only commas are added in the payload. For future enhancements if further fields are required to be added, pass them as input to UDF and update the 
content field to use that input
 */

AbstractTrace trace = container.getTrace();
String firstRow = "Organization Name,,Contact Name,Email Address,Phone Number,Handling Office,Trucker,US Principal Party of Interest / ISF Importer,Factory,Consignee/Destination/ISF Ship To,Freight Forwarder,Third Party,Equipment Stuffing Location,Secondary Name/3rd Party Description,Address (Line 1),Address (Line 2),Address (Line 3),Email Address,State,City,Country (ISO Country Code),Postal Code,Phone,Fax,Internal Customer Account #,Importer of Record Number,Type (EIN, SSN, Foreign),Consignee #,Type (EIN, SSN, Foreign),Vendor Name,Vendor Code,Contact Name";
St

js1972

report y_brfplus_function_test.

data: lo_admin_data type ref to if_fdt_admin_data,
      lo_function   type ref to if_fdt_function,
      lo_context    type ref to if_fdt_context,
      lo_result     type ref to if_fdt_result,
      "lx_fdt        type ref to cx_fdt,

      result        type        abap_bool,
      event_code    type        string.