SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS : S_BUKRS FOR ACDOCA-RBUKRS, " 公司代码 S_BELNR FOR ACDOCA-BELNR , " 凭证编号 S_GJAHR FOR ACDOCA-RYEAR NO-EXTENSION NO INTERVALS DEFAULT SY-DATUM+0(4) , " 总帐会计年度 S_POPER FOR ACDOCA-POPER NO-EXTENSION NO INTERVALS , " 过账期间 S_BUDAT FOR ACDOCA-BUDAT , " 过账日期 S_HBKID FOR T012-HBKID, " 开户行 S_BANKL FOR T012-BANKL, " 银行代码 S_BKNO FOR ZTFI006-BANKN. " 银行账号 SELECTION-SCREEN:END OF BLOCK B1. SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS : R1 RADIOBUTTON GROUP RD1 . SELECTION-SCREEN COMMENT (20) TEXT-110 ."汇总 PARAMETERS : R2 RADIOBUTTON GROUP RD1 DEFAULT 'X' . SELECTION-SCREEN COMMENT (20) TEXT-120 ."明细显示 SELECTION-SCREEN END OF LINE. SELECTION-SCREEN: END OF BLOCK B2. *自定义帮助选择事件 AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_BKNO-LOW. PERFORM FRM_F4_BANKN USING 'S_BKNO-LOW'. AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_BKNO-HIGH. PERFORM FRM_F4_BANKN USING 'S_BKNO-HIGH'. *&---------------------------------------------------------------------* *& Form FRM_F4_BANKN *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> P_ *&---------------------------------------------------------------------* FORM FRM_F4_BANKN USING P_BANKN TYPE DYNFNAM. DATA:LT_RETURN TYPE STANDARD TABLE OF DDSHRETVAL WITH HEADER LINE. SELECT DISTINCT BANKALL FROM ZFIV_BANKBLANCE WHERE BANKALL IS NOT INITIAL ORDER BY BANKALL INTO TABLE @DATA(LT_BANKN). CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'TAB' DYNPPROG = SY-CPROG DYNPNR = SY-DYNNR DYNPROFIELD = P_BANKN VALUE_ORG = 'S' TABLES VALUE_TAB = LT_BANKN[] RETURN_TAB = LT_RETURN. ENDFORM.
网友评论