在bw中进行变量等的增强应用

1、1：在 BW 中，同样可以进行功能增强处理CMOD：2: 选择功能退出的功能函数，如下图：3: 下面是具体的代码：*&*&*&*包括ZXRSRU01*types:begin ofty_ywhzhb,/bic/zncywhzhb type end of ty_ywhzhb./bic/oizncywhzhb,data:w_year like sy-datum(4), w_month like sy-datum(2), w_season like sy-datum(1), w_daike sy-datum, w_date1 like sy-datum, w_day like sy-datum(2),

2、wyear_range like line of i_t_var_range, wgdgs_range like line of i_t_var_range, w_year_month type char6,s_range type rsr_s_rangesid, w_yearmonth type /bi0/oicalmonth,ls_ywhzhb type ty_ywhzhb, ls_query type rsr_s_rkb1d,lt_ywhzhb type standard table of ty_ywhzhb.data: i_year type n,i_month type n.data

3、: l_s_range typels_range like ls_range_otherrsr_s_rangesid, line of e_t_range,like line of i_t_var_range.*添加查询日志 if i_step = 1.tables:/bic/azenccs0900. types:log like /bic/azenccs0900.types: ty_tab_log type log occurs 0 . data: gt_log type ty_tab_log,gw_log type log.gw_log-/bic/zncuserid = sy-uname.

4、 gw_log-calday = sy-datum.gw_log-time = sy-uzeit. gw_log-/bic/zncquerid =ter = 1.select single count(*) from /bic/azenccs0900 where/bic/zncuserid = gw_log-/bic/zncuserid and calday = gw_log-caldayand time = gw_log-time.*AND /bic/zncquerid = gw_log-/bic/zncquerid. if sy-subrc 0.append insert commiten

5、dif.gw_log to gt_log./bic/azenccs0900 from table gt_log. work.clear:gt_log,gw_log. endif.*添加查询日志*case i_vnam.when ZSRLNY. 日 if i_step = 1.月（单值），默认值为系统上月，bychenpeiw_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01. w_year = w_year - 1. w_month = 12.else.w_month = w_month - 1. endif.concate

6、nate w_year w_montho s_range-low.s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month, wyear_range, s_range.when ZSXTDY. 日if i_step = 1.月（系统当月），默认值为系统当月，bychenpeiw_year = sy-datum(4).w_month = sy-datum+4(2).concatenate w_year w_montho s_range-low. s_range-sign =

7、I.s_range-opt = EQ.append s_range to e_t_range. clear: w_yearmonth,s_range.endif.when ZSXTDY1. 日历日（系统当月第一天） by chenpei if i_step = 1.w_yearmonth = sy-datum(6).concatenate w_yearmonth 01o s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_yearmonth, s_range.endif.whe

8、n ZSXTDY2. 清帐日期（系统当月第一天） by chenpei if i_step = 1.w_yearmonth = sy-datum(6).concatenate w_yearmonth 01o s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_yearmonth, s_range.endif.when ZSXTDY3. 清帐日期（系统当前日） by chenpei if i_step = 1.s_range-low = sy-datum.s_range-sign

9、 = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_yearmonth, s_range.endif.when ZSKSRQ. 开始日期（默认当年1月1日），by chenpei if i_step = 1.w_year = sy-datum(4).concatenate w_year 0101o s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_year,s_range.endif.when ZSKSNY

10、. 日if i_step = 1.月（单值），默认值为系统上月，bychenpeiw_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month = endif. concatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.when ZSJSNY. 日 if i_ste

11、p = 1.to e_t_range.w_month, wyear_range, s_range.月（单值），默认值为系统上月，bychenpeiw_month = sy-datum+4(2).w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month = endif. concatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_rang

12、e.clear: w_year, w_month, wyear_range, s_range. endif.when ZORLNYS. 日 if i_step = 1.月（系统当前月），默认值为系统当前月，by chenpeiw_month = sy-datum+4(2). w_year = sy-datum(4).concatenate w_year w_montho s_range-low. s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.when ZSRLNY2. if i_step = 2.to

13、e_t_range.w_month, wyear_range, s_range.日期，取ZSRLNY次月5日, BY CHENPEIread table i_t_var_range w_year = w_yearmonth(4). w_month = w_yearmonth+4(2). if w_month = 12.w_month = 01. w_year = w_year + 1.else.w_month = w_month + 1. endif.o w_yearmonth with key vnam = ZSRLNY.concatenatew_year w_month 05o s_ran

