ZPPFM004 获取销售订单(订单日期)

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.