心内心外http://www.shenma.cn/活着便精彩RainbowSoft Studio Z-Blog 1.8 Walle Build 100427zh-CNCopyright 2000-2011 心内心外 Cczee.com. All Rights Reserved.Wed, 02 May 2012 15:22:13 +0800一个隐藏 selection-screen block的实例ccz@cczee.com (Zee)http://www.shenma.cn/post/140.htmlWed, 02 May 2012 15:18:25 +0800http://www.shenma.cn/post/140.html 转载

以下是一个演示如何通过 selection-screen 中的pushbutton来动态改变屏幕上的字段的显示状态的（即显示或者隐藏）。
注意：显示 通过本示例可知selection-screen 中的 field 的显示状态都是 的，在程序中修改其属性 active 的值为 '0' 时，该field就回隐藏起来。 但是在下一次屏幕显示前，其默认值又归为显示了。这时候可以在 at selection-screen output 事件或者 PBO中来修改active 值为 '0'即可。
另外，注意使用 modif id *** 来将selection screen 中的 field 指派到 screen-group1 中。 *** 是不超过三个字符的 id 名称，即指定了 screen-group1的值。
*&---------------------------------------------------------------------*

 

 *& Report  ZSELECTION_SCREEN                                           *

*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zselection_screen                                           .
INCLUDE <icon>.
TABLES: sscrfields,
        sflight.

SELECTION-SCREEN: PUSHBUTTON /1(40) pbo1      "open block 1
                  USER-COMMAND ucomm_o1 MODIF ID mo1,
                  PUSHBUTTON /1(20) pbc1      "close block 1
                  USER-COMMAND ucomm_c1 MODIF ID mc1.

SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME.
PARAMETERS: name(10) TYPE c MODIF ID mc1.
SELECT-OPTIONS: s_car FOR sflight-carrid MODIF ID mc1,
*                s_con FOR sflight-connid MODIF ID mc1,
*                s_fld FOR sflight-fldate MODIF ID mc1,
                s_pri FOR sflight-price MODIF ID mc1.

SELECTION-SCREEN END OF BLOCK b01.

SELECTION-SCREEN: PUSHBUTTON /1(40) pbo2      "open block 1
                  USER-COMMAND ucomm_o2 MODIF ID mo2,
                  PUSHBUTTON /1(20) pbc2      "close block 1
                  USER-COMMAND ucomm_c2 MODIF ID mc2.

SELECTION-SCREEN BEGIN OF BLOCK b02 WITH FRAME.
PARAMETERS: name2(20) TYPE c MODIF ID mc2.
SELECT-OPTIONS: s_car2 FOR sflight-carrid MODIF ID mc2,
*                s_con2 FOR sflight-connid MODIF ID mc2,
*                s_fld2 FOR sflight-fldate MODIF ID mc2,
                s_pri2 FOR sflight-price MODIF ID mc2.

SELECTION-SCREEN END OF BLOCK b02.

PARAMETERS: par_cb1(1) TYPE c NO-DISPLAY,
            par_cb2(1) TYPE c NO-DISPLAY.


INITIALIZATION.

  CONCATENATE icon_expand: '打开' '' INTO pbo1,
               '打开' '' INTO pbo2.

  CONCATENATE icon_collapse: '关闭' '' INTO pbc1,
                '关闭' '' INTO pbc2.
  par_cb1 = 'X'.
  par_cb2 = 'X'.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'UCOMM_O1'.
      CLEAR par_cb1.
    WHEN 'UCOMM_C1'.
      par_cb1 = 'X'.
    WHEN 'UCOMM_O2'.
      CLEAR par_cb2.
    WHEN 'UCOMM_C2'.
      par_cb2 = 'X'.
  ENDCASE.


AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    PERFORM close_block USING:  par_cb1 'MO1' 'X',
                                par_cb1 'MC1' space,
                                par_cb2 'MO2' 'X',
                                par_cb2 'MC2' space.

  ENDLOOP.

