cancel
Showing results for 
Search instead for 
Did you mean: 

DISPLAY PDF INTERACTIVE FORM INTO WEBDYNPRO

Former Member
0 Kudos

I'd like to display a pdf into a popup... it opens the popup it shows the pdf border but pdf is empty!!! Only template...

Is anything wrong in the code bellow ?

method DISPLAY_PDF .

  DATA : l_plvar type plvar.


  select single gsval
      from T77s0
      INTO l_plvar
      where grpid = 'PLOGI' AND
            SEMID = 'PLOGI'.

    DATA : L_SOBJID TYPE SOBJID.

  L_SOBJID = IM_STELL.

  DATA: FP_DOCPARAMS TYPE SFPDOCPARAMS.
  DATA: FP_FORMOUTPUT TYPE FPFORMOUTPUT.

  DATA : IE_OUTPUTPARAMS TYPE SFPOUTPUTPARAMS,
         I_NAME TYPE FPNAME,
         I_FUNCNAME TYPE FUNCNAME.

  DATA: GT_RESULT_ORG_TAB     TYPE TABLE OF SWHACTOR,
        GT_RESULT_ORG_OBJEC   TYPE  Z_T_RESULOBJ,
        GT_RESULT_REQUIREMENT TYPE  Z_T_RESULTREQ,
        GT_RESULT_DESCRIPTION TYPE  Z_T_RESULTDESC,
        GT_RESULT_DESCR_PDF   TYPE  ZTRESULTDESC,
        GT_RESULT_TXT_OBJEC   TYPE STANDARD TABLE OF T777O.

 IE_OUTPUTPARAMS-NODIALOG = 'X'.
 IE_OUTPUTPARAMS-GETPDF = 'X'.

  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      IE_OUTPUTPARAMS = IE_OUTPUTPARAMS
    EXCEPTIONS
      CANCEL
      USAGE_ERROR
      SYSTEM_ERROR
      INTERNAL_ERROR.
  IF SY-SUBRC NE 0.
    EXIT.
  ENDIF.





  TRY.
      I_NAME = 'ZHAP_PDF_JOB_DESCRIPTION_FORM'.

      CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
        EXPORTING
          I_NAME     = I_NAME
        IMPORTING
          E_FUNCNAME = I_FUNCNAME.
    CATCH CX_FP_API_REPOSITORY.
    CATCH CX_FP_API_USAGE.
    CATCH CX_FP_API_INTERNAL.
  ENDTRY.


  CALL FUNCTION 'ZHRTGMT_GET_JOB_DESCRIPTION'
    EXPORTING
      IP_PLVAR           = L_PLVAR
      IP_JOBID           = L_SOBJID
      IP_BEGDA           = SY-DATUM
      IP_ENDDA           = SY-DATUM
    IMPORTING
      RESULT_ORG_TAB     = GT_RESULT_ORG_TAB
      RESULT_ORG_OBJEC   = GT_RESULT_ORG_OBJEC
      RESULT_REQUIREMENT = GT_RESULT_REQUIREMENT
      RESULT_DESCRIPTION = GT_RESULT_DESCRIPTION
      RESULT_DESCR_PDF   = GT_RESULT_DESCR_PDF
    EXCEPTIONS
      NO_FOUND_REQ       = 1
      NO_ENTRY_DESC      = 2.

  CALL FUNCTION I_FUNCNAME
    EXPORTING
      /1BCDWB/DOCPARAMS     = FP_DOCPARAMS
      GT_RESULT_ORG_TAB     = GT_RESULT_ORG_TAB
      GT_RESULT_ORG_OBJEC   = GT_RESULT_ORG_OBJEC
      GT_RESULT_REQUIREMENT = GT_RESULT_REQUIREMENT
      GT_RESULT_DESCRIPTION = GT_RESULT_DESCRIPTION
      GT_RESULT_DESCR_PDF   = GT_RESULT_DESCR_PDF
    IMPORTING
      /1BCDWB/FORMOUTPUT    = FP_FORMOUTPUT
    EXCEPTIONS
      USAGE_ERROR           = 1
      SYSTEM_ERROR          = 2
      INTERNAL_ERROR        = 3.

  CALL FUNCTION 'FP_JOB_CLOSE'
    EXCEPTIONS
      USAGE_ERROR    = 1
      SYSTEM_ERROR   = 2
      INTERNAL_ERROR = 3
      OTHERS         = 4.

  DATA:
    NODE_PDF                            TYPE REF TO IF_WD_CONTEXT_NODE,
    ELEM_PDF                            TYPE REF TO IF_WD_CONTEXT_ELEMENT,
    STRU_PDF                            TYPE WD_THIS->ELEMENT_PDF .
* navigate from <CONTEXT> to <PDF> via lead selection
  NODE_PDF = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_PDF ).

* get element via lead selection
  ELEM_PDF = NODE_PDF->GET_ELEMENT(  ).


  CALL METHOD ELEM_PDF->SET_ATTRIBUTE
    EXPORTING
      NAME  = 'SOURCE'
      VALUE = FP_FORMOUTPUT-PDF.



  DATA : LR_WINDOW_MANAGER TYPE REF TO IF_WD_WINDOW_MANAGER,
         LT_TEXTS TYPE STRING_TABLE,
         LR_COMPONENT_API TYPE REF TO IF_WD_COMPONENT,
         LR_POPUP TYPE REF TO IF_WD_POPUP_TO_CONFIRM,
         LR_VIEW_CONTROLLER TYPE REF TO IF_WD_VIEW_CONTROLLER,
         LR_COMPCONTROLLER TYPE REF TO Ig_COMPONENTCONTROLLER,
         l_title type string.

  LR_COMPCONTROLLER = wd_THIS . "  get_Componentcontroller_ctr( ).
  LR_COMPONENT_API = wd_this->wd_get_api( ). "wd_comp_controller
  LR_WINDOW_MANAGER = LR_COMPONENT_API->get_window_manager( ).

  LR_COMPCONTROLLER->mr_window = LR_WINDOW_MANAGER->create_window( window_name = 'POPUP_PDF').
  LR_COMPCONTROLLER->mr_window->set_close_button( CLOSE_BUTTON = 'X' ).
  LR_COMPCONTROLLER->mr_window->SET_WINDOW_TITLE( SPACE ).
  LR_COMPCONTROLLER->mr_window->open( ).

endmethod.

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

I forgot to add that the method has been creeated in componentcontroller..