data: gt_t16fs type standard table of t16fs, "批准策略
"定義採購訂單對應的審批資訊
begin of gt_ekko occurs 0,
ebeln like ekko-ebeln, "採購訂單編號
frggr like ekko-frggr, "審批組
frgsx like ekko-frgsx, "審批策略
frgzu like ekko-frgzu, "版本狀態
bsart like ekko-bsart, "採購憑證型別
ekorg like ekko-ekorg, "採購組織
end of gt_ekko.
———————————————————————-
where ebeln = l_ebeln.
"根據審批組取對應批准策略
select *
into table gt_t16fs
from t16fs
for all entries in gt_ekko
where frggr = gt_ekko-frggr "審批組
and frgsx = gt_ekko-frgsx. "審批策略*& form process_po
&———————————————————————
———————————————————————-
———————————————————————-
field-symbols: type t16fs-frgc1. "當前審批組值
clear: l_level,
l_last_char,
l_fieldname.
read table gt_ekko assigning with key ebeln = w_poheader-po_number.
if sy-subrc eq 0 and -frgzu is not initial.
"根據採購訂單的審批組、審批策略取對應的審批組
read table gt_t16fs assigning with key frggr = -frggr
frgsx = -frgsx.
"組成欄位名
concatenate l_pre_field '1' into l_fieldname.
"通過指標獲取批准**
assign component l_fieldname of structure to .
endif.
"批准採購訂單，由前往後逐級審批
do l_level times.
l_last_char = sy-index.
concatenate l_pre_field l_last_char into l_fieldname.
assign component l_fieldname of structure to .
enddo.
endif.
endform. "process_po
&———————————————————————
———————————————————————-
———————————————————————-
if sy-subrc eq 0.
wait up to 1 seconds.
endif.
**：
採購訂單審批與採購申請審批
1 採購申請可以有專案審批，採購訂單只有抬頭審批。意義 申請可能只同意部分行 申請可以同意部分數量，這個在申請轉訂單時實現。2 無分類審批，只能做抬頭審批，並且只有帳戶類別，物料組，工廠，值4個選項，一般不使用。3 分類審批，總體分為兩大塊。第一塊 批准 發布標識是基礎材料 特性，分類也是基礎材料 ...
採購審批專題總結 bob
一採購審批設定的一般步驟 前置步驟 定義安全性控制 n po 設定 採購 單據型別 使用審批結構 n po 設定 組織 財務選項 安全層次結構選擇 n po 設定 組織 採購選項 採購期間控制 n po 設定 財務系統 會計 控制採購期間 正式步驟 step1 錄入員工資訊 n hr 人員 輸入和維...
採購審批專題總結 bob
一採購審批設定的一般步驟 前置步驟 定義安全性控制 n po 設定 採購 單據型別 使用審批結構 n po 設定 組織 財務選項 安全層次結構選擇 n po 設定 組織 採購選項 採購期間控制 n po 設定 財務系統 會計 控制採購期間 正式步驟 step1 錄入員工資訊 n hr 人員 輸入和維...