Skip to Content
0
Former Member
Oct 13, 2011 at 04:24 PM

Update Planning Shipment End with BAPI_SHIPMENT_CHANGE

926 Views

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.