Automatic Perform Posting GI After VLPOD Save in SAP

Automatic Posting GI After VLPOD Save in SAP

This guide explains how to enhance SAP to automatically perform Goods Issue (GI) with movement type Z55 after VLPOD (Proof of Delivery) is confirmed or canceled. The solution uses BADI implementation and custom function modules.

Business Requirement

After confirming or canceling POD in transaction VLPOD, the system should automatically trigger a MIGO Goods Issue (Z55) posting without requiring manual intervention.

Technical Design

BADI Implementations

• LE_SHP_DELIVERY_PROC : ZIMPL_POD_TRANSFER
• DELIVERY_PUBLISH : ZIM_DELIVERY_PUBLISH

Custom Function Modules

• ZFG_VLPOD_POST_Z55 → To post Goods Issue
• ZFG_VLPOD_CNCL_Z55 → To cancel Goods Issue

Enhancement Implementation

1. ZIMPL_POD_TRANSFER

METHOD if_ex_le_shp_delivery_proc~save_document_prepare.
  IF sy-tcode = 'VLPOD'.
    " Capture POD action and delivery data
    ...
  ENDIF.
ENDMETHOD.
  

2. ZIM_DELIVERY_PUBLISH

METHOD if_ex_delivery_publish~publish_after_save.
  IF sy-tcode = 'VLPOD' AND sy-ucomm = 'SICH_T'.
      DATA lt_lipsvb TYPE TABLE OF lipsvb.
      DATA:
        ct_xlikp   TYPE shp_likp_t,
        lv_pod_act TYPE char10.

      REFRESH : lt_lipsvb, ct_xlikp.

      IMPORT ct_xlikp  TO ct_xlikp  FROM MEMORY ID 'ZZ_VLPOD_HDR'.
      IMPORT lt_lipsvb TO lt_lipsvb FROM MEMORY ID 'ZZ_VLPOD_ITEM'.

      CLEAR lv_pod_act.
      IMPORT lv_pod_act TO lv_pod_act FROM MEMORY ID 'ZZ_VLPOD'.

      READ TABLE ct_xlikp INTO DATA(ls_likp) INDEX 1.

    CASE lv_pod_act.
      WHEN 'A'. " Confirm POD
        CALL FUNCTION 'ZFG_VLPOD_POST_Z55' IN UPDATE TASK.
        COMMIT WORK AND WAIT.
        WAIT UP TO 1 SECONDS.
      WHEN 'X'. " Cancel POD
        CALL FUNCTION 'ZFG_VLPOD_CNCL_Z55' IN UPDATE TASK.
        COMMIT WORK AND WAIT.
        WAIT UP TO 1 SECONDS.
    ENDCASE.
    
    FREE MEMORY ID 'ZZ_VLPOD_HDR'.
    FREE MEMORY ID 'ZZ_VLPOD_ITEM'.
    FREE MEMORY ID 'ZZ_VLPOD'.
  ENDIF.
ENDMETHOD.
  

Custom Function Modules

ZFG_VLPOD_POST_Z55

