on 09-24-2007 1:50 PM
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.
I forgot to add that the method has been creeated in componentcontroller..
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
87 | |
10 | |
10 | |
10 | |
7 | |
6 | |
6 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.