應付暫估的明細查詢還是很麻煩的一件事情，系統本身并不提供相關功能。其開發源代碼如下：

REPORT? ZRFI0950.?
***********************************************************************?
* TABLES?
***********************************************************************?
tables:?
? bkpf,?
? kna1, "客戶賬戶?
? knb1, "公司代碼?
? knc1, "會計年度?
? bsid. "憑證日期

***********************************************************************?
* ALV ABOUT?
***********************************************************************?
type-pools:?
? slis.

DATA: i_events??? TYPE slis_t_event????????? WITH HEADER LINE,?
????? i_fieldcat? TYPE slis_t_fieldcat_alv?? WITH HEADER LINE,?
????? i_listcomm? TYPE slis_t_listheader???? WITH HEADER LINE,?
????? i_layout??? TYPE slis_layout_alv.?
***********************************************************************?
* GLOBAL VARIABLES?
***********************************************************************?
data: begin of gt_detail occurs 0,? " 暫估入庫列表?
??????? hkont like bsis-hkont,? " 科目號?
??????? belnr like bsis-belnr,? " 憑證編號?
??????? buzei like bsis-buzei,? " 憑證行項目?
??????? shkzg like bsis-shkzg,? " 借貸標識?
??????? budat like bsis-budat,? " 過帳日期?
??????? dmbtr like bsis-dmbtr,? " 發生金額?
??????? ebeln like bseg-ebeln,? " 采購憑證?
??????? lifnr like ekko-lifnr,? " 供應商號?
??????? lname LIKE lfa1-name1,?
??????? dnume type i,?????????? " 帳齡?
????? end of gt_detail,?
????? BEGIN OF gt_out OCCURS 0,?
??????? id??? type i, " 序號?
??????? lifnr LIKE ekko-lifnr, "供應商號?
??????? lname like lfa1-name1, "供應商名?
??????? ncdat like bsis-dmbtr, "年初余額?
??????? qmdat like bsis-dmbtr, "期末余額?
??????? qjone like bsis-dmbtr, "0-90天?
??????? qjtwo like bsis-dmbtr, "91-180?
??????? qjthr like bsis-dmbtr, "181-270?
??????? qjfou like bsis-dmbtr, "271-360?
??????? qjfiv like bsis-dmbtr, ">360?
????? END OF gt_out.?
data: gt_ebeln LIKE STANDARD TABLE OF gt_detail WITH HEADER LINE,?
????? wa_lname LIKE lfa1-name1.

***********************************************************************?
* INTERNAL TABLES AND WORK AREAS?
***********************************************************************?
selection-screen begin of block count with frame title text-001.?
? parameters: p_budat like bsis-budat obligatory default sy-datum.?
selection-screen end of block count.?
***********************************************************************?
* EVENT?
***********************************************************************

start-of-selection.?
? perform get_data.?
? perform process_data.?
end-of-selection.?
? perform data_output.

***======>>>>>> End of main program <<<<<<======***

************************************************************************?
* FORM 子程序?
************************************************************************?
form get_data.?
? select a~hkont a~belnr a~buzei a~shkzg a~budat a~dmbtr b~txt50?
??? from bsis as a join GL_ACCT_CA_TEXT as b on a~hkont = b~SAKNR?
??? into CORRESPONDING FIELDS OF table gt_detail?
?? where hkont = '2202980000'?
???? and budat <= p_budat.

? select a~hkont a~belnr a~buzei a~shkzg a~budat a~dmbtr b~txt50?
??? from bsas as a join GL_ACCT_CA_TEXT as b on a~hkont = b~SAKNR?
??? appending CORRESPONDING FIELDS OF table gt_detail?
?? where hkont = '2202980000'?
???? and budat <= p_budat.?
endform.

form process_data.?
? data year(4) type n VALUE '0000'.?
? year = p_budat+0(4) - 1.?
? loop at gt_detail.?
??? if gt_detail-shkzg = 'S'.?
????? gt_detail-dmbtr = 0 - gt_detail-dmbtr.?
??? endif.

