screen painter i - 仿发票制作.docVIP

T-Code：Se51 一般程式建立好只會有畫面1000，所以100~300皆為另外建立 首先先建立一個自己的畫面100，左邊是參考的發票【流程邏輯】，右邊則是我們自己建立的 裡面的每個物件都可以double click，都有一些程式碼 1.2基本的2個模組：PBO和PAI 當我們在?MODULE?STATUS_0100和MODULE?USER_COMMAND_0100.雙擊時，分別出現以下提示訊息 網路上的資料中也有特別提及PBO及PAI模組 另外在發票套印的程式碼中也可看見以下程式碼 所以這2個模組是必要且基本的，如果我們試著照他的提示建立則會是以下的Program Name PBO：ZRDANI504_STATUS_0100O01 PAI：ZRDANI504_USER_COMMAND_0100I01 複製成和發票一樣的名稱方便比對 PBO：ZRDANI504PBO PAI：ZRDANI504PAI 這時我們原本的程式ZRDANI504則會多出以下2個INCLUDE的程式碼一樣修改一下 INCLUDE?ZRDAN504PBO.(ZRDANI504_STATUS_0100O01.)INCLUDE?ZRDANI504PAI.(ZRDANI504_USER_COMMAND_0100I01.) 接下來的在發票的【流程邏輯】中PBO有段迴圈 ??LOOP?AT?IT_LIST?WITH?CONTROL?CONTROL_100?CURSOR?CONTROL_100-CURRENT_LINE.????... ??ENDLOOP. 這個IT_LIST就是我們GRID的欄位資料，所以我們一樣建一個TABLE加入要顯示的欄位，並在程式碼中將符合條件的資料APPEND到IT_LIST中(以下為測試簡易程式碼)： ????LOOP?AT?t_likp??INTO?w_likp.????????MOVE-CORRESPONDING?w_likp?TO?IT_LIST.????????APPEND?IT_LIST.????ENDLOOP. 再來可以看到發票套印在依畫面條件處理完後程式碼 ??IF?IT_LIST[]?IS?NOT?INITIAL.????CALL?SCREEN?100. 就會進入Screen painter的【流程邏輯】頁籤，我們也在程式中加入此段程式碼 接著就針對SCREEN PAINTER中畫面及程式的做修改 1、在【流程邏輯】PBO ??MODULE?STATUS_0100.*??MODULE?CHANGE_ATTR. 尚未得知影響點??LOOP?AT?IT_LIST?WITH?CONTROL?CONTROL_100?CURSOR?????????????????????CONTROL_100-CURRENT_LINE.*????????MODULE?MODIFY_SCREEN_0100. 發票處理，暫不加入 *????????MODULE?CONTROL_100_GET_LINES.尚未得知影響點????????MODULE?CONTROL_100_MOVE. 將IT_LIST的資料搬到ZSDM01，資料才會顯示，且影響全選、全不選*????????MODULE?SET_CURSOR.尚未得知影響點??ENDLOOP. --------------------------------------------------------------------------------------------- MODULE?STATUS_0100?OUTPUT.??SET?PF-STATUS?STANDARD.??SET?TITLEBAR?100.ENDMODULE.???????? Double clickSTANDARD.設定顯示的圖示與按鈕。 MODULE?CONTROL_100_MOVE?OUTPUT.??MOVE-CORRESPONDING?IT_LIST?TO?ZFIT004.??IF?IT_LIST-MARK?=?X.????MARK?=?X.??ENDIF.ENDMODULE.??????????????????CONTROL_100_MOVE??OUTPUT 畫面製作 一開始什麼都沒有，先建立一個表格GRID 再拉入一個INPUT/OUTPUT Field到GRID上，並設定其參數如下圖 接著再將Text Field拉到欄位顯示表頭，並設定欄位及顯示的說明格式 重覆以上步驟完成第2、3個欄位 2、在【流程邏輯】PAI *??MODULE?EXIT_0100?AT?EXIT-COMMAND.清除另1個IT TABLE，測試程式目前不需要??LO