Update target and change status for released transports.

Use below program to updated status from released to modifiable and the target system.

*&---------------------------------------------------------------------*
*& Report ZTRANPORT_UPDATE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTRANPORT_UPDATE.

  TABLES: e070, e070c,e07t.
  DATA: ls_e070  LIKE e070,
        ls_e070c LIKE e070c,
        ls_e07t  LIKE e07t.
  DATA: lv_msgtext1 LIKE sy-msgv3,
        lv_msgtext2 LIKE sy-msgv3,
        lv_msgtext3 LIKE sy-msgv3.

  CLEAR ls_e070.
  CLEAR ls_e070c.
  CLEAR ls_e07t.

  SELECT-OPTIONS: P_trkorr for e070-trkorr.
  PARAMETERS: p_trsys.

*  MOVE-CORRESPONDING ko020 TO ls_e070.

loop at p_trkorr.

  select SINGLE * INTO ls_e070
         FROM e070
         WHERE trkorr = p_trkorr-low.

    ls_e070-TRSTATUS = 'D'.
    ls_e070-TARSYSTEM = p_trsys.

  SELECT SINGLE * INTO ls_e070c "read additional fields - note 2231381
         FROM e070c
         WHERE trkorr = P_trkorr-low.
*  MOVE-CORRESPONDING ko020 TO ls_e070c.
* Note 2744888 - Only for transport collections: If the status (-> TRSTATUS) is
* changed, then the extended state (-> EXTENDED_STATE) needs to be adjusted as
* well ...

* If the status is 'D - Modifiable' and the extended state is 'F - Finalized',
* then switch/set the extended state to 'O - Open'
  IF ls_e070-trstatus = 'D' AND ls_e070c-extended_state = 'F'.
    ls_e070c-extended_state = 'O'.
* If the status is 'R - Released' and the extended state is not 'F - Finalized'
* and it's a transport collection (-> extended_state <> space), then switch/set
* the extended state to 'F - Finalized'
  ELSEIF ls_e070-trstatus = 'R' AND ls_e070c-extended_state <> 'F' AND ls_e070c-extended_state <> space.
    ls_e070c-extended_state = 'F'.
  ENDIF.
*  MOVE-CORRESPONDING ko020 TO ls_e07t.
  SELECT SINGLE * INTO ls_e07t "read additional fields - note 2231381
         FROM e07t
         WHERE trkorr = P_trkorr-low.
  ls_e07t-langu = sy-langu.


  CALL FUNCTION 'TRINT_UPDATE_COMM_HEADER'
       EXPORTING
            wi_e070            = ls_e070
            wi_e07t            = ls_e07t
            wi_save_user       = ' '
            wi_sel_e070        = 'X'
            wi_sel_e07t        = 'X'
            wi_user            = sy-uname
            wi_e070c           = ls_e070c
            wi_sel_e070c       = 'X'
       IMPORTING
            we_e070            = ls_e070
            we_e070c           = ls_e070c
       EXCEPTIONS
            e070_update_error  = 01
            e07t_update_error  = 02
            e070c_update_error = 03.

  IF sy-subrc <> 0.
*    CALL FUNCTION 'DEQUEUE_E_TRKORR'
*         EXPORTING
*              trkorr = ls_e070-trkorr.
*    MESSAGE a040(tk)  WITH ls_e070-trkorr
*            RAISING update_failed.
  ENDIF.

  lv_msgtext1 = ls_e070-trkorr.
  lv_msgtext2 = sy-uname.
  lv_msgtext3 = ' '.

  CALL FUNCTION 'TRINT_APPEND_COMM_SYSLOG_ENTRY'
       EXPORTING
            wi_msgid          = 'TR'
            wi_msgno          = '018'
            wi_msgv2          = lv_msgtext1
            wi_msgv3          = lv_msgtext2
            wi_msgv4          = lv_msgtext3
            wi_new_order      = ' '
            wi_trfunction     = ls_e070-trfunction
            wi_trkorr         = ls_e070-trkorr.


  write: ls_e070-trkorr.
*  MESSAGE s666(tk).

  endloop.

*  MOVE-CORRESPONDING ls_e070 TO ko020.
*  MOVE-CORRESPONDING ls_e070c TO ko020.
*  MOVE ls_e07t-as4text TO ko020-as4text.
*
*  gs_ko020save = ko020.

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 skan...
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