Table maintenance events

Former Member — Fri, 02 Nov 2007 01:54:07 GMT

my req is 2 fields in z table & have to validate.

i have done in 01 and 05 events.but after error msg when entry is incorrect it is not directly showing table control instead of that first its showin error msg and if i enter then its showing table control and also i'm loosing the values what i enter..and some time code is not working if i enter wrong values..basically when i create entry without saving if i change it , the values are not refelecting inside code... any ideas.i have pasted my code

FORM new_entry.

DATA lw_datbi TYPE datbi.

SELECT SINGLE datbi

FROM cepc

INTO lw_datbi

WHERE prctr = zprctr-zoldprctr

AND kokrs = ‘RTKA’.

IF sy-subrc = 0.

IF lw_datbi < sy-datum.

MESSAGE 'OLD PROFIT CENTER IS OBSOLETE' TYPE 'E'.

ENDIF.

ELSE.

MESSAGE 'OLD PROFIT CENTER NOT VALID' TYPE 'E'.

sy-subrc = 8.

EXIT.

ENDIF.

CLEAR lw_datbi.

SELECT SINGLE datbi

FROM cepc

INTO lw_datbi

WHERE prctr = zprctr-znewprctr

AND kokrs = ‘RTKA’.

IF sy-subrc = 0.

IF lw_datbi < sy-datum.

MESSAGE 'NEW PROFIT CENTER IS OBSOLETE' TYPE 'E'.

ENDIF.

ELSE.

To make table control editable.

LOOP AT SCREEN.

screen-input = 1.

MODIFY SCREEN.

ENDLOOP.

MESSAGE 'NEW PROFIT CENTER NOT VALID' TYPE 'E'.

sy-subrc = 8.

EXIT.

ENDIF.

ENDFORM. "NEW_ENTRY

&----

*& Form BEFORE_SAVE

&----

text

----

FORM before_save.

LOOP AT extract.

IF extract+23(1) = 'U'.

DATA lw_datbi TYPE datbi.

SELECT SINGLE datbi

FROM cepc

INTO lw_datbi

WHERE prctr = zprctr-zoldprctr

AND kokrs = ‘RTKA’.

IF sy-subrc = 0.

IF lw_datbi < sy-datum.

MESSAGE 'OLD PROFIT CENTER IS OBSOLETE' TYPE 'E'.

ENDIF.

ELSE.

MESSAGE 'OLD PROFIT CENTER NOT VALID' TYPE 'E'.

sy-subrc = 8.

EXIT.

ENDIF.

CLEAR lw_datbi.

SELECT SINGLE datbi

FROM cepc

INTO lw_datbi

WHERE prctr = extract+13(10)

AND kokrs = ‘RTKA’.

IF sy-subrc = 0.

IF lw_datbi < sy-datum.

MESSAGE 'NEW PROFIT CENTER IS OBSOLETE' TYPE 'E'.

ENDIF.

ELSE.

To make table control editable.
LOOP AT SCREEN.
screen-input = 1.
MODIFY SCREEN.
ENDLOOP.

MESSAGE 'NEW PROFIT CENTER NOT VALID' TYPE 'E'.

sy-subrc = 4.
EXIT.

ENDIF.

total3(10) = extract3(10).

total13(10) = extract13(10).

MODIFY total FROM total INDEX sy-tabix.

ENDIF.

ENDLOOP.

ENDFORM. "BEFORE_SAVE

Re: Table maintenance events

Former Member — Fri, 02 Nov 2007 09:19:21 GMT

Any body can help me?

topic Table maintenance events in Application Development and Automation Discussions

Table maintenance events

Re: Table maintenance events