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

*&---------------------------------------------------------------------*
*& Include ZXV56U34 *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(IS_VTTK) LIKE VTTKVB STRUCTURE VTTKVB
*" VALUE(IS_VTTS) LIKE VTTSVB STRUCTURE VTTSVB OPTIONAL
*" VALUE(I_IN_TABLE_CONTROL) TYPE C DEFAULT ' '
*" VALUE(I_ONLY_DISPLAY) TYPE C DEFAULT ' '
*" EXPORTING
*" VALUE(E_SCREEN_MODIFIED) TYPE C
*" CHANGING
*" REFERENCE(C_SCREEN) TYPE CXTAB_COLUMN-SCREEN
*"----------------------------------------------------------------------

*** when MRP, planning loading date must be input
IF IS_VTTK-DTDIS is not initial.
IF C_SCREEN-NAME = 'VTTK-DPLBG'.
C_SCREEN-REQUIRED = 1.
e_screen_modified = 'X'.
ENDIF.
ENDIF.

**** Loading date must not in the past
*IF IS_VTTK-DPLBG is not initial and IS_VTTK-DPLBG < sy-datum.
* set cursor field IS_VTTK-UPLBG.
* Message id 'VW' type 'W' number '001' with
* 'Loading date is in the past'.
*ENDIF.

*** when MRP, planning loading time must be input
IF IS_VTTK-DPLBG is not initial and IS_VTTK-UPLBG = 0.
set cursor field IS_VTTK-UPLBG.
Message id 'VW' type 'W' number '001' with
'Masukkan TIME untuk Planned Loading Start'.

ENDIF.

*** when loading start, tractor must be input
IF IS_VTTK-DALBG is not initial and IS_VTTK-SHTYP = 'Z001'.
IF C_SCREEN-NAME = 'VTTK-/BEV1/RPMOWA'.
C_SCREEN-REQUIRED = 1.
e_screen_modified = 'X'.
ENDIF.
ENDIF.