关于ALV双击 调用事务的一个例子

源地址:http://www.itpub.net/thread-1483525-1-9.html

 

有经验的ABAPER都知道下面一个标准程序:
我以前开发一个财务报表,用ALV的形式表现。其中每个行项目的“公司代码、年度、凭证号”是唯一的,这样可以实现点击行项目查看凭证。我使用了这个:
  CASE rf_ucomm.
    WHEN '&IC1'.
      READ TABLE IT_OUTPUT INDEX rs_selfield-tabindex ASSIGNING .
      IF SY-SUBRC = 0.
        SET PARAMETER ID: 'BLN' FIELD -BELNR.
        SET PARAMETER ID: 'BUK' FIELD -BUKRS.
        SET PARAMETER ID: 'GJR' FIELD -GJAHR.
        CALL TRANSACTION 'zfxx03' AND SKIP FIRST SCREEN .
      ENDIF.
  ENDCASE.
                    "USER_CALLBACK
以上是调用了事务zfxx03。对参数的传递都是单值,现在我想传递一批参数,也就是bukrs(公司代码)的选项是多选的,是这样定义的,见下:
“SELECT-OPTIONS s_bukrs FOR t001-bukrs OBLIGATORY”
我将公司代码选项的内表传递到zfirxxxx,这样使用ID就无效了(GET PARAMETER ID 'BUK' field P_BUKRS 无效),我怎么传递为好呢,使用什么语句呢?尤其是一个变量下有多个参数的。

 

 

我已经找到一种方法了,但还没有具体应用呢,现在发布出来让朋友们借鉴一下。(以下内容即为方法,已发布在我们公司内部论坛上了)


要开发综合查询程序,一定会多次调用ALV报表,报表之间的参数传递就显得异常重要。
目前公司自行开发的多次(层)调用报表(事务)的程序不多。调用的层次越多,使用的逻辑越复杂,参数值传递就越繁琐。这样的程序即使开发出来也需要长时间的测试才能保证数据的准确,往往忽略了一个微小的逻辑环节就导致整张报表数据的表现错误。
在准备开发公司的综合报表之前,列举2个非常重要的例子,它就是程序间的调用内表并通过设置ID传输。

    举例1.(标准)

    主程序:

REPORT ZTEST_LHA07.

DATA : BEGIN OF W_DATA,

FID1 TYPE STRING,

NUM1 TYPE I ,

NUM2 TYPE I ,

END OF W_DATA.

DATA : T_OUT LIKE W_DATA OCCURS 0 WITH HEADER LINE .

DO 10 TIMES .

IF SY-INDEX < 4 .

T_OUT-FID1 = 'A' .

T_OUT-NUM1 = SY-INDEX .

T_OUT-NUM2 = SY-INDEX + 1 .

ELSEIF SY-INDEX < 7 .

T_OUT-FID1 = 'B' .

T_OUT-NUM1 = SY-INDEX + 1 .

T_OUT-NUM2 = SY-INDEX + 2 .

ELSE .

T_OUT-FID1 = 'C' .

T_OUT-NUM1 = SY-INDEX .

T_OUT-NUM2 = SY-INDEX - 1 .

ENDIF .

APPEND T_OUT.

ENDDO .

EXPORT T_OUT TO MEMORY ID 'T_OUT' .

SUBMIT ZTEST_LHA08 AND RETURN .

    被调用的程序:

REPORT ZTEST_LHA08.

data : begin of w_data, "这里定义一个跟调用程序一样的内表结构

fid1 type  string,

num1 type i ,

num2 type i ,

end of w_data.

data : t_out like w_data occurs 0 with header line .

import t_out from memory id 'T_OUT' .

FREE MEMORY ID 'T_OUT' .

WRITE : '从调用程序取到的数据如下:' .

LOOP AT T_OUT.

write : / ' ' ,t_out-fid1, t_out-num1, t_out-num2.

ENDLOOP .

    举例2.(结合我公司实际)

    主程序:

REPORT ZTEST_LHA07.

tables: t001.

SELECT-OPTIONS s_bukrs FOR t001-bukrs memory ID T_OUT . "公司代码

EXPORT s_bukrs TO MEMORY ID 'T_OUT' .

SUBMIT ZTEST_LHA08 AND RETURN .

    被调用的程序:

REPORT ZTEST_LHA08.

tables: t001.

SELECT-OPTIONS s_bukrs FOR t001-bukrs . "公司代码

import s_bukrs from memory id 'T_OUT' .

FREE MEMORY ID 'T_OUT' .

loop at s_bukrs.

write:/ s_bukrs-sign,s_bukrs-option,s_bukrs-low,s_bukrs-high.

endloop.
 

你可能感兴趣的:(SAP,ABAP)