Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

validation-checkboxes-ALV Report

Former Member
0 Likes
592

Hi!

I have this report which shows a rental contract list. I have to add an additional select option which I have done as the billing plan line(p_rental in my report). When I just click this checkbox the report should show up the entire list of contacts . This particular billing plan is a separate entity altogether from the existing two checkboxes(p_all and p_group in report), a combination of the selection of checkboxes varries the result. My problem is that the check box p_rental that I added dosent show up the list of contarcts , it just shows few of them which I do not wish , I want entire list to show up. Can anyone help me i this regards please. foloowing is the report with the include program.

&----


*& Include ZSD_CONTRACT_LIST_T01

&----


----


***INCLUDE ZSD_CONTRACT_LIST_T01 .

----


TABLES: vbak, vbap, wbrk, zsdsched, fplt, fpla, tvlvt.

TYPE-POOLS: slis.

DATA: BEGIN OF gt_report OCCURS 0,

vbeln LIKE vbak-vbeln, "Sales Document

posnr LIKE vbap-posnr, "Item

ernam LIKE vbak-ernam, "Created by

erdat LIKE vbak-erdat, "Created on

audat LIKE vbak-audat, "Document Date

vbtyp LIKE vbak-vbtyp, "SD document category

auart LIKE vbak-auart, "Sales Document type

vkorg LIKE vbak-vkorg, "Sales Org

vtweg LIKE vbak-vtweg, "Distribution Channel

spart LIKE vbak-spart, "Division

vkbur LIKE vbak-vkbur, "Sales Office

guebg LIKE vbak-guebg, "Valid from date

gueen LIKE vbak-gueen, "Valid to date

kunnr LIKE vbak-kunnr, "Sold-to party

kunnrt LIKE kna1-name1, "Sold-to Name

kvgr4 LIKE vbak-kvgr4, "Territory

matnr LIKE vbap-matnr, "Material

arktx LIKE vbap-arktx, "Material Short Text

charg LIKE vbap-charg, "Batch

matkl LIKE vbap-matkl, "Material Group

pstyv LIKE vbap-pstyv, "Item Category

zmeng LIKE vbap-zmeng, "Target Quantity

zieme LIKE vbap-zieme, "Target Unit

kdmat LIKE vbap-kdmat, "Customer Material Number

werks LIKE vbap-werks, "Plant

lgort LIKE vbap-lgort, "Storage Location

vstel LIKE vbap-vstel, "Shipping Point

route LIKE vbap-route, "Route

netpr LIKE vbap-netpr, "Net Price

kpein LIKE vbap-kpein, "Condition Price Unit

kmein LIKE vbap-kmein, "Condition Unit

shkzg LIKE vbap-shkzg, "Returns Item

oidrc LIKE vbap-oidrc, "DRC Code

kunwe LIKE vbap-oid_ship, "Ship-to

aufnr LIKE vbap-aufnr, "Interal Order #

vkaus LIKE vbap-vkaus, "Usage

bezei LIKE tvlvt-bezei, "Usage Description

kunwet LIKE kna1-name1, "Ship-to Name

zzwprofid LIKE vbap-zzwprofid, "Waste Profile ID

kunre LIKE wbrk-kunre, "Bill-to

kunret LIKE kna1-name1, "Bill-to Name

addl_schd LIKE icon-id, "Push Button For addl line

datab LIKE zsdsched-datab, "Valid-From Date

datbi LIKE zsdsched-datbi, "Valid To Date

zschdfreq LIKE zsdsched-zschdfreq, "Contract schedule frequency

frequency LIKE zsdsched-frequency, "Frequency

monday LIKE zsdsched-monday, "Mondays

tuesday LIKE zsdsched-tuesday, "Tuesdays

wednesday LIKE zsdsched-wednesday, "Wednesdays

thursday LIKE zsdsched-thursday, "Thursdays

friday LIKE zsdsched-friday, "Fridays

saturday LIKE zsdsched-saturday, "Saturdays

sunday LIKE zsdsched-sunday, "Sundays

dzieme LIKE zsdsched-dzieme, "Target quantity UoM

comments LIKE zsdsched-comments, "Comments

fksaf LIKE fplt-fksaf,

afdat LIKE fplt-afdat,

fakwr LIKE fplt-fakwr,

fkdat LIKE fplt-fkdat,

