BW常规逻辑整理

//TYPE TABLE OF = TYEP STANDARD TABLE OF
//意思是定义一个内表itab_add,内表的结构是跟类型t_address是一致的.
//也就是说:将来内表itab_add的每条记录都有no和street这两个字段.

DATA: it_rgk TYPE TABLE OF /BIC/AZSDG_RGK00, //（像工作区）it_rgk 的结构体与表 /BIC/AZSDG_RGK00 一致
wa_rgk TYPE /BIC/AZSDG_RGK00. //定义存放BU代表的内表TYPE 表

   SELECT all INTO TABLE it_rgk FROM /BIC/AZSDG_RGK00
   FOR ALL ENTRIES IN RESULT_PACKAGE //for all entries in 所有输入
       WHERE /BIC/ZSD_CUSTM = RESULT_PACKAGE-/BIC/ZSD_CUSTM.

       SORT it_rgk BY /BIC/ZSD_CUSTM DIVISION /BIC/ZECD_PPBM. // 将it_rgk内按照三个字段排序

LOOP AT RESULT_PACKAGE ASSIGNING <RESULT_FIELEDS> .

   DATA: zmdm_bun TYPE /BIC/OIZMDM_BUN, //定义两个字段
   zsd_mager TYPE /BIC/OIZSD_MAGER.
   CLEAR zmdm_bun. //清空两个字段
   CLEAR zsd_mager.
   SELECT SINGLE /BIC/ZMDM_BUN
   FROM /BIO/PDIVISION
   INTO zmdm_bun
       WHERE DIVISION = <RESULT_FIELEDS>-DIVISION.
   SELECT SINGLE /BIC/ZSD_MAGER
   FROM /BIC/AZSD_O6900
       INTO zsd_mager
       WHERE /bic/zmdm_bun = zmdm_bun and
/bic/zgvs_gm = <result_fields>-/bic/zgvs_gm and
/bic/zsd_store = <result_fields>-/BIC/ZSD_STORE.
   IF zsd_mager <> ''. //如果字段中不为空也就是select语句已经添加进去了的时候执行
   <RESULT_FIELEDS>-/BIC/ZSD_MAGER = zsd_mager.
   ENDIF.

   取网格
DATA: wa_wg TYPE /BIC/AZSD_WGDZ00. //定义一个存放网格的内表
   SELECT SINGLE ALL
   INTO wa_wg
   FROM /BIC/AZSD_WGDZ00
   WHERE /bic/zsd_cust = <result_fields>-/bic/zsd_cust.
   IF SY-SUBRC = 0. // 如果select条件执行的话
   <result_fields>-/bic/zsd_wg = wa_wg-/bic/zsd_wg. //将内表中的数据放在
<result_fields>-/bic/zsd_wgxw = wa_wg-/bic/zsd_wgxw .
<result_fields>-/bic/zsd_wgz = wa_wg-/bic/zsd_wgz.
ENDIF


   取BU代表
READ TABLE it_rgk INTO wa_rgk //READ TABLE 语句读取内部表it_rgk的数据到工作区（结构体）wa_rgk
   WITH KEY /BIC/ZSD_CUSTM = <RESULT_FIELDS>-/BIC/ZSD_CUSTM // WITH KEY 匹配内表的数据与数据源里面的数据一样的
DIVISION = <RESULT_FIELDS>-DIVISION
/BIC/ZECD_PPBM = <RESULT_FIELDS>-/BIC/Zecd_PPBM //WITH KEY 子句在READ语句中指定搜索键，而不是表键
                   BINARY SEARCH // BINARY SEARCH (二分法)
   IF SY-SUBRC = 0.
       <RESULT_FIELDS>-/BIC/ZBUJL_CO = wa_rgk-/BIC/ZBUJL_CO.
   ELSE.
       CLEAR wa_rgk.
       READ TABLE it_rgk INTO wa_rgk
       WITH KEY /BIC/ZSD_CUSTM = <RESULT_FIELDS>-/BIC/ZSD_CUSTM
DIVISION = <RESULT_FIELDS>-DIVISION
   BINARY SEARCH.
   <RESULT_FIELDS>-/BIC/ZBUJL_CO = wa_rgk-/BIC/ZBUJL_CO.
   ENDIF.
   ENDLOOP

猜你喜欢