*&---------------------------------------------------------------------*

*&      Form  FRM_SET_PRINT_PARAM

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      <--P_LS_CONTROL_PARAM  text

*      <--P_LS_COMPOSER_PARAM  text

*----------------------------------------------------------------------*

form frm_set_print_param  changing pv_control_param type ssfctrlop

                                   pv_composer_param type ssfcompop.

  data: ls_itcpo     type itcpo.

  data: lv_repid     type sy-repid.

  data: lv_device    type tddevice.

  data: l_retcode    type sysubrc.

  if g_xscreen = space.

    lv_repid = sy-repid.

    call function 'WFMC_PREPARE_SMART_FORM'

      exporting

        pi_nast       = nast

        pi_repid      = lv_repid

      importing

        pe_returncode = l_retcode

        pe_itcpo      = ls_itcpo

        pe_device     = lv_device.

    if l_retcode = 0.

      move-corresponding ls_itcpo to pv_composer_param.

      pv_composer_param-tdnewid    = abap_true.

      pv_control_param-device      = lv_device.

      pv_control_param-no_dialog   = abap_true.

      pv_control_param-preview     = g_xscreen.

      pv_control_param-getotf      = ls_itcpo-tdgetotf.

      pv_control_param-langu       = nast-spras.

*      pv_composer_param-tdcopies   = nast-anzal.

    endif.

  else.

    pv_composer_param-tdnewid    = abap_true.

    pv_composer_param-tddest     = nast-ldest.

    pv_control_param-device      = 'PRINTER'.

    pv_control_param-no_dialog   = abap_true.

    pv_control_param-preview     = g_xscreen.

    pv_control_param-langu       = sy-langu.

  endif.

endform.