控制畫面欄位是否可作為查詢或是可編輯修改的寫法
1. 查詢 => 開放可作為查詢的欄位 => FUNCTION ixxx_b_askkey()
2. 修改 => 關閉不可修改的欄位 => ixxx_b() => INPUT ARRAY => BEFORE ROW =>
IF g_rec_b>=l_ac THEN => LET p_cmd='u' => CALL ixxx_set_no_entry(p_cmd)
FUNCTION ixxx_set_no_entry(p_cmd)
DEFINE p_cmd LIKE type_file.chr1
IF p_cmd = 'u' THEN
CALL cl_set_comp_entry("feb02,ta_feb001,ta_feb002,ta_feb003,ta_feb004",FALSE)
END IF
END FUNCTION
文章標籤
全站熱搜