Posts the Goods Issue (Z55) by calling BAPI_GOODSMVT_CREATE with dynamically prepared items.

  FUNCTION zfg_vlpod_post_z55.
  	DATA:
          ls_header        TYPE bapi2017_gm_head_01,
          ls_code          TYPE bapi2017_gm_code,
          testrun          TYPE bapi2017_gm_gen-testrun,

          lv_matnr18       TYPE matnr18,

          goodsmvt_headret TYPE bapi2017_gm_head_ret,
          materialdocument TYPE bapi2017_gm_head_ret-mat_doc,
          matdocumentyear  TYPE bapi2017_gm_head_ret-doc_year,

          lt_smvt_item     TYPE TABLE OF bapi2017_gm_item_create,
          ls_smvt_item     TYPE bapi2017_gm_item_create,

          lt_return        TYPE TABLE OF  bapiret2,

          lt_tvpod         TYPE TABLE OF zcds_lips_tvpod,
          ct_xlikp         TYPE shp_likp_t,
          lv_pod_act       TYPE char10.

        DATA :
          ls_return TYPE bapiret2,
          ex_mblnr  TYPE mblnr,
          ex_mjahr  TYPE mjahr.

        CLEAR ct_xlikp.
        IMPORT ct_xlikp  TO ct_xlikp  FROM MEMORY ID 'ZZ_VLPOD_HDR'.

        READ TABLE ct_xlikp INTO DATA(ls_likp) INDEX 1.

        REFRESH lt_tvpod.
        SELECT * FROM zcds_lips_tvpod
          INTO TABLE @lt_tvpod
            WHERE vbeln = @ls_likp-vbeln AND lfimg_diff NE 0.

        ls_code = '03'.

        CLEAR: ls_header.
        ls_header-pstng_date = ls_likp-podat.
        ls_header-doc_date   = sy-datum.
        ls_header-header_txt = 'INTRANSIT'.

        REFRESH lt_smvt_item.
        LOOP AT lt_tvpod INTO DATA(ls_tvpod).
          CLEAR ls_smvt_item.
          CLEAR ls_smvt_item.
          CLEAR lv_matnr18.
          lv_matnr18 = |{ ls_tvpod-matnr ALPHA = IN }|.

          ls_smvt_item-material   = lv_matnr18.
          ls_smvt_item-plant      = ls_tvpod-werks.
          ls_smvt_item-batch      = ls_tvpod-charg.
          ls_smvt_item-move_type  = 'Z55'.
          ls_smvt_item-spec_stock = 'T'.
          ls_smvt_item-entry_qnt  = ls_tvpod-lfimg_diff.
          ls_smvt_item-entry_uom  = ls_tvpod-meins.
          ls_smvt_item-val_type   = ls_tvpod-bwtar.
          ls_smvt_item-costcenter = 'BMC0202'.
          ls_smvt_item-deliv_numb = ls_tvpod-vbeln.
          ls_smvt_item-deliv_item = ls_tvpod-posnr.

          APPEND ls_smvt_item TO lt_smvt_item.
          CLEAR ls_tvpod.
        ENDLOOP.

        CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
          EXPORTING
            goodsmvt_header  = ls_header
            goodsmvt_code    = ls_code
          IMPORTING
            materialdocument = ex_mblnr
            matdocumentyear  = ex_mjahr
          TABLES
            goodsmvt_item    = lt_smvt_item
            return           = lt_return.

      ENDFUNCTION.
    

ZFG_VLPOD_CNCL_Z55

Cancels the previously posted Goods Issue using BAPI_GOODSMVT_CANCEL.

    FUNCTION zfg_vlpod_cncl_z55.
*"----------------------------------------------------------------------
*"*"Update Function Module:
*"
*"*"Local Interface:
*"----------------------------------------------------------------------
  DATA:
    im_mblnr   TYPE mblnr,
    im_mjahr   TYPE mjahr,
    im_budat   TYPE budat,
    im_uname   TYPE uname,
    im_bktxt   TYPE bktxt,
    ct_xlikp   TYPE shp_likp_t,
    lv_pod_act TYPE char10.

  DATA :
    ex_headret TYPE bapi2017_gm_head_ret,
    lt_return  TYPE TABLE OF bapiret2,
    ls_return  TYPE bapiret2,
    ex_mblnr   TYPE mblnr,
    ex_mjahr   TYPE mjahr.

  CLEAR ct_xlikp.
  IMPORT ct_xlikp  TO ct_xlikp  FROM MEMORY ID 'ZZ_VLPOD_HDR'.

  READ TABLE ct_xlikp INTO DATA(ls_likp) INDEX 1.

  SELECT SINGLE mblnr, mjahr, budat, bktxt
    FROM matdoc
      INTO @DATA(ls_matdoc)
        WHERE vbeln_im = @ls_likp-vbeln AND
              cancelled = '' AND bwart = 'Z55'.

  IF ls_matdoc IS NOT INITIAL.
    REFRESH lt_return.
    CLEAR: im_mblnr, im_mjahr, im_budat, im_uname, im_bktxt.
    im_mblnr = ls_matdoc-mblnr.
    im_mjahr = ls_matdoc-mjahr.
    im_bktxt = ls_matdoc-bktxt.
    im_budat = ls_likp-podat.
    im_uname = sy-uname.

    CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
      EXPORTING
        materialdocument    = im_mblnr
        matdocumentyear     = im_mjahr
        goodsmvt_pstng_date = im_budat
        goodsmvt_pr_uname   = im_uname
        documentheader_text = im_bktxt
      IMPORTING
        goodsmvt_headret    = ex_headret
      TABLES
        return              = lt_return.
  ENDIF.

