Hello all,
I created a table maintenance generator for a custom table. Then I created an event that is executed when the data is saved. A form that is executed when the event is reached is currently displaying an error message. The code currently rejects all of the entries if any one of them fails the validation test. How can I preserve the entries that passed the validation and just flag the entries that are in error, allowing them to be reprocessed?
The form is executed at step 01, before saving the data in the database.
Here is the code in the form.
form 01_b4_save.
*
data: f_index like sy-tabix.
data: begin of l_total.
include structure zrepo_val.
include structure vimtbflags.
data end of l_total.
*
data: s_record type zrepo_val.
*
loop at total into l_total.
if l_total-vim_action = aendern " Change
or
l_total-vim_action = neuer_eintrag. " New entry
*
move-corresponding l_total to s_record.
if s_record-hkont = '0001406374'.
message e000(zf) with
'GL 0001406374 is forbidden'.
endif.
read table extract with key l_total.
if sy-subrc eq 0.
f_index = sy-tabix.
else.
clear f_index.
endif.
move-corresponding s_record to l_total.
modify total from l_total.
check f_index gt 0.
modify extract index f_index from l_total.
endif.
endloop.
*
endform.
Thanks
Bruce
Bluesky
