Skip to Content
avatar image
Former Member

how to edit o/p fields in hierarchical list?

how to make output fields as input enabled, displayed in the hierarchical list?

i.e. to make them as editable?Is it possible in list display?

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • Best Answer
    avatar image
    Former Member
    Oct 11, 2007 at 01:23 PM
    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 11, 2007 at 01:22 PM

    Please refer this....

    &----


    *

    *& Report ZFIR_WRITE_OFF

    &----


    REPORT zfir_write_off

    NO STANDARD PAGE HEADING

    MESSAGE-ID zles.

    ************************************************************************

    • TYPE-POOLS

    ************************************************************************

    TYPE-POOLS:slis.

    ************************************************************************

    • TABLES

    ************************************************************************

    TABLES: kna1, t001, zdunning_data, bsid, t052.

    ************************************************************************

    • INTERNAL TABLES

    ************************************************************************

    • To check for bukrs in selection screen

    DATA: BEGIN OF t_t001 OCCURS 0,

    bukrs TYPE t001-bukrs,

    END OF t_t001.

    • To check for the customer in selection screen

    DATA: BEGIN OF t_kna1 OCCURS 0,

    kunnr TYPE kna1-kunnr,

    name1 TYPE kna1-name1,

    END OF t_kna1.

    *Data from BSID table

    DATA: BEGIN OF t_bsid OCCURS 0,

    bukrs LIKE bsid-bukrs,

    budat LIKE bsid-budat,

    kunnr LIKE bsid-kunnr,

    belnr LIKE bsid-belnr,

    zfbdt LIKE bsid-zfbdt,

    zterm LIKE bsid-zterm,

    dmbtr LIKE bsid-dmbtr,

    waers LIKE bsid-waers,

    vbeln LIKE bsid-vbeln,

    END OF t_bsid.

    *Data from ZDunning_data

    DATA: BEGIN OF t_zdunning OCCURS 0,

    belnr LIKE zdunning_data-belnr,

    kunnr LIKE zdunning_data-kunnr,

    zdef_notice_flg LIKE zdunning_data-zdef_notice_flg,

    zterm_notice_flg LIKE zdunning_data-zterm_notice_flg,

    END OF t_zdunning.

    *Data from t052 for base line days

    DATA: BEGIN OF t_t052 OCCURS 0,

    zterm LIKE t052-zterm,

    ztag1 LIKE t052-ztag1,

    END OF t_t052.

    *with duedate and date for write off calculation

    DATA: BEGIN OF t_data OCCURS 0,

    belnr LIKE bsid-belnr,

    kunnr LIKE bsid-kunnr,

    zterm LIKE bsid-zterm,

    zfbdt LIKE bsid-zfbdt,

    ztag1 LIKE t052-ztag1,

    duedate LIKE bsid-zfbdt,

    wdate LIKE bsid-zfbdt,

    vbeln LIKE bsid-vbeln,

    dmbtr LIKE bsid-dmbtr,

    waers LIKE bsid-waers,

    budat LIKE bsid-budat,

    vbelv like vbfa-vbelv,

    Name1 like kna1-name1,

    END OF t_data.

    *Output display in ALV report

    DATA: BEGIN OF t_output OCCURS 0,

    Flag type C,

    bukrs LIKE bsid-bukrs,

    kunnr LIKE bsid-kunnr,

    vbeln LIKE bsid-vbeln, "Invoice

    posnv like vbfa-posnv,

    wdate LIKE bsid-zfbdt,

    belnr LIKE bsid-belnr,

    dmbtr LIKE bsid-dmbtr,

    waers LIKE bsid-waers,

    budat LIKE bsid-budat,

    vbelv like vbfa-vbelv, "Contract

    name1 like kna1-name1,

    duedate like bsid-zfbdt,

    END OF t_output.

    • To get contract number for the billing document number

    DATA: BEGIN OF t_vbfa OCCURS 0,

    vbelv LIKE vbfa-vbelv,

    vbeln LIKE vbfa-vbeln,

    POSNV like vbfa-POSNV,

    END OF t_vbfa.

    data: begin of t_cust occurs 0,

    KUNNR like kna1-kunnr,

    name1 like kna1-name1,

    end of t_cust.

    data: begin of t_head occurs 0,

    VBELv like vbfa-vbelv,

    posnv like vbfa-posnv,

    VKUEGRU type ZLIST_WO_RCANCEL,

    end of t_head.

    data: begin of it_veda occurs 0,

    VBELn LIKE Veda-VBELN,

    POSNR LIKE Veda-VPOSN,

    VKUEGRU LIKE Veda-VKUEGRU,

    end of it_veda.

    ************************************************************************

    • VARIABLE DECLARATION

    ************************************************************************

    DATA: l_duedate LIKE bsid-zfbdt,

    l_wdate LIKE bsid-zfbdt.

    ************************************************************************

    • VARIABLE FOR ALV DISPLAY

    ************************************************************************

    DATA: t_fieldcat TYPE slis_t_fieldcat_alv,

    wa_fieldcat TYPE slis_fieldcat_alv.

    DATA: t_fieldcat1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,

    wa_fieldcat1 TYPE slis_fieldcat_alv.

    DATA: t_layout TYPE slis_layout_alv.

    DATA: g_repid LIKE sy-repid.

    ************************************************************************

    • SELECTION-SCREEN

    ************************************************************************

    *Selection Screen Parameters for user input

    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

    PARAMETERS:

    *Company Code

    p_bukrs LIKE t001-bukrs OBLIGATORY.

    SELECT-OPTIONS:

    *Customer Number

    s_kunnr FOR kna1-kunnr OBLIGATORY DEFAULT '0' TO 'ZZZZZZZZZZ'.

    PARAMETERS:

    *Write Off Date

    p_wodate TYPE sy-datum OBLIGATORY.

    SELECTION-SCREEN END OF BLOCK b1 .

    ************************************************************************

    • AT SELECTION-SCREEN

    ************************************************************************

    *Selection Screen validation for Company code

    AT SELECTION-SCREEN ON p_bukrs.

    SELECT SINGLE bukrs FROM t001 "#EC *

    INTO t_t001

    WHERE bukrs = p_bukrs.

    IF sy-subrc NE 0.

    *Error message for Invalid Company Code

    MESSAGE e000 WITH text-002.

    ENDIF.

    *Selection Screen Validation for Customer

    AT SELECTION-SCREEN ON s_kunnr.

    IF NOT s_kunnr IS INITIAL.

    SELECT SINGLE kunnr name1

    FROM kna1 "#EC *

    INTO t_kna1

    WHERE kunnr IN s_kunnr.

    IF sy-subrc NE 0.

    *Error message for Invalid Customer Number

    MESSAGE e000 WITH text-003.

    ENDIF.

    ENDIF.

    AT SELECTION-SCREEN ON p_wodate.

    IF p_wodate IS INITIAL.

    p_wodate = sy-datum.

    ENDIF.

    ************************************************************************

    • INITIALIZATION

    ************************************************************************

    INITIALIZATION.

    PERFORM clear_data.

    ************************************************************************

    • START-OF-SELECTION

    ************************************************************************

    START-OF-SELECTION.

    *Get the Accounting Document Number and base line date from BSID

    SELECT bukrs kunnr belnr budat zfbdt zterm dmbtr waers vbeln

    FROM bsid

    INTO corresponding fields of TABLE t_bsid

    WHERE kunnr IN s_kunnr AND

    bukrs = p_bukrs.

    IF NOT t_bsid[] IS INITIAL.

    *Get the Dunning data based on the Accounting Document Number from BSID

    SELECT belnr kunnr zdef_notice_flg zterm_notice_flg

    FROM zdunning_data

    INTO TABLE t_zdunning

    FOR ALL ENTRIES IN t_bsid

    WHERE kunnr = t_bsid-kunnr AND

    belnr = t_bsid-belnr AND

    zdef_notice_flg = 'Y' AND

    zterm_notice_flg = 'Y'.

    *Get the base line days from t052 table based on BSID data

    SELECT zterm ztag1

    FROM t052

    INTO TABLE t_t052

    FOR ALL ENTRIES IN t_bsid

    WHERE zterm = t_bsid-zterm.

    *Calculate the due date(bse line date BSID-ZFBDT + base line days

    *T052-ZTAG )

    IF NOT t_zdunning[] IS INITIAL.

    • Get the customer name

    Select KUNNR NAME1 from KNA1

    INTO table t_cust

    for all entries in t_zdunning

    where kunnr = t_zdunning-kunnr.

    • LOOP AT t_zdunning.

    LOOP AT t_bsid.

    CLEAR t_zdunning.

    READ TABLE t_zdunning WITH KEY belnr = t_bsid-belnr

    kunnr = t_bsid-kunnr.

    CHECK sy-subrc = 0.

    CLEAR t_t052.

    READ TABLE t_t052 WITH KEY zterm = t_bsid-zterm.

    IF sy-subrc = 0 .

    t_data-belnr = t_zdunning-belnr.

    t_data-kunnr = t_zdunning-kunnr.

    Clear t_cust.

    read table t_cust with key kunnr = t_zdunning-kunnr.

    if sy-subrc = 0.

    t_data-name1 = t_cust-name1.

    endif.

    t_data-zterm = t_bsid-zterm.

    t_data-zfbdt = t_bsid-zfbdt.

    t_data-ztag1 = t_t052-ztag1.

    t_data-vbeln = t_bsid-vbeln.

    t_data-dmbtr = t_bsid-dmbtr.

    t_data-waers = t_bsid-waers.

    t_data-budat = t_bsid-budat.

    *calculate duedate

    CLEAR l_duedate.

    l_duedate = t_bsid-zfbdt + t_t052-ztag1.

    t_data-duedate = l_duedate.

    *calculate date for write off

    CLEAR l_wdate.

    l_wdate = l_duedate + 180.

    t_data-wdate = l_wdate.

    APPEND t_data.

    CLEAR l_wdate.

    CLEAR l_duedate.

    ENDIF.

    ENDLOOP.

    ELSE.

    MESSAGE s000 WITH text-005.

    ENDIF.

    *Check the wdate with write off date in the selection screen value.

    *If this calculated date is Greater than value enetred in selection

    *screen, display the corresponding data in ALV report.

    IF NOT t_data[] IS INITIAL.

    SELECT vbelv vbeln

    POSNV

    FROM vbfa

    INTO TABLE t_vbfa

    FOR ALL ENTRIES IN t_data

    WHERE vbeln = t_data-vbeln.

    • and

    • VBTYP_V = 'G'.

    *If reason for cancelation is there, no writeoff.

    Select VBELn VPOSN VKUEGRU from Veda

    into table it_veda

    for all entries in t_vbfa

    where vbeln = t_vbfa-vbelv.

    SELECT vbelv

    POSNV

    FROM vbfa

    INTO TABLE t_Head

    FOR ALL ENTRIES IN t_data

    WHERE vbeln = t_data-vbeln

    • and

    • VBTYP_V = 'G'.

    .

    loop at t_head.

    clear it_veda.

    Read table it_veda with key vbeln = t_head-vbelv

    posnr = t_head-posnv.

    if not it_veda-VKUEGRU is initial.

    Delete t_head where vbelv = it_veda-vbeln and

    posnv = it_veda-posnr.

    endif.

    endloop.

    LOOP AT t_data.

    IF t_data-wdate LE p_wodate.

    t_output-bukrs = p_bukrs.

    t_output-kunnr = t_data-kunnr.

    CLEAR t_vbfa.

    READ TABLE t_vbfa WITH KEY vbeln = t_data-vbeln.

    read table t_head with key vbelv = t_vbfa-vbelv

    posnv = t_vbfa-posnv.

    if sy-subrc = 0.

    t_output-vbelv = t_vbfa-vbelv.

    t_output-posnv = t_vbfa-posnv.

    t_output-name1 = t_data-name1.

    t_output-wdate = t_data-wdate.

    t_output-belnr = t_data-belnr.

    t_output-dmbtr = t_data-dmbtr.

    t_output-waers = t_data-waers.

    t_output-budat = t_data-budat.

    t_output-vbeln = t_data-vbeln.

    t_output-duedate = t_data-duedate .

    APPEND t_output.

    ENDIF.

    clear t_output.

    ENDIF.

    ENDLOOP.

    ELSE.

    MESSAGE s000 WITH text-006.

    ENDIF.

    *ALV display for the output records

    IF NOT t_output[] IS INITIAL.

    PERFORM alv_display.

    ELSE.

    MESSAGE s000 WITH text-006.

    ENDIF.

    ELSE.

    MESSAGE s000 WITH text-004.

    ENDIF.

    &----


    *& Form clear_data

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM clear_data .

    CLEAR:t_t001,

    t_kna1,

    t_bsid,

    t_zdunning,

    t_t052,

    t_data,

    t_output,

    wa_fieldcat,

    t_layout,

    t_fieldcat,

    t_vbfa.

    REFRESH:t_t001,

    t_kna1,

    t_bsid,

    t_zdunning,

    t_t052,

    t_data,

    t_output,

    t_fieldcat,

    t_vbfa.

    clear:t_head,

    it_veda.

    Refresh:t_head,

    it_veda.

    Clear T_cust.

    Refresh t_data.

    ENDFORM. " clear_data

    &----


    *& Form alv_display

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM alv_display .

    *To build the field catalogue

    PERFORM build_fieldcatalog1.

    PERFORM build_fieldcatalog.

    *To build the ALV layout

    PERFORM build_layout.

    *To displayt the data in ALV report

    PERFORM display_alv_report.

    ENDFORM. " alv_display

    &----


    *& Form build_fieldcatalog

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM build_fieldcatalog1 .

    REFRESH t_fieldcat1.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '1'.

    wa_fieldcat-fieldname = 'VBELV'.

    wa_fieldcat-tabname = 'T_HEAD'.

    wa_fieldcat-seltext_l = 'Contract Number'.

    • wa_fieldcat-Checkbox = 'X'.

    • wa_fieldcat-edit = 'X'.

    • wa_fieldcat-no_out = 'X'.

    wa_fieldcat-outputlen = '15'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '2'.

    wa_fieldcat-fieldname = 'POSNV'.

    wa_fieldcat-tabname = 'T_HEAD'.

    wa_fieldcat-seltext_l = 'Item Number'.

    wa_fieldcat-outputlen = '15'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '3'.

    wa_fieldcat-fieldname = 'VKUEGRU'.

    wa_fieldcat-edit = 'X'.

    wa_fieldcat-input = 'X'.

    wa_fieldcat-tabname = 'T_HEAD'.

    • wa_fieldcat-drdn_hndl = '1'.

    wa_fieldcat-seltext_l = 'Reason for Cancel'.

    wa_fieldcat-outputlen = '25'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    endform.

    FORM build_fieldcatalog .

    • REFRESH t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '4'.

    wa_fieldcat-fieldname = 'KUNNR'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Customer Number'.

    wa_fieldcat-outputlen = '15'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '5'.

    wa_fieldcat-fieldname = 'NAME1'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Customer Name'.

    wa_fieldcat-outputlen = '30'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '6'.

    wa_fieldcat-fieldname = 'VBELV'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Contract Number'.

    wa_fieldcat-outputlen = '20'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '7'.

    wa_fieldcat-fieldname = 'VBELN'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Invoice No.'.

    wa_fieldcat-outputlen = '10'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '8'.

    wa_fieldcat-fieldname = 'BELNR'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Acc doc Number'.

    wa_fieldcat-outputlen = '20'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '9'.

    wa_fieldcat-fieldname = 'WAERS'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Currency'.

    wa_fieldcat-outputlen = '15'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '10'.

    wa_fieldcat-fieldname = 'DMBTR'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-do_sum = 'X'. "SUM UPON DISPLAY

    wa_fieldcat-datatype = 'CURR'.

    wa_fieldcat-seltext_l = 'Amount'.

    wa_fieldcat-outputlen = '15'.

    APPEND wa_fieldcat TO t_fieldcat.

    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '11'.

    wa_fieldcat-fieldname = 'DUEDATE'.

    wa_fieldcat-tabname = 'T_OUTPUT'.

    wa_fieldcat-seltext_l = 'Due Date'.

    wa_fieldcat-outputlen = '20'.

    APPEND wa_fieldcat TO t_fieldcat.

    *

    data: lt_dropdown type lvc_t_drop,

    ls_dropdown type lvc_s_drop.

    • First listbox (handle '1').

    ls_dropdown-handle = '1'.

    ls_dropdown-value = 'KG'.

    append ls_dropdown to lt_dropdown.

    ls_dropdown-handle = '1'.

    ls_dropdown-value = 'G'.

    append ls_dropdown to lt_dropdown.

    • call method g_grid->set_drop_down_table

    • exporting it_drop_down = lt_dropdown.

    ENDFORM. " build_fieldcatalog

    &----


    *& Form build_layout

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM build_layout .

    t_layout-no_input = 'X'.

    t_layout-colwidth_optimize = 'X'.

    ENDFORM. " build_layout

    &----


    *& Form display_alv_report

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM display_alv_report .

    g_repid = sy-repid.

    data g_keyinfo type SLIS_KEYINFO_ALV.

    g_keyinfo-HEADER01 = 'VBELV'.

    g_keyinfo-ITEM01 = 'VBELV'.

    g_keyinfo-HEADER02 = 'POSNV'.

    g_keyinfo-ITEM02 = 'POSNV'.

    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

    EXPORTING

    i_interface_check = 'I'

    i_callback_program = g_repid

    i_callback_pf_status_set = 'SET_STATUS'

    i_callback_user_command = 'USER_COMMAND'

    • is_layout = gs_layout

    it_fieldcat = t_fieldcat[]

    i_default = ' '

    i_save = 'A'

    i_tabname_header = 'T_HEAD'

    i_tabname_item = 'T_OUTPUT'

    • i_structure_name_header = v_headers_table

    • i_structure_name_item = v_items_table

    is_keyinfo = g_keyinfo

    • i_bypassing_buffer = 'X'

    TABLES

    t_outtab_header = t_head[]

    • t_outtab_item = i_result

    t_outtab_item = t_output[]

    EXCEPTIONS

    program_error = 1

    OTHERS = 2.

    REFRESH: t_fieldcat[].

    refresh t_fieldcat1[].

    ENDFORM. " display_alv_report

    form SET_STATUS using extab TYPE slis_t_extab.

    SET PF-STATUS 'ZEO_S1' .

    endform.

    &----


    *& Form Top_Of_Page

    &----


    • Top_Of_Page event in ALV

    ----


    FORM top_of_page .

    DATA: t_header TYPE slis_t_listheader,

    wa_header TYPE slis_listheader.

    • Title

    wa_header-typ = 'H'.

    wa_header-info = ' Write Off Worklist'.

    APPEND wa_header TO t_header.

    CLEAR wa_header.

    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

    EXPORTING

    it_list_commentary = t_header.

    ENDFORM. "Top_Of_Page

    ----


    *User Command for the button

    ----


    form user_command using r_ucomm type syucomm

    ls_selfield type SLIS_SELFIELD.

    Break-point.

    case r_ucomm.

    when 'EXEC'.

    data: begin of lt_cancel occurs 0.

    include structure ZCANCEL.

    data end of lt_cancel.

    Clear lt_cancel.

    Refresh lt_cancel.

    • Data: ref1 type ref to cl_gui_alv_grid.

    • CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    • IMPORTING

    • E_GRID = ref1.

    *

    • call method ref1->check_changed_data.

    loop at t_Head where VKUEGRU is not initial.

    • if ( t_HEAD-VKUEGRU NE '1' ) or

    • ( t_Head-VKUEGRU NE '2' ) or

    • ( t_head-VKUEGRU NE '3' ).

    • Clear t_head-vkuegru.

    • message e000 with text-110.

    • endif.

    lt_cancel-vbeln = t_head-vbelv.

    lt_cancel-posnr = t_head-posnv.

    lt_cancel-VKUEGRU = t_head-VKUEGRU.

    Append lt_cancel.

    Clear lt_cancel.

    Endloop.

    CALL FUNCTION 'ZSD_CNTR_CANCEL'

    TABLES

    zcancel = lt_cancel.

    .

    • message s000 .

    endcase.

    endform.

    Regards

    vasu

    Add comment
    10|10000 characters needed characters exceeded