ZPPFM005 获取销售订单(修改日期)

FUNCTION zppfm005.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_AEDAT_SD) TYPE  VBAK-AEDAT
*"     VALUE(I_AEDAT_ED) TYPE  VBAK-AEDAT
*"  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~aedat BETWEEN i_aedat_sd AND i_aedat_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~aedat BETWEEN i_aedat_sd AND i_aedat_ed                    "最后更改的日期
  AND vbak~abstk <> 'c'
  AND vbak~lfgsk <> 'c'
  AND vbak~lfstk <> 'c'
  AND vbap~abgru = ''"明细行标明拒绝原因的不用获取
  .
ENDFUNCTION.