13应收账款账龄报表

*& —"*&Include RFIDCN_AR_AGING_CL1*& —*CLASSlcl_event_handlerDEFINITION.PUBLICSECTION.CLASS-METHODS:"hotspotclick"handle_hotspot_click" FOREVENThotspot_clickOFcl_gui_alv_grid" IMPORTINGe_row_ide_column_ides_row_no,"doubleclickhandle_double_clickFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_columnes_row_no,"ToaddnewfunctionalbuttonstotheALVtoolbarhandle_toolbarFOREVENTtoolbarOFcl_gui_alv_gridIMPORTINGe_objecte_interactive,"Toimplementusercommandshandle_user_commandFOREVENTafter_user_commandOFcl_gui_alv_gridIMPORTINGeucomm.PRIVATESECTION.ENDCLASS. "LCL_EVENT_HANDLER*& —""& Class(Implementation)lcl_event_handler*& —""& localeventhandlerclassimplementation*& "CLASSlcl_event_handlerIMPLEMENTATION."-Handlehotspotclick"METHODhandle_hotspot_click."PERFORMhandle_hotspot_clickUSINGe_row_ide_column_ides_row_no."ENDMETHOD.*-HandledoubleclickMETHODhandle_double_click.DATAls_output_resLIKEgt_output_res.DATA:BEGINOFls_sd_info,vbelnTYPEvbrk-vbeln,vkorgTYPEvbrk-vkorg,vtwegTYPEvbrk-vtweg,"DistributionChannelspartTYPEvbrk-spart,bzirkTYPEvbrk-bzirk,ENDOFls_sd__info.DATAlt_sd_infoLIKESTANDARDTABLEOFls_sd_info.*Insertbynote1719371DATA:BEGINOFls_local_currency,bukrsTYPEt001-bukrs,waersTYPEt001-waers,ENDOFls_local_currency.DATA:lt_local_currencyLIKETABLEOFls_local_currency.*Endofinsertbynote1719371p_l2='X'.p_l1=''.CLEAR:ls_output_res,gs_head_use,gt_mid_output[].READTABLEgt_output_resINTOls_output_resINDEXes_row_no-row_id.IFsy-subrcEQ0.gs_head_use=ls_output_res.IFe_column-fieldnameEQ'SEGMENT'.IFp_curr_tISINITIAL.CLEARgs_output.LOOPATgt_outputINTOgs_outputWHEREkunnr=ls_output_res-kunnrANDbukrs=ls_output_res-bukrsANDhkont=ls_output_res-hkont" ANDhwaer=ls_output_res-hwaerANDovdaysLT0.APPENDgs_outputTOgt_mid_output.ENDLOOP.ELSE.CLEARgs_output.LOOPATgt_outputINTOgs_outputWHEREkunnr=ls_output_res-kunnrANDbukrs=ls_output_res-bukrsANDhkont=ls_output_res-hkontANDwaers=ls_output_res-waersANDovdaysLT0.APPENDgs_outputTOgt_mid_output.ENDLOOP.ENDIF.ELSE.IFp_curr_tISINITIAL.CLEARgs_output.LOOPATgt_outputINTOgs_outputWHEREkunnr=ls_output_res-kunnrANDbukrs=ls_output_res-bukrsANDhkont=ls_output_res-hkont." ANDhwaer=ls_output_res-hwaer.APPENDgs_outputTOgt_mid_output.ENDLOOP.ELSE.CLEARgs_output.LOOPATgt_outputINTOgs_outputWHEREkunnr=ls_output_res-kunnrANDbukrs=ls_output_res-bukrsANDhkont=ls_output_res-hkontANDwaers=ls_output_res-waers.APPENDgs_outputTOgt_mid_output.ENDLOOP.ENDIF.ENDIF.ifgv_fb4_active=abap_trueandgv_fagl_activec=abap_true.loopatgt_mid_outputintogs_output.ifgs_output-fb_segment<>ls_output_resfb_segmentorgs_output-fb_prctr<>ls_output_res-fb_prctr.deletetablegt_mid_outputfromgs_output.endif.endloop.endif.IFgt_mid_output[]ISNOTINITIAL.SORTgt_mid_outputBYvbeln.SELECTvbelnvkorgvtwegspartbzirkFROMvbrkINTOTABLElt_sd_infoFORALLENTRIESINgt_mid_outputWHEREvbeln=gt_mid_output-vbeln.ENDIF.LOOPATgt_mid_outputINTOgt_mid_output.CLEARls_sd_info.READTABLElt_sd_infoINTOls_sd_infoWITHKEYvbeln=gt_mid_outputvbeln.IFsy-subrcEQ0.MOVE-CORRESPONDINGls_sd_infoTOgt_mid_output.MODIFYgt_mid_outputFROMgt_mid_output.ENDIF.ENDLOOP.*Insertbynote1719371IFgt_mid_output[]ISNOTINITIAL.SELECTbukrswaersFROMt001INTOTABLElt_local_currencyFORALLENTRIESINgt_mid_outputWHEREbukrs=gt_mid_outputbukrs.SORTlt_local_currencyBYbukrs.IFsy-subrc=0.LOOPATgt_mid_outputINTOgs_output.CLEARls_local_currency.READTABLElt_local_currencyINTOls_local_currencyWITHKEYbukrs=gt_mid_outputbukrsBINARYSEARCH.gs_outputhwaer=ls_local_currencywaers.MODIFYgt_mid_outputFROMgs_outputTRANSPORTINGhwaer.ENDLOOP.ENDIF.loadsalesorderandprofit&segmentdataifgv_fb4_active=abap_trueandgv_fagl_activec=abap_true.data:lt_vbfa typestandardtableofvbfa,ls_vbfa likelineoflt_vbfa.selectvbelnvbelvintocorrespondingfieldsoftablelt_vbfa"#ECCI_NOFIELDfromvbfaforallentriesingt_mid_outputwherevbeln=gt_mid_outputvbelnandvbtyp_n=if_sd_doc_category=>invoiceandvbtyp_v=if_sd_doc_category=>order.sortlt_vbfabyvbeln.loopatgt_mid_outputintogs_output.clear:ls_vbfa.readtablelt_vbfaintols_vbfawithkeyvbeln=gs_output-vbelnbinarysearch.gs_outputsale_doc=ls_vbfa-vbelv.modifygt_mid_outputfromgs_outputtransportingsale_doc.endloop.endif.ENDIF.Endofinsertbynote1719371CALLSCREEN0101.ENDIF.ENDMETHOD. "handle_double_click*HandleToolbarMETHODhandle_toolbar.DATA:ls_toolbarTYPEstb_button.IFgv_button=abap_true.CLEARls_toolbar.MOVE0TOls_toolbar-butn_type."Button(normal)MOVE'ENABLE'TOls_toolbar-function.MOVEicon_refreshTOls_toolbar-icon.MOVEtext-015TOls_toolbar-text.MOVEtext-015TOls_toolbar-quickinfo.INSERTls_toolbarINTOe_object->mt_toolbarINDEX14.ELSE.CLEARls_toolbar.MOVE0TOls_toolbar-butn_type."Button(normal)MOVE'DISABLE'TOls_toolbar-function.MOVEicon_refreshTOls_toolbar-icon.MOVEtext-025TOls_toolbar-text.MOVEtext-025TOls_toolbar-quickinfo.INSERTls_toolbarINTOe_object->mt_toolbarINDEX14.ENDIF.ENDMETHOD. "handle_toolbar*HandleUserCommandMETHODhandle_user_command.DATA:lt_fieldcatTYPElvc_t_fcat,ls_fieldcatTYPElvc_s_fcat,ltsortTYPElvctsort.CASEe_ucomm.WHEN'ENABLE'.ResetALVSortSequenceCLEARlt_sort.lt_sort=gt_sort.CALLMETHODgv_alvgrid->set_sort_criteriaEXPORTINGit_sort = lt_sortEXCEPTIONSno_fieldcatalog_available=1OTHERS = 2.IFsy-subrc<>0.ImplementsuitableerrorhandlinghereENDIF.gv_button=abap_false.refreshALVCALLMETHODgv_alvgrid->refresh_table_displayEXPORTING

