ALV报表和SMARTFORM的结合
来源：互联网 发布：单挑彩票机软件 编辑：程序博客网 时间：2024/05/01 11:22
ALV报表和SMARTFORM的结合
SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L1S31 {font-style: italic;color: #808080;}.L1S32 {color: #3399FF;}.L1S33 {color: #4DA619;}.L1S52 {color: #0000FF;}*&---------------------------------------------------------------------*
*& Report ZALV_DGY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZALV_DGY.
TYPE-POOLS: SLIS.
TABLES:MARA.
*
DATA: BEGIN OF IT_ST OCCURS 10,
MATNR LIKE MARA-MATNR,
WESCH LIKE MARA-WESCH,
WRKST LIKE MARA-WRKST,
END OF IT_ST.
*DATA IT_ST LIKE MARA OCCURS 0.
PARAMETERS:P_ERSDA LIKE MARA-ERSDA.
SELECT-OPTIONS:S_MATNR FOR MARA-MATNR.
* Internal Tables and Variants for ALV output
CONSTANTS: C_DDICTXT_M(1) TYPE C VALUE 'M'.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: WA_FIELDCAT LIKE LINE OF IT_FIELDCAT.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GS_VARIANT LIKE DISVARIANT.
DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
G_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
DATA: G_REPID TYPE SY-REPID,
G_STATUS_FORM TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
G_COMMAND_FORM TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',
G_SAVE(1).
DATA: IT_SORT_LINE TYPE SLIS_SORTINFO_ALV,
IT_SORT_TAB TYPE SLIS_T_SORTINFO_ALV.
START-OF-SELECTION.
PERFORM READ_IT_ST.
END-OF-SELECTION.
PERFORM OUTPUT_RESULT_AS_ALV TABLES IT_ST
USING 'IT_ST'.
*&---------------------------------------------------------------------
*& Form READ_IT_ST
*&---------------------------------------------------------------------
* text
*----------------------------------------------------------------------
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------
FORM READ_IT_ST .
SELECT MATNR WESCH WRKST FROM MARA
INTO CORRESPONDING FIELDS OF TABLE IT_ST
WHERE MATNR IN S_MATNR
AND ERSDA > P_ERSDA.
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
ENDFORM. " READ_IT_ST
*&---------------------------------------------------------------------
*& Form OUTPUT_RESULT_AS_ALV
*&---------------------------------------------------------------------
* Output result to screen using ALV format
*----------------------------------------------------------------------
* -->T_ITAB text
* -->P_ITABNAME text
*----------------------------------------------------------------------
FORM OUTPUT_RESULT_AS_ALV TABLES T_ITAB
USING P_ITABNAME TYPE SLIS_TABNAME.
G_REPID = SY-REPID.
REFRESH IT_FIELDCAT.
* pass over structure for output list
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = G_REPID
I_INTERNAL_TABNAME = P_ITABNAME
I_INCLNAME = G_REPID
CHANGING
CT_FIELDCAT = IT_FIELDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 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.
LOOP AT IT_FIELDCAT INTO WA_FIELDCAT.
CASE WA_FIELDCAT-FIELDNAME.
WHEN 'MATNR' OR 'MAKTX'.
WA_FIELDCAT-KEY = 'X'.
WHEN 'TOTAL'.
WA_FIELDCAT-SELTEXT_S = TEXT-T01.
WA_FIELDCAT-SELTEXT_M = TEXT-T01.
WA_FIELDCAT-SELTEXT_L = TEXT-T01.
WA_FIELDCAT-REPTEXT_DDIC = TEXT-T01.
WA_FIELDCAT-DDICTXT = C_DDICTXT_M.
ENDCASE.
MODIFY IT_FIELDCAT FROM WA_FIELDCAT.
ENDLOOP.
G_SAVE = 'A'.
GS_LAYOUT-zebra = 'X'.
* GS_LAYOUT-BOX_FIELDNAME = 'SELKZ'.
GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
* Build sort info
* REFRESH IT_SORT_TAB.
* CLEAR IT_SORT_LINE.
* IT_SORT_LINE-FIELDNAME = 'EKGRP'.
* IT_SORT_LINE-UP = 'X'.
* IT_SORT_LINE-SUBTOT ='X'.
* APPEND IT_SORT_LINE TO IT_SORT_TAB.
*"List Header for Top-Of-Page
* PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
* Display data in ALV Grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = G_STATUS_FORM
I_CALLBACK_USER_COMMAND = G_COMMAND_FORM
* I_CALLBACK_TOP_OF_PAGE = G_TOP_OF_PAGE
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = IT_FIELDCAT[]
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_SORT = IT_SORT_TAB
TABLES
T_OUTTAB = T_ITAB[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " OUTPUT_RESULT_AS_ALV
*&---------------------------------------------------------------------
*& Form TOP_OF_PAGE
*&---------------------------------------------------------------------
* Top of page, called by ALV function
*----------------------------------------------------------------------
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM. " TOP_OF_PAGE
*&---------------------------------------------------------------------
*& Form COMMENT_BUILD
*&---------------------------------------------------------------------
* Filling long text of top into a table
*----------------------------------------------------------------------
* <-->LT_TOP_OF_PAGE text
*----------------------------------------------------------------------
FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE
SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
* LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
* LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = 'TITLE'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
* STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = 'Date:'.
LS_LINE-INFO = SY-DATUM.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
LS_LINE-KEY = 'User:'.
LS_LINE-INFO = SY-UNAME.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
* ACTION LINE: TYPE A
CLEAR LS_LINE.
LS_LINE-TYP = 'A'.
LS_LINE-INFO = 'Some other text'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
ENDFORM. " COMMENT_BUILD
*以下是加按钮的过程.
FORM PF_STATUS_SET USING rt_extab TYPE slis_t_extab.
SET PF-STATUS '1001' .
ENDFORM.
FORM user_command using r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
DATA : ld_sammg LIKE vbsk-sammg.
CASE r_ucomm.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'ENTER' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN .
* WHEN 'UPDATE_RQ'.
* LOOP AT itab.
* ENDLOOP.
WHEN 'ZU01'.
* CALL SCREEN 200.
* WRITE: 'OUT'.
" MESSAGE 'HI 你好这是按钮事件' TYPE 'I'.
PERFORM OutPutSmart .
ENDCASE.
ENDFORM.
FORM OutPutSmart .
DATA: LF_FM_NAME TYPE RS38L_FNAM.
DATA: LF_FORMNAME TYPE TDSFNAME.
*DATA: BEGIN OF WA,
* MATNR LIKE MARA-MATNR,
* WESCH LIKE MARA-WESCH,
* WRKST LIKE MARA-WRKST,
* END OF WA.
DATA ITab like mara OCCURS 0.
data lien like mara.
LOOP AT IT_ST.
lien-matnr = it_st-matnr.
lien-WESCH = it_st-WESCH.
lien-wrkst = it_st-wrkst.
APPEND lien TO itab.
ENDLOOP.
*DATA ITab LIKE WA OCCURS 0 WITH HEADER LINE.
*
*SELECT MATNR WESCH WRKST
* into CORRESPONDING FIELDS OF TABLE ITab
* FROM MARA.
LF_FORMNAME = 'ZSMARTFORM_DGY'.
* determine smartform function module for delivery note
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING FORMNAME = LF_FORMNAME
* variant = ' '
* direct_call = ' '
IMPORTING FM_NAME = LF_FM_NAME
EXCEPTIONS NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
CALL FUNCTION LF_FM_NAME
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
CODE = 'AA'
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
IT_TABLE1 = ITAB
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
- ALV报表和SMARTFORM的结合
- ABAP的ALV报表开发
- ALV 报表的主要过程
- 一个ALV报表的模板
- ALV报表
- 限制ALV报表的导出权限
- Smartform 和 drive program的开发流程
- smartform中table和template的区别
- 工作流程和润乾报表的结合
- ABAP:ALV List报表
- ALV报表快速开发
- ALV 报表 颜色 实例
- 动态ALV报表
- ALV报表总结
- ALV报表总结(转)
- abap ALV 报表入门
- ALV 导出报表数据
- ALV 报表设置行与列的颜色
- java网络的基本知识
- Java的常用方法--Java与图像
- SQL Server 2000 元数据应用（二）：获得数据库的用户视图 http://www.cnblogs.com/ClarkChan/archive/2006/10/27/541724.html
- Java的常用方法--Java数据库连接(JDBC)
- Java的常用方法--Java与多媒体
- ALV报表和SMARTFORM的结合
- Java的常用方法--Swing基础
- SQL Server 2000 元数据应用（三）：获得数据库中存储过程的参数和数据集字段http://www.cnblogs.com/ClarkChan/archive/2006/10/31/545131.html
- SOA 面向服务架构
- 论开会
- 快速阅读的十条要领
- jsp指令
- 突破阅读的极限
- 再次闭关
