SAP ABAP Technical Help
CALL SCREEN 0100 .
*&———————————————————————*
*& Module STATUS_0100 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
MODULE status_0100 OUTPUT .
DATA :gt_html type w3htmltab,
gv_title TYPE sy- title .
DATA : gr_html TYPE REF TO cl_gui_html_viewer,
gr_cont TYPE REF TO cl_gui_custom_container.
*DATA: html TYPE w3htmltab.
DATA : html TYPE ZCHAR6000_T.
DATA : LV_HTML TYPE string.
DATA : lf_html TYPE string.
PERFORM HTML.
SET PF-STATUS ‘HTML’ .
SET TITLEBAR ‘HTML_TITLE’ . » WITH gv_title.
DATA : lv_url TYPE char255.
CREATE OBJECT GR_CONT
EXPORTING
* PARENT = PARENT
CONTAINER_NAME = ‘HTML_CONT’
* STYLE = STYLE
* LIFETIME = LIFETIME_DEFAULT
* REPID = SY-REPID
* DYNNR = SY-DYNNR
* NO_AUTODEF_PROGID_DYNNR = NO_AUTODEF_PROGID_DYNNR
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5
OTHERS = 6
.
IF sy-subrc <> 0 .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF .
CREATE OBJECT gr_html
EXPORTING
* shellstyle = shellstyle
PARENT = GR_CONT
* lifetime = ‘1’
* saphtmlp = ‘X’
* uiflag = ‘6’
* name = name
* saphttp = saphttp
* query_table_disabled = ‘X’
EXCEPTIONS
cntl_error = 1
cntl_install_error = 2
dp_install_error = 3
dp_error = 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 .
CALL METHOD gr_html->load_data(
* EXPORTING
* url = LV_URL
* type = ‘HTML’
* subtype = ‘HTML’
* size = 100
* encoding = encoding
* charset = charset
* language = ‘E’
IMPORTING
ASSIGNED_URL = LV_URL
CHANGING
DATA_TABLE = HTML
EXCEPTIONS
dp_invalid_parameter = 1
dp_error_general = 2
cntl_error = 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 .
GR_HTML->SHOW_URL(
EXPORTING
URL = LV_URL
* FRAME = FRAME
* IN_PLACE = ‘ X’
EXCEPTIONS
cntl_error = 1
cnht_error_not_allowed = 2
cnht_error_parameter = 3
dp_error_general = 4
).
IF sy-subrc <> 0 .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF .
ENDMODULE . » STATUS_0100 OUTPUT
*&———————————————————————*
*& Module USER_COMMAND_0100 INPUT
*&———————————————————————*
* text
*———————————————————————-*
MODULE user_command_0100 INPUT .
CASE sy-ucomm.
WHEN ‘EXIT’ OR ‘CANCEL’ or ‘BACK’ .
LEAVE TO SCREEN 0 .
WHEN ‘PRINT’ .
call method GR_HTML->execwb(
EXPORTING
cmd_id = GR_HTML->wb_cmdid_print
* cmd_opt = ‘2’
* result = result
EXCEPTIONS
cntl_error = 1
).
IF sy-subrc <> 0 .
message e003(cnht) raising html_print_error.
ENDIF .
DATA : LV_NETWR TYPE C LENGTH 20 .
PERFORM STYLE CHANGING LV_HTML.
LF_HTML = LV_HTML.
CLEAR LV_HTML.
DATA : lv_date TYPE CSAP_MBOM-DATUV.
CALL FUNCTION ‘CONVERSION_EXIT_PDATE_OUTPUT’
EXPORTING
input = SY-DATUM
IMPORTING
OUTPUT = LV_DATE
.
CONDENSE LV_DATE.
LOOP AT IT_HEADER INTO WA_HEADER.
PERFORM HEADER USING WA_HEADER LV_DATE CHANGING LV_HTML.
CONCATENATE LF_HTML LV_HTML INTO LF_HTML SEPARATED BY SPACE.
CONDENSE LF_HTML.
CLEAR LV_HTML.
LOOP AT IT_CON INTO WA_CON WHERE MATNR = WA_HEADER-MATNR AND WERKS = WA_HEADER-WERKS.
PERFORM CON USING WA_CON CHANGING LV_HTML.
CONCATENATE LF_HTML LV_HTML INTO LF_HTML SEPARATED BY SPACE.
CONDENSE LF_HTML.
CLEAR LV_HTML.
ENDLOOP .
CLEAR COUNT .
CONCATENATE LF_HTML
‘