ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 自定义Report 变量保存功能

自定义Report 变量保存功能

原创 Linux操作系统 作者:leniz 时间:2010-08-12 15:09:26 0 删除 编辑
  自定义Report 变量保存功能
   
      如果已经使用EP并且完成了BI Integrated Into EP的用户,可能对这个功能很熟悉,就是在显示Report之前输入变量之时,报表的上方有输入变量值的保存功能。
如果以上都没做到,下文值得看下去,当然整体思路绝对可以用到其他地方,因为它提供了一个交互切入点。
        碰到用户需要保存Report的变量,这还是第一遭。
在显示报表之前,系统会自动生成变量输入界面,这个界面乃系统生成无法定制(或不知道如何做到)。这个界面在SAP 提供的基于Excel 的Bex Analysis是可以保存输入的变量的,用户接触之后希望能够移植到Web上,甚至说添加一个button来保存自己输入的变量值即可。需求简单明确,IT 捶胸顿足。
       开始试图去发现,是否系统本身有这个功能,只是没人发扬光大而已,不过没有结果。以此同时,用户提到是否可以显示打开用户保存的View,还真在Web Application Designer发现相关控件,是一个Dropdown List。系统提供Save View的Button,这个一点我开始忽视了,这时突然觉得两者的相同之处,都是保存值到BW,无非都是提交Form给server处理,是否可以借鉴?答案是肯定的。
   首先分析Save View Button的代码,通过WAD打开标准模板0ADHOC_TABLE

<!-- Save View -->

 

title=" "

href="JavaScript.:SAPBWOpenWindow(SAP_BW_URL_Get() + '&CMD=PROCESS_HELP_WINDOW&HELP_SERVICE=HW_SAVE_VIEW&item=QueryName', 'SaveView',500,250);">

 


         看上去比较长,不过分析之后会发现关键是这里执行了一段Javascript,所以可以把关键部分拿出来分析。SAPBWOpenWindow 为Function 名,传入几个参数,第一个是URL,其它可以不用管它。用过BW的人对里面的某些关键字一定熟悉了,比如CMD,HELP_SERVICE,ITEM。对,这里用到了SAP Command URLs(即传说中的WebAPI)。所以这次的突破点就是:如果定制SAP Command URLs。
         我们先来看看Save View是如何实现的:
          前提:为了使用这个命令,必须将help service 注册到某个Web Item。就是将下述属性加入到web Item 中。

Attribute

Description

HELP_SERVICE

Name of the help service (SAVE_VIEW)

HELP_SERVICE_CLASS

Technical name of the help service class

(CL_RSR_WWW_HWIND_SAVE_VIEW)


     以上我们可以获知,需要用到类,需要Register。
首先我们通过CL_RSR_WWW_HWIND_SAVE_VIEW认识一下这个类的定义和使用。
1. 继承CL_RSR_WWW_HELP_WINDOW
2. 通过Method PROCESS_CMD处理接受到的参数及参数值
3. 通过i_r_parameter获取参数及参数值
上述三步算是吧Class的框架立了起来。另外涉及到如何传参数,以及如何保存参数的问题,随后一一道来。
 
//第一部分完

     要把变量值整批的传递,自然考虑用Form以及Form的Submit功能。到这里会想到几个问题。
1. 传什么
2. 变量的类型决定用户会输入不同的数据,或单值或区间或通配符等等
3. 输入框的数量是变化的,比如Multiple Selection,Select-Option
4. 如何把Save Button嵌入到标准的界面
第一个问题需要分析变量值保存的数据结构,这里涉及到三个表:
 Rsrrepdir      - Directory of all reports
