Code for change documents in ABAP using Changedocument function module

Scenario: Need report for change documents for Purchase order for given period.

Solution: Use standard SAP function module and pass the proper object class to the function module."CHANGEDOCUMENT_READ_HEADERS" and "CHANGE_DOCUMENT_READ_POSITIONS"
For Purchase orders use class as 'EINKBELEG' for other documents the object class need to change. Check the code below.

select-options: S_chgdt  for ekpo-aedat obligatory.             

 SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } data: v_fromdt like CDHDR-UDATE,
      v_todate like CDHDR-UDATE.

data: it_cdhdr like standard table of cdhdr,
      wa_cdhdr like cdhdr,
      it_editpos like standard table of cdshw,
      wa_editpos like cdshw,
      it_editpos1 like standard table of cdshw,
      wa_editpos1 like cdshw.

v_fromdt = s_chgdt-low.
v_todate = s_chgdt-high.


CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
  EXPORTING
*   ARCHIVE_HANDLE                   = 0
    DATE_OF_CHANGE                   = v_fromdt
    objectclass                      = 'EINKBELEG'
*   OBJECTID                         = ' '
*   TIME_OF_CHANGE                   = '000000'
*   USERNAME                         = SY-UNAME
*   LOCAL_TIME                       = ' '
*   TIME_ZONE                        = 'UTC'
    DATE_UNTIL                       = v_todate
*   TIME_UNTIL                       = '235959'
*   NOPLUS_ASWILDCARD_INOBJID        = ' '
*   READ_CHANGEDOCU                  = ' '
  tables
    i_cdhdr                          = it_cdhdr
* EXCEPTIONS
*   NO_POSITION_FOUND                = 1
*   WRONG_ACCESS_TO_ARCHIVE          = 2
*   TIME_ZONE_CONVERSION_ERROR       = 3
*   OTHERS                           = 4
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

if it_cdhdr[] is not initial.

loop at it_cdhdr into wa_cdhdr.

CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
  EXPORTING
*   ARCHIVE_HANDLE                = 0
    changenumber                  = wa_cdhdr-CHANGENR
*   TABLEKEY                      = ' '
*   TABLENAME                     = ' '
*   TABLEKEY254                   = ' '
*   KEYGUID                       = ' '
*   KEYGUID_STR                   = ' '
* IMPORTING
*   HEADER                        =
*   ET_CDRED_STR                  =
  TABLES
    EDITPOS                       = it_editpos
*   EDITPOS_WITH_HEADER           =
* EXCEPTIONS
*   NO_POSITION_FOUND             = 1
*   WRONG_ACCESS_TO_ARCHIVE       = 2
*   OTHERS                        = 3
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

loop at it_editpos into wa_editpos.
  append wa_editpos to it_editpos1.
  clear wa_editpos.
endloop.

clear it_editpos[].
clear wa_cdhdr.
endloop.
endif.

Write: /1(30)'Table Name', 31(30)'Tabble filed name', 61(15)'Old Value', 76(15)'New value',91(10)'Doc Num',101(10)'Litem',111(10)'Change Type' .
loop at it_editpos1 into wa_editpos1.
  write: /1(30) wa_editpos1-TABNAME, 31(30) wa_editpos1-FNAME, 61(15) wa_editpos1-F_OLD+0(15), 76(15) wa_editpos1-f_new+0(15),
            91(10) wa_editpos1-tabkey+3(10), 101(10) wa_editpos1-tabkey+13(5), 111(10) wa_editpos1-chngind.
endloop.

Comments

Post a Comment

Popular posts from this blog

Add additional fields in VA05 report

Example: Add RAN number in VA05 report Adding fields in Selection screen:  Use enhancement spot in program "SD_SALES_DOCUMENT_VIEW". enhancement - point sd_sales_document_view_ep_int1  spots  es_sd_sales_document_view  . *$*$-Start: SD_SALES_DOCUMENT_VIEW_EP_INT1---------------$*$* ENHANCEMENT  1   ZENH .     "active version selection-screen  begin  of  block  sch1  with  frame  title  text - SCH . select-options :   skannr  for  vbap - kannr . selection-screen  end  of  block  sch1 . ENDENHANCEMENT . Selection parameter into select list    enhancement - point sd_sales_document_view_ep_int2  spots  es_sd_sales_document_view  . *$*$-Start: SD_SALES_DOCUMENT_VIEW_EP_INT2--------------$*$* ENHANCEMENT  2   ZENH .     "active version *INSERT LINES OF skannr INTO TABLE gs_selcrit-kannr.   transfer_select_option  'VBAP'  'KANNR'  SKANNR . ENDENHANCEMENT . Adding field in the output list.  Implement BADI: "BADI_SDOC_WRAPPER" Use method "ADAPT
Read more

Totals table for ACDOCA in S/4 HANA - ACDOCT

In old classical legder SAP provided GLT0 table for totals. In new GL SAP provided FAGLFLEXT table for totals. In S/4 HANA SAP has provided ACDOCT view for totals. (ACDOCT_BCK is a table). ACDOCT is a CDS view not a table. This view will be useful to find out totals per period and with some standard fields. This can be used in Report writer/painter also. But in S/4 Hana SAP not suggesting to use Report Writer/Painter tool. Most of the times SAP customers enhance Accounting document with custom fields. So custom fields can be added into ACDOCA table but it will not added to ACDOCT (Since it is view). what if customer needs total values including custom fields what to do then ? For this purpose either extend ACDOCT view or write sum logic using ACDOCA table. Writing logic with ACDOCA in each program means need to repeat same code many programs and also it is not code-pushdown approach. So better solution is either extend ACDOCT CDS view or create custom CDS view like ACDOCT.
Read more

FAGLL03 / FBL1N / FBL3N / FBL5N not showing custom fields

For T-code: FBL1N/FBL3N/FBL5N Execute the report RFPOSXEXTEND with T-code: SE38 in your system. Table T021S and structure RFPOSXEXT are able to synchronize. For T-code: FAGLL03Call T-code: SE37, enter the function module ITEM_STRUC_EXTENSION and execute it with the following parameters: BASIC_STRUCNAME FAGLPOSY EXT_STRUCNAME FAGLPOSYEXT EXT_FIELDS_TABNAME T021S I_LSTCL D X_TRANSPORT ' ' After you have executed the function module, the related structure FAGLPOSYEXT should be regenerated correctly. In addition, start the BALVBUFDEL report when you enhance the special fields
Read more