14、ge-low. s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month,w_yearmonth, s_range.when ZSXTDY4. if i_step = 2.日期，取ZSXTDY次月5日, BY CHENPEIread table i_t_var_range w_year = w_yearmonth(4). w_month = w_yearmonth+4(2). if w_month = 12.w_month = 01. w_year = w_year + 1

15、.else.w_month = w_month + 1. endif.o w_yearmonth with key vnam = ZSXTDY.concatenatew_year w_month 05o s_range-low. s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month,w_yearmonth, s_range.when ZSNY2. if i_step = 2.日期，取zsny+1月5日,BY CHENPEIread table i_t_var_range

16、o w_yearmonth with key w_year = w_yearmonth(4).w_month = w_yearmonth+4(2). if w_month = 12.w_month = 01. w_year = w_year + 1.else.w_month = w_month + 1. endif.concatenatew_year w_month 05o s_range-low. s_range-sign = I.s_range-opt = EQ.vnam=ZSNY.append s_range clear: w_year,endif.when ZSNY3. if i_st

17、ep = 2.to e_t_range.w_month,w_yearmonth, s_range.日期，取zsnY+2月5日, BY CHENPEIread table i_t_var_rangeo w_yearmonth with key w_year = w_yearmonth(4).w_month = w_yearmonth+4(2). if w_month = 11.w_month = 01. w_year = w_year + 1.elseif w_month = 12 . w_month = 02.w_year = w_year+1.vnam=ZSNY.else.w_month =

18、 w_month + 2. endif.concatenatew_year w_month 05o s_range-low. s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month,w_yearmonth, s_range.when ZSNY4. if i_step = 2.日期，取zsnY+3月5日,BY CHENPEIread table i_t_var_rangeo w_yearmonth with w_year = w_yearmonth(4).w_month =

19、 w_yearmonth+4(2). if w_month = 10.w_month = 01. w_year = w_year + 1.elseif w_month = 11 . w_month = 02. w_year = w_year+1.elseif w_month = 12. w_month = 03. w_year = w_year+1.else.w_month = w_month + 3. endif.keyvnam=ZSNY.concatenatew_year w_month s_range-sign = I.s_range-opt = EQ.05o s_range-low.a

20、ppend s_range clear: w_year,endif.to e_t_range.w_month,w_yearmonth, s_range.when ZSNY5. if i_step = 2.日期，取zsnY+4月5日,BY CHENPEIread table i_t_var_rangeo w_yearmonth with key w_year = w_yearmonth(4).w_month = w_yearmonth+4(2). if w_month = 09.w_month = 01. w_year = w_year + 1.elseif w_month = 10 . w_m

21、onth = 02.vnam=ZSNY.w_year = w_year+1. elseif w_month = 11.w_month = 03. w_year = w_year+1.elseif w_month = 12. w_month = 04. w_year = w_year+1.else.w_month = w_month + 4. endif.concatenatew_year w_month 05o s_range-low. s_range-sign = I.s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_

22、month,w_yearmonth, s_range. endif.when ZSQZRQYC. if i_step = 2.日期，取ZSRLNY月初, BY CHENPEIread table i_t_var_range w_year = w_yearmonth(4).w_month = w_yearmonth+4(2).o w_yearmonth with key vnam = ZSRLNY.concatenatew_year w_month 01o s_range-low. s_range-sign = I.s_range-opt = EQ.append s_range to e_t_r

23、ange.clear: w_year, w_month,w_yearmonth, s_range. endif.when ZORLNY. 日if i_step = 1.月（选项），默认值为系统上月，byCHENPEIw_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month = endif.concatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.s_range-sign = I. s_range-

24、opt = EQ.append s_range to e_t_range. clear: w_year, w_month, s_range.endif.when ZIRLNY.if i_step = 1.日月，默认值为系统上月 BY chenpeiw_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month = endif. concatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.s_range-h

25、igh = s_range-low. s_range-sign = I.s_range-opt = BT.append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZSNY. if i_step =统计年月默认值为系统上月 BY CHENPEI 1.w_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month = endif.w_year - 1.12.w_mo

26、nth - 1.concatenatew_year CONCATENATEw_year w_montho s_range-low.= 2009.*w_year 01o s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZSNJ. 统计年季默认值为系统上季 BY Wenxing.Jin if i_step = 1.w_year = sy-datum(4).w_month = sy-da