IS_STABLE=I_SOFT_REFRESH=EXCEPTIONSfinished=1OTHERS=2.IFsy-subrc<>0.ENDIF.WHEN'DISABLE'.ResetALVSortSequenceCLEARlt_sort.CALLMETHODgv_alvgrid->set_sort_criteriaEXPORTINGitsort=ltsortitsortEXCEPTIONSno_fieldcatalog_available=1OTHERS =2.IFsy-subrc<>0.ImplementsuitableerrorhandlinghereENDIF.gv_button=gv_button=refreshALVabap_true.CALLMETHODgv_alvgrid->refresh_table_display* EXPORTINGISSTABLEISOFTREFRESHEXCEPTIONSfinished=CALLMETHODgv_alvgrid->refresh_table_display* EXPORTINGISSTABLEISOFTREFRESHEXCEPTIONSfinished=1OTHERS=2.IFsy-subrc<>0.ENDIF.whenOTHERS.data:lt_fcattypeLVC_T_FCAT,ls_fcattypeLVC_S_FCAT,ls_fcat_gtypeLVC_S_FCAT,lv_flagtypechar1.FIELD-SYMBOLS:<fs_sort>typelvc_s_sort.CALLMETHODgv_alvgrid->GET_BACKEND_FIELDCATALOGIMPORTINGETFIELDCATALOGltfcatETFIELDCATALOGltfcat.loopatlt_fcatintols_fcatwherefieldname='FB_SEGMENT'orfieldname='FB_PRCTR'ORfieldname='KUNNR’.loopatgt_fcatintols_fcat_gwherefieldname=ls_fcatfieldname.ifls_fcat_gno_out<>ls_fcatno_out.lv_flag=abap_true.continue.endif.endloop.ENDLOOP.iflv_flag=abap_true.gt_fcat=lt_fcat.loopatlt_fcatintols_fcatwherefieldname='FB_SEGMENT'orfieldname='FB_PRCTR'ORfieldname='KUNNR’.LOOPATgt_sortASSIGNING<fs_sort>WHEREfieldname=ls_fcat-fieldname.IFls_fcatno_out='X'.<fs_sort>subtot=abap_false.else.<fs_sort>subtot=abap_true.endif.ENDLOOP.endloop.CLEARlt_sort.lt_sort=gt_sort.CALLMETHODgv_alvgrid->set_sort_criteriaEXPORTINGit_sort = lt_sortEXCEPTIONSno_fieldcatalog_available=1OTHERS = 2.IFsy-subrc<>0.ImplementsuitableerrorhandlinghereENDIF.refreshALVCALLMETHODgv_alvgrid->refresh_table_displayEXPORTINGIS_STABLE =I_SOFT_REFRESH=EXCEPTIONSfinished=1OTHERS=2.IFsy-subrc<>0.ENDIF.endif.ENDCASE.ENDMETHOD. "handle_user_commandENDCLASS. "lcl_event_handler* —大CLASSLCL_EVENT_HANDLER_0101DEFINITION* —*** —*CLASSlcl_event_handler_0101DEFINITION.PUBLICSECTION.CLASS-METHODS:hotspotclickhandle_hotspot_clickFOREVENThotspot_clickOFcl_gui_alv_gridIMPORTINGe_row_ide_column_ides_row_no,*doubleclickhandle_double_clickFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_columnes_row_no.PRIVATESECTION.ENDCLASS. "LCL_EVENT_HANDLER*& —**& Class(Implementation)lcl_event_handler*& —**& localeventhandlerclassimplementation*& *CLASSlcl_event_handler_0101IMPLEMENTATION.大一HandlehotspotclickMETHODhandle_hotspot_click.DATAls_mid_outputLIKEgs_output.CLEARls_mid_output.