fpart LIKE fpla-fpart,

nfdat LIKE fplt-nfdat,

bedat LIKE fpla-bedat,

endat LIKE fpla-endat,

horiz LIKE fpla-horiz,

abrvw LIKE tvlvt-abrvw,

END OF gt_report.

DATA: gs_report LIKE LINE OF gt_report,

gt_sched TYPE TABLE OF zsdsched,

gt_sched_tmp TYPE TABLE OF zsdsched,

gs_sched TYPE zsdsched,

gt_sel LIKE gt_report OCCURS 0,

gt_vbpa TYPE TABLE OF vbpa,

gs_vbpa TYPE vbpa,

gv_auart TYPE auart,

gv_counter TYPE i.

**-- ALV variables

DATA: ls_fieldcat TYPE slis_fieldcat_alv, "Field Catalog list

gt_fieldcat TYPE slis_t_fieldcat_alv, "Field Catalog

ls_sort TYPE slis_sortinfo_alv, "Sorting list

gt_sort TYPE slis_t_sortinfo_alv, "Sort

gs_layout TYPE slis_layout_alv, "List Layout

gs_variant TYPE disvariant, "Display Variant

gv_repid LIKE sy-repid,

gv_save(1) TYPE c,

gv_exit(1) TYPE c.

CONSTANTS: gc_a TYPE c VALUE 'A',

gc_g TYPE c VALUE 'G',

gc_re(2) TYPE c VALUE 'RE'.

  • Screen-control Variables

CONTROLS:

tctrl_sched TYPE TABLEVIEW USING SCREEN 1010. " Schedule lines.

&----


*& Report ZSD_CONTRACT_LIST

*&

&----


*& Created by: Kyle Hougen

*& Created on: January 21, 2007

*& Description: List of Contracts - ALV

&----


REPORT zsd_contract_list.

INCLUDE zsd_contract_list_t01.

----


  • Selection Screen

----


SELECTION-SCREEN BEGIN OF BLOCK m1 WITH FRAME TITLE text-t01.

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

SELECT-OPTIONS: s_vkorg FOR vbak-vkorg MEMORY ID vko,

s_vtweg FOR vbak-vtweg MEMORY ID vtw,

s_spart FOR vbak-spart MEMORY ID spa,

s_vkbur FOR vbak-vkbur MEMORY ID vkb.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,

s_erdat FOR vbak-erdat,

s_ernam FOR vbak-ernam,

s_guebg FOR vbak-guebg,

s_gueen FOR vbak-gueen,

s_fksaf FOR fplt-fksaf,

s_afdat FOR fplt-afdat,

s_auart FOR gv_auart MEMORY ID vta

MATCHCODE OBJECT h_vakz.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS:

s_kunnr FOR vbak-kunnr,

s_kunwe FOR vbap-oid_ship,

s_kunre FOR wbrk-kunre.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t03.

SELECT-OPTIONS: s_werks FOR vbap-werks MEMORY ID wrk,

s_lgort FOR vbap-lgort MEMORY ID lag,

s_vstel FOR vbap-vstel MEMORY ID vst,

s_route for vbap-route,

s_matnr FOR vbap-matnr.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t04.

PARAMETERS: p_varia TYPE disvariant-variant MEMORY ID wrk,

p_all AS CHECKBOX DEFAULT 'X',

p_group AS CHECKBOX DEFAULT 'X',

p_rental AS CHECKBOX DEFAULT 'X'.

  • p_all RADIOBUTTON GROUP rad1,

  • p_group RADIOBUTTON GROUP rad1,

  • p_rental RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF BLOCK m1.

----


  • Start of Selection

----


START-OF-SELECTION.

PERFORM get_data.

----


  • Display ALV

----


END-OF-SELECTION.

IF gt_report[] IS INITIAL.

MESSAGE s419(brain).

ELSE.

PERFORM create_alv.

ENDIF.

----


  • AT SELECTION-SCREEN ON VALUE-REQUEST *

----


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varia.

PERFORM f01_f4_variant CHANGING p_varia.

&----


*& Form get_data

&----


  • text

----


FORM get_data .

  • Select the appropriate contract data.

SELECT a~vbeln a~erdat a~ernam a~audat a~vbtyp a~auart a~vkorg

a~vtweg a~spart a~vkbur a~guebg a~gueen a~kunnr a~kvgr4

