POPUP ALV的使用

上一篇 / 下一篇 2008-09-03 19:43:06 / 个人分类：SAP ABAP

当我们要弹出一个对话框窗口用ALV显示数据时，其实和OO的ALV一样，只不过换一个容器：CL_GUI_DIALOGBOX_CONTAINER（弹出对话框的container）。

数据定义：

DATAGV_CON_DIABOXTYPEREFTOCL_GUI_DIALOGBOX_CONTAINER. “定义容器
DATAGV_ALV_POPUPTYPEREFTOCL_GUI_ALV_GRID. “定义弹出的ALV

定义事件：

CLASSLCL_EVENT_RECEIVERDEFINITION.
PUBLICSECTION.
   METHODS:
   ON_CLOSE
     FOREVENTCLOSEOFCL_GUI_DIALOGBOX_CONTAINER
     IMPORTINGSENDER.
ENDCLASS.

CLASSLCL_EVENT_RECEIVERIMPLEMENTATION.
METHODON_CLOSE.
CALLMETHODSENDER->FREE.
FREE: GV_CON_DIABOX, GV_ALV_POPUP.
ENDMETHOD.

ENDCLASS.

DATAGV_EVENT_RECEIVERTYPEREFTOLCL_EVENT_RECEIVER.

创建ALV对象：

IFGV_CON_DIABOXISINITIAL.
   CREATEOBJECTGV_CON_DIABOX
     EXPORTING
       width  =700
       height =200
       top    =70
       left   =140
       caption =‘TEST’
     EXCEPTIONS
       OTHERS =1.

   SETHANDLERGV_EVENT_RECEIVER->ON_CLOSEFORGV_CON_DIABOX. “注册事件

   CREATEOBJECTGV_ALV_POPUP
     EXPORTING
       I_PARENT = GV_CON_DIABOX.
ENDIF.

显示ALV:
CALLMETHODGV_ALV_POPUP->SET_TABLE_FOR_FIRST_DISPLAY
   CHANGING
     it_outtab       = ITAB_COMMENT
     IT_FIELDCATALOG = lv_fieldcat
   EXCEPTIONS
      INVALID_PARAMETER_COMBINATION =1
      PROGRAM_ERROR                =2
      TOO_MANY_LINES               =3
      others                       =4.