Skip to Content
author's profile photo Former Member
Former Member

Need some help regarding interactive report in which check box

Hi all!,

Need some help regarding interactive report in which we need to insert a check box can anyone give me some sample code

and procedure how to do !

thanks in advance!.

Regards,

Sumanth...

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Mar 25, 2008 at 08:54 AM

    Hi Sumanth,

    plz do refer this link

    -


    control-checkbox-in-basic-list

    secondary-list-from-primary-list

    **Sample program

    TYPE-POOLS: slis, icon.

    SELECTION-SCREEN PUSHBUTTON 2(20) but1 USER-COMMAND cli1.

    TYPES : BEGIN OF ty_mard,

    stat(4) TYPE c,

    check,

    matnr TYPE matnr,

    werks TYPE werks_d,

    lgort TYPE lgort_d,

    END OF ty_mard.

    DATA : it_mard TYPE STANDARD TABLE OF ty_mard,

    wa_mard TYPE ty_mard.

    DATA: st_layout TYPE slis_layout_alv.

    DATA: l_wa_fieldcat TYPE slis_fieldcat_alv.

    DATA: it_fieldcat TYPE slis_t_fieldcat_alv.

    *GRID SETTINGS

    DATA:lc_glay TYPE lvc_s_glay.

    *SELECTION-SCREEN BEGIN OF BLOCK blk.

    *PARAMETERS : p_werks TYPE werks_d.

    *SELECTION-SCREEN END OF BLOCK blk.

    AT SELECTION-SCREEN OUTPUT.

    • comm1 ='Selection Screen'.

    CONCATENATE icon_green_light 'Click This!'

    INTO but1 SEPARATED BY space.

    START-OF-SELECTION.

    *AT USER-COMMAND.

    *

    • CASE sy-ucomm.

    • WHEN 'CLI1'.

    SELECT matnr werks lgort FROM mard INTO CORRESPONDING FIELDS OF TABLE it_mard

    WHERE werks = 'CH01'. "p_werks.

    IF sy-subrc = 0.

    ENDIF.

    *LAYOUT

    st_layout-zebra = 'X'.

    • st_layout-box_fieldname = 'CHECK'.

    *field cat

    l_wa_fieldcat-col_pos = '1'.

    l_wa_fieldcat-fieldname = 'CHECK'.

    l_wa_fieldcat-tabname = 'IT_MARD'.

    l_wa_fieldcat-reptext_ddic = 'SELECT'.

    l_wa_fieldcat-checkbox = 'X'.

    l_wa_fieldcat-edit = 'X'.

    APPEND l_wa_fieldcat TO it_fieldcat.

    CLEAR l_wa_fieldcat.

    l_wa_fieldcat-col_pos = '2'.

    l_wa_fieldcat-fieldname = 'MATNR'.

    l_wa_fieldcat-tabname = 'IT_MARD'.

    l_wa_fieldcat-reptext_ddic = 'MATERIAL no'.

    l_wa_fieldcat-outputlen = '20'.

    l_wa_fieldcat-no_zero = 'X'.

    • l_wa_fieldcat-edit = 'X'.

    APPEND l_wa_fieldcat TO it_fieldcat.

    CLEAR l_wa_fieldcat.

    l_wa_fieldcat-col_pos = '3'.

    l_wa_fieldcat-fieldname = 'WERKS'.

    l_wa_fieldcat-tabname = 'IT_MARD'.

    l_wa_fieldcat-reptext_ddic = 'PLANT'.

    l_wa_fieldcat-outputlen = '20'.

    l_wa_fieldcat-no_zero = 'X'.

    APPEND l_wa_fieldcat TO it_fieldcat.

    CLEAR l_wa_fieldcat.

    l_wa_fieldcat-col_pos = '4'.

    l_wa_fieldcat-fieldname = 'LGORT'.

    l_wa_fieldcat-tabname = 'IT_MARD'.

    l_wa_fieldcat-reptext_ddic = 'STORAGE'.

    l_wa_fieldcat-outputlen = '20'.

    l_wa_fieldcat-no_zero = 'X'.

    APPEND l_wa_fieldcat TO it_fieldcat.

    CLEAR l_wa_fieldcat.

    l_wa_fieldcat-col_pos = '5'.

    l_wa_fieldcat-fieldname = 'STAT'.

    l_wa_fieldcat-tabname = 'IT_MARD'.

    l_wa_fieldcat-reptext_ddic = 'STATUS'.

    l_wa_fieldcat-icon = 'X'.

    APPEND l_wa_fieldcat TO it_fieldcat.

    CLEAR l_wa_fieldcat.

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

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

    i_callback_program = sy-repid

    i_callback_user_command = 'F_USER'

    is_layout = st_layout

    it_fieldcat = it_fieldcat

    TABLES

    t_outtab = it_mard

    EXCEPTIONS

    program_error = 1

    OTHERS = 2.

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

    IF sy-subrc <> 0.

    WRITE 'EEROR'.

    ENDIF.

    *ENDCASE.

    &----


    *& Form f_user

    &----


    • text

    ----


    • -->RF_UCOMM text

    • -->RS_SELFIELD text

    ----


    FORM f_user USING rf_ucomm LIKE sy-ucomm

    rs_selfield TYPE slis_selfield.

    TYPES: BEGIN OF ty_it_1,

    matnr TYPE matnr,

    END OF ty_it_1.

    DATA: wa TYPE ty_it_1.

    DATA: it_1 TYPE STANDARD TABLE OF ty_it_1.

    DATA: l_wa_fieldcat1 TYPE slis_fieldcat_alv.

    DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv.

    CASE rf_ucomm.

    WHEN '&IC1'.

    IF rs_selfield-fieldname = 'MATNR'.

    LOOP AT it_mard INTO wa_mard WHERE check = 'X'.

    wa-matnr = wa_mard-matnr.

    APPEND wa TO it_1.

    ENDLOOP.

    l_wa_fieldcat1-col_pos = '1'.

    l_wa_fieldcat1-fieldname = 'MATNR'.

    l_wa_fieldcat1-tabname = 'IT_1'.

    l_wa_fieldcat1-reptext_ddic = 'Material'.

    l_wa_fieldcat1-outputlen = '20'.

    l_wa_fieldcat1-no_zero = 'X'.

    APPEND l_wa_fieldcat1 TO it_fieldcat1.

    CLEAR l_wa_fieldcat1.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

    i_callback_program = sy-repid

    it_fieldcat = it_fieldcat1

    TABLES

    t_outtab = it_1

    EXCEPTIONS

    program_error = 1

    OTHERS = 2.

    IF sy-subrc <> 0.

    WRITE 'EEROR'.

    ENDIF.

    ENDIF.

    ENDCASE.

    ENDFORM. "f_user

    Hope you understand the logic if any doubts plz let me know

    regards,

    sana..

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Mar 25, 2008 at 08:47 AM

    Hi,

    Find below the sample code

    ----


    • DATA DECLARATION *

    ----


    *********"STRUCTURE FRO HEADER DETAILS

    types:begin of struct_vbak,

    vbeln type vbeln_va, "sales order no.

    erdat type erdat, "so date

    vkorg type vkorg, "sales organisation

    vtweg type vtweg, "distriburion channel

    spart type spart, "divison

    bukrs_vf type bukrs_vf, "comapny

    end of struct_vbak.

    *********"STRUCTURE FOR ITEM DETAILS

    types:begin of struct_vbap,

    vbeln type vbeln_va, "sales order no.

    posnr type posnr_va, "sales item no.

    matnr type matnr, "material no.

    end of struct_vbap.

    *********"STRUCTURE FOR PARTNER

    types:begin of struct_vbpa,

    vbeln type vbeln_va, "sales order no.

    posnr type posnr_va, "sales item no.

    parvw type parvw, "partner function

    kunnr type kunnr, "customer no.

    vtext type vtxtk, "partner description

    name1 type name1_gp, "customer name

    ort01 type ort01_gp, "customer city

    land1 type land1_gp, "customer country

    end of struct_vbpa.

    ********"STRUCTURE FOR SCHEDULED DATA

    types:begin of struct_vbep,

    vbeln type vbeln_va, "sales order no.

    posnr type posnr_va, "sales item no.

    etenr type etenr, "schedule line

    ettyp type ettyp, "schedule line category

    edatu type edatu, "schedule line date

    end of struct_vbep.

    *********"STRUCTURE FOR COMBINED HEADER AND ITEM DETAILS

    types:begin of struct_final,

    vbeln type vbeln_va, "sales order no.

    erdat type erdat, "so date

    vkorg type vkorg, "sales organisation

    vtweg type vtweg, "distriburion channel

    spart type spart, "divison

    bukrs_vf type bukrs_vf, "comapny

    posnr type posnr_va, "sales item no.

    matnr type matnr, "material no.

    butxt type butxt, "comapny name

    maktx type maktx, "material description

    end of struct_final.

    *********"STRUCTURE FOR COMPANY DETAILS

    types:begin of struct_comp,

    bukrs type bukrs, "company code

    butxt type butxt, "company name

    end of struct_comp.

    *********"STRUCTURE FOR PARTNER DETAILS

    types:begin of struct_part,

    parvw type parvw, "partner function

    vtext type vtxtk, "partner description

    end of struct_part.

    *********"STRUCTURE FOR CUSTOMER DETAILS

    types:begin of struct_cust,

    kunnr type kunnr, "customer no.

    name1 type name1_gp, "customer name

    ort01 type ort01_gp, "customer city

    land1 type land1_gp, "customer country

    end of struct_cust.

    *********"STRUCTURE FOR MATERIAL DESCRIPTION

    types:begin of struct_mat,

    matnr type matnr, "material no.

    maktx type maktx, "material description

    end of struct_mat.

    *****VARIABLE DECLARATION********

    data:d_prog_name type sy-repid value sy-repid, "for program name

    chk_bx type c, "for check box

    v_chk_bx type c, "temp var for chk box

    v_vbeln type vbeln_va. "temp var for vbeln

    ****INTERNAL TABLE DECLARATION***

    data:i_vbak type standard table of struct_vbak, "internal table for header

    i_vbap type standard table of struct_vbap, "internal table for item

    i_vbpa type standard table of struct_vbpa, "internal table for partner

    i_part type standard table of struct_part, "internal table for pertner det

    i_cust type standard table of struct_cust, "internal table for customer

    i_comp type standard table of struct_comp, "internal table for company

    i_mat type standard table of struct_mat, "internal table for material

    i_vbep type standard table of struct_vbep, "internal table for schedule

    i_final type standard table of struct_final. "internal table for combined

    ****INTERNAL TABLE FOR MENU BUTTONS*********

    data:i_tab type table of sy-ucomm. "INT TBL FOR MENU

    ****WORK AREA DECLARATION*********

    data: wa_vbak type struct_vbak, "work area for header

    wa_vbap type struct_vbap, "work area for item

    wa_vbpa type struct_vbpa, "work area for partner

    wa_vbpa_temp type struct_vbpa, "temp work area for partner

    wa_cust type struct_cust, "work area for customer

    wa_mat type struct_mat, "work area for material

    wa_part type struct_part, "work area for part det

    wa_vbep type struct_vbep, "work area for schedule

    wa_final type struct_final, "work area for combined

    wa_final_temp type struct_final, "temp work area for combined

    wa_comp type struct_comp. "work area for company

    ----


    • SELECTION SCREEN *

    ----


    selection-screen begin of block so_no with frame title text-001.

    select-options: s_so_no for wa_vbak-vbeln. "sales order no

    select-options: s_so_org for wa_vbak-vkorg. "sales organisation

    select-options: s_so_dc for wa_vbak-vtweg. "distribution channel

    selection-screen end of block so_no.

    ----


    • AT SELECTION SCREEN *

    ----


    at selection-screen.

    *********Validation to check if SO exist ot not

    perform z11_validate_so.

    ----


    • START OF SELECTION *

    ----


    start-of-selection.

    set pf-status 'MY MENU'.

    *FOR POPULATING INTERNAL TABLES.

    perform z11_populate_int_tables.

    *FOR PRINTING BASIC LIST

    perform z11_print_basic.

    ----


    • AT USER COMMAND *

    ----


    at user-command.

    case sy-ucomm.

    when 'BACK'.

    leave screen.

    when 'PART'.

    perform z11_ucomm_part.

    when 'SCHD'.

    perform z11_ucomm_schd.

    when others.

    message i002.

    endcase.

    ----


    • T O P O F P A G E *

    ----


    **DISPLAY TOP OF PAGE

    top-of-page. "DISPLAY TOP OF PAGE

    perform z11_top_of_page.

    **DISPLAY TOP OF PAGE DURING UCOMM

    top-of-page during line-selection .

    "DISPLAY TOP OF PAGE during sy-ucomm

    perform z11_top_of_page_linesel.

    *

    &----


    *& Form Z11_VALIDATE_SO

    &----


    • Check if SO exist or not

    ----


    • -->P_S_SO_NO Sales Order No. Range

    ----


    form z11_validate_so .

    select single vbeln

    into wa_vbak-vbeln

    from vbak

    where vbeln in s_so_no.

    if sy-subrc <> 0.

    message i001.

    else.

    clear: wa_vbak.

    endif.

    endform. " Z11_VALIDATE_SO

    &----


    *& Form Z11_POPULATE_INT_TABLES

    &----


    • populating details for the given SO range

    ----


    • -->P_S_SO_NO Sale Order No.

    • -->P_S_SO_VKORG Sales Organisation

    • -->P_S_SO_DC Distribution Channel

    ----


    form z11_populate_int_tables

    .

    *********TO POPULATE HEADER DETAILS

    select vbeln

    erdat

    vkorg

    vtweg

    spart

    bukrs_vf

    into table i_vbak

    from vbak

    where vbeln in s_so_no

    and vkorg in s_so_org

    and vtweg in s_so_dc.

    if sy-subrc <> 0.

    message i003.

    endif.

    *********TO POPULATE ITEM DETAILS

    if i_vbak[] is not initial.

    select vbeln

    posnr

    matnr

    from vbap

    into table i_vbap

    for all entries in i_vbak

    where vbeln = i_vbak-vbeln.

    ******POPULATING COMPANY DESCRIPTION

    select bukrs

    butxt

    from t001

    into table i_comp

    for all entries in i_vbak

    where bukrs = i_vbak-bukrs_vf.

    ******POPULATING PARTNER FUNCTION

    select vbeln

    parvw

    kunnr

    from vbpa

    into corresponding fields of table i_vbpa

    for all entries in i_vbak

    where vbeln = i_vbak-vbeln.

    endif.

    if i_vbpa[] is not initial.

    ******POPULATING PARTNER DESCRIPTION

    select parvw vtext from tpart into table i_part for all entries in

    i_vbpa where parvw = i_vbpa-parvw and spras = sy-langu.

    ******POPULATING CUSTOMER DETAILS

    select kunnr name1 ort01 land1 from kna1 into table i_cust for all

    entries in i_vbpa where kunnr = i_vbpa-kunnr.

    endif.

    if i_vbap[] is not initial.

    ******POPULATING SCHEDULED DATA

    select vbeln

    posnr

    etenr

    ettyp

    edatu

    from vbep

    into corresponding fields of table i_vbep

    for all entries in i_vbap

    where vbeln = i_vbap-vbeln and posnr = i_vbap-posnr.

    *******POPULATING MATERIAL DESCRIPTION

    select matnr

    maktx

    from makt

    into corresponding fields of table i_mat

    for all entries in i_vbap

    where matnr = i_vbap-matnr.

    endif.

    **********TO POPULATE COMBINE HEADER AND ITEM DETAILS

    loop at i_vbap into wa_vbap.

    wa_final-vbeln = wa_vbap-vbeln.

    wa_final-posnr = wa_vbap-posnr.

    wa_final-matnr = wa_vbap-matnr.

    wa_final-maktx = wa_mat-maktx.

    read table i_vbak into wa_vbak with key vbeln = wa_vbap-vbeln

    binary

    search transporting all fields.

    wa_final-erdat = wa_vbak-erdat.

    wa_final-vkorg = wa_vbak-vkorg.

    wa_final-vtweg = wa_vbak-vtweg.

    wa_final-spart = wa_vbak-spart.

    wa_final-bukrs_vf = wa_vbak-bukrs_vf.

    read table i_comp into wa_comp with key bukrs = wa_final-bukrs_vf

    binary search transporting butxt.

    wa_final-butxt = wa_comp-butxt.

    read table i_mat into wa_mat with key matnr = wa_vbap-matnr binary

    search transporting maktx.

    wa_final-maktx = wa_mat-maktx.

    append wa_final to i_final.

    clear : wa_final, wa_vbap, wa_vbak, wa_mat.

    endloop.

    clear:i_vbak, i_vbap, i_mat, i_comp, wa_final, wa_vbap, wa_vbak,

    wa_mat.

    ******POPULATING COMBINED PARTNER DETAILS

    loop at i_vbpa into wa_vbpa.

    read table i_part into wa_part with key parvw = wa_vbpa-parvw binary

    search transporting vtext.

    wa_vbpa-vtext = wa_part-vtext.

    read table i_cust into wa_cust with key kunnr = wa_vbpa-kunnr binary

    search transporting name1 ort01 land1.

    wa_vbpa-name1 = wa_cust-name1.

    wa_vbpa-ort01 = wa_cust-ort01.

    wa_vbpa-land1 = wa_cust-land1.

    modify i_vbpa from wa_vbpa .

    clear: wa_vbpa, wa_part, wa_cust.

    endloop.

    clear:i_part, i_cust, wa_part, wa_cust, wa_vbpa.

    endform. " Z11_POPULATE_INT_TABLES

    &----


    *& Form Z11_PRINT_BASIC

    &----


    • for printing basic list

    ----


    form z11_print_basic .

    loop at i_final into wa_final.

    wa_final_temp = wa_final.

    at new vbeln.

    skip 3.

    uline 1(50).

    skip 1.

    write:/5 text-011.

    skip 1.

    write:/10 text-012 ,40 wa_final_temp-vkorg.

    write:/10 text-013 ,40 wa_final_temp-vtweg.

    write:/10 text-014 ,40 wa_final_temp-spart.

    skip 1.

    uline 1(50).

    skip 2.

    uline.

    write:/10 text-015 ,29 sy-vline,

    30 text-016 ,39 sy-vline,

    40 text-017 ,54 sy-vline,

    55 text-018 ,69 sy-vline,

    70 text-019 ,84 sy-vline,

    85 text-020.

    uline.

    write:/5 chk_bx as checkbox,

    10 wa_final-vbeln.

    endat.

    at new posnr.

    write:29 sy-vline,

    30 wa_final_temp-posnr, 39 sy-vline,

    40 wa_final_temp-erdat, 54 sy-vline,

    55 wa_final_temp-vkorg, 69 sy-vline,

    70 wa_final_temp-matnr, 84 sy-vline,

    85 wa_final_temp-maktx.

    write:/29 sy-vline,

    39 sy-vline,

    54 sy-vline,

    69 sy-vline,

    84 sy-vline.

    endat.

    at end of vbeln.

    uline.

    new-page.

    endat.

    clear: wa_final, wa_final_temp.

    endloop.

    endform. " Z11_PRINT_BASIC

    &----


    *& Form Z11_UCOMM_PART

    &----


    • UCOMM for PARTNER function

    ----


    form z11_ucomm_part .

    set pf-status 'MY MENU' excluding 'PART'.

    window starting at 2 2 ending at 200 40.

    if sy-lsind = 1.

    do.

    clear: v_chk_bx.

    read line sy-index field value wa_final-vbeln chk_bx into

    v_chk_bx.

    if sy-subrc <> 0.

    exit.

    endif.

    if v_chk_bx = 'X'.

    perform z11_partner_pop using wa_final-vbeln.

    endif.

    enddo.

    else.

    if sy-lsind = 2.

    append 'PART' to i_tab.

    append 'SCHD' to i_tab.

    set pf-status 'MY MENU' excluding i_tab.

    do.

    clear: v_chk_bx.

    read line sy-index field value wa_vbep-vbeln chk_bx into

    v_chk_bx.

    if sy-subrc <> 0.

    exit.

    endif.

    if v_chk_bx = 'X'.

    perform z11_partner_pop_2 using wa_vbep-vbeln.

    endif.

    enddo.

    endif.

    endif.

    endform. " Z11_UCOMM_PART

    &----


    *& Form Z11_PARTNER_POP

    &----


    • printing detyails of checked partner function

    ----


    • -->P_I_VBPA partner table

    ----


    form z11_partner_pop using p_wa_final_vbeln.

    clear v_vbeln.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'

    exporting

    input = p_wa_final_vbeln

    importing

    output = v_vbeln.

    loop at i_vbpa into wa_vbpa where vbeln = v_vbeln.

    at new vbeln.

    write:/5 chk_bx as checkbox,

    10 wa_vbpa-vbeln.

    endat.

    write:29 sy-vline,

    30 wa_vbpa-parvw, 39 sy-vline,

    40 wa_vbpa-vtext, 69 sy-vline,

    70 wa_vbpa-kunnr, 84 sy-vline,

    85 wa_vbpa-name1, 120 sy-vline,

    121 wa_vbpa-ort01, 130 sy-vline,

    131 wa_vbpa-land1.

    at new parvw.

    uline.

    endat.

    at end of vbeln.

    uline.

    new-page.

    endat.

    endloop.

    endform. " Z11_PARTNER_POP

    &----


    *& Form Z11_UCOMM_SCHD

    &----


    • UCOMM for SCHEDULED data

    ----


    form z11_ucomm_schd .

    set pf-status 'MY MENU' excluding 'SCHD'.

    if sy-lsind = 1.

    do.

    clear: v_chk_bx.

    read line sy-index field value wa_final-vbeln chk_bx into

    v_chk_bx.

    if sy-subrc <> 0.

    exit.

    endif.

    if v_chk_bx = 'X'.

    perform z11_schedule_pop using wa_final-vbeln .

    endif.

    enddo.

    else.

    if sy-lsind = 2.

    append 'PART' to i_tab.

    append 'SCHD' to i_tab.

    set pf-status 'MY MENU' excluding i_tab.

    do.

    clear: v_chk_bx.

    read line sy-index field value wa_vbpa-vbeln chk_bx into

    v_chk_bx.

    if sy-subrc <> 0.

    exit.

    endif.

    if v_chk_bx = 'X'.

    perform z11_schedule_pop_2 using wa_vbpa-vbeln .

    endif.

    enddo.

    endif.

    endif.

    endform. " Z11_UCOMM_SCHD

    &----


    *& Form z11_schedule_pop

    &----


    • printing details of checked scheduled data

    ----


    • -->P_WA_FINAL_VBELN value of sales order for checked box

    • -->P_WA_FINAL_POSNR value of item no. for checked box

    ----


    form z11_schedule_pop using p_wa_final_vbeln.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'

    exporting

    input = p_wa_final_vbeln

    importing

    output = v_vbeln.

    loop at i_vbep into wa_vbep where vbeln = v_vbeln.

    at new vbeln.

    write:/5 chk_bx as checkbox,

    10 wa_vbep-vbeln.

    endat.

    write:29 sy-vline,

    30 wa_vbep-posnr, 39 sy-vline,

    40 wa_vbep-etenr, 59 sy-vline,

    60 wa_vbep-ettyp, 89 sy-vline,

    90 wa_vbep-edatu, 120 sy-vline.

    at new posnr.

    uline.

    endat.

    at end of vbeln.

    uline.

    new-page.

    endat.

    endloop.

    endform. " z11_schedule_pop

    &----


    *& Form Z11_SCHEDULE_POP_2

    &----


    • printing details of scheduled data for selected partner

    ----


    • -->P_WA_VBPA_VBELN checked SO No. in partner screen

    ----


    form z11_schedule_pop_2 using p_wa_vbpa_vbeln.

    clear v_vbeln.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'

    exporting

    input = p_wa_vbpa_vbeln

    importing

    output = v_vbeln.

    loop at i_vbep into wa_vbep where vbeln = v_vbeln.

    at new vbeln.

    write:10 wa_vbep-vbeln.

    endat.

    write:29 sy-vline,

    30 wa_vbep-posnr, 39 sy-vline,

    40 wa_vbep-etenr, 59 sy-vline,

    60 wa_vbep-ettyp, 89 sy-vline,

    90 wa_vbep-edatu, 120 sy-vline.

    at new posnr.

    uline.

    endat.

    at end of vbeln.

    uline.

    new-page.

    endat.

    endloop.

    endform. " Z11_SCHEDULE_POP_2

    &----


    *& Form Z11_PARTNER_POP_2

    &----


    • printing details of partner for selected scheduled data

    ----


    • -->P_WA_VBEP_VBELN checked SO No. in scheduled screen

    ----


    form z11_partner_pop_2 using p_wa_vbep_vbeln.

    clear v_vbeln.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'

    exporting

    input = p_wa_vbep_vbeln

    importing

    output = v_vbeln.

    loop at i_vbpa into wa_vbpa where vbeln = v_vbeln.

    at new vbeln.

    write:10 wa_vbpa-vbeln.

    endat.

    write:29 sy-vline,

    30 wa_vbpa-parvw, 39 sy-vline,

    40 wa_vbpa-vtext, 69 sy-vline,

    70 wa_vbpa-kunnr, 84 sy-vline,

    85 wa_vbpa-name1, 120 sy-vline,

    121 wa_vbpa-ort01, 130 sy-vline,

    131 wa_vbpa-land1.

    at new parvw.

    uline.

    endat.

    at end of vbeln.

    uline.

    new-page.

    endat.

    endloop.

    endform. " Z11_PARTNER_POP_2

    &----


    *& Form z11_top_of_page

    &----


    • printing top of page

    ----


    form z11_top_of_page .

    uline.

    write:/10 text-002 , 25 wa_final_temp-butxt,

    55 text-003 , 70 d_prog_name,

    105 text-004 , 120 sy-pagno.

    write:/10 text-005 , 25 sy-uname,

    105 text-006 , 120 sy-datum.

    uline .

    clear: wa_comp.

    endform. " z11_top_of_page

    &----


    *& Form z11_top_of_page_linesel

    &----


    • printing top of page on line selection

    ----


    form z11_top_of_page_linesel .

    if sy-ucomm = 'PART'.

    write:/10 'PARTNER FUNCTIONS'.

    uline.

    write:10 'SALES ORDER NO.', 29 sy-vline,

    30 'PARTNER FUNC:', 39 sy-vline,

    40 'DESCRIPTIOPN', 69 sy-vline,

    70 'CUSTOMER', 84 sy-vline,

    85 'CUSTOMER NAME', 120 sy-vline,

    121'CUST CITY', 130 sy-vline,

    131'CUST COUNTRY'.

    uline.

    else.

    write:/10 'SCHEDULED DATA'.

    uline.

    write:10 'SALES ORDER NO.', 29 sy-vline,

    30 'ITEM NO.', 39 sy-vline,

    40 'SCHEDULE LINE', 59 sy-vline,

    60 'SCHEDULE LINE CATEGORY', 89 sy-vline,

    90 'SCHEDULE LINE DATE', 120 sy-vline.

    uline.

    endif.

    rewards points if helpful

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.