*&--------------------------------------------------------------------*
*&      Form  close_block
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->VALUE(U_CLOtextLOCK)
*      -->U_MODIFY_IDtext
*      -->U_CONVERT  text
*---------------------------------------------------------------------*
FORM close_block USING value(u_close_block) LIKE par_cb1
                       u_modify_id LIKE screen-group1
                       u_convert.

  IF NOT u_convert IS INITIAL.
    IF u_close_block IS INITIAL.
      u_close_block = 'X'.
    ELSE.
      CLEAR u_close_block.
    ENDIF.
  ENDIF.

  IF ( screen-group1 = u_modify_id )
    AND ( NOT u_close_block IS INITIAL ).
    screen-active = '0'.
    MODIFY SCREEN.
  ENDIF.

ENDFORM.                    "close_block

]]>ABAP开发http://www.shenma.cn/post/140.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=140http://www.shenma.cn/cmd.asp?act=tb&id=140&key=5ebe956e隐藏、显示 SELECTION-SCREEN的parameterccz@cczee.com (Zee)http://www.shenma.cn/post/139.htmlWed, 02 May 2012 15:10:17 +0800http://www.shenma.cn/post/139.html 转载

REPORT t1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS: download RADIOBUTTON GROUP typ USER-COMMAND sele DEFAULT 'X'.
PARAMETERS: upload RADIOBUTTON GROUP typ.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.
PARAMETERS: p_file(255) TYPE c LOWER CASE MODIF ID m2,
             p_client LIKE tmsbuffer-tarcli MODIF ID m2.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t3.
PARAMETERS:p_reqnum TYPE trkorr MODIF ID m3,
           p_folder LIKE rlgrap-filename DEFAULT 'C:\' LOWER CASE MODIF ID m3.
SELECTION-SCREEN END OF BLOCK b3.
INITIALIZATION.
t1 = '选择功能'.
t2 = '上传参数'.
t3 = '下载参数'.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    CASE screen-group1.
      WHEN 'M2'.
        IF download = 'X'.
          screen-active = '0'.
        ELSE.
          screen-active = '1'.
        ENDIF.
      WHEN 'M3'.
        IF download = 'X'.
          screen-active = '1'.
        ELSE.
          screen-active = '0'.
        ENDIF.
    ENDCASE.
    MODIFY SCREEN.
ENDLOOP.

]]>ABAP开发http://www.shenma.cn/post/139.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=139http://www.shenma.cn/cmd.asp?act=tb&id=139&key=91ba6d5d网上得来 彻底删除请求号ccz@cczee.com (Zee)http://www.shenma.cn/post/138.htmlThu, 19 Apr 2012 13:10:36 +0800http://www.shenma.cn/post/138.html REPORT z.

data :
itab_e070 like e070 occurs 0 with header line,
iwa_e070c like e070c,   "Request client
itab_e071  like e071 occurs 0 with header line ,
iwa_e07t like e07t ,     "Requst short text(desc)
iwa_E070A like E070A ,
itab_tlock like tlock occurs 0 with header line .

parameter reqno like e070-trkorr default '' .
select  * into table itab_e070 from e070
where trkorr eq reqno or strkorr eq reqno.
if  SY-SUBRC Ne 0 .
write : 'The Request No.:' , Reqno , ' not exist !' .
endif.
select  single * into iwa_e070c from e070c
where trkorr eq reqno  .
select  * into table itab_e071 from e071
where trkorr eq reqno .
select single * into iwa_e07t from e07t
where trkorr eq reqno .
select single * into iwa_E070A from e070A
where trkorr eq reqno .

if itab_e070 IS INITIAL .
select * into table itab_tlock from tlock
where trkorr eq reqno  .
else.
select  * into table itab_tlock from tlock
FOR ALL   ENTRIES IN itab_e070
where TRKORR eq itab_e070-trkorr .
endif.
if SY-SUBRC NE 0 .
write : / 'No Locked object for the request NO. was found!'.
endif.
delete :
e070  from table itab_e070 ,
e070c from iwa_e070c,
e071  from table itab_e071,
e07t  from iwa_e07t ,
e070A from iwa_E070A ,
tlock from table itab_tlock .
write  : / 'The Request No.:' , Reqno .

]]>ABAP源码http://www.shenma.cn/post/138.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=138http://www.shenma.cn/cmd.asp?act=tb&id=138&key=f3fa4c38Smartforms调用参数详细ccz@cczee.com (Zee)http://www.shenma.cn/post/137.htmlThu, 22 Mar 2012 23:20:52 +0800http://www.shenma.cn/post/137.html NO_OPEN ---控制smartforms的调用