ENDFUNCTION.

Best Practices

• Always use update tasks to ensure data consistency.
• Free memory IDs after processing to avoid data conflicts.
• Use WAIT UP TO carefully to synchronize update tasks.

Conclusion

By implementing BADI enhancements and custom function modules, SAP can automatically handle GI postings after VLPOD confirmation or cancellation. This ensures process efficiency and reduces manual errors in outbound logistics.

How to Add Custom Field in SAP Standard Report ME5A & ME2N

In SAP implementation, it is often necessary to add custom fields in standard reports such as ME5A (Purchase Requisition List) and ME2N (Purchase Order List). This guide explains step-by-step how to enhance these reports using append structure and BADI ME_CHANGE_OUTTAB_CUS.

Step 1: Append Structure

• For report ME5A: append structure in MEREP_OUTTAB_EBAN.
• For report ME2N: append structure in MEREP_OUTTAB_PURCHDOC.

Step 2: Implement BADI ME_CHANGE_OUTTAB_CUS

After appending the structure, create a new implementation in BADI ME_CHANGE_OUTTAB_CUS to populate the values of the custom fields. Custom logic should be added in the method IF_EX_ME_CHANGE_OUTTAB_CUS~FILL_OUTTAB.

ABAP Code Example

METHOD if_ex_me_change_outtab_cus~fill_outtab.
  FIELD-SYMBOLS:
    <fs_tabrel> TYPE merep_outtab_purchdoc,
    <fs_eban>   TYPE merep_outtab_eban.

  CASE im_struct_name.
    WHEN 'MEREP_OUTTAB_PURCHDOC'. "PO
      " --- custom logic for Purchase Order report (ME2N) ---
      ...

    WHEN 'MEREP_OUTTAB_EBAN'. "PR
      " --- custom logic for Purchase Requisition report (ME5A) ---
      ...
  ENDCASE.
ENDMETHOD.
  

Best Practices

• Always use append structure to keep SAP standard intact.
• Ensure your BADI implementation only fills relevant fields.
• Use SELECT SINGLE or caching to avoid performance issues.

Conclusion

By using append structure and BADI ME_CHANGE_OUTTAB_CUS, you can add custom fields to standard reports ME5A and ME2N without modifying SAP standard programs. This method is safe, flexible, and recommended by SAP best practices.

Suggested Internal Links

• Complete Guide to BADI Implementation in SAP ABAP
• How to Create Append Structure in SAP ABAP
• Overview of SAP Standard ME Reports (ME2N, ME5A, etc.)
• ABAP Performance Optimization Tips
• Best Practices for Adding Custom Fields in SAP

ABAP Dump Open Screen Painter

If this error come when you try to open ABAP Screen Painter, you can follow this tips. 

1. Go To Transaction Code SM59 

Double click EU_SCRP_WIN32 and open Logon & Security Tab

Maintain Callback Positive List