??? select single ebeln from bseg?
????? into gt_detail-ebeln?
???? where belnr = gt_detail-belnr?
?????? and buzei = gt_detail-buzei?
?????? and gjahr = gt_detail-budat+0(4).?
??? select single lifnr from ekko?
????? into gt_detail-lifnr?
???? where ebeln = gt_detail-ebeln.

??? gt_detail-dnume = p_budat - gt_detail-budat.?
??? gt_out-lifnr = gt_detail-lifnr.

??? IF gt_detail-budat+0(4) <= year.?
????? gt_out-ncdat = gt_detail-dmbtr.?
??? ENDIF.?
??? gt_out-qmdat = gt_detail-dmbtr.?
??? if gt_detail-dnume <= 90.?
????? gt_out-qjone = gt_detail-dmbtr.?
??? elseif gt_detail-dnume <= 180.?
????? gt_out-qjtwo = gt_detail-dmbtr.?
??? elseif gt_detail-dnume <= 270.?
????? gt_out-qjthr = gt_detail-dmbtr.?
??? elseif gt_detail-dmbtr <= 360.?
????? gt_out-qjfou = gt_detail-dmbtr.?
??? else.?
????? gt_out-qjfiv = gt_detail-dmbtr.?
??? endif.

??? COLLECT gt_out.?
??? CLEAR gt_out.

??? modify gt_detail.?
??? clear gt_detail.?
? endloop.?
? sort gt_out by lifnr.?
? loop at gt_out.?
??? gt_out-id = sy-tabix.?
??? SELECT SINGLE NAME1 FROM LFA1?
????? INTO GT_OUT-LNAME?
???? WHERE LIFNR = GT_OUT-LIFNR.?
??? MODIFY gt_out.?
??? clear gt_out.?
? ENDLOOP.

endform.

FORM data_output.?
? PERFORM events_build.?
? PERFORM layout_build.?
? PERFORM fields_build.?
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'?
??? EXPORTING?
????? i_callback_program = sy-repid?
????? i_save???????????? = ''?
????? i_callback_user_command? = 'USER_COMMAND'?
????? is_layout????????? = i_layout?
????? it_events????????? = i_events[]?
????? it_fieldcat??????? = i_fieldcat[]?
??? TABLES?
????? t_outtab?????????? = gt_out.

ENDFORM.??????????????????? "data_output

FORM events_build .?
? CALL FUNCTION 'REUSE_ALV_EVENTS_GET'?
??? EXPORTING?
????? i_list_type = 0?
??? IMPORTING?
????? et_events?? = i_events[].?
? READ TABLE i_events WITH KEY name = slis_ev_top_of_page.?
? IF sy-subrc = 0.?
??? i_events-form = 'ALV_TOP_OF_PAGE'.?
??? MODIFY i_events INDEX sy-tabix.?
? ENDIF.?
ENDFORM.??????????????????? "events_build

*&---------------------------------------------------------------------*?
*&????? Form? alv_top_of_page?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
FORM alv_top_of_page.?
? DATA itoc(10) TYPE c.?
? DATA: lv_temp(60).?
? CLEAR: i_listcomm,i_listcomm[].?
? i_listcomm-typ = 'H'.?
? i_listcomm-key = ''.?
? i_listcomm-info = '材料暫估表'.?
? APPEND i_listcomm.?
? CLEAR i_listcomm.

? i_listcomm-typ = 'S'.?
? lv_temp = '編制單位：'.?
? APPEND i_listcomm.?
? CLEAR? i_listcomm.

? i_listcomm-typ = 'S'.?
? CONCATENATE '查詢時間: ' p_budat+0(4) '年' p_budat+4(2) '月' p_budat+6(2) '日'?
???????? INTO lv_temp.?
? i_listcomm-info = lv_temp.?
? APPEND i_listcomm.?
? CLEAR? i_listcomm.

? CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'?
??? EXPORTING?
????? it_list_commentary = i_listcomm[].?
ENDFORM.??????????????????? "alv_top_of_page

*&---------------------------------------------------------------------*?
*&????? Form? layout_build?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
FORM layout_build .?
? i_layout-zebra??????????????? = 'X'.?
? i_layout-detail_popup???????? = 'X'.?
? i_layout-no_vline???????????? = ''.?
? i_layout-colwidth_optimize??? = 'X'.?
? i_layout-detail_initial_lines = 'X'.?
? i_layout-detail_titlebar????? = '物料暫估明細'.?
ENDFORM.??????????????????? " layout_build

* alv ???
FORM fields_build.?
? i_fieldcat-key = 'X'.?
? PERFORM alv_field_column USING 'ID' '序號'.?
? i_fieldcat-key = 'X'.?
? PERFORM alv_field_column USING 'LIFNR' '供應商號'.?
? i_fieldcat-key = 'X'.?
? PERFORM alv_field_column USING 'LNAME' '供應商名稱'.?
? i_fieldcat-key = 'X'.?
? PERFORM alv_field_column USING 'NCDAT' '年初余額'.?
? i_fieldcat-key = 'X'.?
? PERFORM alv_field_column USING 'QMDAT' '期末余額'.?
? PERFORM alv_field_column USING 'QJONE' '0-90天'.?
? PERFORM alv_field_column USING 'QJTWO' '91-180天'.?
? PERFORM alv_field_column USING 'QJTHR' '181-270天'.?
? PERFORM alv_field_column USING 'QJFOU' '271-360天'.?
? PERFORM alv_field_column USING 'QJFIV' '大于360天'.?
ENDFORM.??????????????????? "fields_build

*&---------------------------------------------------------------------*?
*&????? Form? alv_field_column?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
*????? -->VALUE(P_FIELDNAME)? text?
*????? -->VALUE(P_SELTEXT_L)? text?
*----------------------------------------------------------------------*?
FORM alv_field_column USING value(p_fieldname)?
????? value(p_seltext_l).

? i_fieldcat-fieldname?? = p_fieldname.?
? i_fieldcat-seltext_l?? = p_seltext_l.?
? IF p_fieldname+0(2) CP 'QJ' OR p_fieldname+0(2) CP 'NC' OR p_fieldname+0(2) = 'QM'.?
??? i_fieldcat-edit_mask?? = '==Z001'.?
? ENDIF.?
? APPEND i_fieldcat.?
? CLEAR? i_fieldcat.?
ENDFORM.??????????????????? "alv_field_column

FORM user_command USING r_ucomm LIKE sy-ucomm?
????? rs_selfield TYPE slis_selfield.

? CASE r_ucomm.?
??? WHEN '&IC1'.?
????? if rs_selfield-fieldname = 'LIFNR'. "供應商.?
????????? CLEAR gt_ebeln[].?
????????? PERFORM data_reapp using rs_selfield-value.?
????????? perform data_outputb.?
????? endif.

? ENDCASE.?
ENDFORM.

form data_reapp using lifnr.?
? SELECT single name1 from lfa1 into wa_lname.?
? loop at gt_detail where lifnr = lifnr.?
??? select single aedat from ekko into gt_ebeln-budat WHERE ebeln = gt_detail-ebeln.?
??? gt_ebeln-lifnr = lifnr.?
??? gt_ebeln-lname = wa_lname.?
??? gt_ebeln-ebeln = gt_detail-ebeln.?
??? gt_ebeln-dmbtr = gt_detail-dmbtr.?
??? COLLECT gt_ebeln.?
??? CLEAR: gt_detail, gt_ebeln.?
? ENDLOOP.?
? sort gt_ebeln by ebeln.?
endform.?
FORM data_outputb.?
? CLEAR: i_layout,i_events[],i_fieldcat[].?
? PERFORM events_buildb.?
? PERFORM layout_buildb.?
? PERFORM fields_buildb.?
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'?
??? EXPORTING?
????? i_callback_program = sy-repid?
????? i_save???????????? = ''?
????? i_callback_user_command? = 'USER_COMMANDB'?
????? is_layout????????? = i_layout?
????? it_events????????? = i_events[]?
????? it_fieldcat??????? = i_fieldcat[]?
??? TABLES?
????? t_outtab?????????? = gt_ebeln.

ENDFORM.??????????????????? "data_output

FORM events_buildb .?
? CALL FUNCTION 'REUSE_ALV_EVENTS_GET'?
??? EXPORTING?
????? i_list_type = 0?
??? IMPORTING?
????? et_events?? = i_events[].?
? READ TABLE i_events WITH KEY name = slis_ev_top_of_page.?
? IF sy-subrc = 0.?
??? i_events-form = 'ALV_TOP_OF_PAGEB'.?
??? MODIFY i_events INDEX sy-tabix.?
? ENDIF.?
ENDFORM.??????????????????? "events_build

*&---------------------------------------------------------------------*?
*&????? Form? alv_top_of_page?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
FORM alv_top_of_pageb.?
? DATA itoc(10) TYPE c.?
? DATA: lv_temp(60).?
? CLEAR: i_listcomm,i_listcomm[].?
? i_listcomm-typ = 'H'.?
? i_listcomm-key = ''.?
? i_listcomm-info = '材料暫估表-供應商明細'.?
? APPEND i_listcomm.?
? CLEAR i_listcomm.

? i_listcomm-typ = 'S'.?
? lv_temp = '編制單位：'.?
? APPEND i_listcomm.?
? CLEAR? i_listcomm.

? i_listcomm-typ = 'S'.?
? CONCATENATE '供應商：' wa_lname? '. 查詢時間: ' p_budat+0(4) '年' p_budat+4(2) '月' p_budat+6(2) '日'?
???????? INTO lv_temp.?
? i_listcomm-info = lv_temp.?
? APPEND i_listcomm.?
? CLEAR? i_listcomm.

? CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'?
??? EXPORTING?
????? it_list_commentary = i_listcomm[].?
ENDFORM.??????????????????? "alv_top_of_page

*&---------------------------------------------------------------------*?
*&????? Form? layout_build?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
FORM layout_buildb .?
? i_layout-zebra??????????????? = 'X'.?
? i_layout-detail_popup???????? = 'X'.?
? i_layout-no_vline???????????? = ''.?
? i_layout-colwidth_optimize??? = 'X'.?
? i_layout-detail_initial_lines = 'X'.?
? i_layout-detail_titlebar????? = '采購憑證明細'.?
ENDFORM.??????????????????? " layout_build

* alv ???
FORM fields_buildb.?
? PERFORM alv_field_columnb USING 'LIFNR' '供應商'.?
? PERFORM alv_field_columnb USING 'LNAME' '供應名稱'.?
? PERFORM alv_field_columnb USING 'EBELN' '采購憑證'.?
? PERFORM alv_field_columnb USING 'BUDAT' '訂單創建時間'.?
? PERFORM alv_field_columnb USING 'DMBTR' '采購成交金額'.?
ENDFORM.??????????????????? "fields_build

*&---------------------------------------------------------------------*?
*&????? Form? alv_field_column?
*&---------------------------------------------------------------------*?
*?????? text?
*----------------------------------------------------------------------*?
*????? -->VALUE(P_FIELDNAME)? text?
*????? -->VALUE(P_SELTEXT_L)? text?
*----------------------------------------------------------------------*?
FORM alv_field_columnb USING value(p_fieldname)?
????? value(p_seltext_l).

? i_fieldcat-fieldname?? = p_fieldname.?
? i_fieldcat-seltext_l?? = p_seltext_l.?
? IF p_fieldname+0(2) CP 'DM'.?
??? i_fieldcat-edit_mask?? = '==Z001'.?
? ENDIF.?
? APPEND i_fieldcat.?
? CLEAR? i_fieldcat.?
ENDFORM.??????????????????? "alv_field_column

FORM user_commandb USING r_ucomm LIKE sy-ucomm?
????? rs_selfield TYPE slis_selfield.

? CASE r_ucomm.?
??? WHEN '&IC1'.?
????? if rs_selfield-fieldname = 'EBELN'. "供應商.?
????????? SET PARAMETER ID 'BES' FIELD rs_selfield-value.?
????????? CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.?
????? endif.

? ENDCASE.?
ENDFORM.

總結

以上是生活随笔為你收集整理的如何建立应付暂估明细查询的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。