All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV56F

*&---------------------------------------------------------------------*
*& Include ZXV56U35 *
*&---------------------------------------------------------------------**"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_STATUS) LIKE VTTK-STTRG
*" VALUE(I_NEW_STATUS_DATE) LIKE VTTK-DTABF OPTIONAL
*" VALUE(I_NEW_STATUS_TIME) LIKE VTTK-UZABF OPTIONAL
*" VALUE(I_TVTK) LIKE TVTK STRUCTURE TVTK
*" VALUE(OPT_DIALOG) LIKE RV56A-SELKZ
*" TABLES
*" C_XVTTP STRUCTURE VTTPVB
*" C_YVTTP STRUCTURE VTTPVB
*" C_XVTTS STRUCTURE VTTSVB
*" C_YVTTS STRUCTURE VTTSVB
*" C_XVTSP STRUCTURE VTSPVB
*" C_YVTSP STRUCTURE VTSPVB
*" C_XVBPA STRUCTURE VBPAVB
*" C_YVBPA STRUCTURE VBPAVB
*" C_XVBADR STRUCTURE SADRVB
*" I_XTRLK STRUCTURE VTRLK
*" I_XTRLP STRUCTURE VTRLP
*" CHANGING
*" VALUE(C_XVTTK) LIKE VTTKVB STRUCTURE VTTKVB
*" EXCEPTIONS
*" ERROR
*"----------------------------------------------------------------------
IF I_STATUS ne C_XVTTK-STTRG.
IF I_STATUS = '6' and C_XVTTK-STTRG ne '5'.
MESSAGE E001(VW) WITH 'Pencet Shipment Complete dulu baru Shipment Start'.
ENDIF.
IF I_STATUS = '7' and C_XVTTK-STTRG ne '6'.
MESSAGE E001(VW) WITH 'Pencet Shipment Start dulu baru Shipment End'.
ENDIF.
ENDIF.