27、tum+4(2).if ( w_month = 01 or w_month = 02 or w_month = 03 ). w_year = w_year - 1.w_season = 4.elseif ( w_month w_season = 1. elseif ( w_month w_season = 2. elseif ( w_month w_season = 3.endif.=04orw_month=05orw_month=06).=07orw_month=08orw_month=09).=10orw_month=11orw_month=12).concatenate w_yearw_

28、seasono s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_month, wyear_range, w_season, s_range. endif.when ZONY. 统计年月（选项），默认值为系统上月 if i_step = 1.w_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.BYCHENPEIw_year = w_month =else.w_month = endif. c

29、oncatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZSRLN1.系统当年，by chenpei if i_step = 1.w_year = sy-datum(4). s_range-low = w_year. s_range-sign = I. s_range-opt = EQ.

30、append s_range to e_t_range. clear: w_year, s_range.endif.when ZIQNLJ2 .if i_step = 2 .read table i_t_var_range if sy-subrc eq 0 .o ls_range_other with key vnam = ZSNY .move ls_range_other-low+0(4) to t_year .t_year = t_yearls_range-sign = ls_range-opt =- 1 . I.BT.concatenate t_year concatenate t_ye

31、ar insert ls_rangeendif .endif .ls_range_other-low+4(2)01o ls_range-low . o table e_t_range .ols_range-high.when ZSNYSY. if i_step = 2.上月（取ZSRLNY上月 BY CHENPEIread table i_t_var_rangeo w_yearmonth with key vnam = ZSRLNY.w_year = w_yearmonth(4). w_month = w_yearmonth+4(2).if w_month = 01.w_year = w_ye

32、ar -1.w_month = else.w_month = endif. concatenates_range-low12.w_month- 1.w_yearw_montho w_yearmonth.= w_yearmonth.s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month, w_yearmonth, s_range.when ZSQZYF2.if i_step = 2.清帐月份，取ZSNY+1年月 BY syread table i_t_var_rangeo

33、w_yearmonthwith key vnam = ZSNY.w_year = w_month =w_month =w_yearmonth(4). w_yearmonth+4(2).w_month + 1.concatenate w_year w_montho w_year_month.call function ZNC_ZH_FI_SRZFCSRQ exportingi_string = w_year_month importinge_date= w_yearmonth. s_range-low = w_yearmonth. s_range-sign = I.s_range-opt = E

34、Q.append s_range clear: w_year,endif.to e_t_range.w_month, w_yearmonth, s_range.when ZSQZYF3.if i_step = 2.清帐月份，取ZSNY+2年月 BY syread table i_t_var_rangeo w_yearmonthwith key vnam = ZSNY.w_year =w_month = w_month =w_yearmonth(4).w_yearmonth+4(2). w_month + 2.concatenate w_year w_montho w_year_month.ca

35、ll function ZNC_ZH_FI_SRZFCSRQ exportingi_string = w_year_month importinge_date= w_yearmonth. s_range-low = w_yearmonth. s_range-sign = I.s_range-opt = EQ.append s_range clear: w_year,endif.to e_t_range.w_month, w_yearmonth, s_range.when ZSQZYF4.if i_step = 2.清帐月份，取ZSNY+3年月 BY syread table i_t_var_r

36、angeo w_yearmonthwith key vnam = ZSNY.w_year = w_month =w_month =w_yearmonth(4). w_yearmonth+4(2).w_month + 3.concatenate w_year w_montho w_year_month.call function ZNC_ZH_FI_SRZFCSRQ exportingi_string = w_year_month importinge_date= w_yearmonth. s_range-low = w_yearmonth.s_range-sign = I. s_range-o

37、pt = EQ.append s_range to e_t_range.clear: w_year, w_month, w_yearmonth, s_range. endif.when ZINY.if i_step =统计年月默认值为系统上月 BY chenpei1.w_month = sy-datum+4(2). w_year = sy-datum(4).if w_month = 01.w_year = w_month =else.w_month =endif. concatenatew_year - 1.12.w_month - 1.w_year w_montho s_range-low.

38、s_range-high = s_range-low. s_range-sign = I.s_range-opt = BT.append s_range to e_t_range.clear: w_year, w_month, wyear_range, endif.s_range.when ZSSY.if i_step =系统日期上月 BY yqs1.w_month = sy-datum+4(2).if w_month = 01.w_month = else.w_month = endif.s_range-low12.w_month - 1.= w_month.s_range-sign = I