NO_CLOSE ---控制假脱机系统

例子：
     control_parameters-no_close = 'X' . "打开假脱机

       if smartforms_1 eq 'X'.
          perform call_smartforms_1.
       control_parameters-no_open = 'X' . "form关闭 
    endif .
    if smartforms_2 eq 'X' .
      perform call_smartforms_2.
       control_parameters-no_open = 'X' . "关闭 
    endif .

    if smartforms_3 eq 'X' .
          perform call_smartforms_3 .
       control_parameters-no_open = 'X' . "关闭 
    endif .
    if smartforms_4 eq 'X' .
         perform call_smartforms_4.
       control_parameters-no_open = 'X' . "关闭 
    endif .
    control_parameters-no_close = space. "最后一张票据需要先关闭假脱机 
    if smartforms_5 eq 'X' .
         perform call_smartforms_5.
       control_parameters-no_open = 'X' . "关闭 
    endif .

]]>ABAP开发http://www.shenma.cn/post/137.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=137http://www.shenma.cn/cmd.asp?act=tb&id=137&key=c2902b6a不错的关于free consultant的价格ccz@cczee.com (Zee)http://www.shenma.cn/post/135.htmlThu, 15 Mar 2012 16:03:35 +0800http://www.shenma.cn/post/135.html http://space.itpub.net/batch.viewlink.php?itemid=152443

今天查BW顾问的价格发现这个，看看自己能不能转行做个自由顾问

]]>今天日情http://www.shenma.cn/post/135.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=135http://www.shenma.cn/cmd.asp?act=tb&id=135&key=b80ee98eSAP找出口ccz@cczee.com (Zee)http://www.shenma.cn/post/134.htmlWed, 14 Mar 2012 17:28:51 +0800http://www.shenma.cn/post/134.html REPORT z_barry_find_exit_badi NO STANDARD PAGE HEADING .
TABLES:tstc,tadir,modsapt,modact,trdir,tfdir,enlfdir,sxs_attrt,tstct.
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
PARAMETERS : p_tcode LIKE tstc-tcode,
p_pgmna LIKE tstc-pgmna ,
p_all as CHECKBOX.
DATA wa_tadir TYPE tadir.
START-OF-SELECTION.

  IF NOT p_tcode IS INITIAL.
    SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
  ELSEIF NOT p_pgmna IS INITIAL.
    tstc-pgmna = p_pgmna.
  ENDIF.
  IF sy-subrc EQ 0.
    SELECT SINGLE * FROM tadir
    WHERE pgmid = 'R3TR'
    AND object = 'PROG'
    AND obj_name = tstc-pgmna.
    MOVE : tadir-devclass TO v_devclass.
    IF sy-subrc NE 0.
      SELECT SINGLE * FROM trdir
      WHERE name = tstc-pgmna.
      IF trdir-subc EQ 'F'.
        SELECT SINGLE * FROM tfdir
        WHERE pname = tstc-pgmna.
        SELECT SINGLE * FROM enlfdir
        WHERE funcname = tfdir-funcname.
        SELECT SINGLE * FROM tadir
        WHERE pgmid = 'R3TR'
        AND object = 'FUGR'
        AND obj_name EQ enlfdir-area.
        MOVE : tadir-devclass TO v_devclass.
      ENDIF.
    ENDIF.
    if p_all = 'X'.
           SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND
                                 object IN ('SMOD', 'SXSD') .
