mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
fix dynpros + SOSU
This commit is contained in:
parent
2f8e9bfa99
commit
55c9fd61b5
|
@ -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.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user