ABAP常用代码总结

 1.标准屏幕增加按扭

TABLES:sscrfields. "选择屏幕上的字段
SELECTION-SCREEN FUNCTION KEY 1.                            "工具栏按钮,最多5个
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.
SELECTION-SCREEN FUNCTION KEY 4.

INITIALIZATION.
  sscrfields-functxt_01 = '办事处主数据'.
  sscrfields-functxt_02 = '应收客户主数据'.
  sscrfields-functxt_03 = '跨年结转客户余额'.
  sscrfields-functxt_04 = '出具报表'.

2.TAB选择屏幕

SELECTION-SCREEN BEGIN OF TABBED BLOCK tabb1 FOR 12 LINES.
SELECTION-SCREEN TAB (10) text-101 USER-COMMAND ucomm1  DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (10) text-102 USER-COMMAND ucomm2  DEFAULT SCREEN 102.
SELECTION-SCREEN END OF BLOCK tabb1.

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blk001 WITH FRAME TITLE text-001.
SELECT-OPTIONS:  s_werks FOR eban-werks,
                 s_lgort FOR eban-lgort,
                 s_matnr FOR eban-matnr,         "物料
                 s_banfn FOR eban-banfn," MEMORY ID ban,"申请
                 s_badat FOR eban-badat DEFAULT sy-datum TO sy-datum, "需求申请日期
                 s_lfdat FOR eban-lfdat,         "申请交货日期
                 s_bsart FOR eban-bsart MATCHCODE OBJECT zbsart_sh  OBLIGATORY NO INTERVALS, "申请类型
                 s_frgzu FOR eban-frgzu NO INTERVALS,  "审批状态
                 s_zzdhu FOR eban-zzdhu. " NO-EXTENSION NO I