FUNCTION zppfm004.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_AUDAT_SD) TYPE VBAK-AUDAT
*" VALUE(I_AUDAT_ED) TYPE VBAK-AUDAT
*" EXPORTING
*" VALUE(O_MSG) TYPE TEXT200
*" TABLES
*" O_SALE_ORDER_HD STRUCTURE VBAK
*" O_SALE_ORDER_DT STRUCTURE VBAP
*"----------------------------------------------------------------------
TABLES: vbak.
TABLES: vbap.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE o_sale_order_hd"主表
FROM vbak
WHERE vbak~audat BETWEEN i_audat_sd AND i_audat_ed "凭证日期 (接收/发送日期)
AND vbak~abstk <> 'c'
AND vbak~lfgsk <> 'c'
AND vbak~lfstk <> 'c'
.
IF sy-subrc IS NOT INITIAL.
o_msg = '无数据'.
ELSE.
o_msg = 'OK'.
ENDIF.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE o_sale_order_dt"明细表
FROM vbap
INNER JOIN vbak
ON vbap~vbeln = vbak~vbeln
WHERE vbak~audat BETWEEN i_audat_sd AND i_audat_ed "凭证日期 (接收/发送日期)
AND vbak~abstk <> 'c'
AND vbak~lfgsk <> 'c'
AND vbak~lfstk <> 'c'
AND vbap~abgru = ''"明细行标明拒绝原因的不用获取
.
ENDFUNCTION.
ZPPFM004 获取销售订单(订单日期)
最新推荐文章于 2021-06-17 10:21:20 发布