b~posnr b~matnr b~charg b~matkl b~arktx b~pstyv b~zmeng

b~zieme b~kdmat b~werks b~lgort b~vstel b~netpr b~kpein

b~vkaus b~aufnr b~kmein b~shkzg b~oid_extbol b~oid_miscdl

b~oidrc b~oid_ship AS kunwe b~zzwprofid c~datbi c~datab

b~route d~fkdat d~nfdat d~fakwr d~fksaf d~afdat

e~fpart e~bedat e~endat e~horiz f~bezei

INTO CORRESPONDING FIELDS OF TABLE gt_sel

FROM vbak AS a

INNER JOIN vbap AS b ON a~vbeln = b~vbeln

INNER JOIN vbkd AS g ON a~vbeln = g~vbeln

INNER JOIN fplt AS d ON g~fplnr = d~fplnr

INNER JOIN fpla AS e ON d~fplnr = e~fplnr

INNER JOIN tvlvt AS f ON b~vkaus = f~abrvw

LEFT OUTER JOIN zsdsched AS c ON b~vbeln = c~vbeln AND

b~posnr = c~posnr

WHERE a~vbeln IN s_vbeln

AND a~erdat IN s_erdat

AND a~vbtyp = gc_g

AND a~ernam IN s_ernam

AND a~vkorg IN s_vkorg

AND a~vtweg IN s_vtweg

AND a~spart IN s_spart

AND a~vkbur IN s_vkbur

AND a~guebg IN s_guebg

AND a~gueen IN s_gueen

AND a~auart IN s_auart

AND a~kunnr IN s_kunnr

AND b~oid_ship IN s_kunwe

AND b~werks IN s_werks

AND b~lgort IN s_lgort

AND b~vstel IN s_vstel

AND b~route in s_route

AND b~matnr IN s_matnr

AND d~afdat IN s_afdat

AND d~fksaf = 'A'

OR d~fksaf = 'B'.

SORT gt_sel.

IF NOT gt_sel[] IS INITIAL.

  • Get Bill-to Party's for Item Lines

SELECT vbeln posnr parvw kunnr INTO CORRESPONDING FIELDS OF TABLE gt_vbpa

FROM vbpa

FOR ALL ENTRIES IN gt_sel

WHERE vbeln = gt_sel-vbeln

AND parvw = gc_re.

  • Select the remaining records from the ZSDSCHED Table.

SELECT * FROM zsdsched

INTO TABLE gt_sched

FOR ALL ENTRIES IN gt_sel

WHERE vbeln = gt_sel-vbeln

AND posnr = gt_sel-posnr.

SORT gt_sched.

ENDIF.

  • Loop through captured data for additional information

LOOP AT gt_sel INTO gs_report.

  • Find the bill-to party

READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report-vbeln

posnr = gs_report-posnr

parvw = gc_re.

IF sy-subrc <> 0.

READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report-vbeln

parvw = gc_re.

CHECK sy-subrc = 0 AND gs_vbpa-kunnr IN s_kunre.

ELSE.

CHECK gs_vbpa-kunnr IN s_kunre.

ENDIF.

gs_report-kunre = gs_vbpa-kunnr.

  • Get the Customer's Name

gs_report-kunnrt = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunnr ).

gs_report-kunwet = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunwe ).

gs_report-kunret = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunre ).

  • Get the scheduling lines for the item line.

CLEAR gv_counter.

IF NOT p_group IS INITIAL.

  • If we are grouping the lines add the icon button.

LOOP AT gt_sched INTO gs_sched WHERE vbeln = gs_report-vbeln

AND posnr = gs_report-posnr.

IF gv_counter > 0.

gs_report-addl_schd = '@1E@'.

CONTINUE.

ENDIF.

MOVE-CORRESPONDING gs_sched TO gs_report.

ADD 1 TO gv_counter.

ENDLOOP.

ELSE.

  • Otherwise get the rest of the schedule information

READ TABLE gt_sched INTO gs_sched

WITH KEY vbeln = gs_report-vbeln

posnr = gs_report-posnr

datbi = gs_report-datbi

datab = gs_report-datab.

IF sy-subrc = 0.

MOVE-CORRESPONDING gs_sched TO gs_report.

ENDIF.

ENDIF.