Rsrvarianttxt - Texts for Variants
Rsrvariantdir  - Directory of Variants for Queries and Selection Objects
RSRVARIANT    - Variant Values
看完这三个表,并结合之前存的一些变量值,可以发现内部存值采用的都是Option的方式,即:queryId、variantName、POS、SIGN,OPT,LOW,HIGH.这些都是很熟悉的东西。所以要保存的值就是变量的名称以及各种各样的值。
第二、三个问题其实斗可以通过第一个问题获得答案,因为SAP的存值无法采用Option的方式。
第四个问题比较麻烦,因为我们很清楚标准的变量输入界面我们是无法插足的,可是我们需要动态去取输入界面的参数值。最终选择采用的方式是Iframe,当然内嵌网页的技术都可以实现,只是Iframe用的方便些。
src="/sap/bw/BEx?sap-language=EN&bsplanguage=EN&CMD=LDOC&TEMPLATE_ID=ZWAD_SALES_BUDGET_DATA&VARIABLE_SCREEN=X" frameBorder=0 width="100%" name=if01
marginWidth=0>
采用Iframe还有一个原因是后面需要动态去改变Iframe的内容,用Javascript去改变SRC的值即可实现。
用户不单单需要保存,同时还需要选择各种已保存的变量组合,甚至可能要修改已保存的变量,这些都是需要考虑而用户不一定会说的。最终的样式如下:
 
  我用了一个下拉框来显示系统已保存变量,以及用户新增的变量。因为没有现成的Dropdown List可以显示保存变量,所以我对表RSRVARIANT 建了一个Remote Cube,直接拉一个query显示变量列表,然后通过JS把值组装到Dropdown List。
Dropdown List的HTML

初始化组装Dropdown List的代码
$(document).ready(function(){
  var arr = new Array();
 //输出的是一个两列的表,第一列是技术名,第二列是描述,所以直接写谈不上逻辑
  $("table[name='TABLE_1']").find("tr").each(function(i){
   arr[i] = new Array();
   $(this).find("td").each(function(j){
     arr[i][j]  = $(this).text(); 
    });
  });
 var i ,opt_str;
 for( i = 0; i < arr.length ; i ++){
  opt_str = "";
//采用JQuery把可能值写入下拉框 sel01是Dropdown List的ID
  $(opt_str).appendTo($("#sel01"));
 }  
})
Dropdown List值变化的处理函数
function fs(vari){
   var iframe1 = document.getElementById("if01");
   var if_src = iframe1.src;
   iframe1.src = if_src + "&variant=" + vari;
   $("#DESCRIPTION").val( $("#sel01 option:selected").text() ); //添加到编辑框
   $("#TECH_NAME").val( $("#sel01 option:selected ").val() );   //添加到编辑框
}
变量值名称保存form
 action=
target=show>



……..


保存发送代码
function pre_submit(){
    var flag = check_val();
if(flag == 'N'){return ;}
//以下代码实现将Iframe. 的页面的变量存放的Form的值存到当前Form
    $("#selection").empty();
    input_txt =  $(window.frames["if01"].document).find("form[name='VARI']").html()  ;
$("#selection").append(input_txt);
//提交表单
$("form[0]").submit(); 
$("#frm01").css("display", "none")
}
开始的时候我还在考虑变量值怎么取,后来干脆把这个变量Form都拷贝出来,一起传,到Process_CMD里面去处理。
为了简洁,我还特意把保存框,在不用的时候隐藏起来,可以通过下述Funtion去切换。
function show( ){
  var flag;
  flag  = $("#frm01").css("display");
  if( flag == 'none'){
    $("#frm01").css("display", "block");   
  }else{
    $("#frm01").css("display", "none")
  }
}
之前我们有提到,要把Class注册到Web Item,所以我们就把Class注册到Table上,注意最后两个参数设定。

        
        
        
        
        
        
        
        
        
        
        
        
        
         ITEM:            TABLE_1

