13应收账款账龄报表Word文档下载推荐.docx

13应收账款账龄报表Word文档下载推荐.docx

《13应收账款账龄报表Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《13应收账款账龄报表Word文档下载推荐.docx（10页珍藏版）》请在冰豆网上搜索。

buttons 

to 

the 

ALV 

toolbar

handle_toolbar

toolbar 

e_object 

e_interactive,

implement 

user 

commands

handle_user_command

after_user_command 

e_ucomm.

PRIVATE 

SECTION.

ENDCLASS. 

"

LCL_EVENT_HANDLER

Class 

（Implementation） 

lcl_event_handler

local 

event 

handler 

class 

implementation

----------------------------------------------------------------------*

IMPLEMENTATION.

*- 

Handle 

METHOD 

handle_hotspot_click.

PERFORM 

handle_hotspot_click 

USING 

es_row_no.

ENDMETHOD.

handle_double_click.

DATA 

ls_output_res 

LIKE 

gt_output_res.

DATA:

BEGIN 

ls_sd_info,

vbeln 

TYPE 

vbrk-vbeln,

vkorg 

vbrk-vkorg,

vtweg 

vbrk-vtweg, 

Distribution 

Channel

spart 

vbrk-spart 

bzirk 

vbrk-bzirk 

END 

ls_sd_info.

lt_sd_info 

STANDARD 

TABLE 

Insert 

by 

note 

1719371

ls_local_currency,

bukrs 

t001-bukrs,

waers 

t001-waers,

ls_local_currency.

lt_local_currency 

End 

of 

insert 

p_l2 

= 

'

X'

. 

p_l1 

CLEAR:

gs_head_use 

gt_mid_output[].

READ 

gt_output_res 

INTO 

INDEX 

es_row_no-row_id.

IF 

sy-subrc 

EQ 

0 

ls_output_res.

e_column-fieldname 

SEGMENT'

p_curr_t 

IS 

INITIAL.

CLEAR 

gs_output.

LOOP 

AT 

gt_output 

gs_output 

WHERE 

kunnr 

ls_output_res-kunnr

AND 

ls_output_res-bukrs

hkont 

ls_output_res-hkont

hwaer 

ls_output_res-hwaer

ovdays 

LT 

0.

APPEND 

TO 

gt_mid_output.

ENDLOOP.

ELSE.

ls_output_res-waers

ENDIF.

ls_output_res-hkont.

ls_output_res-hwaer.

ls_output_res-waers.

if 

gv_fb4_active 

abap_true

and 

gv_fagl_activec 

abap_true.

loop 

at 

gt_mid_output 

into 

gs_output-fb_segment 

<

>

ls_output_res-fb_segment 

or

gs_output-fb_prctr 

ls_output_res-fb_prctr.

delete 

table 

from 

endif.

endloop.

gt_mid_output[] 

NOT 

INITIAL 

SORT 

BY 

vbeln.

SELECT 

vbeln

vkorg

vtweg

spart

bzirk

FROM 

vbrk

lt_sd_info

ALL 

ENTRIES 

IN 

gt_mid_output

gt_mid_output-vbeln 

ls_sd_info

WITH 

KEY 

gt_mid_output-vbeln.

MOVE-CORRESPONDING 

ls_sd_info 

MODIFY 

t001 

lt_local_currency

gt_mid_output-bukrs.

bukrs.

ls_local_currency 

gt_mid_output-bukrs

BINARY 

SEARCH.

gs_output-hwaer 

ls_local_currency-waers.

gs_output

TRANSPORTING 

hwaer.

load 

sales 

order 

profit&

segment 

data

abap_true 

data:

lt_vbfa 

type 

standard 

vbfa,

ls_vbfa 

like 

line 

lt_vbfa.

select 

vbelv 

corresponding 

fields 

#EC 

CI_NOFIELD

vbfa

for 

all 

entries 

in 

where 

gt_mid_output-vbeln

vbtyp_n 

if_sd_doc_category=>

invoice

vbtyp_v 

order.

sort 

clear:

ls_vbfa.

read 

ls_vbfa

with 

key 

gs_output-vbeln

binary 

search.

gs_output-sale_doc 

ls_vbfa-vbelv.

modify 

transporting 

sale_doc.

CALL 

SCREEN 

0101.

ENDMETHOD. 

*Handle 

Toolbar

handle_toolbar.

ls_toolbar 

stb_button.

gv_button 

ls_toolbar.

MOVE 

ls_toolbar-butn_type."

Button 

（normal）

ENABLE'

ls_toolbar-function.

icon_refresh 

ls_toolbar-icon.

text-015 

ls_toolbar-text.

ls_toolbar-quickinfo.

INSERT 

e_object->

mt_toolbar 

14.

DISABLE'

text-025 

ENDMETHOD 

User 

Command

handle_user_command 

lt_fieldcat 

lvc_t_fcat,

ls_fieldcat 

lvc_s_fcat,

lt_sort 

lvc_t_sort.

CASE 

WHEN 

Reset 

Sort 

Sequence

lt_sort.

gt_sort.

gv_alvgrid->

set_sort_criteria

EXPORTING

it_sort 

lt_sort

EXCEPTIONS

no_fieldcatalog_available 

1

OTHERS 

2.

Implement 

suitable 

error 

handling 

here

abap_false.

refresh 

ALV

refresh_table_display

IS_STABLE 

=

I_SOFT_REFRESH 

finished 

when 

OTHERS.

lt_fcat 

LVC_T_FCAT,

ls_fcat 

LVC_S_FCAT,

ls_fcat_g 

lv_flag 

char1.

FIELD-SYMBOLS:

fs_sort>

lvc_s_sort.

GET_BACKEND_FIELDC