APPEND gs_report TO gt_report.

ENDLOOP.

  • Remove any duplicates from the reporting table

DELETE ADJACENT DUPLICATES FROM gt_report.

  • If Show all records is initial, delete non-scheduled lines (ex. Sub-items)

IF p_all IS INITIAL .

DELETE gt_report WHERE datbi = 0

AND datab = 0.

ENDIF.

ENDFORM. " get_data

&----


*& Form create_alv

&----


  • text

----


FORM create_alv .

PERFORM initialize_fieldcat USING gt_fieldcat[].

PERFORM populate_layout CHANGING gs_layout

gs_variant.

PERFORM populate_sort USING gt_sort[].

PERFORM display_alv_report.

ENDFORM. " create_alv

&----


*& Form initialize_fieldcat

&----


  • Get and enhance the field catalog data

----


  • -->L_FIELDCAT[] text

----


FORM initialize_fieldcat USING l_fieldcat TYPE slis_t_fieldcat_alv.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = 'ZSD_CONTRACT_LIST'

i_internal_tabname = 'GT_REPORT'

i_inclname = 'ZSD_CONTRACT_LIST_T01'

CHANGING

ct_fieldcat = l_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'VBELN'.

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Contract'.

ls_fieldcat-hotspot = 'X'.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNNRT'.

ls_fieldcat-seltext_s =

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sold-to Name'.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNWET'.

ls_fieldcat-seltext_s =

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Ship-to Name'.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNRET'.

ls_fieldcat-seltext_s =

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Bill-to Name'.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'ADDL_SCHD'.

IF NOT p_group IS INITIAL.

ls_fieldcat-seltext_s = 'Schd'.

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Additional Scheduling Lines'.

ls_fieldcat-icon = 'X'.

CLEAR: ls_fieldcat-key,

ls_fieldcat-ref_fieldname,

ls_fieldcat-ref_tabname,

ls_fieldcat-reptext_ddic,

ls_fieldcat-ddic_outputlen.

ls_fieldcat-hotspot = 'X'.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

ELSE.

DELETE l_fieldcat INDEX sy-tabix.

ENDIF.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'DATAB'.

ls_fieldcat-seltext_s = 'Schd From'.

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. From Date'.

CLEAR: ls_fieldcat-key.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'DATBI'.

ls_fieldcat-seltext_s = 'Schd To'.

ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. To Date'.

CLEAR: ls_fieldcat-key.

MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.

ENDFORM. " initialize_fieldcat

&----


*& Form populate_layout

&----


  • text

----


  • <--GS_LAYOUT

  • <--GS_VARIANT

----


FORM populate_layout CHANGING gs_layout TYPE slis_layout_alv

gs_variant TYPE disvariant.

gs_layout-colwidth_optimize = 'X'.

gs_layout-allow_switch_to_list = 'X'.

gs_layout-zebra = 'X'.

gs_variant-report = sy-repid.

ENDFORM. " populate_layout

&----


*& Form populate_sort

&----


  • text

----


  • -->l_SORT[] text

----


FORM populate_sort USING l_sort TYPE slis_t_sortinfo_alv.

ENDFORM. " populate_sort

&----


*& Form display_alv_report

&----


*

----


FORM display_alv_report .

gv_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER =

  • I_BUFFER_ACTIVE = ' '

i_callback_program = gv_repid

  • I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND'

i_structure_name = 'gt_report'

is_layout = gs_layout

it_fieldcat = gt_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

it_sort = gt_sort

  • IT_FILTER =

  • IS_SEL_HIDE =

i_default = 'X'

i_save = gc_a

is_variant = gs_variant

  • IT_EVENTS =

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = gt_report

EXCEPTIONS

program_error = 1

OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " display_alv_report

&----


*& Form f01_f4_variant

&----


  • Get the Layout variant for the user.

----


FORM f01_f4_variant CHANGING c_variant TYPE disvariant-variant.

DATA: ls_variant TYPE disvariant,

l_exit TYPE char1.

ls_variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = ls_variant

i_save = 'A'

  • it_default_fieldcat =

IMPORTING

e_exit = l_exit

es_variant = ls_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF l_exit EQ space.

c_variant = ls_variant-variant.

ENDIF.

ENDIF.

ENDFORM. " f01_f4_variant

----


  • FORM USER_COMMAND *

