2009年10月20日 星期二

VA03 Enhancement Addon Field

想在VA01 VA02 VA03的畫面上加入一個欄位

這時先在TABLE VBAK APPEND一個新的結構

取得Object Key才能接下以下的動作
首先要找到的事情就是「User-Exit」
知道後才能再向下修改....

於前面的文章都已記錄過如何建立Table與Layout畫面了(不重覆介紹)


接下來要在Enhancement的Screen中作Layout 增加新欄位

取得Screen在裏面加入例如 ( Sales Document Header User Exit Header )

生成的程式 於PROCESS BEFORE OUTPUT.作MODULE編寫


程式中需要作控制VA01 VA02是Input模式

VA03則是Display模式

case vbak-vbtyp.
when 'C' or 'I' or 'G'.
CASE t180-trtyp.
WHEN 'H' or 'V'. "Create or Change mode
Loop at screen.
If screen-group1 = 'GP1'.
Screen-input = 1.
Modify screen.
else.
Screen-active = 0.
Modify screen.
Endif.
Endloop.

WHEN 'A'. " Display mode
Loop at screen.
If screen-group1 = 'GP1'.
Screen-input = 0.
Modify screen.
else.
Screen-active = 0.
Modify screen.
ENDIF.
ENDLOOP.
ENDCASE.

when others.
Loop at screen.
If Screen-group1 = 'GP1'.
Screen-active = 0.
Modify screen.
ENDIF.
ENDLOOP.

ENdcase.