39、. s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_month, wyear_range, endif.s_range.when ZITJR.统计日默认值为系统日期前一日 by if i_step = 1.w_date = sy-datum - 1 . s_range-low = w_date .yqss_range-sign = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_date, s_range.endif.when ZSTJR.统计日默认值

40、为系统日期前一日 if i_step = 1.w_date = sy-datum - 1 . s_range-low = w_date . s_range-sign = I. s_range-opt = EQ.append s_range to e_t_range. clear: w_date , s_range.endif.by CHENPEIwhen ZSTJR2.if i_step = 1.统计日默认值为系统当前日.byCHENPEIw_date = sy-datum. s_range-low = w_date . s_range-sign = I. s_range-opt = EQ.a

41、ppend s_range to e_t_range. clear: w_date , s_range.endif.when ZSTJR3. if i_step = 1.统计日默认值为系统当前日byCHENPEIw_date = sy-datum.s_range-low =w_date .s_range-sign = I.s_range-opt =EQ.append s_range to e_t_range.clear: w_dateendif., s_range.when ZSRLN. 日if i_step = 1.默认为系统当年”s_range-low =sy-datum(4).s_ran

42、ge-sign = I.s_range-opt =EQ.append s_range to e_t_range.endif.when ZSWCRQNC.if i_step = 2.去年12月24，年度取ZINY起始值 BY YQSloop at i_t_var_range exit.endloop.o wyear_range where vnam=ZINY.w_year = wyear_range-low(4) - 1.concatenatew_year 1224 s_range-sign = I.s_range-opt = EQ.append s_range to e_t_range.o s

43、_range-low.clear: w_year, w_month, wyear_range, s_range. endif.when ZSTJN.统计年度，取ZINY起始值 BY YQSif i_step = 2.loop at i_t_var_range exit.endloop.o wyear_range where vnam=ZINY.s_range-low = wyear_range-low(4) . s_range-sign = I.s_range-opt = EQ.append s_range to e_t_range.clear: w_year, w_month, wyear_

44、range, s_range. endif.when ZIQNLJ.if i_step = 2.去年从1月至去年同期累计（从ZINY取截止值） BYYQSread table i_t_var_rangeowyear_range with- 1.o s_range-low.key vnam = ZINY.w_year = wyear_range-high(4)concatenatew_year01= .上年1月if wyear_range-high wyear_range-high =endif.wyear_range-low.concatenatew_year上年同期s_range-sign

45、= I. s_range-opt = BT.wyear_range-high+4(2)o s_range-high. append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZIHBLJ.环比累计（从ZSNY取月份数，从上一年12月向前相同月份数，从该月份至上年底为同期累计） BY chenpeiif i_step = 2.read table i_t_var_rangeo wyear_range with key vnam =ZSNY.w_year = wyear_range-l

46、ow(4) - 1.w_day = wyear_range-low+4(2). w_month = 13 - w_day.concatenatew_year 12o s_range-high.上年12月concatenates_range-signw_year w_month= I.o s_range-low. 环比s_range-opt = BT.append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZIBNLJ.if i_step = 2.本年从1月至统计月的累计（从ZINY

47、取截止值） BY YQSread table i_t_var_rangeo wyear_range if wyear_range-high = .wyear_range-high = wyear_range-low.endif.with key vnam = ZINY.concatenate s_range-highs_range-signwyear_range-high(4) 01= wyear_range-high.= I.o s_range-low. 本年1月本年同期s_range-opt = BT.append s_range clear: w_year,endif.when ZIBN

48、YYZ.if i_step = 2.to e_t_range.w_month, wyear_range, s_range.本年一月至查询月的累计（从ZSRLNY中取值） BY SYread table i_t_var_rangeo wyear_range with key vnam = ZSRLNY. if wyear_range-high = .wyear_range-high = wyear_range-low.endif.concatenates_range-high s_range-signwyear_range-high(4) 01= wyear_range-high.= I.o s

49、_range-low. 本年1月 本年同期s_range-opt = BT.append s_range to e_t_range.clear: w_year, w_month, wyear_range, s_range. endif.when ZIXTDY2.if i_step = 2.本年一月至查询月的累计（从ZSXTDY中取值） BY SYread table i_t_var_rangeo wyear_range with key vnam = ZSXTDY. if wyear_range-high = .wyear_range-high = wyear_range-low.endif.