还有一个函数是用来判断值是否存在的
function check_val(){
    var flag;
var is_ort;
 var desc,tech_name;
 var size;
 var opt_txt;
     flag = 'Y';
 desc = $("#DESCRIPTION").val();
 tech_name = $("#TECH_NAME").attr("value");
 is_ort = $("#OVERWRITE").attr("checked");
 if (is_ort != true){
   size =  $("#sel01").find("option[value='"+ tech_name +"']").size()
    if(size > 0){
     alert("The technical name is exist");
     flag = 'N';
              return flag;
     }
      size = $("option:contains('"+desc+"')").size();
      if(size > 0){
       alert("The description is exist");
        flag = 'N';  return flag;      
     }
    }
    size =  $("#sel01").find("option[value='"+ tech_name +"']").size()
    if(size > 0){
                   $("#sel01").find("option[value='"+ tech_name
+"']").text(desc).attr("selected","selected");          
        }else{         
         opt_txt = "";
         $(opt_txt).appendTo("#sel01").attr("selected","selected");        
        }
    }
以上部分把页面处理的过程以及代码都做了交代,应该可以参照完成了。
第三部分是关于如何存储值,这里还需要好好看看输入些什么。如何看输入的值呢?第一到输入变量的界面,看Web的源代码,就可以很清楚的看到相应的input的内容,里面一大串的input就是变量值的内容。另外可以在class的接收部分去传递过来的值的规律。
处理代码如下:

 

***Get The Parameters List
  
CALL METHOD i_r_parameter->get_table
    RECEIVING
      r_th_parameter = para_itab.

 

***Get Technical Name & Descript
  l_view_id = i_r_parameter->get_upper_case( i_id =
'TECH_NAME' ).
……

***Get Query COMPUID
  
SELECT SINGLE compuid INTO  l_compuid
  
FROM rsrrepdir
  
WHERE compid = l_queryname.

***Get Variant Name List
  
SORT para_itab BY id index.
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_ID'.
***Set the sign
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_SIGN'.
***Set the operation
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_OPERATOR'.
***Set the low value
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_VALUE_EXT'.
***Set the Low value
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_VALUE_LOW_EXT'.
***Set the HIGH value
  
LOOP AT para_itab INTO para_wa WHERE id  EQ 'VAR_VALUE_HIGH_EXT'.
 DATA: moff 
TYPE i,mlen TYPE i.
  
LOOP AT itab_dat INTO wa_dat.
***这里主要是处理时间格式的问题
    
IF wa_dat-low NE ''.
      
MOVE wa_dat TO str.
      
FIND REGEX '\d{2}[\.\\]\d{4}' IN str.
      
IF sy-subrc EQ 0.
        
CONCATENATE wa_dat-low+3(4) wa_dat-low+0(2) 

INTO wa_dat-low.
      ENDIF.
    ENDIF.
***这里比较麻烦,因为后来发现传过来的值没有严格的遵从Option的规则,比如说单值

***signopt的栏位都是空的,所以要结合lowhighsignopt进行值的设定

***,有空值的情况,也要把optsign清空。
    
IF wa_dat-sign EQ ''.
      
IF wa_dat-high NE '' .
        wa_dat-sign = 
'I'.
        wa_dat-opt = 
'BT'.
      
ELSEIF wa_dat-low ne ''.
        wa_dat-sign = 
'I'.
        wa_dat-opt = 
'EQ'.
      ENDIF.
    ELSE.
      
IF wa_dat-low EQ ''.
        CLEAR: wa_dat-sign   , wa_dat-opt .
      ENDIF.
    ENDIF.
    
MODIFY itab_dat FROM wa_dat INDEX l_index.
  ENDLOOP.

 

***先删除后保存值

DELETE FROM rsrvariant  WHERE  compuid = l_compuid AND

         vari    = l_view_id.
MODIFY rsrvariant FROM TABLE itab_dat.
***Set variant dir
MODIFY  rsrvariantdir FROM wa_dir.
***Set Variant Text
 
MODIFY  rsrvarianttxt FROM wa_txt.

  
IF sy-subrc EQ 0.
    
COMMIT WORK.
  ELSE.
    
ROLLBACK WORK.
  ENDIF.

 

完毕!

 

完整文档下载

http://space.itpub.net/batch.download.php?aid=23978

 //雷国海 2010.08.12


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/554557/viewspace-670861/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 深圳公交记录一
请登录后发表评论 登录
全部评论

注册时间:2008-05-31

  • 博文量
    448
  • 访问量
    1096848