----


  • --> R_UCOMM *

  • --> RS_SELFIELD *

----


FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

  • Check function code

CASE r_ucomm.

WHEN '&IC1'.

READ TABLE gt_report INTO gs_report INDEX rs_selfield-tabindex.

CHECK sy-subrc = 0.

CASE rs_selfield-fieldname.

WHEN 'VBELN'.

  • Set parameter ID for transaction screen field

CHECK NOT gs_report-vbeln IS INITIAL.

SET PARAMETER ID 'KTN' FIELD gs_report-vbeln.

CALL TRANSACTION 'VA43' AND SKIP FIRST SCREEN.

WHEN 'ADDL_SCHD'.

CHECK NOT gs_report-addl_schd IS INITIAL.

REFRESH gt_sched_tmp.

LOOP AT gt_sched INTO gs_sched

WHERE vbeln = gs_report-vbeln

AND posnr = gs_report-posnr.

APPEND gs_sched TO gt_sched_tmp.

ENDLOOP.

CHECK sy-subrc = 0.

CALL SCREEN '1010' STARTING AT 5 5.

ENDCASE.

ENDCASE.

ENDFORM. "user_command

&----


*& Module STATUS_1010 OUTPUT

&----


  • text

----


MODULE status_1010 OUTPUT.

SET PF-STATUS 'MAIN_1010'.

SET TITLEBAR '1010' WITH gs_report-vbeln gs_report-posnr.

ENDMODULE. " STATUS_1010 OUTPUT

&----


*& Module USER_COMMAND_1010 INPUT

&----


  • text

----


MODULE user_command_1010 INPUT.

CASE sy-ucomm.

WHEN 'BACK' OR 'CANC'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_1010 INPUT

Edited by: aarav agnihotri on Mar 18, 2008 7:56 PM

2 REPLIES 2
Read only

Former Member
0 Likes
508

Hai.

check it may help you.

TABLES:MARA.

DATA:BEGIN OF GT_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

END OF GT_MARA,

GV_CB,

GV_CBV,

GV_LINES TYPE I,

INDEX TYPE I,

SY_INDEX TYPE I,

GV_LINES1 TYPE I,

MATNR LIKE MARA-MATNR.

SELECT-OPTIONS:S_MATNR FOR MARA-MATNR.

SELECT

MATNR FROM MARA

INTO TABLE GT_MARA

WHERE MATNR IN S_MATNR.

IF SY-SUBRC = 0.

DESCRIBE TABLE GT_MARA LINES GV_LINES.

ENDIF.

LOOP AT GT_MARA.

WRITE:/ GV_CB AS CHECKBOX,

GT_MARA-MATNR.

ENDLOOP.

CLEAR GT_MARA.

WRITE:'Total num of records is ',GV_LINES.

SET PF-STATUS 'DEL'.

AT USER-COMMAND.

IF SY-UCOMM = 'DEL' OR SY-UCOMM = 'PICK'.

DO 50 TIMES.

SY_INDEX = SY-INDEX.

READ LINE SY_INDEX FIELD VALUE GV_CB

GT_MARA-MATNR INTO MATNR.

IF GV_CB = 'X'." AND MATNR IS NOT INITIAL.

  • LOOP AT GT_MARA." WHERE MATNR = MATNR.

  • DELETE GT_MARA.

  • CLEAR GT_MARA.

  • ENDLOOP.

delete gt_mara index sy_index.

ENDIF.

ENDDO.

DESCRIBE TABLE GT_MARA LINES GV_LINES1.

WRITE:'Total num of records is ',GV_LINES1.

CLEAR:GV_LINES .

LOOP AT GT_MARA.

WRITE:/ GT_MARA-MATNR.

ENDLOOP.

ENDIF.

regards.

sowjanya.b

Read only

0 Likes
508

Hi!

Thanks for the answer you send , but as a matter of fact if you look at my report I have done as per the requirement , for two checkboxes ie. p_all and p_group which shows the non-scheduled line items and group schedule items . I wanted to add a thrid checkbox called the Billing Plan line items which will show me the result of all the rental contract billing plan items . So with this now I should be having three different kinds of results when individually the checkboxes are checked. But I am unable to get through with the third one, which dosent give me the result as desired which is all teh contracts pertaing to 'ZMV'(vbak-auart).

Kindly help.