diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index abba4a1ce..6969aac47 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -6965,7 +6965,7 @@ CLASS lcl_object_sicf IMPLEMENTATION. METHOD change_sicf. DATA: lt_icfhndlist TYPE icfhndlist, - lt_existing TYPE TABLE OF icfhandler, + lt_existing TYPE TABLE OF icfhandler, ls_icfserdesc TYPE icfserdesc. FIELD-SYMBOLS: LIKE LINE OF lt_existing. @@ -9690,30 +9690,30 @@ CLASS lcl_object_enhs IMPLEMENTATION. ENDIF. TRY. - cl_enh_factory=>create_enhancement_spot( - EXPORTING - spot_name = lv_spot_name - tooltype = cl_enh_tool_badi_def=>tooltype "BADI_DEF - dark = 'X' - compositename = lv_parent - IMPORTING - spot = li_spot_ref ). + cl_enh_factory=>create_enhancement_spot( + EXPORTING + spot_name = lv_spot_name + tooltype = cl_enh_tool_badi_def=>tooltype "BADI_DEF + dark = 'X' + compositename = lv_parent + IMPORTING + spot = li_spot_ref ). - li_badidef_tool ?= li_spot_ref. + li_badidef_tool ?= li_spot_ref. - li_badidef_tool->if_enh_object_docu~set_shorttext( lv_enh_shtext ). + li_badidef_tool->if_enh_object_docu~set_shorttext( lv_enh_shtext ). - LOOP AT lt_enh_badi INTO ls_enh_badi. - li_badidef_tool->add_badi_def( ls_enh_badi ). - ENDLOOP. + LOOP AT lt_enh_badi INTO ls_enh_badi. + li_badidef_tool->add_badi_def( ls_enh_badi ). + ENDLOOP. - li_badidef_tool->if_enh_object~save( ). - li_badidef_tool->if_enh_object~activate( ). - li_badidef_tool->if_enh_object~unlock( ). + li_badidef_tool->if_enh_object~save( ). + li_badidef_tool->if_enh_object~activate( ). + li_badidef_tool->if_enh_object~unlock( ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while deserializing EHNS: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while deserializing EHNS: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "deserialize @@ -9731,46 +9731,46 @@ CLASS lcl_object_enhs IMPLEMENTATION. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot( - spot_name = lv_spot_name ). + li_spot_ref = cl_enh_factory=>get_enhancement_spot( + spot_name = lv_spot_name ). - li_badidef_tool ?= li_spot_ref. + li_badidef_tool ?= li_spot_ref. - lv_enh_shtext = li_badidef_tool->if_enh_object_docu~get_shorttext( ). + lv_enh_shtext = li_badidef_tool->if_enh_object_docu~get_shorttext( ). - "get parent = composite enhs (ENHC) - lv_parent = CL_R3STANDARD_PERSISTENCE=>enh_find_parent_composite( lv_spot_name ). - "get subsequent BADI definitions - lt_enh_badi = li_badidef_tool->get_badi_defs( ). + "get parent = composite enhs (ENHC) + lv_parent = cl_r3standard_persistence=>enh_find_parent_composite( lv_spot_name ). + "get subsequent BADI definitions + lt_enh_badi = li_badidef_tool->get_badi_defs( ). - io_xml->add( ig_data = lv_parent - iv_name = 'PARENT_COMP' ). - io_xml->add( ig_data = lv_enh_shtext - iv_name = 'SHORTTEXT' ). - io_xml->add( ig_data = lt_enh_badi - iv_name = 'BADI_DATA' ). + io_xml->add( ig_data = lv_parent + iv_name = 'PARENT_COMP' ). + io_xml->add( ig_data = lv_enh_shtext + iv_name = 'SHORTTEXT' ). + io_xml->add( ig_data = lt_enh_badi + iv_name = 'BADI_DATA' ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while serializing EHNS: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while serializing EHNS: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "serialize METHOD lif_object~exists. - DATA: lv_spot_name TYPE enhspotname, - lv_message TYPE string, - li_cx TYPE REF TO cx_root, - li_spot_ref TYPE REF TO if_enh_spot_tool. + DATA: lv_spot_name TYPE enhspotname, + lv_message TYPE string, + li_cx TYPE REF TO cx_root, + li_spot_ref TYPE REF TO if_enh_spot_tool. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot( - spot_name = lv_spot_name ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while checking EHNS: ` && li_cx->get_text( ). - _raise lv_message. + li_spot_ref = cl_enh_factory=>get_enhancement_spot( + spot_name = lv_spot_name ). + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while checking EHNS: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. " Check that is is realy a BAdI IF li_spot_ref->get_tool( ) = cl_enh_tool_badi_def=>tooltype. "BADI_DEF" @@ -9789,20 +9789,20 @@ CLASS lcl_object_enhs IMPLEMENTATION. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot( - spot_name = lv_spot_name - lock = 'X' ). + li_spot_ref = cl_enh_factory=>get_enhancement_spot( + spot_name = lv_spot_name + lock = 'X' ). - IF li_spot_ref IS BOUND. - li_badidef_tool ?= li_spot_ref. - li_badidef_tool->if_enh_object~delete( - nevertheless_delete = 'X' - run_dark = 'X' ). - ENDIF. + IF li_spot_ref IS BOUND. + li_badidef_tool ?= li_spot_ref. + li_badidef_tool->if_enh_object~delete( + nevertheless_delete = 'X' + run_dark = 'X' ). + ENDIF. li_badidef_tool->if_enh_object~unlock( ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while deleting EHNS: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while deleting EHNS: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "delete @@ -9837,15 +9837,15 @@ ENDCLASS. "lcl_object_ensc CLASS lcl_object_ensc IMPLEMENTATION. METHOD lif_object~deserialize. - DATA: lv_spot_name TYPE enhspotcompositename, - lv_message TYPE string, - lv_enh_shtext TYPE string, - ls_enh_spot TYPE enhspotname, - lt_enh_spots TYPE enhspotname_it, - lt_comp_spots TYPE enhspotname_it, - li_cx TYPE REF TO cx_root, - li_spot_ref TYPE REF TO if_enh_spot_composite, - lo_spot_ref TYPE REF TO cl_enh_spot_composite. + DATA: lv_spot_name TYPE enhspotcompositename, + lv_message TYPE string, + lv_enh_shtext TYPE string, + ls_enh_spot TYPE enhspotname, + lt_enh_spots TYPE enhspotname_it, + lt_comp_spots TYPE enhspotname_it, + li_cx TYPE REF TO cx_root, + li_spot_ref TYPE REF TO if_enh_spot_composite, + lo_spot_ref TYPE REF TO cl_enh_spot_composite. lv_spot_name = ms_item-obj_name. @@ -9861,93 +9861,93 @@ CLASS lcl_object_ensc IMPLEMENTATION. ENDIF. TRY. - cl_enh_factory=>create_enhancement_spot_comp( - EXPORTING - name = lv_spot_name - run_dark = 'X' - IMPORTING - composite = li_spot_ref ). + cl_enh_factory=>create_enhancement_spot_comp( + EXPORTING + name = lv_spot_name + run_dark = 'X' + IMPORTING + composite = li_spot_ref ). - lo_spot_ref ?= li_spot_ref. + lo_spot_ref ?= li_spot_ref. - lo_spot_ref->if_enh_object_docu~set_shorttext( lv_enh_shtext ). - "Add subsequent enhancement spots - LOOP AT lt_enh_spots INTO ls_enh_spot. - lo_spot_ref->if_enh_spot_composite~add_enh_spot_child( ls_enh_spot ). - ENDLOOP. - "Add subsequent composite enhancement spots - LOOP AT lt_comp_spots INTO ls_enh_spot. - lo_spot_ref->if_enh_spot_composite~add_composite_child( ls_enh_spot ). - ENDLOOP. + lo_spot_ref->if_enh_object_docu~set_shorttext( lv_enh_shtext ). + "Add subsequent enhancement spots + LOOP AT lt_enh_spots INTO ls_enh_spot. + lo_spot_ref->if_enh_spot_composite~add_enh_spot_child( ls_enh_spot ). + ENDLOOP. + "Add subsequent composite enhancement spots + LOOP AT lt_comp_spots INTO ls_enh_spot. + lo_spot_ref->if_enh_spot_composite~add_composite_child( ls_enh_spot ). + ENDLOOP. - lo_spot_ref->if_enh_object~save( ). - lo_spot_ref->if_enh_object~activate( ). - lo_spot_ref->if_enh_object~unlock( ). + lo_spot_ref->if_enh_object~save( ). + lo_spot_ref->if_enh_object~activate( ). + lo_spot_ref->if_enh_object~unlock( ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while deserializing ENSC: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while deserializing ENSC: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "deserialize METHOD lif_object~serialize. - DATA: lv_spot_name TYPE enhspotcompositename, - lv_message TYPE string, - lv_enh_shtext TYPE string, - lv_parent TYPE enhspotcompositename, - lt_enh_spots TYPE enhspotname_it, - lt_comp_spots TYPE enhspotname_it, - li_cx TYPE REF TO cx_root, - li_spot_ref TYPE REF TO if_enh_spot_composite, - lo_spot_ref TYPE REF TO cl_enh_spot_composite. + DATA: lv_spot_name TYPE enhspotcompositename, + lv_message TYPE string, + lv_enh_shtext TYPE string, + lv_parent TYPE enhspotcompositename, + lt_enh_spots TYPE enhspotname_it, + lt_comp_spots TYPE enhspotname_it, + li_cx TYPE REF TO cx_root, + li_spot_ref TYPE REF TO if_enh_spot_composite, + lo_spot_ref TYPE REF TO cl_enh_spot_composite. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( - lock = '' - name = lv_spot_name ). + li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( + lock = '' + name = lv_spot_name ). - lo_spot_ref ?= li_spot_ref. + lo_spot_ref ?= li_spot_ref. - lv_enh_shtext = li_spot_ref->if_enh_object_docu~get_shorttext( ). - "find parent = composite enhancement (ENSC) - lv_parent = CL_R3STANDARD_PERSISTENCE=>enh_find_parent_composite( lv_spot_name ). - "find subsequent enhancement spots - lt_enh_spots = lo_spot_ref->if_enh_spot_composite~get_enh_spot_childs( ). - "find subsequent composite enhancement spots - lt_comp_spots = lo_spot_ref->if_enh_spot_composite~get_composite_childs( ). + lv_enh_shtext = li_spot_ref->if_enh_object_docu~get_shorttext( ). + "find parent = composite enhancement (ENSC) + lv_parent = cl_r3standard_persistence=>enh_find_parent_composite( lv_spot_name ). + "find subsequent enhancement spots + lt_enh_spots = lo_spot_ref->if_enh_spot_composite~get_enh_spot_childs( ). + "find subsequent composite enhancement spots + lt_comp_spots = lo_spot_ref->if_enh_spot_composite~get_composite_childs( ). - io_xml->add( ig_data = lv_enh_shtext - iv_name = 'SHORTTEXT' ). - io_xml->add( ig_data = lt_enh_spots - iv_name = 'ENH_SPOTS' ). "Enhancement spots - io_xml->add( ig_data = lt_comp_spots - iv_name = 'COMP_ENH_SPOTS' ). "Composite enhancement spots + io_xml->add( ig_data = lv_enh_shtext + iv_name = 'SHORTTEXT' ). + io_xml->add( ig_data = lt_enh_spots + iv_name = 'ENH_SPOTS' ). "Enhancement spots + io_xml->add( ig_data = lt_comp_spots + iv_name = 'COMP_ENH_SPOTS' ). "Composite enhancement spots - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while serializing ENSC: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while serializing ENSC: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "serialize METHOD lif_object~exists. - DATA: lv_spot_name TYPE enhspotcompositename, - lv_message TYPE string, - li_cx TYPE REF TO cx_root, - li_spot_ref TYPE REF TO if_enh_spot_composite. + DATA: lv_spot_name TYPE enhspotcompositename, + lv_message TYPE string, + li_cx TYPE REF TO cx_root, + li_spot_ref TYPE REF TO if_enh_spot_composite. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( - lock = '' - name = lv_spot_name ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while checking ENSC: ` && li_cx->get_text( ). - _raise lv_message. + li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( + lock = '' + name = lv_spot_name ). + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while checking ENSC: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. rv_bool = abap_true. @@ -9955,27 +9955,27 @@ CLASS lcl_object_ensc IMPLEMENTATION. ENDMETHOD. "exists METHOD lif_object~delete. - DATA: lv_spot_name TYPE enhspotcompositename, - lv_message TYPE string, - li_cx TYPE REF TO cx_root, - li_spot_ref TYPE REF TO if_enh_spot_composite. + DATA: lv_spot_name TYPE enhspotcompositename, + lv_message TYPE string, + li_cx TYPE REF TO cx_root, + li_spot_ref TYPE REF TO if_enh_spot_composite. lv_spot_name = ms_item-obj_name. TRY. - li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( - lock = 'X' - name = lv_spot_name ). + li_spot_ref = cl_enh_factory=>get_enhancement_spot_comp( + lock = 'X' + name = lv_spot_name ). - IF li_spot_ref IS BOUND. - li_spot_ref->if_enh_object~delete( - nevertheless_delete = 'X' - run_dark = 'X' ). - ENDIF. + IF li_spot_ref IS BOUND. + li_spot_ref->if_enh_object~delete( + nevertheless_delete = 'X' + run_dark = 'X' ). + ENDIF. li_spot_ref->if_enh_object~unlock( ). - CATCH cx_enh_root INTO li_cx. - lv_message = `Error occured while deleting ENSC: ` && li_cx->get_text( ). - _raise lv_message. + CATCH cx_enh_root INTO li_cx. + lv_message = `Error occured while deleting ENSC: ` && li_cx->get_text( ). + _raise lv_message. ENDTRY. ENDMETHOD. "delete @@ -21993,6 +21993,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION. DATA: lo_repo LIKE LINE OF it_list, lo_toolbar TYPE REF TO lcl_html_toolbar. + CREATE OBJECT ro_html. CREATE OBJECT lo_toolbar. @@ -22002,6 +22003,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION. LOOP AT it_list INTO lo_repo. lo_toolbar->add( iv_txt = lo_repo->get_name( ) + iv_typ = gc_action_type-url iv_act = |#repo{ lo_repo->get_key( ) }| ). ENDLOOP.