ABAP 外销财务凭证与客户采购合同对应关系报表

目的：将运输部开具的“出口商品发票”匹配到确认销售收入的凭证后面。
说明：外销每月的销售收入凭证都要将对应的“出口商品发票”匹配到后面作为附件装订成册。
此类凭证每个月近600张，都要找到对应的“商品发票”，工作量单纯且耗费大量时间。
目前采用的方法是：将商品发票按客户分类排序，再分客户到SAP查询每个客户的收入确认凭证，根据金额找到对应的凭证号，放到对应的凭证后面。
此类简单耗时的工作希望可以借助系统更快的完成。

REPORT  YWFIR040.

TABLES:BKPF,"会计核算凭证抬头
VBRK,"出具发票:抬头数据
VBAK.

DATA:BEGIN OF ITAB OCCURS 0,
BUKRS LIKE BKPF-BUKRS,   " 公司代码
BELNR LIKE BKPF-BELNR,   "会计凭证号码
GJAHR LIKE BKPF-GJAHR,   "会计年度
BUDAT LIKE BKPF-BUDAT,   "记账日期
BLDAT LIKE BKPF-BLDAT,   "凭证日期
XBLNR LIKE BKPF-XBLNR,    "参照  BKPF-XBLNR ==VBRK-VBELN
VBELN LIKE VBRK-VBELN,   "发票号码
KUNRG LIKE VBRK-KUNRG,   "客户代码
VKORG LIKE VBRK-VKORG,   "销售组织
VTWEG LIKE VBRK-VTWEG,   "分销渠道
NAME1 TYPE KNA1-NAME1,        "为合作伙伴显示文本 (姓名, 城市, 国家, 街道)
AUBEL LIKE VBRP-AUBEL,
*     BSTKD LIKE VBKD-BSTKD,
BSTNK LIKE VBAK-BSTNK,    "合同号码
NETWR LIKE VBRK-NETWR,   "净价值
WAERK LIKE VBRK-WAERK,    "货币
SELFI,
END OF ITAB.

*&--------------------画屏区域-----------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK FRAME1 WITH FRAME TITLE TEXT-000 .
SELECT-OPTIONS: R_BUKRS FOR BKPF-BUKRS OBLIGATORY DEFAULT '1010',   "公司代码
R_VKORG FOR VBRK-VKORG,
R_VTWEG FOR VBRK-VTWEG,
R_BUDAT FOR BKPF-BUDAT.
SELECTION-SCREEN END OF BLOCK FRAME1.

*&-------------------------程序主区域-------------------------------------*
AT SELECTION-SCREEN OUTPUT.  "用户操作后屏幕输出事件
AT SELECTION-SCREEN.  "用户回车或单击后发生事件,不考滤屏幕输出
START-OF-SELECTION.  "正式程序运行到输出结果事件
PERFORM GET_DATA.   "取数据
PERFORM REPORT_DATA.  "显示数据

FORM GET_DATA.
SELECT A~BUKRS A~BELNR A~GJAHR A~BUDAT A~BLDAT
A~XBLNR B~VBELN B~VKORG B~VTWEG B~KUNRG B~NETWR B~WAERK
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM BKPF AS A JOIN VBRK AS B ON A~XBLNR = B~VBELN
WHERE  A~BUKRS IN R_BUKRS
AND  B~VKORG IN R_VKORG
AND  B~VTWEG IN R_VTWEG
AND  A~BUDAT IN R_BUDAT.

LOOP AT ITAB.
SELECT SINGLE AUBEL INTO ITAB-AUBEL FROM VBRP WHERE VBELN = ITAB-VBELN.  "取销售订单号
SELECT SINGLE BSTNK INTO ITAB-BSTNK FROM VBAK WHERE VBELN = ITAB-AUBEL.  "通过销售订单号取PO号
SELECT SINGLE NAME1 INTO ITAB-NAME1 FROM KNA1 WHERE KUNNR = ITAB-KUNRG.
MODIFY ITAB.
ENDLOOP.
ENDFORM.

*&---------------------ALV变量声明区域---------------------------------*
TYPE-POOLS:SLIS.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV .
DATA: S_VARIANT LIKE DISVARIANT.

*&-------------------------ALV数据展示区域----------------------------------*
FORM REPORT_DATA .
*  设置要显示的字段列表
PERFORM SET_FIELDCAT.

* 给表格布局参数赋值
LAYOUT-GET_SELINFOS    = 'X'.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.  "列宽度自动根据内容优化
LAYOUT-DETAIL_POPUP    = 'X'.
LAYOUT-NO_KEYFIX       = 'X'.
LAYOUT-BOX_FIELDNAME     = 'SELFI'.

S_VARIANT-REPORT = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'  "REUSE_ALV_LIST_DISPLAY
EXPORTING
I_CALLBACK_PROGRAM       = SY-REPID       "当前的程序名
IS_LAYOUT                = LAYOUT       "表格样式 布局
IT_FIELDCAT              = FIELDCAT[]  "要显示的列名，必填
I_SAVE                   = 'A'
IS_VARIANT               = S_VARIANT
TABLES
T_OUTTAB                 = ITAB "ALV数据输出使用的内表 必填
EXCEPTIONS
PROGRAM_ERROR            = 1
OTHERS                   = 2.
ENDFORM.                    " ALV_REPORT_DATA
*&---------------------------------------------------------------------*

FORM SET_FIELDCAT .
REFRESH FIELDCAT.
PERFORM INPUT_FIELDCAT  USING 'BLDAT'  '记账日期'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'BELNR'  '凭证号码'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'VBELN'  '发票号码'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'AUBEL'  '销售订单号码'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'KUNRG'  '客户代码'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'NAME1'  '客户全称' ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'BSTNK'  '合同号码'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'NETWR'  '凭证外币金额'  ''  '' '' '' ''.
PERFORM INPUT_FIELDCAT  USING 'WAERK'  '货币'  ''  '' '' '' ''.
ENDFORM.                    " SET_FIELDCAT

*------------------------------------------------------------------------*
FORM INPUT_FIELDCAT USING ZID WENB KEYS GD COLOR REFTAB REFFILE.

ADD 1 TO FIELDCAT-COL_POS.
FIELDCAT-FIELDNAME =  ZID. " 对应的内表中的字段名称
FIELDCAT-SELTEXT_M =  WENB. "ALV中显示的字段名称
FIELDCAT-KEY = KEYS.
FIELDCAT-FIX_COLUMN = GD .
FIELDCAT-EMPHASIZE = COLOR.  "列颜色
FIELDCAT-REF_TABNAME = REFTAB.
FIELDCAT-REF_FIELDNAME = REFFILE.
APPEND FIELDCAT.
CLEAR FIELDCAT.

ENDFORM.                    "INPUT_FIELDCAT
*&---------------------------------------------------------------------*
*&      FORM  SET_PF_STATUS
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->T_EXTAB    TEXT
*----------------------------------------------------------------------*
FORM SET_PF_STATUS USING T_EXTAB TYPE SLIS_T_EXTAB.
DATA: S_EXTAB TYPE SLIS_EXTAB. "要被排除的按钮的列表
SET PF-STATUS 'STANDARD_FULLSCREEN' EXCLUDING T_EXTAB.
ENDFORM.                    " SET_PF_STATUS
*--------------------------------------------------------------------------------