Modify screen in Module Pool
to modify screen in module pool
loop.
module set_screen_0200.
endloop.
*
module Set_screen_0200 output.
* break dkhansen.
add 1 to g_index.
loop at screen.
case screen-name.
when 'GI_WORK_LIKP-EAN_UPC'.
if not GI_WORK_LIKP-EAN_UPC is initial.
screen-input = '0'.
endif.
endcase.
*
read table gi_work_likp index g_index.
modify screen.
endloop.
endmodule.
loop.
module set_screen_0200.
endloop.
*
module Set_screen_0200 output.
* break dkhansen.
add 1 to g_index.
loop at screen.
case screen-name.
when 'GI_WORK_LIKP-EAN_UPC'.
if not GI_WORK_LIKP-EAN_UPC is initial.
screen-input = '0'.
endif.
endcase.
*
read table gi_work_likp index g_index.
modify screen.
endloop.
endmodule.
Comments
Post a Comment