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