SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 13:46:17 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ready to test #259 replaced function module call GET_DYNP_VALUE in the F4_PATH method of ZDEMO_EXCEL_OUTPUTOPT_INCL by DYNP_VALUES_READ

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@412 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2013-04-06 18:02:05 +00:00
parent b483d68e18
commit a3749ac918
1 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ZA2X/PROG/ZDEMO_EXCEL_OUTPUTOPT_INCL.slnk
View File

@ -87,7 +87,7 @@ CLASS lcl_output IMPLEMENTATION.
* After 6.40 via cl_bcs_convert * After 6.40 via cl_bcs_convert
cl_output->t_rawdata = cl_bcs_convert=>xstring_to_solix( iv_xstring = cl_output->xdata ). cl_output->t_rawdata = cl_bcs_convert=>xstring_to_solix( iv_xstring = cl_output->xdata ).
cl_output->bytecount = XSTRLEN( cl_output->xdata ). cl_output->bytecount = xstrlen( cl_output->xdata ).
* before 6.40 * before 6.40
* CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' * CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
@ -125,19 +125,43 @@ CLASS lcl_output IMPLEMENTATION.
METHOD f4_path. METHOD f4_path.
DATA: new_path TYPE string, DATA: new_path TYPE string,
repid TYPE syrepid, repid TYPE syrepid,
dynnr TYPE sydynnr. dynnr TYPE sydynnr,
lt_dynpfields TYPE TABLE OF dynpread,
ls_dynpfields LIKE LINE OF lt_dynpfields.
* Get current value * Get current value
dynnr = sy-dynnr. dynnr = sy-dynnr.
repid = sy-repid. repid = sy-repid.
CALL FUNCTION 'GET_DYNP_VALUE' ls_dynpfields-fieldname = 'P_PATH'.
EXPORTING APPEND ls_dynpfields TO lt_dynpfields.
i_field = 'P_PATH'
i_repid = repid
i_dynnr = dynnr
CHANGING
o_value = new_path.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = repid
dynumb = dynnr
TABLES
dynpfields = lt_dynpfields
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefind_error = 8
double_conversion = 9
stepl_not_found = 10
OTHERS = 11.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
READ TABLE lt_dynpfields INTO ls_dynpfields INDEX 1.
new_path = ls_dynpfields-fieldvalue.
selected_folder = new_path. selected_folder = new_path.
cl_gui_frontend_services=>directory_browse( cl_gui_frontend_services=>directory_browse(