*                   AND
*                                           devclass = v_devclass.     "remark by dreexu
    else.
          SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND
                                 object IN ('SMOD', 'SXSD')  AND
                                           devclass = v_devclass.
    endif.


    SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu and
                                     tcode EQ p_tcode.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19) 'Transaction Code - ',
    20(20) p_tcode,
    45(50) tstct-ttext.
    SKIP.

    IF NOT jtab[] IS INITIAL.
      WRITE:/(105) sy-uline.
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
      SORT jtab BY object.
      DATA : wf_txt(60) TYPE c,
      wf_smod TYPE i ,
      wf_badi TYPE i ,
      wf_object2(30) TYPE c.
      CLEAR : wf_smod, wf_badi , wf_object2.
      LOOP AT jtab INTO wa_tadir.
        AT FIRST.
          FORMAT COLOR COL_HEADING INTENSIFIED ON.
          WRITE:/1 sy-vline,
          2 'Enhancement/ Business Add-in',
          41 sy-vline ,
          42 'Description',
          105 sy-vline.
          WRITE:/(105) sy-uline.
        ENDAT.
        CLEAR wf_txt.
        AT NEW object.
          IF wa_tadir-object = 'SMOD'.
            wf_object2 = 'Enhancement' .
          ELSEIF wa_tadir-object = 'SXSD'.
            wf_object2 = ' Business Add-in'.
          ENDIF.
          FORMAT COLOR COL_GROUP INTENSIFIED ON.
          WRITE:/1 sy-vline,
          2 wf_object2,
          105 sy-vline.
        ENDAT.
        CASE wa_tadir-object.
          WHEN 'SMOD'.
            wf_smod = wf_smod + 1.
            SELECT SINGLE modtext INTO wf_txt
            FROM modsapt
            WHERE sprsl = sy-langu
            AND name = wa_tadir-obj_name.
            FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
          WHEN 'SXSD'.
* For BADis
            wf_badi = wf_badi + 1 .
            SELECT SINGLE text INTO wf_txt
            FROM sxs_attrt
            WHERE sprsl = sy-langu
            AND exit_name = wa_tadir-obj_name.
            FORMAT COLOR COL_NORMAL INTENSIFIED ON.
        ENDCASE.
        WRITE:/1 sy-vline,
        2 wa_tadir-obj_name HOTSPOT ON,
        41 sy-vline ,
        42 wf_txt,
        105 sy-vline.
        AT END OF object.
          WRITE : /(105) sy-uline.
        ENDAT.
      ENDLOOP.
      WRITE:/(105) sy-uline.
      SKIP.
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE:/ 'No.of Exits:' , wf_smod.
      WRITE:/ 'No.of BADis:' , wf_badi.
    ELSE.
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
      WRITE:/(105) 'No userexits or BADis exist'.
    ENDIF.
  ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(105) 'Transaction does not exist'.
  ENDIF.
AT LINE-SELECTION.
  DATA : wf_object TYPE tadir-object.
  CLEAR wf_object.
  GET CURSOR FIELD field1.
  CHECK field1(8) EQ 'WA_TADIR'.
  READ TABLE jtab WITH KEY obj_name = sy-lisel+1(20).
  MOVE jtab-object TO wf_object.
  CASE wf_object.
    WHEN 'SMOD'.
      SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
      CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
    WHEN 'SXSD'.
      SET PARAMETER ID 'EXN' FIELD sy-lisel+1(20).
      CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
  ENDCASE.

]]>ABAP开发http://www.shenma.cn/post/134.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=134http://www.shenma.cn/cmd.asp?act=tb&id=134&key=a2d62bcc调用表视图functionccz@cczee.com (Zee)http://www.shenma.cn/post/133.htmlTue, 13 Mar 2012 14:42:41 +0800http://www.shenma.cn/post/133.html DATA:
      lt_sel TYPE TABLE OF vimsellist WITH HEADER LINE,
      it_vimexclfun TYPE TABLE OF vimexclfun WITH HEADER LINE.

  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
    EXPORTING
      action                                    = 'U'
*          CORR_NUMBER                          = '          '
*          GENERATE_MAINT_TOOL_IF_MISSING       = ' '
*          SHOW_SELECTION_POPUP                 = ' '
      view_name                                 = 'ZMM_REPLACE_CHAR'
