Skip to Content
0
Former Member
Jul 11, 2008 at 07:55 AM

When I enter some value in TBM Generator, everything is disabled.

101 Views

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