RS_SCRP_GF_PROCESS_640	RFC_GET_FUNCTION_INTERFACE
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RBUILDINFO
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RDDICFIELDS
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RDOCU
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RELEMTABLE
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RHELPGETTEXT
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RICONS
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RKEYS
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RKEYTEXTS
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RMESSAGES
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RPROPTABLE
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RPROP_DELETE
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RSHLP
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RSTATUS_40
RS_SCRP_GF_PROCESS_640	RS_SCRP_GF_RTEXTS

Save and Try Again...!!!

SAP ABAP - CALL BP TCODE From ABAP

REPORT ycall_bp.

PARAMETERS: p_bpnum TYPE but000-partner.
DATA: lo_request TYPE REF TO cl_bupa_navigation_request,
      lo_options TYPE REF TO cl_bupa_dialog_joel_options.
* Create request and options objects
CREATE OBJECT lo_request.
CREATE OBJECT lo_options.
* Set Business Partner number (example)
lo_request->set_partner_number( p_bpnum ). " your BP number
* Set activity (e.g., '03' for display)
lo_request->set_bupa_activity( '03' ).
* Optional: Set a specific sub-header tab (e.g., 'CVIC01' for Commercial View)
lo_request->set_bupa_sub_header_id( 'CVIC01' ).
* Optional: Hide the locator (search) area
lo_options->set_locator_visible( space ).
* Call the BP transaction with navigation
CALL METHOD cl_bupa_dialog_joel=>start_with_navigation
  EXPORTING
    iv_request              = lo_request
    iv_options              = lo_options
    iv_in_new_internal_mode = abap_true  " Open in a new internal mode
  EXCEPTIONS
    already_started         = 1
    not_allowed             = 2
    OTHERS                  = 3.

SAP ABAP - Read Table With Index New Syntax

 
*&---------------------------------------------------------------------*
*& Report YABAP_LEAR01
*&---------------------------------------------------------------------*
*& Title      : Read Table With Index New Syntax
*&---------------------------------------------------------------------*
REPORT yabap_lear01.
DATA: ls_mara TYPE mara.
START-OF-SELECTION.
  SELECT * FROM mara
    INTO TABLE @DATA(lt_mara)
      UP TO 10 ROWS.
  WRITE :/ '.'.
  "Old Method
  CLEAR ls_mara.
  READ TABLE lt_mara INDEX 5 INTO ls_mara.
  IF sy-subrc = 0.
    WRITE :/ 'Old Method Result :', ls_mara-matnr.
  else.
    WRITE :/ 'Data not found!'.
  ENDIF.
  WRITE :/ '.'.
  WRITE :/ '============================================'.
  WRITE :/ '.'.
  "New Method
  CLEAR ls_mara.
  TRY.
      ls_mara = lt_mara[ 6 ].
      WRITE :/ 'New Method Result :', ls_mara-matnr.
    CATCH cx_sy_itab_line_not_found.
      WRITE :/ 'Data not found!'.
  ENDTRY.

SAP ABAP - Extract Number From String

REPORT yextract_number.

DATA number(10) VALUE '0123456789'.

DATA string_val TYPE char100.

WRITE :/ 'First Option ========================'.

string_val = '  SHIPMENT 335'.

WRITE :/ 'Before', string_val.

REPLACE ALL OCCURENCES OF REGEX '[^\d]' IN string_val WITH space.

CONDENSE string_val NO-GAPS.

WRITE :/ 'After', string_val.

WRITE :/ 'First Option ========================'.

WRITE :/ '##########################################'.

DATA : lv_string TYPE string.

DATA : lv_num TYPE string.

lv_string = 'A1313.33BBC'.

lv_num = lv_string.

WRITE :/ 'Second Option ========================'.

WRITE :/ 'Before', lv_string.

REPLACE ALL OCCURRENCES OF REGEX '([[:alpha:]])' IN lv_num WITH ''.

WRITE :/ 'After', lv_num.

WRITE :/ 'Second Option ========================'.

SAP Transaction Code S_ALR_87013645 Language Screen is Germany

 

1. Open Transaction Code GR53 and fill Report Group 1KMA

2. Run Generate

Try open S_ALR_87013645 again and here the result