Hello,
I try to update the planning shipment end date with a bapi BAPI_SHIPMENT_CHANGE, but it doesn't work.
I attach the code:
TABLES: VTTK.
DATA: T_HEADERDATA LIKE BAPISHIPMENTHEADER.
DATA: T_HEADERDATAACTION LIKE BAPISHIPMENTHEADERACTION.
DATA: T_HEADERDEADLINE TYPE STANDARD TABLE OF BAPISHIPMENTHEADERDEADLINE WITH HEADER LINE.
DATA: T_HEADERDEADLINEACTION TYPE STANDARD TABLE OF BAPISHIPMENTHEADERDEADLINEACT WITH HEADER LINE.
DATA: T_RETURN like BAPIRET2 occurs 0 with header line.
DATA: V_TIME_UTC(16) TYPE C.
DATA: TTYPE(10) VALUE 'HDRSTSEPDT'.
SELECT SINGLE *
FROM VTTK
WHERE TKNUM EQ '0000024967'.
T_HEADERDATA-SHIPMENT_NUM = VTTK-TKNUM.
*T_HEADERDATA-STATUS_SHPMNT_END = 'X'.
T_HEADERDATAACTION-SHIPMENT_NUM = 'X'.
*T_HEADERDATAACTION-STATUS_SHPMNT_END = 'C'.
CONCATENATE SY-DATUM SY-UZEIT INTO V_TIME_UTC.
*T_HEADERDEADLINE-TIME_TYPE = 'HDRSTSEPDT'.
*T_HEADERDEADLINE-TIME_TYPE = 'HDRSTSEADT'.
T_HEADERDEADLINE-TIME_TYPE = TTYPE.
T_HEADERDEADLINE-TIME_STAMP_UTC = V_TIME_UTC.
T_HEADERDEADLINE-TIME_ZONE = SY-TZONE.
APPEND T_HEADERDEADLINE.
T_HEADERDEADLINEACTION-TIME_TYPE = 'C'.
T_HEADERDEADLINEACTION-TIME_STAMP_UTC = 'C'.
T_HEADERDEADLINEACTION-TIME_ZONE = 'C'.
APPEND T_HEADERDEADLINEACTION.
CALL FUNCTION 'BAPI_SHIPMENT_CHANGE'
EXPORTING
HEADERDATA = T_HEADERDATA
HEADERDATAACTION = T_HEADERDATAACTION
TABLES
HEADERDEADLINE = T_HEADERDEADLINE
HEADERDEADLINEACTION = T_HEADERDEADLINEACTION
RETURN = T_RETURN.
BREAK RESINF.
READ TABLE T_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC NE 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.
Someone have any idea about the problem.
Thanks for your help!!!!
XeviG.