Oracle EBS R12 GL总帐模块 查询账户余额、发生额SQL

SELECT gld.name "账套"
      ,gb.period_name "期间"
      ,gld.currency_code "本位币"
      ,gb.currency_code "原币"
      ,gcc.segment1 || '.' || gcc.segment2 || '.' || gcc.segment3 || '.' ||
       gcc.segment4 || '.' || gcc.segment5 || '.' || gcc.segment6 || '.' ||
       gcc.segment7 || '.' || gcc.segment8 || '.' || gcc.segment9 "账户"
      ,gcc.summary_flag "是否为汇总账户"
      ,decode(gcc.account_type
             ,'A'
             ,'资产'
             ,'E'
             ,'费用'
             ,'L'
             ,'负债'
             ,'O'
             ,'所有者权益'
             ,gcc.account_type) "账户类型"
       
      ,gb.begin_balance_dr_beq "本位币借 期初余额"
      ,gb.begin_balance_cr_beq "本位币贷 期初余额"
      ,(gb.begin_balance_dr_beq - gb.begin_balance_cr_beq) "本位币 期初余额"
       
      ,gb.begin_balance_dr "原币借 期初余额"
      ,gb.begin_balance_cr "原币贷 期初余额"
      ,(gb.begin_balance_dr - gb.begin_balance_cr) "原币 期初余额"
       
      ,gb.period_net_dr_beq "本位币借 本期发生额"
      ,gb.period_net_cr_beq "本位币贷 本期发生额"
      ,(gb.period_net_dr_beq - gb.period_net_cr_beq) "本位币 本期发生额" --ptd_balance_beq
       
      ,gb.period_net_dr "原币借 本期发生额"
      ,gb.period_net_cr "原币贷 本期发生额"
      ,(gb.period_net_dr - gb.period_net_cr) "原币 本期发生额" --ptd_balance
       
      ,((gb.begin_balance_dr_beq - gb.begin_balance_cr_beq) +
       (gb.period_net_dr_beq - gb.period_net_cr_beq)) "本位币 期末余额" --ytd_balance_beq
       
      ,((gb.begin_balance_dr - gb.begin_balance_cr) +
       (gb.period_net_dr - gb.period_net_cr)) "原币 期末余额" --ytd_balance
FROM   gl.gl_ledgers           gld
      ,gl.gl_code_combinations gcc
      ,gl.gl_balances          gb
WHERE  gld.ledger_id = gb.ledger_id
AND    gcc.code_combination_id = gb.code_combination_id
AND    gb.period_name = '2021-04';