Dear Gurus,
I am trying to change the indicator "Final delivery" in a process order .
I am trying to do it with a BAPI .
I can't do it ...
And the funny is that the system say that the Order was saved !!!!
Look my code ...
**&---------------------------------------------------------------------*
*& Report YDP_METAL_BOOK_CHECK_V13
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT YDP_METAL_BOOK_CHECK_V10.
TABLES : AFKO , AFPO .
DATA BEGIN OF AAA OCCURS 0.
INCLUDE STRUCTURE BAPI_ORDER_HEADER1.
DATA END OF AAA.
DATA BEGIN OF BBB OCCURS 0.
INCLUDE STRUCTURE BAPI_ORDER_ITEM.
DATA END OF BBB.
DATA BEGIN OF CCC OCCURS 0.
INCLUDE STRUCTURE BAPI_PI_ORDER_OBJECTS.
DATA END OF CCC.
DATA BEGIN OF DDD OCCURS 0.
INCLUDE STRUCTURE BAPI2017_GM_ITEM_CREATE.
DATA END OF DDD.
DATA BEGIN OF MMM OCCURS 0.
INCLUDE STRUCTURE BAPI_ORDER_PHASE.
DATA END OF MMM.
DATA BEGIN OF NNN OCCURS 0.
INCLUDE STRUCTURE BAPI_ORDER_TRIGGER_POINT.
DATA END OF NNN.
DATA BEGIN OF LOCK OCCURS 0.
INCLUDE STRUCTURE BAPI_CORU_PARAM.
DATA END OF LOCK.
DATA BEGIN OF EEE OCCURS 0.
INCLUDE STRUCTURE BAPI_PI_TIMETICKET1.
DATA END OF EEE.
DATA BEGIN OF DETAILS OCCURS 0.
INCLUDE STRUCTURE BAPI_CORU_RETURN.
DATA END OF DETAILS.
DATA BEGIN OF LLL OCCURS 0.
INCLUDE STRUCTURE BAPI_ORDER_STATUS.
DATA END OF LLL.
START-OF-SELECTION.
CLEAR AFKO.
SELECT SINGLE * FROM AFKO WHERE AUFNR = '000039085004'.
IF SY-SUBRC = 0.
CCC-HEADER = 'X'.
CCC-POSITIONS = 'X'.
APPEND CCC.
CALL FUNCTION 'BAPI_PROCORD_GET_DETAIL'
EXPORTING
NUMBER = AFKO-AUFNR
COLLECTIVE_ORDER = 'X'
ORDER_OBJECTS = CCC
* IMPORTING
* RETURN =
TABLES
HEADER = AAA
POSITION = BBB
* SEQUENCE =
PHASE = MMM
TRIGGER_POINT = NNN
* COMPONENT =
* PROD_REL_TOOL =
.
EEE-ORDERID = AFKO-AUFNR.
EEE-PHASE = '0500'.
DDD-NO_MORE_GR = 'X'.
APPEND EEE.
APPEND DDD.
CALL FUNCTION 'BAPI_PROCORDCONF_CREATE_TT'
EXPORTING
POST_WRONG_ENTRIES = '0' "LOCK " '0'
* TESTRUN =
* IMPORTING
* RETURN =
TABLES
TIMETICKETS = EEE
GOODSMOVEMENTS = DDD
* LINK_CONF_GOODSMOV =
DETAIL_RETURN = DETAILS .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
.
ENDIF.
END-OF-SELECTION.