report zsapdoi_004.
include officeintegrationinclude.
data: factory type ref to i_oi_document_factory.
data: document type ref to i_oi_document_proxy.
data: link_server type ref to i_oi_link_server.
data: retcode type t_oi_ret_string.
data: is_closed type i.
data: ok_code like sy-ucomm.
data: save_ok like ok_code.
tables: sflight.
parameters : p_carrid like sflight-carrid obligatory,
p_connid like sflight-connid obligatory,
p_fldate like sflight-fldate obligatory.
data: begin of gt_sflight occurs 0,
carrid like sflight-carrid,
connid like sflight-connid,
fldate like sflight-fldate,
price like sflight-price,
currency like sflight-currency,
planetype like sflight-planetype,
seatsvac like sflight-seatsmax,
seatsmax like sflight-seatsmax,
seatsocc like sflight-seatsocc,
end of gt_sflight.
start-of-selection.
select *
from sflight
into corresponding fields of table gt_sflight
where carrid = p_carrid
and connid = p_connid
and fldate = p_fldate.
if sy-subrc ne 0.
leave list-processing.
endif.
loop at gt_sflight.
gt_sflight-seatsvac = gt_sflight-seatsmax - gt_sflight-seatsocc.
modify gt_sflight.
endloop.
.
call screen 100.
*&---------------------------------------------------------------------*
*& Module DOI_CREATE OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module doi_create output.
call method c_oi_factory_creator=>get_document_factory
importing
factory = factory
retcode = retcode.
if retcode ne c_oi_errors=>ret_ok.
exit.
endif.
call method factory->start_factory
exporting
r3_application_name = 'ZSAPDOI_002'
importing
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
call method factory->get_link_server
importing
link_server = link_server
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
call method link_server->start_link_server
importing
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
if not link_server is initial.
call method link_server->add_table_item2
exporting
item_name = 'gt_sflight'
importing
retcode = retcode
changing
data_table = gt_sflight[].
call method c_oi_errors=>show_message
exporting
type = 'E'.
endif.
data: doc_table like w3mime occurs 0.
data: doc_size type i.
data: doc_type(80) value soi_doctype_word97_document.
data: doc_format(80) type c.
call function 'SAP_OI_LOAD_MIME_DATA'
exporting
object_id = 'ZDOI_003'
importing
data_size = doc_size
document_format = doc_format
document_type = doc_type
tables
data_table = doc_table
exceptions
object_not_found = 1
internal_error = 2
others = 3.
call method factory->get_document_proxy
exporting
document_type = 'Word.Document'
importing
document_proxy = document
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
call method document->open_document_from_table
exporting
document_table = doc_table[]
document_size = doc_size
startup_macro = 'DOI_MACRO'
importing
retcode = retcode.
* CALL METHOD document->open_document
* EXPORTING
* OPEN_INPLACE = 'X'
* document_url = 'FILE://C:DOI_002.doc'
* startup_macro = 'DOI_MACRO'
* document_title = '비행기 티켓 정보'
* IMPORTING
* retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
endmodule. " DOI_CREATE OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module exit input.
case ok_code.
when 'EXIT'.
if not document is initial.
call method document->is_destroyed
importing
ret_value = is_closed.
if is_closed is initial.
call method document->close_document
exporting
do_save = 'X'
importing
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
endif.
call method document->release_document
importing
retcode = retcode.
call method c_oi_errors=>show_message
exporting
type = 'E'.
free document.
endif.
leave to screen 0.
endcase.
endmodule. " EXIT INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_0100 output.
set pf-status 'STATUS01'.
endmodule. " STATUS_0100 OUTPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
» | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
608 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
607 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
606 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
605 | REPORT z17_20 | sapjoy | 2012.08.01 | 2879 |
604 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2875 |
603 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
602 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
601 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
600 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
599 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
598 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
597 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
596 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
595 | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
594 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
593 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
592 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
591 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
590 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |