(FI) S4HANA에서 ACDOCA로 고정자산명세서 만들기

 

> S4HANA에서 ACDOCA로 고정자산명세서 만들기 <

 

한방 Query로 가능할 것 같다.
다만 아래와 같이 CBO Table에 값을 Setting해야함.

> 로직

DATA: LV_POPER LIKE ACDOCA-POPER.

IF P_MONAT >= 12.
  LV_POPER = '012'.
ELSE.
  CONCATENATE '0' P_MONAT INTO LV_POPER.
ENDIF.

SELECT A~BUKRS,
       A~ANLN1,
       A~ANLN2,
       B~TXT50,
       A~RHCUR,
       SUM( CASE WHEN A~POPER  EQ '000' AND C~XASSET EQ 'X' THEN A~HSL ELSE 0 END ) AS A01,   "-- 기초취득가액
       SUM( CASE WHEN A~POPER  EQ '000' AND C~XACCUM EQ 'X' THEN A~HSL ELSE 0 END ) AS A02,   "-- 기초상각누계액
       SUM( CASE WHEN A~POPER  EQ '000' AND C~XEND   EQ 'X' THEN A~HSL ELSE 0 END ) AS A99,   "-- 기초장부가액
       SUM( CASE WHEN A~POPER  NE '000' AND C~XASSET EQ 'X' THEN A~HSL ELSE 0 END ) AS B01,   "-- 자산증감
       SUM( CASE WHEN A~POPER  NE '000' AND C~XACCUM EQ 'X' THEN A~HSL ELSE 0 END ) AS B02,   "-- 상각누계증감
       SUM( CASE WHEN A~POPER  NE '000' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS B03,   "-- 당기상각
       SUM( CASE WHEN C~XASSET EQ 'X'                       THEN A~HSL ELSE 0 END ) AS C01,   "-- 기말취득가액
       SUM( CASE WHEN ( C~XDEP EQ 'X' OR C~XACCUM EQ 'X' )  THEN A~HSL ELSE 0 END ) AS C02,   "-- 기말상각누계액
       SUM( CASE WHEN C~XEND   EQ 'X'                       THEN A~HSL ELSE 0 END ) AS C99,   "-- 기말장부가액
       SUM( CASE WHEN C~XEND   NE 'X'                       THEN A~HSL ELSE 0 END ) AS ZZZ,   "-- 미설정금액
       SUM( CASE WHEN A~POPER  EQ '001' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D01,   "-- 1월상각
       SUM( CASE WHEN A~POPER  EQ '002' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D02,   "-- 2월상각
       SUM( CASE WHEN A~POPER  EQ '003' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D03,   "-- 3월상각
       SUM( CASE WHEN A~POPER  EQ '004' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D04,   "-- 4월상각
       SUM( CASE WHEN A~POPER  EQ '005' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D05,   "-- 5월상각
       SUM( CASE WHEN A~POPER  EQ '006' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D06,   "-- 6월상각
       SUM( CASE WHEN A~POPER  EQ '007' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D07,   "-- 7월상각
       SUM( CASE WHEN A~POPER  EQ '008' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D08,   "-- 8월상각
       SUM( CASE WHEN A~POPER  EQ '009' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D09,   "-- 9월상각
       SUM( CASE WHEN A~POPER  EQ '010' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D10,   "-- 10월상각
       SUM( CASE WHEN A~POPER  EQ '011' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D11,   "-- 11월상각
       SUM( CASE WHEN A~POPER  GE '012' AND C~XDEP   EQ 'X' THEN A~HSL ELSE 0 END ) AS D12    "-- 12월상각
  INTO CORRESPONDING FIELDS OF TABLE @GT_DATA
  FROM ACDOCA AS A
            INNER JOIN ANLA AS B    ON B~BUKRS EQ A~BUKRS
                                   AND B~ANLN1 EQ A~ANLN1
                                   AND B~ANLN2 EQ A~ANLN2
       LEFT OUTER JOIN ZFITXXX AS C ON C~TYPE  EQ A~SLALITTYPE
 WHERE A~RLDNR  EQ '0L'
   AND A~RBUKRS EQ @P_BUKRS
   AND A~GJAHR  EQ @P_GJAHR
   AND A~POPER  LE @LV_POPER
   AND A~KTOSL  EQ 'ANL'
   AND A~AFABE  EQ @P_AFABE
   AND A~ANLN1  IN @S_ANLN1
 GROUP BY A~BUKRS, A~ANLN1, A~ANLN2, B~TXT50, A~RHCUR

 

끝.