*          NO_WARNING_FOR_CLIENTINDEP           = ' '
*          RFC_DESTINATION_FOR_UPGRADE          = ' '
*          CLIENT_FOR_UPGRADE                   = ' '
*          VARIANT_FOR_SELECTION                = ' '
*          COMPLEX_SELCONDS_USED                = ' '
*          CHECK_DDIC_MAINFLAG                  = ' '
*          SUPPRESS_WA_POPUP                    = ' '
      TABLES
        dba_sellist                          = lt_sel[]
*          EXCL_CUA_FUNCT                       =
*        EXCEPTIONS
*          CLIENT_REFERENCE                     = 1
*          FOREIGN_LOCK                         = 2
*          INVALID_ACTION                       = 3
*          NO_CLIENTINDEPENDENT_AUTH            = 4
*          NO_DATABASE_FUNCTION                 = 5
*          NO_EDITOR_FUNCTION                   = 6
*          NO_SHOW_AUTH                         = 7
*          NO_TVDIR_ENTRY                       = 8
*          NO_UPD_AUTH                          = 9
*          ONLY_SHOW_ALLOWED                    = 10
*          SYSTEM_FAILURE                       = 11
*          UNKNOWN_FIELD_IN_DBA_SELLIST         = 12
*          VIEW_NOT_FOUND                       = 13
*          MAINTENANCE_PROHIBITED               = 14
*          OTHERS                               = 15
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

]]>ABAP开发http://www.shenma.cn/post/133.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=133http://www.shenma.cn/cmd.asp?act=tb&id=133&key=1a9b04ce Searcha Help 的函数 F4IF_INT_TABLE_VALUE_REQUEST 使用说明（一）ccz@cczee.com (Zee)http://www.shenma.cn/post/132.htmlMon, 27 Feb 2012 17:24:55 +0800http://www.shenma.cn/post/132.html ZZ:http://blog.csdn.net/asdf19256/article/details/2728591

为screen上的输入框增加F4搜查功能

假设输入框g_var_f1绑定在变量g_var_f1.
且可选值在内表g_itab_t1的字段c1上.

1`在screen的logic flow上code:
  PROCESS ON VALUE-REQUEST.
    FIELD g_var_f1 MODULE user_gvarf1vr_0010.
  其中f为输入框的name.并新建MODULE m.
  立即能在屏幕显示后,该框右侧出现F4按钮.
  
  为一个屏幕上多个输入框配置F4搜查即
  PROCESS ON VALUE-REQUEST.
    FIELD f1 MODULE m1.
    FIELD f2 MODULE m2.

2`编写MODULE m.
  MODULE user_gvarf1vr_0010 INPUT.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield = 'C1' 大写,可选值内表的字段名
        value_org = 'S' 就写'S'
        dynpprog = SY-REPID 返回的输入框所在的main program
        dynpnr = SY-DYNNR 返回的输入框所在屏幕
        dynprofield = 'G_VAR_F1' 返回的输入框名
      TABLES
        value_tab = g_itab_t1 可选值的内表
      EXCEPTIONS
        parameter_error = 1
        no_values_found = 2
        others = 3.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
MODULE.
  该function是将itab:value_tab的retfield列显示在屏幕上以供选择,并返回到dynpprog-dynpnr-dynprofield框中.

]]>ABAP开发http://www.shenma.cn/post/132.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=132http://www.shenma.cn/cmd.asp?act=tb&id=132&key=45fda2d6Searcha Help 的函数 F4IF_INT_TABLE_VALUE_REQUEST 使用说明（二）ccz@cczee.com (Zee)http://www.shenma.cn/post/131.htmlMon, 27 Feb 2012 17:24:55 +0800http://www.shenma.cn/post/131.html

*&---------------------------------------------------------------------*
*& Report  ZJOHN_8
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZJOHN_8.
DATA: OK_CODE LIKE SY-UCOMM.

data: begin of it_tab occurs 0,
      col1,
      col2(20) type c,
      end of it_tab.
DATA: INPUT1(30) TYPE C.
data: input2(30) type c.
data: input3(30) type c.
DATA: dynpro_values type table of dynpread,
      field_value like line of dynpro_values.
