How to close the adobe forms in popup windows once.

Question

hi,expert..
i show a adobe form in a popup windows in my webdynpro program...but i find out that i at least click twice on the "CLOSE" button on the right top of the window.....how can i modify my program to  close the window once..
the original codes are as follow:
method onactionprint .
   data lo_nd_zhrhap_vp_app_01 type ref to if_wd_context_node.
  data lo_nd_zhrhap_t_document type ref to if_wd_context_node.
  data lt_zhrhap_t_document type wd_this->elements_zhrhap_t_document.
  lo_nd_zhrhap_vp_app_01 = wd_context->get_child_node( name =
wd_this->wdctx_zhrhap_vp_app_01 ).
  lo_nd_zhrhap_t_document = lo_nd_zhrhap_vp_app_01->get_child_node(
name = wd_this->wdctx_zhrhap_t_document ).
  lo_nd_zhrhap_t_document->get_static_attributes_table(
    importing
      table = lt_zhrhap_t_document ).
DATA lo_nd_zhrhap_s_app_leader TYPE REF TO if_wd_context_node.
DATA lo_el_zhrhap_s_app_leader TYPE REF TO if_wd_context_element.
   data ls_zhrhap_s_app_leader type
wd_this->element_zhrhap_s_app_leader.
lo_nd_zhrhap_s_app_leader = lo_nd_zhrhap_vp_app_01->get_child_node(
*name = wd_this->wdctx_zhrhap_s_app_leader ).
lo_el_zhrhap_s_app_leader = lo_nd_zhrhap_s_app_leader->get_element(
lo_el_zhrhap_s_app_leader->get_static_attributes(
   IMPORTING
     static_attributes = ls_zhrhap_s_app_leader ).
DATA lo_nd_zhrhap_s_dates TYPE REF TO if_wd_context_node.
DATA lo_el_zhrhap_s_dates TYPE REF TO if_wd_context_element.
   data ls_zhrhap_s_dates type wd_this->element_zhrhap_s_dates.
lo_nd_zhrhap_s_dates = lo_nd_zhrhap_vp_app_01->get_child_node( name
*= wd_this->wdctx_zhrhap_s_dates ).
lo_el_zhrhap_s_dates = lo_nd_zhrhap_s_dates->get_element(  ).
lo_el_zhrhap_s_dates->get_static_attributes(
   IMPORTING
     static_attributes = ls_zhrhap_s_dates ).
采集表名称和日期
  data lo_nd_if_data type ref to if_wd_context_node.
  data lo_el_if_data type ref to if_wd_context_element.
  data ls_if_data type wd_this->element_if_data.
  lo_nd_if_data = wd_context->get_child_node( name =
wd_this->wdctx_if_data ).
  lo_el_if_data = lo_nd_if_data->get_element(  ).
  lo_el_if_data->get_static_attributes(
    importing
      static_attributes = ls_if_data ).
  ls_zhrhap_s_dates-valid_begda = ls_if_data-begda.
  ls_zhrhap_s_dates-valid_endda = ls_if_data-endda.
DATA lo_el_zhrhap_vp_app_01 TYPE REF TO if_wd_context_element.
   data ls_zhrhap_vp_app_01 type wd_this->element_zhrhap_vp_app_01.
   data lv_description like ls_zhrhap_vp_app_01-description.
lo_el_zhrhap_vp_app_01 = lo_nd_zhrhap_vp_app_01->get_element(  ).
lo_el_zhrhap_vp_app_01->get_attribute(
   EXPORTING
     name =  `DESCRIPTION`
   IMPORTING
     value = lv_description ).
REPLACE ALL OCCURRENCES OF '类别:' in lv_description with ''.
  lv_description = ls_if_data-stext.
  data l_is_ok    type boole_d.
  data pdf_source type xstring.
  data l_msg      type ref to cl_hrpa_message_list.
  create object l_msg.
  call method zcl_hr_appraisal_utility=>print_contract_direct
    exporting
    form_type           = 'COD'
      zhrhap_t_document   = lt_zhrhap_t_document
      zhrhap_s_dates      = ls_zhrhap_s_dates
      zhrhap_s_app_leader = ls_zhrhap_s_app_leader
      description         = lv_description
    job_description     =
      message_handler     = l_msg
     importing
      is_ok               = l_is_ok
      pdf_xstring         = pdf_source
  check l_is_ok is not initial and pdf_source is not initial.
  data lo_nd_pdf type ref to if_wd_context_node.
  data lo_el_pdf type ref to if_wd_context_element.
  data ls_pdf type wd_this->element_pdf.
  data lv_source like ls_pdf-source.
  lo_nd_pdf = wd_context->get_child_node( name = wd_this->wdctx_pdf ).
  lo_el_pdf = lo_nd_pdf->get_element(  ).
  lo_el_pdf->set_attribute(
    exporting
      name =  `SOURCE`
      value = pdf_source ).
*-->ADOBE View embeded to ViewContainer UI
  data: lr_view               type ref to if_wd_view_controller,
        lr_api_main           type ref to if_wd_component,
        lr_window_man         type ref to if_wd_window_manager,
        comp_usage            type ref to if_wd_component_usage,
        l_title               type string value '打印合同',
        lr_window             type ref to if_wd_window.
  lr_view = wd_this->wd_get_api( ).
  lr_api_main = wd_comp_controller->wd_get_api( ).
  lr_window_man = lr_api_main->get_window_manager( ).
l_title = wd_colr_mp_controller->model->get_text( '006' ).
  call method lr_window_man->create_window
    exporting
      modal        = abap_true
      window_name  = 'POPUP'
      title        = l_title
      button_kind  = if_wd_window=>co_buttons_yesno
     message_type = if_wd_window=>co_msg_type_none
      default_button = if_wd_window=>co_button_yes
    receiving
      window       = lr_window.
  lr_window->open( ).
endmethod.
looking forward to your help....thanks in advance

Answer 1

Ping,
1st, see the Markup formatting options over on the right part of the screen - if you wrap your code between the code tags it will read MUCH better.
2nd, I can't replicate this issue - we have several PDFs opening in new windows & we only need to click once on the clost 'X' - how are you calling the PDF in a new window?
If you can't find a final resolution, an alternative would be to place a LinktoAction on your web dynpro application somewhere that makes sense which would close the window for you.
We do this on Sucess Message Views...
You can simply add the link to action to the screen, and in the event handler use
   data : l_view_cntr type ref to if_wd_view_controller,
       l_win_cntr  type ref to if_wd_window_controller,
       l_window    type ref to if_wd_window,
       l_parameter_list  type wdr_event_parameter_list,
       l_parameter       type   wdr_event_parameter,
       l_val type ref to data.
field-symbols <fs> type any.
l_view_cntr = wd_this->wd_get_api( ).
l_win_cntr  = l_view_cntr->get_embedding_window_ctlr( ).
l_parameter-name = 'CLOSE_WINDOW'.
create data l_val type c.
assign l_val->* to <fs>.
<fs> = 'X'.
l_parameter-value = l_val.
insert l_parameter into table l_parameter_list.
l_win_cntr->if_wd_view_controller~fire_plug(
exporting plug_name = 'EXIT_PLUG'
           parameters = l_parameter_list ).
Make sure you have an Exit plug on your Window with Plug Type EXIT.