50、 concatenate s_range-highs_range-signwyear_range-high(4) 01= wyear_range-high.= I.o s_range-low. 本年1月本年同期s_range-opt = BT.append s_range clear: w_year,endif.to e_t_range.w_month, wyear_range, s_range.when ZISNYYZ.Wenxing Jinif i_step = 2.去年年一月至去年同期的累计（从ZSRLNY中取值） BYread table i_t_var_rangeo wyear_ra

51、nge with key vnam = ZSRLNY. if wyear_range-high = .wyear_range-high = wyear_range-low. endif.w_year = wyear_range-high(4) - 1.concatenateCONCATENATEw_year 01o s_range-low. 去年年1月w_yearwyear_range-high+4(2)o s_range-high.去年同期s_range-sign= I.s_range-opt = BT.append s_range clear: w_year,endif.when ZIQN

52、LJ02.if i_step = 2.to e_t_range.w_month, wyear_range, s_range.去年从1月至去年同期累计（取ZSNY单月值） BY YQSread table i_t_var_rangeo wyear_range with if wyear_range-high = .wyear_range-high = wyear_range-low. endif.w_year = wyear_range-high(4) - 1.key vnam = ZSNY.concatenate concatenate上年同期s_range-signw_year 01o s_

53、range-low.上年1月o s_range-high. w_year wyear_range-high+4(2)= I.s_range-opt = BT.append clear:endif.when ZISs_range w_year,to e_t_range.w_month, wyear_range, s_range.02.2年前从1月至前年同期的累计（取ZSNY）modify by Cheungif i_step = 2 .read table i_t_var_range if sy-subrc eq 0 .o ls_range_other with key vnam = ZSNY

54、.move ls_range_other-low+0(4) to t_year .t_year = t_year ls_range-sign =ls_range-opt =- 2 . I.BT.concatenate t_year concatenate t_year insert ls_rangeendif .endif .ls_range_other-low+4(2) 01o ls_range-low .o table e_t_range .o ls_range-high .when ZIS03.if i_step = 2.3年前从1月至前年同期的累计（取ZSNY）BY chenpeire

55、ad table i_t_var_rangeif sy-subrc eq 0 .o ls_range_other with key vnam = ZSNY.move ls_range_other-low+0(4) to t_year .t_year = t_yearls_range-sign = ls_range-opt =- 3 . I.BT.concatenate t_year concatenate t_year insert ls_rangeendif . endif .ls_range_other-low+4(2)01o ls_range-low . o table e_t_rang

56、e .o ls_range-high .when ZIS04.if i_step = 2.4年前从1月至前年同期的累计（取ZSNY）BY chenpeiread table i_t_var_rangeif sy-subrc eq 0 .o ls_range_other with key vnam = ZSNY.move ls_range_other-low+0(4) to t_year .t_year = t_year ls_range-sign =ls_range-opt =- 4 . I.BT.concatenate t_year concatenate t_year insert ls_

57、rangeendif .endif.ls_range_other-low+4(2) 01o ls_range-low .o table e_t_range .o ls_range-high .when ZIQNTQ1.chenpeiif i_step = 2.去年12月至今年输入月上月累计（取ZSNY单月值） BYread table i_t_var_rangeo wyear_range with key vnam = ZSNY. if wyear_range-high = .wyear_range-high = wyear_range-low. endif.w_year = wyear_ra

58、nge-high(4) - 1. w_month = wyear_range-high+4(2).if w_month = 01.w_month = else.w_month = endif. concatenate concatenate输入月上月01.w_month - 1.w_year 12o s_range-low.上年12月o s_range-high. 今年wyear_range-high(4) w_months_range-sign= I.s_range-opt = BT.append s_range clear: w_year,endif.when ZIQNTQ2.chenpe

59、iif i_step = 2.to e_t_range.w_month, wyear_range, s_range.前年12月至今年输入月上月累计（取ZSNY单月值） BYread table i_t_var_rangeo wyear_range with key vnam = ZSNY. if wyear_range-high = .wyear_range-high = wyear_range-low. endif.w_year = wyear_range-high(4) - 2.w_month = wyear_range-high+4(2). if w_month = 01.w_month

60、 = else.w_month = endif. concatenate concatenate输入月上月01.w_month - 1.w_year 12o s_range-low.上年12月o s_range-high. 今年wyear_range-high(4) w_months_range-sign= I.s_range-opt = BT.append s_range clear: w_year,endif.when ZIBNLJ2.if i_step = 2.to e_t_range.w_month, wyear_range, s_range.本年从1月至统计月的累计（取ZSNY单单值