Please provide a SD related report

[Former Member]

Please provide a complete programming example of SD report that uses the following:

1. ALVs

2. No TABLES statement

3. No JOINS in Select statement. Instead of this, it can contain FOR ALL ENTRIES

[Former Member]

Hi,

Try the report

ERPSLS_BILLBLOCKDOC

Regards,

Renjith Michael.

[Former Member]

Hi

I tried to execute the report ERPSLS_BILLBLOCKDOC. But it does not exist..

[Former Member]

Hi,

Which is the server you are using. I am using a ECC 6.0 version and it is working fine.

The report gives SD Documents blocked for billing.

Regards,

Renjith Michael.

[Former Member]

I'm using version before ECC 5.0. I would be grateful if u can paste the report here. Thank you.

[Former Member]

Hi,

The code:

report ztest.

type-pools: slis.

tables: vbak, vbpa, serpsls_blockeddoc.

data: lrt_fieldcat type slis_t_fieldcat_alv,

lrs_fieldcat like line of lrt_fieldcat,

lrs_layout type slis_layout_alv,

lrv_status type slis_formname value 'SET_STATUS',

lrv_user_command type slis_formname value 'USER_COMMAND',

lrv_repid like sy-repid value sy-repid.

data: lrs_doc type serpsls_blockeddoc,

lrt_doc type terpsls_blockeddoc.

selection-screen begin of block docdata with frame title text-doc.

select-options: strvog for serpsls_blockeddoc-trvog,

sauart for serpsls_blockeddoc-auart,

skunnr for serpsls_blockeddoc-kunnr,

serdat for serpsls_blockeddoc-erdat.

selection-screen end of block docdata.

selection-screen begin of block partnerdata with frame title text-par.

parameters: pzpavw like serpsls_blockeddoc-zpavw.

select-options: szpers for serpsls_blockeddoc-zpers matchcode object prem,

sernam for serpsls_blockeddoc-ernam.

selection-screen end of block partnerdata.

selection-screen begin of block orgdata with frame title text-org.

select-options: svkorg for serpsls_blockeddoc-vkorg memory id vko,

svtweg for serpsls_blockeddoc-vtweg memory id vtw,

sspart for serpsls_blockeddoc-spart memory id spa,

svkbur for serpsls_blockeddoc-vkbur memory id vkb,

svkgrp for serpsls_blockeddoc-vkgrp memory id vkg.

selection-screen end of block orgdata.

selection-screen begin of block adddata with frame title text-add.

select-options: sfaksk for serpsls_blockeddoc-faksk.

selection-screen skip.

parameters: popen radiobutton group 1,

pall radiobutton group 1.

selection-screen end of block adddata.

start-of-selection.

perform data_selection.

if lrt_doc[] is initial.

message s490(vr).

exit.

endif.

end-of-selection.

perform fill_fieldcatalog.

perform build_layout.

perform reuse_alv_list_display.

*----

---

• form routines

*----

---

form data_selection.

data: lf_opendoc type char1.

if popen is not initial.

lf_opendoc = 'X'.

endif.

call function 'ERPSLS_BILLBLOCKDOC'

exporting

it_rg_trvog = strvog[]

it_rg_auart = sauart[]

it_rg_kunnr = skunnr[]

it_rg_erdat = serdat[]

iv_zpavw = pzpavw

it_rg_zpers = szpers[]

it_rg_ernam = sernam[]

it_rg_vkorg = svkorg[]

it_rg_vtweg = svtweg[]

it_rg_spart = sspart[]

it_rg_vkbur = svkbur[]

it_rg_vkgrp = svkgrp[]

it_rg_faksk = sfaksk[]

if_opendoc = lf_opendoc

importing

et_doc = lrt_doc.

endform.

form set_status using extab type slis_t_extab.

delete extab where fcode = '&AVE'.

delete extab where fcode = '&OAD'.

delete extab where fcode = '&ERW'.

set pf-status 'STATUS_DOCLIST_1' excluding extab.

endform.

form user_command using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when 'DISPLAY'.

check rs_selfield-tabindex > 0.

read table lrt_doc into lrs_doc index rs_selfield-tabindex.

call function 'RV_CALL_DISPLAY_TRANSACTION'

exporting

vbeln = lrs_doc-vbeln.

when 'CHANGE'.

check rs_selfield-tabindex > 0.

read table lrt_doc into lrs_doc index rs_selfield-tabindex.

call function 'RV_CALL_CHANGE_TRANSACTION'

exporting

vbeln = lrs_doc-vbeln.

endcase.

endform.

form fill_fieldcatalog.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_structure_name = 'SERPSLS_BLOCKEDDOC'

changing

ct_fieldcat = lrt_fieldcat.

delete lrt_fieldcat where fieldname = 'LIFSK'.

delete lrt_fieldcat where fieldname = 'LIFSKT'.

delete lrt_fieldcat where fieldname = 'AWAHR'.

read table lrt_fieldcat

into lrs_fieldcat

with key fieldname = 'KS'.

if sy-subrc = 0.

lrs_fieldcat-seltext_s = text-kss.

lrs_fieldcat-seltext_m = text-ksm.

lrs_fieldcat-seltext_l = text-ksl.

modify lrt_fieldcat from lrs_fieldcat index sy-tabix.

endif.

read table lrt_fieldcat

into lrs_fieldcat

with key fieldname = 'PS'.

if sy-subrc = 0.

lrs_fieldcat-seltext_s = text-pss.

lrs_fieldcat-seltext_m = text-psm.

lrs_fieldcat-seltext_l = text-psl.

modify lrt_fieldcat from lrs_fieldcat index sy-tabix.

endif.

read table lrt_fieldcat

into lrs_fieldcat

with key fieldname = 'AS'.

if sy-subrc = 0.

lrs_fieldcat-seltext_s = text-ass.

lrs_fieldcat-seltext_m = text-asm.

lrs_fieldcat-seltext_l = text-asl.

modify lrt_fieldcat from lrs_fieldcat index sy-tabix.

endif.

read table lrt_fieldcat

into lrs_fieldcat

with key fieldname = 'KR'.

if sy-subrc = 0.

lrs_fieldcat-seltext_s = text-krs.

lrs_fieldcat-seltext_m = text-krm.

lrs_fieldcat-seltext_l = text-krl.

modify lrt_fieldcat from lrs_fieldcat index sy-tabix.

endif.

endform.

form build_layout.

lrs_layout-colwidth_optimize = 'X'.

lrs_layout-detail_initial_lines = 'X'.

endform.

form reuse_alv_list_display.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = lrv_repid

i_callback_pf_status_set = lrv_status

i_callback_user_command = lrv_user_command

is_layout = lrs_layout

it_fieldcat = lrt_fieldcat

i_save = 'A'

tables

t_outtab = lrt_doc

exceptions

program_error = 1

others = 2.

endform.

Inside the report they use function module ERPSLS_BILLBLOCKDOC which contains for all entries too.

Pls reward points if useful

Regards,

Renjith Michael.

[Former Member]

Hi

Thank you for providing the code. I will execute it and get back to u for any further doubts. Thank you.