从STORE 然后从客户销售视图中取值

BREAK-POINT.
*
*TYPES: BEGIN OF TY_S_STORE,
*  /BIC/ZSTORE type /BIC/OIZSTORE,
*
*  CUSTOMER type /BI0/OICUSTOMER,
*  /BIC/ZQDLX TYPE /BIC/OIZQDLX,
*  division      TYPE /bi0/oidivision,
*/BIC/ZSYB   TYPE  /BIC/OIZSYB,
*  END OF TY_S_STORE,
*  TY_T_STORE TYPE TABLE OF TY_S_STORE.
*DATA: LT_STORE TYPE TY_T_STORE,
*      LS_STORE TYPE TY_S_STORE,
*LT_STORE2 TYPE TY_T_STORE.
*TYPES:BEGIN OF ty_s_custsales,
*        division      TYPE /bi0/oidivision,
*        /BIC/ZSYB   TYPE  /BIC/OIZSYB, "
*        /BIC/ZQDLX  TYPE /BIC/OIZQDLX,
*        customer      TYPE /bi0/oicustomer,
*
*      END OF ty_s_custsales,
*  ty_t_custsales TYPE TABLE OF ty_s_custsales.
*DATA: lt_custsales TYPE ty_t_custsales,
*      ls_custsales TYPE ty_s_custsales.
*
*
*
*REFRESH: LT_STORE.
*
*SELECT /BIC/ZSTORE  CUSTOMER /BIC/ZQDLX
*  division  INTO  TABLE LT_STORE
*  FROM /BIC/PZSTORE
*  FOR ALL ENTRIES IN RESULT_PACKAGE
*  WHERE /BIC/ZSTORE = RESULT_PACKAGE-/BIC/zstore
*  AND division <> ''
*  AND CUSTOMER  <> ''
*  AND /BIC/ZQDLX <> ''.
**
*SORT LT_STORE BY /BIC/ZSTORE.
*DELETE ADJACENT DUPLICATES FROM LT_STORE COMPARING /BIC/ZSTORE.
**
*
*SELECT division /BIC/ZSYB /BIC/ZQDLX CUST_SALES
*  INTO TABLE lt_custsales
*  FROM /BIC/AZIMDD00100
*  FOR ALL ENTRIES IN LT_STORE
*  WHERE customer = LT_STORE-customer
*  AND division = LT_STORE-division
*  AND /BIC/ZQDLX = LT_STORE-/BIC/ZQDLX
*  AND /BIC/ZSYB NE ''.
*
*  LT_STORE2[] = LT_STORE[].
*  CLEAR LT_STORE.
*  LOOP AT LT_STORE2 INTO LS_STORE.
*    LOOP AT lt_custsales INTO lS_custsales
*      WHERE CUSTOMER = LS_STORE-customer
*  AND division = LS_STORE-division
*  AND /BIC/ZQDLX = LS_STORE-/BIC/ZQDLX
*  AND /BIC/ZSYB NE ''.
*    LS_STORE-/BIC/ZSYB = LS_CUSTSALES-/BIC/ZSYB.
*    APPEND LS_STORE TO LT_STORE.
*    ENDLOOP.
*    ENDLOOP.
*
*
*
*LOOP AT RESULT_PACKAGE ASSIGNING <result_fields>.
*  LOOP AT lt_STORE INTO ls_STORE
*      WHERE /BIC/ZSTORE = <Result_fields>-/BIC/ZSTORE.
*      <RESULT_FIELDS>-/BIC/ZSYB = LS_STORE-/BIC/ZSYB.
*
*   ENDLOOP.
**"**********************
*ENDLOOP.

********************************************以下为从STORE中取值
*TYPES: BEGIN OF TY_S_STORE,
*  /BIC/ZSTORE type /BIC/OIZSTORE,
*/BIC/ZSYB           TYPE /BIC/OIZSYB,
*  END OF TY_S_STORE,
*  TY_T_STORE TYPE TABLE OF TY_S_STORE.
*DATA: LT_STORE TYPE TY_T_STORE,
*      LS_STORE TYPE TY_S_STORE.
*
*SELECT /BIC/ZSTORE /BIC/ZSYB
*  INTO  TABLE LT_STORE
*  FROM /BIC/PZSTORE
*  FOR ALL ENTRIES IN RESULT_PACKAGE
*  WHERE /BIC/ZSTORE = RESULT_PACKAGE-/BIC/zstore
*  AND division <> ''
*  AND CUSTOMER  <> ''
*  AND /BIC/ZQDLX <> ''.
*
*LOOP AT RESULT_PACKAGE ASSIGNING <result_fields>.
*  loop at LT_STORE into LS_STORE
*    where /BIC/ZSTORE = <result_fields>-/BIC/ZSTORE.
*    <result_fields>-/BIC/ZSYB = LS_STORE-/BIC/ZSYB.
*    ENDLOOP.
*    ENDLOOP.