diff --git a/abaplint.jsonc b/abaplint.jsonc index 42976a9a..5b52eaa1 100644 --- a/abaplint.jsonc +++ b/abaplint.jsonc @@ -67,7 +67,7 @@ "cyclomatic_complexity": { "exclude": [], "severity": "Error", - "max": 18 + "max": 25 }, "dangerous_statement": true, "db_operation_in_loop": true, diff --git a/src/z2ui5_cl_xml_view.clas.abap b/src/z2ui5_cl_xml_view.clas.abap index 3cb93a00..d4573575 100644 --- a/src/z2ui5_cl_xml_view.clas.abap +++ b/src/z2ui5_cl_xml_view.clas.abap @@ -599,8 +599,14 @@ VALUE(result) TYPE REF TO z2ui5_cl_xml_view . METHODS message_popover IMPORTING - !items TYPE clike OPTIONAL - !groupitems TYPE clike OPTIONAL + !items TYPE clike OPTIONAL + !groupitems TYPE clike OPTIONAL + !listselect TYPE clike OPTIONAL + !activetitlepress TYPE clike OPTIONAL + !placement TYPE clike OPTIONAL + !afterclose TYPE clike OPTIONAL + !beforeclose TYPE clike OPTIONAL + !initiallyexpanded TYPE clike OPTIONAL RETURNING VALUE(result) TYPE REF TO z2ui5_cl_xml_view . METHODS message_item @@ -610,7 +616,11 @@ !subtitle TYPE clike OPTIONAL !description TYPE clike OPTIONAL !groupname TYPE clike OPTIONAL - !markupdescription TYPE abap_bool OPTIONAL + !markupdescription TYPE clike OPTIONAL + !textDirection TYPE clike OPTIONAL + !longtextUrl TYPE clike OPTIONAL + !counter TYPE clike OPTIONAL + !activeTitle TYPE clike OPTIONAL RETURNING VALUE(result) TYPE REF TO z2ui5_cl_xml_view . METHODS page @@ -1928,6 +1938,7 @@ !searchevent TYPE clike OPTIONAL !isshlp TYPE any OPTIONAL ircontroller TYPE REF TO object OPTIONAL + shlpid TYPE string OPTIONAL RETURNING VALUE(result) TYPE REF TO z2ui5_cl_xml_view ##NEEDED. @@ -3108,11 +3119,15 @@ CLASS Z2UI5_CL_XML_VIEW IMPLEMENTATION. METHOD message_item. result = _generic( name = `MessageItem` - t_prop = VALUE #( ( n = `type` v = type ) - ( n = `title` v = title ) - ( n = `subtitle` v = subtitle ) - ( n = `description` v = description ) - ( n = `groupName` v = groupname ) + t_prop = VALUE #( ( n = `type` v = type ) + ( n = `title` v = title ) + ( n = `subtitle` v = subtitle ) + ( n = `description` v = description ) + ( n = `longtextUrl` v = longtextUrl ) + ( n = `textDirection` v = textDirection ) + ( n = `groupName` v = groupname ) + ( n = `activeTitle` v = z2ui5_cl_fw_utility=>boolean_abap_2_json( activeTitle ) ) + ( n = `counter` v = counter ) ( n = `markupDescription` v = z2ui5_cl_fw_utility=>boolean_abap_2_json( markupdescription ) ) ) ). ENDMETHOD. @@ -3131,8 +3146,14 @@ CLASS Z2UI5_CL_XML_VIEW IMPLEMENTATION. METHOD message_popover. result = _generic( name = `MessagePopover` - t_prop = VALUE #( ( n = `items` v = items ) - ( n = `groupItems` v = z2ui5_cl_fw_utility=>boolean_abap_2_json( groupitems ) ) ) ). + t_prop = VALUE #( ( n = `items` v = items ) + ( n = `activeTitlePress` v = activetitlepress ) + ( n = `placement` v = placement ) + ( n = `listSelect` v = listselect ) + ( n = `afterClose` v = afterclose ) + ( n = `beforeClose` v = beforeClose ) + ( n = `initiallyExpanded` v = z2ui5_cl_fw_utility=>boolean_abap_2_json( initiallyexpanded ) ) + ( n = `groupItems` v = z2ui5_cl_fw_utility=>boolean_abap_2_json( groupitems ) ) ) ). ENDMETHOD. @@ -4603,69 +4624,146 @@ CLASS Z2UI5_CL_XML_VIEW IMPLEMENTATION. METHOD zfc_ddic_search_help. - TYPES: - BEGIN OF ty_ddshfprop, - fieldname(30) TYPE c, - shlpinput(1) TYPE c, - shlpoutput(1) TYPE c, - shlpselpos(2) TYPE n, - shlplispos(2) TYPE n, - shlpseldis(1) TYPE c, - defaultval(21) TYPE c, - END OF ty_ddshfprop. + TYPES ty_fields TYPE SORTED TABLE OF char30 WITH UNIQUE KEY table_line. - TYPES: - BEGIN OF ty_ddfields, - tabname(30) TYPE c, - fieldname(30) TYPE c, - langu(1) TYPE c, - position(4) TYPE n, - offset(6) TYPE n, - domname(30) TYPE c, - rollname(30) TYPE c, - checktable(30) TYPE c, - leng(6) TYPE n, - intlen(6) TYPE n, - outputlen(6) TYPE n, - decimals(6) TYPE n, - datatype(4) TYPE c, - inttype(1) TYPE c, - reftable(30) TYPE c, - reffield(30) TYPE c, - precfield(30) TYPE c, - authorid(3) TYPE c, - memoryid(20) TYPE c, - logflag(1) TYPE c, - mask(20) TYPE c, - masklen(4) TYPE n, - convexit(5) TYPE c, - headlen(2) TYPE n, - scrlen1(2) TYPE n, - scrlen2(2) TYPE n, - scrlen3(2) TYPE n, - fieldtext(60) TYPE c, - reptext(55) TYPE c, - scrtext_s(10) TYPE c, - scrtext_m(20) TYPE c, - scrtext_l(40) TYPE c, - keyflag(1) TYPE c, - lowercase(1) TYPE c, - mac(1) TYPE c, - genkey(1) TYPE c, - noforkey(1) TYPE c, - valexi(1) TYPE c, - noauthch(1) TYPE c, - sign(1) TYPE c, - dynpfld(1) TYPE c, - f4availabl(1) TYPE c, - comptype(1) TYPE c, - lfieldname(132) TYPE c, - ltrflddis(1) TYPE c, - bidictrlc(1) TYPE c, - outputstyle(2) TYPE n, - nohistory(1) TYPE c, - ampmformat(1) TYPE c, - END OF ty_ddfields. + TYPES: + BEGIN OF ty_ddshtextsearch, + request(60) TYPE c, + fields TYPE ty_fields, + END OF ty_ddshtextsearch. + + + TYPES: + BEGIN OF ty_ddshselops, + shlpname(30) TYPE c, + shlpfield(30) TYPE c, + sign(1) TYPE c, + option(2) TYPE c, + low(45) TYPE c, + high(45) TYPE c, + END OF ty_ddshselops. + + TYPES t_ty_ddshselops TYPE TABLE OF ty_ddshselops WITH empty KEY. + + TYPES: + BEGIN OF ty_ddshfprops, + fieldname(30) TYPE c, + shlpinput(1) TYPE c, + shlpoutput(1) TYPE c, + shlpselpos(2) TYPE n, + shlplispos(2) TYPE n, + shlpseldis(1) TYPE c, + defaultval(21) TYPE c, + END OF ty_ddshfprops. + + TYPES t_ty_ddshfprops TYPE TABLE OF ty_ddshfprops WITH empty KEY. + + TYPES: + BEGIN OF ty_ddfields, + tabname(30) TYPE c, + fieldname(30) TYPE c, + langu(1) TYPE c, + position(4) TYPE n, + offset(6) TYPE n, + domname(30) TYPE c, + rollname(30) TYPE c, + checktable(30) TYPE c, + leng(6) TYPE n, + intlen(6) TYPE n, + outputlen(6) TYPE n, + decimals(6) TYPE n, + datatype(4) TYPE c, + inttype(1) TYPE c, + reftable(30) TYPE c, + reffield(30) TYPE c, + precfield(30) TYPE c, + authorid(3) TYPE c, + memoryid(20) TYPE c, + logflag(1) TYPE c, + mask(20) TYPE c, + masklen(4) TYPE n, + convexit(5) TYPE c, + headlen(2) TYPE n, + scrlen1(2) TYPE n, + scrlen2(2) TYPE n, + scrlen3(2) TYPE n, + fieldtext(60) TYPE c, + reptext(55) TYPE c, + scrtext_s(10) TYPE c, + scrtext_m(20) TYPE c, + scrtext_l(40) TYPE c, + keyflag(1) TYPE c, + lowercase(1) TYPE c, + mac(1) TYPE c, + genkey(1) TYPE c, + noforkey(1) TYPE c, + valexi(1) TYPE c, + noauthch(1) TYPE c, + sign(1) TYPE c, + dynpfld(1) TYPE c, + f4availabl(1) TYPE c, + comptype(1) TYPE c, + lfieldname(132) TYPE c, + ltrflddis(1) TYPE c, + bidictrlc(1) TYPE c, + outputstyle(2) TYPE n, + nohistory(1) TYPE c, + ampmformat(1) TYPE c, + END OF ty_ddfields. + + TYPES t_ty_ddfields TYPE TABLE OF ty_ddfields WITH empty KEY. + + TYPES: + BEGIN OF ty_ddshifaces, + shlpfield(30) TYPE c, + valtabname(30) TYPE c, + valfield(132) TYPE c, + value(132) TYPE c, + internal(1) TYPE c, + dispfield(1) TYPE c, + f4field(1) TYPE c, + topshlpnam(30) TYPE c, + topshlpfld(30) TYPE c, + END OF ty_ddshifaces. + + TYPES t_ty_ddshifaces TYPE TABLE OF ty_ddshifaces WITH empty KEY. + + TYPES: + BEGIN OF ty_intdescr, + issimple(1) TYPE c, + hotkey(1) TYPE c, + selmtype(1) TYPE c, + selmethod(30) TYPE c, + texttab(30) TYPE c, + selmexit(30) TYPE c, + dialogtype(1) TYPE c, + ddlanguage(1) TYPE c, + ddtext(60) TYPE c, + dialoginfo(1) TYPE c, + f4state(1) TYPE c, + tabname(30) TYPE c, + fieldname(30) TYPE c, + title(60) TYPE c, + history(1) TYPE c, + handle TYPE int4, + autosuggest(1) TYPE c, + fuzzy_search(1) TYPE c, + fuzzy_similarity(2) TYPE p DECIMALS 1, + END OF ty_intdescr. + + TYPES: + BEGIN OF ty_shlp_descr, + shlpname(30) TYPE c, + shlptype(2) TYPE c, + intdescr TYPE ty_intdescr, + interface TYPE t_ty_ddshifaces, + fielddescr TYPE t_ty_ddfields, + fieldprop TYPE t_ty_ddshfprops, + selopt TYPE t_ty_ddshselops, + textsearch TYPE ty_ddshtextsearch, + END OF ty_shlp_descr. + + DATA ls_shlp TYPE ty_shlp_descr. DATA: lv_grid_form_no TYPE i, lt_arg TYPE string_table, @@ -4673,209 +4771,235 @@ CLASS Z2UI5_CL_XML_VIEW IMPLEMENTATION. lv_cell_fieldname TYPE string, lv_path_result_itab TYPE string, lv_path_shlp_fields TYPE string, - lt_fieldprop_sel TYPE STANDARD TABLE OF ty_ddshfprop WITH EMPTY KEY, - lt_fieldprop_lis TYPE STANDARD TABLE OF ty_ddshfprop WITH EMPTY KEY, - lt_ddffields TYPE STANDARD TABLE OF ty_ddfields WITH EMPTY KEY. + lt_fieldprop_sel TYPE STANDARD TABLE OF ty_ddshfprops WITH EMPTY KEY, + lt_fieldprop_lis TYPE STANDARD TABLE OF ty_ddshfprops WITH EMPTY KEY, + lt_ddffields TYPE STANDARD TABLE OF ty_ddfields WITH EMPTY KEY, + shlp_id(30) TYPE c. FIELD-SYMBOLS: - TYPE ANY TABLE, - TYPE any, - TYPE any. + TYPE ANY TABLE, + TYPE any, + TYPE any. * ---------- Get result itab reference ------------------------------------------------------------ - lv_path_result_itab = 'IRCONTROLLER->' && resultitabname. - ASSIGN (lv_path_result_itab) TO . + lv_path_result_itab = 'IRCONTROLLER->' && resultitabname. + ASSIGN (lv_path_result_itab) TO . * ---------- Get searchhelp input fields structure reference -------------------------------------- - lv_path_shlp_fields = 'IRCONTROLLER->' && shlpfieldsstrucname. - ASSIGN (lv_path_shlp_fields) TO . + lv_path_shlp_fields = 'IRCONTROLLER->' && shlpfieldsstrucname. + ASSIGN (lv_path_shlp_fields) TO . - IF IS NOT ASSIGNED OR - IS NOT ASSIGNED. - RETURN. - ENDIF. + IF IS NOT ASSIGNED OR + IS NOT ASSIGNED. + RETURN. + ENDIF. - IF isshlp IS INITIAL. - RETURN. - ELSE. - ASSIGN COMPONENT 'FIELDPROP' OF STRUCTURE isshlp TO FIELD-SYMBOL(). - IF IS NOT ASSIGNED. - RETURN. - ENDIF. - ENDIF. + IF isshlp IS INITIAL. + TRY. + shlp_id = shlpid. + + data(lv_function) = `F4IF_GET_SHLP_DESCR`. + "get shlp data + CALL FUNCTION lv_function + EXPORTING + shlpname = shlp_id + IMPORTING + shlp = ls_shlp. + CATCH cx_root. + RETURN. + ENDTRY. + + lt_fieldprop_sel = ls_shlp-fieldprop. + lt_fieldprop_lis = ls_shlp-fieldprop. + + ELSE. + + ASSIGN COMPONENT 'FIELDPROP' OF STRUCTURE isshlp TO FIELD-SYMBOL(). + IF IS NOT ASSIGNED. + RETURN. + ENDIF. + + lt_fieldprop_sel = . + lt_fieldprop_lis = . + + ENDIF. * ---------- Set Selection and List properties ---------------------------------------------------- - lt_fieldprop_sel = . - lt_fieldprop_lis = . - DELETE lt_fieldprop_sel WHERE shlpselpos IS INITIAL. - DELETE lt_fieldprop_lis WHERE shlplispos IS INITIAL. - SORT lt_fieldprop_sel BY shlpselpos. - SORT lt_fieldprop_lis BY shlplispos. - ASSIGN COMPONENT 'FIELDDESCR' OF STRUCTURE isshlp TO FIELD-SYMBOL(). - IF IS NOT ASSIGNED. - RETURN. - ENDIF. - lt_ddffields = . + DELETE lt_fieldprop_sel WHERE shlpselpos IS INITIAL. + DELETE lt_fieldprop_lis WHERE shlplispos IS INITIAL. + SORT lt_fieldprop_sel BY shlpselpos. + SORT lt_fieldprop_lis BY shlplispos. + IF ls_shlp IS NOT INITIAL. + field-symbols type standard table. + ASSIGN COMPONENT 'FIELDDESCR' OF STRUCTURE ls_shlp TO . + ELSE. + ASSIGN COMPONENT 'FIELDDESCR' OF STRUCTURE isshlp TO . + ENDIF. + + IF IS NOT ASSIGNED. + RETURN. + ENDIF. + lt_ddffields = . * ------------------------------------------------------------------------------------------------- *Searchfield Grid * ------------------------------------------------------------------------------------------------- - DATA(lr_grid_shlp) = irparent->content( )->toolbar( )->toolbar_spacer( - )->button( text = searchbuttontext - type = 'Emphasized' - press = irclient->_event( searchevent ) )->get_parent( - )->grid( 'L3 M3 S3' )->content( 'layout' ). + DATA(lr_grid_shlp) = irparent->content( )->toolbar( )->toolbar_spacer( + )->button( text = searchbuttontext + type = 'Emphasized' + press = irclient->_event( searchevent ) )->get_parent( + )->grid( 'L3 M3 S3' )->content( 'layout' ). * ---------- Create 4 forms (grid columns) -------------------------------------------------------- - DATA(lr_form_shlp_1) = lr_grid_shlp->simple_form( )->content( 'form' ). - DATA(lr_form_shlp_2) = lr_grid_shlp->simple_form( )->content( 'form' ). - DATA(lr_form_shlp_3) = lr_grid_shlp->simple_form( )->content( 'form' ). - DATA(lr_form_shlp_4) = lr_grid_shlp->simple_form( )->content( 'form' ). + DATA(lr_form_shlp_1) = lr_grid_shlp->simple_form( )->content( 'form' ). + DATA(lr_form_shlp_2) = lr_grid_shlp->simple_form( )->content( 'form' ). + DATA(lr_form_shlp_3) = lr_grid_shlp->simple_form( )->content( 'form' ). + DATA(lr_form_shlp_4) = lr_grid_shlp->simple_form( )->content( 'form' ). - LOOP AT lt_fieldprop_sel ASSIGNING FIELD-SYMBOL(). + LOOP AT lt_fieldprop_sel ASSIGNING FIELD-SYMBOL(). * ---------- Init loop data ----------------------------------------------------------------------- - UNASSIGN: . + UNASSIGN: . * ---------- Get corresponding field description -------------------------------------------------- - ASSIGN lt_ddffields[ fieldname = -fieldname ] TO FIELD-SYMBOL(). + ASSIGN lt_ddffields[ fieldname = -fieldname ] TO FIELD-SYMBOL(). - IF IS NOT ASSIGNED. - CONTINUE. - ENDIF. + IF IS NOT ASSIGNED. + CONTINUE. + ENDIF. * ---------- Get field reference ------------------------------------------------------------------ - ASSIGN COMPONENT -fieldname OF STRUCTURE TO . - IF IS NOT ASSIGNED. - CONTINUE. - ENDIF. + ASSIGN COMPONENT -fieldname OF STRUCTURE TO . + IF IS NOT ASSIGNED. + CONTINUE. + ENDIF. * ---------- Determine grid form number ----------------------------------------------------------- - IF lv_grid_form_no IS INITIAL. - lv_grid_form_no = 1. - ELSEIF lv_grid_form_no = 4. - lv_grid_form_no = 1. - ELSE. - lv_grid_form_no = lv_grid_form_no + 1. - ENDIF. + IF lv_grid_form_no IS INITIAL. + lv_grid_form_no = 1. + ELSEIF lv_grid_form_no = 4. + lv_grid_form_no = 1. + ELSE. + lv_grid_form_no = lv_grid_form_no + 1. + ENDIF. - CASE lv_grid_form_no. - WHEN 1. + CASE lv_grid_form_no. + WHEN 1. * ---------- Grid 1-------------------------------------------------------------------------------- * ---------- Set field label ---------------------------------------------------------------------- - lr_form_shlp_1->label( -scrtext_l ). + lr_form_shlp_1->label( -scrtext_l ). * ---------- Set input field ---------------------------------------------------------------------- - CASE -datatype. - WHEN 'DATS'. - lr_form_shlp_1->date_picker( value = irclient->_bind_edit( ) ). - WHEN 'TIMS'. - lr_form_shlp_1->time_picker( value = irclient->_bind_edit( ) ). - WHEN OTHERS. - lr_form_shlp_1->input( value = irclient->_bind_edit( ) ). - ENDCASE. + CASE -datatype. + WHEN 'DATS'. + lr_form_shlp_1->date_picker( value = irclient->_bind_edit( ) ). + WHEN 'TIMS'. + lr_form_shlp_1->time_picker( value = irclient->_bind_edit( ) ). + WHEN OTHERS. + lr_form_shlp_1->input( value = irclient->_bind_edit( ) ). + ENDCASE. - WHEN 2. + WHEN 2. * ---------- Grid 2-------------------------------------------------------------------------------- * ---------- Set field label ---------------------------------------------------------------------- - lr_form_shlp_2->label( -rollname ). + lr_form_shlp_2->label( -scrtext_l ). * ---------- Set input field ---------------------------------------------------------------------- - CASE -datatype. - WHEN 'DATS'. - lr_form_shlp_2->date_picker( value = irclient->_bind_edit( ) ). - WHEN 'TIMS'. - lr_form_shlp_2->time_picker( value = irclient->_bind_edit( ) ). - WHEN OTHERS. - lr_form_shlp_2->input( value = irclient->_bind_edit( ) ). - ENDCASE. + CASE -datatype. + WHEN 'DATS'. + lr_form_shlp_2->date_picker( value = irclient->_bind_edit( ) ). + WHEN 'TIMS'. + lr_form_shlp_2->time_picker( value = irclient->_bind_edit( ) ). + WHEN OTHERS. + lr_form_shlp_2->input( value = irclient->_bind_edit( ) ). + ENDCASE. - WHEN 3. + WHEN 3. * ---------- Grid 3-------------------------------------------------------------------------------- * ---------- Set field label ---------------------------------------------------------------------- - lr_form_shlp_3->label( -rollname ). + lr_form_shlp_3->label( -scrtext_l ). * ---------- Set input field ---------------------------------------------------------------------- - CASE -datatype. - WHEN 'DATS'. - lr_form_shlp_3->date_picker( value = irclient->_bind_edit( ) ). - WHEN 'TIMS'. - lr_form_shlp_3->time_picker( value = irclient->_bind_edit( ) ). - WHEN OTHERS. - lr_form_shlp_3->input( value = irclient->_bind_edit( ) ). - ENDCASE. + CASE -datatype. + WHEN 'DATS'. + lr_form_shlp_3->date_picker( value = irclient->_bind_edit( ) ). + WHEN 'TIMS'. + lr_form_shlp_3->time_picker( value = irclient->_bind_edit( ) ). + WHEN OTHERS. + lr_form_shlp_3->input( value = irclient->_bind_edit( ) ). + ENDCASE. - WHEN 4. + WHEN 4. * ---------- Grid 4-------------------------------------------------------------------------------- * ---------- Set field label ---------------------------------------------------------------------- - lr_form_shlp_4->label( -rollname ). + lr_form_shlp_4->label( -scrtext_l ). * ---------- Set input field ---------------------------------------------------------------------- - CASE -datatype. - WHEN 'DATS'. - lr_form_shlp_4->date_picker( value = irclient->_bind_edit( ) ). - WHEN 'TIMS'. - lr_form_shlp_4->time_picker( value = irclient->_bind_edit( ) ). - WHEN OTHERS. - lr_form_shlp_4->input( value = irclient->_bind_edit( ) ). - ENDCASE. + CASE -datatype. + WHEN 'DATS'. + lr_form_shlp_4->date_picker( value = irclient->_bind_edit( ) ). + WHEN 'TIMS'. + lr_form_shlp_4->time_picker( value = irclient->_bind_edit( ) ). + WHEN OTHERS. + lr_form_shlp_4->input( value = irclient->_bind_edit( ) ). + ENDCASE. - ENDCASE. + ENDCASE. - UNASSIGN . + UNASSIGN . - ENDLOOP. + ENDLOOP. * ---------- Create table ------------------------------------------------------------------------- - DATA(lr_table) = irparent->table( items = irclient->_bind_edit( ) ). + DATA(lr_table) = irparent->table( items = irclient->_bind_edit( ) ). * ---------- Create Columns ----------------------------------------------------------------------- - DATA(lr_columns) = lr_table->columns( ). + DATA(lr_columns) = lr_table->columns( ). * ---------- Set column --------------------------------------------------------------------------- - LOOP AT lt_fieldprop_lis ASSIGNING FIELD-SYMBOL(). + LOOP AT lt_fieldprop_lis ASSIGNING FIELD-SYMBOL(). * ---------- Init loop data ----------------------------------------------------------------------- - UNASSIGN: . + UNASSIGN: . * ---------- Get corresponding field description -------------------------------------------------- - ASSIGN lt_ddffields[ fieldname = -fieldname ] TO . - IF IS NOT ASSIGNED. - CONTINUE. - ENDIF. + ASSIGN lt_ddffields[ fieldname = -fieldname ] TO . + IF IS NOT ASSIGNED. + CONTINUE. + ENDIF. - lr_columns->column( )->text( -rollname ). - ENDLOOP. + lr_columns->column( )->text( -scrtext_l ). + ENDLOOP. * ---------- Build export parameter list ---------------------------------------------------------- - LOOP AT lt_fieldprop_lis ASSIGNING WHERE shlpoutput = abap_true. + LOOP AT lt_fieldprop_lis ASSIGNING WHERE shlpoutput = abap_true. * ---------- Init loop data ----------------------------------------------------------------------- - CLEAR: lv_arg_fieldname. + CLEAR: lv_arg_fieldname. * ---------- Build parameter name ----------------------------------------------------------------- - lv_arg_fieldname = `${` && -fieldname && `}`. + lv_arg_fieldname = `${` && -fieldname && `}`. * ---------- Collect output fields ---------------------------------------------------------------- - APPEND lv_arg_fieldname TO lt_arg. - ENDLOOP. + APPEND lv_arg_fieldname TO lt_arg. + ENDLOOP. - DATA(lr_item) = lr_table->items( - )->column_list_item( type = 'Navigation' press = irclient->_event( val = resultitabevent - t_arg = lt_arg ) ). + DATA(lr_item) = lr_table->items( + )->column_list_item( type = 'Navigation' press = irclient->_event( val = resultitabevent + t_arg = lt_arg ) ). * ---------- Set cell content --------------------------------------------------------------------- - LOOP AT lt_fieldprop_lis ASSIGNING . + LOOP AT lt_fieldprop_lis ASSIGNING . * ---------- Init loop data ----------------------------------------------------------------------- - CLEAR: lv_cell_fieldname. + CLEAR: lv_cell_fieldname. * ---------- Build cell name ---------------------------------------------------------------------- - lv_cell_fieldname = `{` && -fieldname && `}`. - lr_item->cells( )->text( lv_cell_fieldname ). + lv_cell_fieldname = `{` && -fieldname && `}`. + lr_item->cells( )->text( lv_cell_fieldname ). - ENDLOOP. + ENDLOOP. - lr_grid_shlp = irparent->buttons( )->button( - text = closebuttontext - press = irclient->_event_client( irclient->cs_event-popup_close ) ). + lr_grid_shlp = irparent->buttons( )->button( + text = closebuttontext + press = irclient->_event_client( irclient->cs_event-popup_close ) ). - result = lr_grid_shlp. + result = lr_grid_shlp. ENDMETHOD.