2007-03-07

SAP:利用 FIELD-SYMBOLS 的技巧 <例>

"加總指定月份某個會計科目的金額


data: s_fieldname(15) type c. "欄位
data: nTTL type p decimals 3. "加總
data: i(2) type n. "臨時變數
data: nMonth(2) type N. "暫存月
FIELD-SYMBOLS <fs&gl TYPE P.

select * from glpct where
    RLDNR = '8A' AND "分類帳
    RRCTY = '0' AND "記錄類型
    RVERS = '000' AND "版本
    RYEAR = 2006 AND "會計年度
    RPMAX = 16 AND "期間
    RBUKRS = 'TSMC' AND "公司代碼
    KOKRS = 'TW' AND "成本控制範圍
    RPRCTR = 'P1' AND "利潤中心
    RACCT = '1241050000'.
    nTTL = glpct-hslvt.
    i = 1.
    do 12 times.
      CONCATENATE 'GLPCT-HSL' i INTO s_fieldname.
      ASSIGN (s_fieldname) TO <fs&gl . "動態給欄位
      nTTL = nTTL + <fs&gl .
      i = i + 1.
      if i > nMonth .
        exit.
      endif.
    enddo.
endselect.

沒有留言: