Chinaunix首页 | 论坛 | 博客
  • 博客访问: 598561
  • 博文数量: 154
  • 博客积分: 10208
  • 博客等级: 上将
  • 技术积分: 2225
  • 用 户 组: 普通用户
  • 注册时间: 2007-11-16 14:02
文章分类

全部博文(154)

文章存档

2012年(4)

2011年(44)

2010年(50)

2009年(4)

2008年(52)

我的朋友

分类:

2010-12-15 11:07:31

*&---------------------------------------------------------------------*
*&      Form  frm_retrieve_data
*&---------------------------------------------------------------------*
*       text:抓取report painter报表信息
*----------------------------------------------------------------------*
FORM frm_retrieve_data .
  DATA:lt_params  TYPE STANDARD TABLE OF alv_s_param_wp,
       lwa_params TYPE alv_s_param_wp,
       lwa_msg    LIKE LINE OF gt_msg,
       lv_dcpfm   TYPE xudcpfm.
  CLEAR:gt_data,gt_msg.
* 设置report painter报表的选择屏幕参数与默认值
  lwa_params-pname = '$PARAMETER[$ZRYEAR0'.
  lwa_params-pvalue = sy-datum+0(4).
  APPEND lwa_params TO lt_params .
  lwa_params-pname = '$PARAMETER[$ZBUKRS0'.
  lwa_params-pvalue = 'JNPC'.
  APPEND lwa_params TO lt_params .
  lwa_params-pname = '$PARAMETER[$ZBUKRS1'.
  lwa_params-pvalue = 'JNPC'.
  APPEND lwa_params TO lt_params .
  lwa_params-pname = '$PARAMETER[$ZF-RP00'.
  lwa_params-pvalue = sy-datum+4(2).
  APPEND lwa_params TO lt_params .
  CALL FUNCTION 'CRIF_RW_WEB_CALL_REPORT'
    EXPORTING
      i_report_group = 'JNZ1'
    TABLES
      it_params      = lt_params
      et_data        = gt_data
      et_messages    = gt_msg.
  LOOP AT gt_msg INTO lwa_msg
    WHERE type = 'E' OR type = 'A'.
    gv_flg = cns_yes.
    EXIT.
  ENDLOOP.
  IF gv_flg IS INITIAL AND
     gt_data IS INITIAL.
    gv_flg = cns_nodata.
  ENDIF.
 
ENDFORM.                    " frm_retrieve_data
阅读(1228) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2010-12-16 14:40:37

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com

chinaunix网友2010-12-16 14:40:37

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com