fix dynpros + SOSU

This commit is contained in:
larshp 2016-03-06 11:10:38 +00:00
parent 2f8e9bfa99
commit 55c9fd61b5

View File

@ -7309,7 +7309,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
ig_data = ls_tobj ). ig_data = ls_tobj ).
lo_xml->add( iv_name = 'TOBJT' lo_xml->add( iv_name = 'TOBJT'
ig_data = ls_tobjt ). ig_data = ls_tobjt ).
lo_xml->add( iv_name = 'TOBJVOFFLG' lo_xml->add( iv_name = 'TOBJVORFLG'
ig_data = ls_tobjvorflg ). ig_data = ls_tobjvorflg ).
lo_xml->add( ig_data = lt_tactz lo_xml->add( ig_data = lt_tactz
iv_name = 'TACTZ' ). iv_name = 'TACTZ' ).
@ -10921,21 +10921,22 @@ CLASS lcl_object_prog IMPLEMENTATION.
METHOD deserialize_dynpros. METHOD deserialize_dynpros.
DATA: lv_name TYPE dwinactiv-obj_name. DATA: lv_name TYPE dwinactiv-obj_name,
ls_dynpro LIKE LINE OF it_dynpros.
FIELD-SYMBOLS: <ls_dynpro> LIKE LINE OF it_dynpros.
LOOP AT it_dynpros ASSIGNING <ls_dynpro>. * ls_dynpro is changed by the function module, a field-symbol will cause
* the program to dump since it_dynpros cannot be changed
LOOP AT it_dynpros INTO ls_dynpro.
CALL FUNCTION 'RPY_DYNPRO_INSERT' CALL FUNCTION 'RPY_DYNPRO_INSERT'
EXPORTING EXPORTING
header = <ls_dynpro>-header header = ls_dynpro-header
suppress_exist_checks = abap_true suppress_exist_checks = abap_true
TABLES TABLES
containers = <ls_dynpro>-containers containers = ls_dynpro-containers
fields_to_containers = <ls_dynpro>-fields fields_to_containers = ls_dynpro-fields
flow_logic = <ls_dynpro>-flow_logic flow_logic = ls_dynpro-flow_logic
EXCEPTIONS EXCEPTIONS
cancelled = 1 cancelled = 1
already_exists = 2 already_exists = 2
@ -10952,7 +10953,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDIF. ENDIF.
* todo, RPY_DYNPRO_UPDATE? * todo, RPY_DYNPRO_UPDATE?
CONCATENATE <ls_dynpro>-header-program <ls_dynpro>-header-screen CONCATENATE ls_dynpro-header-program ls_dynpro-header-screen
INTO lv_name RESPECTING BLANKS. INTO lv_name RESPECTING BLANKS.
ASSERT NOT lv_name IS INITIAL. ASSERT NOT lv_name IS INITIAL.