BW里转换简单常用ABAP

Posted 2020-10-26 Sakura_柏

　　用户查看的是当时的物料折让，那你必然要给物料加个时间，才好区分。总是以现在最新的物料状态查看历史数据会出现问题。当时这个物料是折让的，现在不折让了。数据会有问题。加个DSO。做一个时间记录。读取系统时间，上数的时候做为判断。3月份上数就是取3月份。当时的物料状态

　　在结束例程里写。字段赋予常量方可生效。

*取物料上数的系统时间的月份判断季度
loop at RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>  .
    l_date = sy-datum+4(4)..
    l_date1 = sy-datum+4(2).
    year = sy-datum+0(4).

    if l_date = 12.
      l_year = year + 1.
    endif.
    IF ‘0321‘ <= l_date AND l_date <= ‘0620‘.
    CONCATENATE year ‘2‘ INTO <RESULT_FIELDS>-CALQUARTER.
      ELSEIF ‘0621‘ <= l_date AND l_date <= ‘0920‘.
    CONCATENATE year ‘3‘ INTO <RESULT_FIELDS>-CALQUARTER..
      ELSEIF ‘0921‘ <= l_date AND l_date <= ‘1220‘.
    CONCATENATE year ‘4‘ INTO <RESULT_FIELDS>-CALQUARTER..
    ELSEIF  l_date <= ‘0320‘.
       CONCATENATE year ‘1‘ INTO <RESULT_FIELDS>-CALQUARTER..
      ELSE.
       CONCATENATE l_year ‘1‘ INTO <RESULT_FIELDS>-CALQUARTER..
    ENDIF.
endloop.

 

销售上数， 判断销售季度。，取是否折让字段，

这ABAP写不太出来，需要多实践。

 这个其实不难，没写过。还真写不出来。可笑了，眼高手低典型代表

*定义一个操作字段类型
data: l_date type String,
      year type String,
      l_year type string,
      l_date1 type String.
*定义一个内表 IT_ZCZJTO26 ，工作区 WA_ZCZJTO26
DATA:IT_ZCZJTO26 TYPE STANDARD TABLE OF /BIC/AZCZJTO2600,
     WA_ZCZJTO26 TYPE /BIC/AZCZJTO2600.

*循环这个RESULT_PACKAGE，分配<RESULT_FIELDS>，判断季度
loop at RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>  .

    l_date = <RESULT_FIELDS>-PSTNG_DATE+4(4).
    l_date1 = <RESULT_FIELDS>-PSTNG_DATE+4(2).
    year = <RESULT_FIELDS>-PSTNG_DATE+0(4).

    if l_date = 12.
      l_year = year + 1.
    endif.
    IF ‘0321‘ <= l_date AND l_date <= ‘0620‘.
    CONCATENATE year ‘2‘ INTO <RESULT_FIELDS>-CALQUARTER.
      ELSEIF ‘0621‘ <= l_date AND l_date <= ‘0920‘.
    CONCATENATE year ‘3‘ INTO <RESULT_FIELDS>-CALQUARTER.
      ELSEIF ‘0921‘ <= l_date AND l_date <= ‘1220‘.
    CONCATENATE year ‘4‘ INTO <RESULT_FIELDS>-CALQUARTER.
    ELSEIF  l_date <= ‘0320‘.
       CONCATENATE year ‘1‘ INTO <RESULT_FIELDS>-CALQUARTER.  
      ELSE.
       CONCATENATE l_year ‘1‘ INTO <RESULT_FIELDS>-CALQUARTER.   *12，28=‘1228‘是不小于‘0320’的
    ENDIF.
endloop.

*读取需要字段从表/BIC/AZCZJTO2600 。分配至内表 IT_ZCZJTO26
* INTO CORRESPONDING FIELDS OF TABLE 自动匹配相应的字段
SELECT MATERIAL CALQUARTER /BIC/ZSFZR FROM /BIC/AZCZJTO2600
  INTO CORRESPONDING FIELDS OF TABLE IT_ZCZJTO26 FOR ALL ENTRIES IN
  RESULT_PACKAGE
  WHERE MATERIAL = RESULT_PACKAGE-/BIC/ZMATERIAL  AND  CALQUARTER =
  RESULT_PACKAGE-CALQUARTER.
*循环将内表里IT_ZCZJTO26 分配给工作区 WA_ZCZJTO26 。做了分配
 LOOP AT RESULT_PACKAGE ASSIGNING <RESULT_FIELDS> .
    READ TABLE IT_ZCZJTO26 INTO WA_ZCZJTO26
    WITH KEY MATERIAL = <RESULT_FIELDS>-/BIC/ZMATERIAL CALQUARTER =
    <RESULT_FIELDS>-CALQUARTER.
*执行成功 ，结果是否折让等于工作区 WA_ZCZJTO26-/BIC/ZSFZR.，是/BIC/AZCZJTO2600 里的字段。
    IF sy-subrc = 0.
      <RESULT_FIELDS>-/BIC/ZSFZR = WA_ZCZJTO26-/BIC/ZSFZR.  
    ENDIF.
 ENDLOOP.