REPORT ZFENGLEIHEN_TEST.
TABLES: BKPF.
TYPE-POOLS: SLIS,SBDST, ABAP.
DATA: IT_BKPF LIKE TABLE OF BKPF WITH HEADER LINE.
DATA: IT_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
W_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
W_LAYOUT TYPE SLIS_LAYOUT_ALV,
W_REPID LIKE SY-REPID.
DATA: W_URL TYPE SBDST_URL.
PARAMETERS: P_BUKRS LIKE BKPF-BUKRS,
P_GJAHR LIKE BKPF-GJAHR,
P_BLART LIKE BKPF-BLART.
SELECT-OPTIONS: S_BUDAT FOR BKPF-BUDAT.
START-OF-SELECTION.
PERFORM. DATA_GET.
PERFORM. BUILD_FCAT.
PERFORM. BUILD_LAYOUT.
PERFORM. GET_URL.
PERFORM. DISPLAY_ALV_REPORT.
*&---------------------------------------------------------------------*
*& Form. DATA_GET
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM. DATA_GET .
SELECT *
INTO TABLE IT_BKPF
FROM BKPF
WHERE BUKRS = P_BUKRS
AND GJAHR = P_GJAHR
AND BLART = P_BLART
AND BUDAT IN S_BUDAT.
ENDFORM. " data_retrieval
*&---------------------------------------------------------------------*
*& Form. BUILD_FCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM. BUILD_FCAT .
IT_FCAT-FIELDNAME = 'BUKRS'.
IT_FCAT-SELTEXT_L = '公司代码'.
IT_FCAT-DATATYPE = 'C'.
APPEND IT_FCAT.
CLEAR IT_FCAT.
IT_FCAT-FIELDNAME = 'BELNR'.
IT_FCAT-DATATYPE = 'C'.
IT_FCAT-SELTEXT_L = '会计凭证号码'.
APPEND IT_FCAT.
CLEAR IT_FCAT.
IT_FCAT-FIELDNAME = 'GJAHR'.
IT_FCAT-DATATYPE = 'C'.
IT_FCAT-SELTEXT_L = '会计年度'.
APPEND IT_FCAT.
CLEAR IT_FCAT.
IT_FCAT-FIELDNAME = 'BLART'.
IT_FCAT-DATATYPE = 'C'.
IT_FCAT-SELTEXT_L = '凭证类型'.
APPEND IT_FCAT .
CLEAR IT_FCAT.
ENDFORM. " build_IT_FCAT
*&---------------------------------------------------------------------*
*& Form. BUILD_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM. BUILD_LAYOUT .
W_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
W_LAYOUT-ZEBRA = 'X'.
ENDFORM. " build_layout
*&---------------------------------------------------------------------*
*& Form. DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM. DISPLAY_ALV_REPORT .
W_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_REPID
IS_LAYOUT = W_LAYOUT
IT_FIELDCAT = IT_FCAT[]
I_CALLBACK_HTML_TOP_OF_PAGE = 'TOPOF_PAGE'
I_HTML_HEIGHT_TOP = 40
TABLES
T_OUTTAB = IT_BKPF
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. " display_alv_report
*&---------------------------------------------------------------------*
*& Form. TOPOF_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->I_DDOC text
*----------------------------------------------------------------------*
FORM. TOPOF_PAGE USING I_DDOC TYPE REF TO CL_DD_DOCUMENT.
DATA: LO_LINE LIKE LINE OF I_DDOC->HTML_TABLE.
* Initializaion
CALL METHOD I_DDOC->INITIALIZE_DOCUMENT.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = '
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = ''.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = ''.
'.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = '
'.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = 'FENGLEIHEN ALV TEST'.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = '
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
CONCATENATE '
'
INTO LO_LINE-LINE.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = '
'.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
CLEAR: LO_LINE-LINE.
LO_LINE-LINE = '
'.
APPEND LO_LINE TO I_DDOC->HTML_TABLE.
ENDFORM. "TOPOF_PAGE
*&---------------------------------------------------------------------*
*& Form. get_url
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM. GET_URL.
* OAOR 上传图片 并把change Attributes中的KEYWORDS设置成FENGLEIHEN_LOGO
DATA: SIGNATURE TYPE SBDST_SIGNATURE WITH HEADER LINE,
URIS TYPE SBDST_URI WITH HEADER LINE.
MOVE: '1' TO SIGNATURE-DOC_COUNT,
'1' TO SIGNATURE-COMP_COUNT.
MOVE: 'BDS_KEYWORD' TO SIGNATURE-PROP_NAME,
'FENGLEIHEN_LOGO' TO SIGNATURE-PROP_VALUE.
APPEND SIGNATURE.
CALL METHOD CL_BDS_DOCUMENT_SET=>GET_WITH_URL
EXPORTING
CLASSNAME = 'PICTURES'
CLASSTYPE = 'OT'
URL_LIFETIME = 'T'
CHANGING
URIS = URIS[]
SIGNATURE = SIGNATURE[].
READ TABLE URIS INDEX 1 .
IF SY-SUBRC = 0 .
W_URL = URIS-URI .
ENDIF .
ENDFORM. "get_url
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/139677/viewspace-600525/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/139677/viewspace-600525/