SAP SD系统开票查询报表分享
一、报表逻辑
二、报表界面
三、报表代码
*&---------------------------------------------------------------------*
*& 程序名： ZRPSD046
*&
*&---------------------------------------------------------------------*
*& 创建者(公司)/日期：
*& 程序描述：
*& 1.
*& 2.
*&---------------------------------------------------------------------*
*& 版本/修改者(公司)/日期//修改描述
*& 1.0.0/heliuqing(JGDT)/10.09.2021 10:23:25/
*&
*&---------------------------------------------------------------------*
REPORT ZRPSD046A.
INCLUDE ZRPSD046A_TOP.
INCLUDE ZRPSD046A_SRN.
INCLUDE ZRPSD046A_LCL.
INCLUDE ZRPSD046A_F01.
INITIALIZATION.
PERFORM FRM_INIT_SCR.
AT SELECTION-SCREEN OUTPUT.
PERFORM FRM_MODIFY_SCR.
START-OF-SELECTION.
PERFORM FRM_INIT.
CASE 'X'.
WHEN R_KHDZ.
PERFORM FRM_GET_DATA_KHDZ.
WHEN R_GSJXS.
PERFORM FRM_GET_DATA_GSJXS.
WHEN R_HWJSYT.
PERFORM FRM_GET_DATA_HWJSYT.
WHEN R_GSJCG.
PERFORM FRM_GET_DATA_GSJCG.
WHEN R_DSFXS.
PERFORM FRM_GET_DATA_DSFXS.
ENDCASE.
IF R_GSJCG IS NOT INITIAL.
PERFORM FRM_PROCESS_DATA_GSJCG.
ELSE.
PERFORM FRM_PROCESS_DATA.
ENDIF.
IF R_DSFXS = 'X'.
ELSE.
PERFORM GET_WADAT_IST.
ENDIF.
LOOP AT GT_OUT INTO GS_OUT WHERE FKART+0(2) = 'ZS'.
GS_OUT-MWSBP = - GS_OUT-MWSBP.
MODIFY GT_OUT FROM GS_OUT.
ENDLOOP.
*>>>-------------------------------------ADD BY JOE 07.09.2022 15:26:08
"增加价格主数据单价
READ TABLE GT_DIFF TRANSPORTING NO FIELDS WITH KEY VKORG = '9999'.
IF SY-SUBRC = 0.
PERFORM GET_ZPRICE_MD.
ENDIF.
*<<<-------------------------------------END OF ADD 07.09.2022 15:26:08
IF GT_OUT[] IS INITIAL.
IF GV_NO_AUTHORITY IS INITIAL.
MESSAGE '无符合条件的数据!' TYPE 'S' DISPLAY LIKE 'E'.
ELSE.
MESSAGE '权限不足!' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
EXIT.
ENDIF.
PERFORM FRM_SHOW_ALV.
*&---------------------------------------------------------------------*
*& 包含 ZRPSD046_TOP
*&---------------------------------------------------------------------*
TABLES:VBAP,VBRK,VBRP,ZTSD031,ZTSD032,LIKP.
DATA:BEGIN OF GS_OUT,
CHK TYPE C,
VBELN TYPE VBRP-VBELN,
POSNR TYPE VBRP-POSNR,
FKART TYPE VBRK-FKART,
ZVBART_TEXT TYPE TVFKT-VTEXT,
ZBILL_CHECK TYPE VBRK-ZBILL_CHECK,
ZBILL_APPR TYPE VBRK-ZBILL_APPR,
ZBILL_APPR_TEXT(30) TYPE C,
ZINVOICE_VAT TYPE VBRK-ZINVOICE_VAT,
ZINVOICE_STATUS TYPE VBRK-ZINVOICE_STATUS,
ZINVOICE_STATUS_TEXT(30) TYPE C,
ZINVOICE_COM TYPE VBRK-ZINVOICE_COM,
RFBSK TYPE VBRK-RFBSK,
FKSTO TYPE VBRK-FKSTO,
FKDAT TYPE VBRK-FKDAT,
VKORG TYPE VBRK-VKORG,
ZVKORG_TEXT TYPE TVKOT-VTEXT,
WAERK TYPE VBRK-WAERK,
KURRF TYPE VBRK-KURRF,
ZOUT_TO_IN TYPE LIKP-ZOUT_TO_IN,
KUNAG TYPE VBRK-KUNAG,
ZNAME TYPE CHAR80,
ZKUNNR_IV TYPE KNA1-KUNNR,
ZNAME_IV TYPE CHAR80,
MATNR TYPE VBRP-MATNR,
ARKTX TYPE VBRP-ARKTX,
KDMAT TYPE VBAP-KDMAT,
ZPOSTX TYPE VBAP-ZPOSTX,
WERKS TYPE VBRP-WERKS,
ZWERKS_TEXT TYPE T001W-NAME1,
FKIMG TYPE VBRP-FKIMG,
VRKME TYPE VBRP-VRKME,
LFDAT TYPE LIKP-LFDAT,
ZPRICE_TYPE TYPE ZDE_PRICE_TYPE,
ZPRICE TYPE ZSSD045-ZPRICE,
ZPRICE_MD TYPE ZSSD045-ZPRICE_MD,
ZPRICE_NET TYPE ZSSD045-ZPRICE_NET,
ZFIRM_DISCOUNT TYPE ZSSD045-ZFIRM_DISCOUNT,
ZMANUAL_DISCOUNT TYPE ZSSD045-ZMANUAL_DISCOUNT,
ZDIFF_DISCOUNT TYPE ZSSD045-ZDIFF_DISCOUNT,
ZMWSBP TYPE ZSSD045-ZMWSBP,
NETWR TYPE VBRP-NETWR,
KZWI1 TYPE VBRP-KZWI1,
ZNETWR_CNY TYPE ZSSD045-ZNETWR_CNY,
ZKZWI1_CNY TYPE ZSSD045-ZKZWI1_CNY,
ZNETWR_COMPANY TYPE ZSSD045-ZNETWR_CNY, "2023124
ZKZWI1_COMPANY TYPE ZSSD045-ZKZWI1_CNY, "20231204 add
ZDISCOUNT_IV TYPE ZSSD045-ZDISCOUNT_IV,
ZPRICE_IV TYPE ZSSD045-ZPRICE_IV,
ZKZWI1_IV TYPE ZSSD045-ZKZWI1_IV,
BUKRS TYPE VBRK-BUKRS,
BELNR TYPE VBRK-BELNR,
GJAHR TYPE VBRK-GJAHR,
*-------------------------------------增加财务字段-ZHANGZG-2022.08.12
DMBTR TYPE BSAD-DMBTR, "清账金额
AUGBL TYPE BSAD-AUGBL, "清账会计凭证
AUGDT TYPE BSAD-AUGDT, "清账日期
*-------------------------------------增加财务字段