field_value-fieldname = 'INPUT1'.
APPEND field_value to dynpro_values.
it_tab-col1 = '1'.
it_tab-col2 = 'hello'.
append it_tab.
it_tab-col1 = '2'.
it_tab-col2 = 'text'.
append it_tab.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
LEAVE PROGRAM.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  VALUE_INPUT1  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE VALUE_INPUT1 INPUT.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
*   DDIC_STRUCTURE         = ' '
    RETFIELD               = 'COL1'
*   PVALKEY                = ' '
   DYNPPROG               =  SY-REPID
   DYNPNR                 =  SY-DYNNR
   DYNPROFIELD            =  'INPUT1'
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
   VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
  TABLES
    VALUE_TAB              = it_tab[]
*   FIELD_TAB              =
*   RETURN_TAB             =
*   DYNPFLD_MAPPING        =
* EXCEPTIONS
*   PARAMETER_ERROR        = 1
*   NO_VALUES_FOUND        = 2
*   OTHERS                 = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear dynpro_values.
field_value-fieldname = 'INPUT1'.
APPEND field_value to dynpro_values.
CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    DYNAME                         = SY-REPID
    DYNUMB                         = SY-DYNNR
*   TRANSLATE_TO_UPPER             = ' '
*   REQUEST                        = ' '
*   PERFORM_CONVERSION_EXITS       = ' '
*   PERFORM_INPUT_CONVERSION       = ' '
*   DETERMINE_LOOP_INDEX           = ' '
  TABLES
    DYNPFIELDS                     = dynpro_values
* EXCEPTIONS
*   INVALID_ABAPWORKAREA           = 1
*   INVALID_DYNPROFIELD            = 2
*   INVALID_DYNPRONAME             = 3
*   INVALID_DYNPRONUMMER           = 4
*   INVALID_REQUEST                = 5
*   NO_FIELDDESCRIPTION            = 6
*   INVALID_PARAMETER              = 7
*   UNDEFIND_ERROR                 = 8
*   DOUBLE_CONVERSION              = 9
*   STEPL_NOT_FOUND                = 10
*   OTHERS                         = 11
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TaBLE dynpro_values index 1 into field_value.
READ TABLE IT_TAB WITH KEY col1 = field_value-FIELDVALUE.
clear dynpro_values.
field_value-fieldname = 'INPUT2'.
FIELD_VALUE-FIELDVALUE = IT_TAB-COL2.
APPEND field_value to dynpro_values.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
  EXPORTING
    DYNAME                     = SY-REPID
    DYNUMB                     = SY-DYNNR
  TABLES
    DYNPFIELDS                 = dynpro_values
* EXCEPTIONS
*   INVALID_ABAPWORKAREA       = 1
*   INVALID_DYNPROFIELD        = 2
*   INVALID_DYNPRONAME         = 3
*   INVALID_DYNPRONUMMER       = 4
*   INVALID_REQUEST            = 5
*   NO_FIELDDESCRIPTION        = 6
*   UNDEFIND_ERROR             = 7
*   OTHERS                     = 8
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

 

ENDMODULE.                 " VALUE_INPUT1  INPUT

就是可以调用'F4IF_INT_TABLE_VALUE_REQUEST' 但是没有任何值 出现，我的SCREEN很简单，只用三个栏位，INPUT1 ，INPUT2， INPUT3 ！

 

]]>ABAP开发http://www.shenma.cn/post/131.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=131http://www.shenma.cn/cmd.asp?act=tb&id=131&key=2c777c62SAP找出口正规一点方法ccz@cczee.com (Zee)http://www.shenma.cn/post/130.htmlTue, 21 Feb 2012 11:05:38 +0800http://www.shenma.cn/post/130.html源码中查找 CALL CUSTOMER-FUNCTION 然后得到 EXIT_<program name><3 digit suffix>在SMOD打开all selection

]]>ABAP开发http://www.shenma.cn/post/130.html#commenthttp://www.shenma.cn/http://www.shenma.cn/feed.asp?cmt=130http://www.shenma.cn/cmd.asp?act=tb&id=130&key=6961f4f4