READTABLEgt_mid_outputINTO ls_mid_outputINDEX esrowno-rowid.IFsy-subrcCASEecolumnid-fieldname.WHEN'AUGDT'.SETPARAMETERID'BLN'FIELDls_mid_outputbelnr.SETPARAMETERID'BUK'FIELDls_mid_outputbukrs.SETPARAMETERID'GJR'FIELDls_mid_outputgjahr.WHEN'AUGDT'.SETPARAMETERID'BLN'FIELDls_mid_outputbelnr.SETPARAMETERID'BUK'FIELDls_mid_outputbukrs.SETPARAMETERID'GJR'FIELDls_mid_outputgjahr.AUTHORITY-CHECKOBJECT'STCODE'ID'TCD'FIELD'FB03'.IFsy-subrc=0.*Tofixsecurityissue2013-03-12* CALLTRANSACTION'FB03'* ANDSKIPFIRSTSCREEN. "#ECCI_CALLTACALLTRANSACTION'FB03'WITHAUTHORITY-CHECKANDSKIPFIRSTSCREEN. "#ECCI_CALLTA*Tofixsecurityissue2013-03-12ELSE.MESSAGEi077(s#)WITH'FB03'.EXIT.ENDIF.ENDCASE.ENDIF.ENDMETHOD. "handle_hotspot_click-HandledoubleclickMETHODhandledoubleclick.DATAls_mid_outputLIKEgs_output.CLEARls_mid_output.READTABLEgt_mid_outputINTOls_mid_outputINDEXes_row_norow_id.IFsy-subrc=0.IFe_column-fieldnameEQ'VBELN'ANDls_mid_outputvbelnISNOTINITIAL.SETPARAMETERID'VF'FIELDls_mid_outputvbeln.**********AUTHORITY-CHECKOBJECT'S_TCODE'ID'TCD'FIELD'VF02'.IFsy-subrc=0.**CALLTRANSACTION'VF02'**ANDSKIPFIRSTSCREEN."#ECCICALLTA**ELSE.**MESSAGEi077(s#)WITH'VF02'.**EXIT.**ENDIF.AUTHORITY-CHECKOBJECT'STCODE'ID'TCD'FIELD'VF03'.IFsy-**CALLTRANSACTION'VF02'**ANDSKIPFIRSTSCREEN."#ECCICALLTA**ELSE.**MESSAGEi077(s#)WITH'VF02'.**EXIT.**ENDIF.AUTHORITY-CHECKOBJECT'STCODE'ID'TCD'FIELD'VF03'.IFsy-subrc**Tofixsecurityissue2013-03-12**CALLTRANSACTION'VF03'**ANDSKIPFIRSTSCREEN."#ECCICALLTACALLTRANSACTION'VF03'WITHAUTHORITY-CHECKANDSKIPFIRSTSCREEN.SCREEN."#ECCICALLTA**Tofixsecurityissue2013-03-12**ELSE.MESSAGEi077(s#)WITH'VF03'.ENDIF.ELSEIFe_column-fieldnameEQ'SALE_DOC'ANDls_mid_output-saledocISNOTINITIALdocISNOTINITIAL.SETPARAMETERID'AUN'FIELDls_mid_outputsale_doc.AUTHORITY-CHECKOBJECT'STCODE'ID'TCD'FIELD'VA03'.IFsy-subrc**Tofixsecurityissue2013-03-12**