Hello,
Very Good Afternoon!
I had created a Table Maintenance generator for a Z-table with a field : MANDT and PSTYV.
When I enter an invalid entry it is throwing an error message perfectly. But, when I try to remove that entry from the table it is not letting me to do that. All the functions are getting disabled.
This is the logic that I had written in the validation:
MODULE ZORD_ITM_VALIDATE INPUT.
DATA : L_PSTYV TYPE PSTYV,
L_MSG TYPE STRING.
IF ZORD_TYPE-PSTYV IS INITIAL.
CLEAR L_MSG.
MESSAGE 'Enter item category Type' TYPE 'E'.
ELSEIF NOT ZORD_TYPE-PSTYV IS initial.
SELECT SINGLE PSTYV FROM VBAP INTO L_PSTYV
WHERE PSTYV = ZORD_TYPE-PSTYV.
IF SY-SUBRC <> 0.
CLEAR L_MSG.
CONCATENATE 'Item category' ZORD_TYPE-PSTYV 'does not exist in VBAP(Check entry)' INTO L_MSG
SEPARATED BY SPACE.
MESSAGE L_MSG type 'E'.
ENDIF.
ENDIF.
These are the modules generated :
PROCESS BEFORE OUTPUT.
MODULE LISTE_INITIALISIEREN.
LOOP AT EXTRACT WITH CONTROL
TCTRL_ZORD_TYPE CURSOR NEXTLINE.
MODULE LISTE_SHOW_LISTE.
ENDLOOP.
*
PROCESS AFTER INPUT.
MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.
MODULE LISTE_BEFORE_LOOP.
LOOP AT EXTRACT.
MODULE LISTE_INIT_WORKAREA.
CHAIN.
FIELD ZORD_TYPE-PSTYV .
MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.
ENDCHAIN.
FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.
CHAIN.
FIELD ZORD_TYPE-PSTYV .
****Added By developer.
MODULE ZORD_ITM_VALIDATE. ->"I had written my code in this module.
****
MODULE LISTE_UPDATE_LISTE.
ENDCHAIN.
ENDLOOP.
MODULE LISTE_AFTER_LOOP.
********************
Any suggestions would be appreciated............
Regards
Kittu