sap 销售配置数据接口

function zeo_so_configdata.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  EXPORTING
*"     VALUE(E_STATUS) TYPE  BAPI_MTYPE
*"     VALUE(T_RETURN) TYPE  BAPIRET2
*"  TABLES
*"      T_SALE_OFFICE STRUCTURE  ZSALE_OFFICE
*"      T_SALE_GROUP STRUCTURE  ZSALE_GROUP
*"      T_PAYMENT_TERM STRUCTURE  ZPAYMENT_TERM
*"      T_SHIPMENT_TERM STRUCTURE  ZSHIPMENT_TERM
*"      T_MATERIAL_GROUP STRUCTURE  ZMATERIAL_GROUP
*"      T_PRODUCT_GROUP STRUCTURE  ZPRODUCT_GROUP
*"----------------------------------------------------------------------
*& 描  述: 销售配置数据接口
*&---------------------------------------------------------------------*
*& 作  者: 朱淑斌
*& 日  期: 2018.01.02
*"----------------------------------------------------------------------


* 销售办公室获取数据
  select tvbur~vkbur
         tvkbt~bezei
    from tvbur
    inner join tvkbt
    on tvbur~vkbur = tvkbt~vkbur
    into corresponding fields of table t_sale_office.


*   获取销售组信息
  select tvkgr~vkgrp  tvgrt~bezei
         from  tvkgr inner join tvgrt
         on   tvkgr~vkgrp =  tvgrt~vkgrp
         into corresponding fields of table  t_sale_group.
*获取付款条件
  select zterm text1
         from  t052u
         into corresponding fields of table  t_payment_term.
*装运条件
  select tvsb~vsbed  tvsbt~vtext
         from  tvsb inner join tvsbt
         on   tvsb~vsbed =  tvsbt~vsbed
         into corresponding fields of table  t_shipment_term.
*物料组
  select t023~matkl  t023t~wgbez
           from t023 inner join t023t
           on   t023~matkl =  t023t~matkl
           into corresponding fields of table   t_material_group.
*产品组

  select   tspa~spart  tspat~vtext
           from tspa inner join tspat
           on  tspa~spart = tspat~spart
           into corresponding fields of table    t_product_group.
  e_status = 'S'. "返回结果

 t_return-type = 'S'.
 t_return-message = '数据已同步'.

endfunction.