账户余额查询2（分类帐）

最新推荐文章于 2021-05-26 10:31:58 发布
最新推荐文章于 2021-05-26 10:31:58 发布
阅读量373 收藏
点赞数

create table BALANCESTEMP
(
  je_line_num number,
  headerID number(38),
  dr  number,
  cr number,
  BALANCE  VARCHAR2(4000) not null,
  BANKNAME VARCHAR2(4000) not null,
  MM       DATE not null,
  ID       NUMBER not null
)

创建临时表

 

CREATE OR REPLACE FUNCTION GAB_FUNC(line_num number,
                                    ae_header_id number,
                                    DR     NUMBER,
                                    CR     NUMBER,
                                    startdate date,
                                    ENDDATE  DATE,
                                    accounting_date DATE,
                                    BRANKACCT VARCHAR2) RETURN CHAR IS
  PRAGMA AUTONOMOUS_TRANSACTION;
  BLtableCUT NUMBER(38);
  LStableCUT NUMBER(38);
  BL  varchar(4000);
  STR NUMBER;
  CF  varchar(4000);
  X   number;
  CT  NUMBER;
  jishu NUMBER:=0;
  c number;
  c1 number;
  c2 number;
  enBL number;
  balance number;
BEGIN

/**查询余额表 2010-06-01至用户参数开始日期前的所有数据**/

SELECT count(*) into BLtableCUT
  FROM (select distinct xal.accounting_date AS accounting_date,xal.ae_header_id as a,
                        xah.doc_sequence_value AS doc_sequence_value,
                        xal.accounted_dr AS accounted_dr,
                        xal.accounted_cr AS accounted_cr,
                        SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                               INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2) + 1,
                               INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2)) AS CODE_ACCOUNTS
          from xla_transaction_entities xte,
               xla_entity_types_tl      xett,
               xle_entity_profiles      le,
               xla_events               xe,
               xla_event_types_tl       xent,
               xla_ae_headers           xah,
               xla_ae_lines             xal,
               xla_lookups              xlp,
               xla_distribution_links   xdl,
               GL_CODE_COMBINATIONS_KFV GCC_ORI
         where 1 = 1
           and xte.entity_id = xe.entity_id
           and xte.application_id = xe.application_id
           and xte.legal_entity_id = le.legal_entity_id(+)
           and xah.event_id = xe.event_id
           and xah.application_id = xe.application_id(+)
           and xent.event_type_code = xe.event_type_code
           and xent.application_id(+) = xe.application_id
           and xent.language = 'ZHS'
           and xah.ae_header_id(+) = xal.ae_header_id
           and xlp.lookup_type(+) = 'XLA_ACCOUNTING_CLASS'
           and xlp.lookup_code(+) = xal.accounting_class_code
           and xal.ae_header_id = xdl.ae_header_id
           and xal.ae_line_num = xdl.ae_line_num(+)
           and xal.application_id = xdl.application_id(+)
           and xett.entity_code = xte.entity_code
           and xett.application_id = xte.application_id
           AND XAL.CODE_COMBINATION_ID = GCC_ORI.CODE_COMBINATION_ID
           and xett.language = 'ZHS'
           and SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                      INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2) + 1,
                      INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2)) =
               NVL(BRANKACCT,
                   SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                          INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2) + 1,
                          INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2)))
           AND TO_CHAR(xal.accounting_date, 'yyyy-mm-dd') between
               '2010-06-30' and TO_CHAR(startdate-1, 'yyyy-mm-dd')
        union all
        select headers.default_effective_date as accounting_date,headers.je_header_id as a,
               headers.doc_sequence_value as doc_sequence_value,
               lines.accounted_dr               as accounted_dr,
               lines.accounted_cr               as accounted_cr,
               lines.segment3
          from GL_JE_HEADERS_v          headers,
               GL_JE_LINES_V            lines,
               GL_CODE_COMBINATIONS_KFV GCC_ORI
         where headers.je_header_id = lines.je_header_id
           and HEADERS.JE_CATEGORY = '1'
           and lines.segment3 = NVL(BRANKACCT, lines.segment3)
           and lines.code_combination_id = gcc_ori.code_combination_id
           AND TO_CHAR(headers.default_effective_date, 'yyyy-mm-dd') between
               '2010-06-30' and TO_CHAR(startdate-1, 'yyyy-mm-dd')
               )
 ORDER BY  accounting_date, doc_sequence_value;

  /**查询2010-06-01至用户参数开始时间之间的数据*判断是否有余额*/
  SELECT COUNT(*)
    INTO LStableCUT
    FROM BALANCESTEMP B1
   WHERE
   B1.BANKNAME=BRANKACCT
   AND  B1.MM BETWEEN to_date('2010-6-30','yyyy-mm-dd') AND  TO_DATE(TO_CHAR(startdate-1, 'yyyy-mm-dd'),'yyyy-mm-dd') ;


IF TO_CHAR(startdate-1, 'yyyy-mm-dd')='2010-06-30' THEN--判断用户参数开始日期是否为开帐日期
  LStableCUT:=LStableCUT;
END IF;
IF TO_CHAR(startdate-1, 'yyyy-mm-dd')<>'2010-06-30' THEN
  LStableCUT:=LStableCUT-1;
END IF;

 SELECT count(*)
   INTO jishu
   FROM BALANCESTEMP b
  WHERE MM = TO_DATE(TO_CHAR(accounting_date, 'yyyy-mm-dd'), 'yyyy-mm-dd') --判断是否已经存在
    and b.bankName = BRANKACCT
    and b.headerID = ae_header_id
    and b.je_line_num = line_num ;
  dbms_output.put_line(LStableCUT||'：LStableCUTLStableCUT');
  dbms_output.put_line(BLtableCUT||'：BLtableCUTBLtableCUT');
  IF LStableCUT=BLtableCUT THEN --如果临时表科目总记录数与余额表记录数相等;则直接进行余额递减操作
      dbms_output.put_line(jishu||'：jishu');
  IF jishu<=0 THEN
  SELECT MAX(id)
    INTO X
    FROM BALANCESTEMP
   WHERE MM <= TO_DATE(TO_CHAR(ENDDATE, 'yyyy-mm-dd'),
                      'yyyy-mm-dd') and bankName=BRANKACCT;
  SELECT BT.BALANCE INTO BL FROM BALANCESTEMP BT WHERE bt.id=x;
  STR := TO_NUMBER(BL);
  CF  := TO_CHAR(STR + NVL(DR, 0) - NVL(CR, 0));
   select max(id) into c from BALANCESTEMP;
    c1:=c+1;
    INSERT INTO BALANCESTEMP (je_line_num,HEADERID,dr,cr,BALANCE, MM,bankName,id) VALUES (line_num,ae_header_id,dr,cr,CF, accounting_date,BRANKACCT,c1);
  COMMIT;
  RETURN CF;
  end if;
  END IF;

  IF LStableCUT<>BLtableCUT THEN --如果临时表科目总记录数与余额表记录数 不相等; 则将用户参数开始日期前的所有数据初始化
   IF jishu<=0 THEN
    enBL:= STARTBALANCE(startdate,BRANKACCT );
  SELECT MAX(id)
    INTO X
    FROM BALANCESTEMP
   WHERE MM <= TO_DATE(TO_CHAR(ENDDATE, 'yyyy-mm-dd'),
                      'yyyy-mm-dd') and bankName=BRANKACCT;
  SELECT BT.BALANCE INTO BL FROM BALANCESTEMP BT WHERE bt.id=x;
  STR := TO_NUMBER(BL);
  CF  := TO_CHAR(STR + NVL(DR, 0) - NVL(CR, 0));
   select max(id) into c from BALANCESTEMP;
    c1:=c+1;
    INSERT INTO BALANCESTEMP (je_line_num,HEADERID,dr,cr,BALANCE, MM,bankName,id) VALUES (line_num,ae_header_id,dr,cr,CF, accounting_date,BRANKACCT,c1);
  COMMIT;
  RETURN CF;
  END IF;
  END IF;
  RETURN CF;
END;

 

 

CREATE OR REPLACE FUNCTION STARTBALANCE(startdate date,
                                        BRANKACCT VARCHAR2) RETURN CHAR IS
  PRAGMA AUTONOMOUS_TRANSACTION;
  BL  varchar(4000);
  X   number;
  STR NUMBER;
  CF  varchar(4000);
  c   number;
  c1  number;
  c2  number;
  CUT number;
  enBL number;
begin
  declare
    cursor cc is
      SELECT ae_header_id,
             doc_sequence_value,
             je_line_num,
             accounting_date,
             accounted_dr,
             accounted_cr,
             entered_dr,
             entered_cr,
             CODE_ACCOUNTS
        FROM (select distinct xal.accounting_date AS accounting_date,
                              xah.doc_sequence_value AS doc_sequence_value,
                              xal.ae_line_num as je_line_num,
                              xal.ae_header_id as ae_header_id,
                              xal.accounted_dr AS accounted_dr,
                              xal.accounted_cr AS accounted_cr,
                              xal.entered_dr AS entered_dr,
                              xal.entered_cr AS entered_cr,
                              SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                                     INSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                                           '-',
                                           1,
                                           2) + 1,
                                     INSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                                           '-',
                                           1,
                                           2)) AS CODE_ACCOUNTS
                from xla_transaction_entities xte,
                     xla_entity_types_tl      xett,
                     xle_entity_profiles      le,
                     xla_events               xe,
                     xla_event_types_tl       xent,
                     xla_ae_headers           xah,
                     xla_ae_lines             xal,
                     xla_lookups              xlp,
                     xla_distribution_links   xdl,
                     GL_CODE_COMBINATIONS_KFV GCC_ORI
               where 1 = 1
                 and xte.entity_id = xe.entity_id
                 and xte.application_id = xe.application_id
                 and xte.legal_entity_id = le.legal_entity_id(+)
                 and xah.event_id = xe.event_id
                 and xah.application_id = xe.application_id(+)
                 and xent.event_type_code = xe.event_type_code
                 and xent.application_id(+) = xe.application_id
                 and xent.language = 'ZHS'
                 and xah.ae_header_id(+) = xal.ae_header_id
                 and xlp.lookup_type(+) = 'XLA_ACCOUNTING_CLASS'
                 and xlp.lookup_code(+) = xal.accounting_class_code
                 and xal.ae_header_id = xdl.ae_header_id
                 and xal.ae_line_num = xdl.ae_line_num(+)
                 and xal.application_id = xdl.application_id(+)
                 and xett.entity_code = xte.entity_code
                 and xett.application_id = xte.application_id
                 AND XAL.CODE_COMBINATION_ID = GCC_ORI.CODE_COMBINATION_ID
                 and xett.language = 'ZHS'
                 and SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                            INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2) + 1,
                            INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2)) =
                     NVL(BRANKACCT,
                         SUBSTR(GCC_ORI.CONCATENATED_SEGMENTS,
                                INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2) + 1,
                                INSTR(GCC_ORI.CONCATENATED_SEGMENTS, '-', 1, 2)))
                 AND TO_CHAR(xal.accounting_date, 'yyyy-mm-dd') between
                     '2010-06-30' and TO_CHAR(startdate - 1, 'yyyy-mm-dd')
              union all
              select headers.default_effective_date as accounting_date,
                      headers.doc_sequence_value as doc_sequence_value,
                     lines.je_line_num as je_line_num,
                     headers.je_header_id             as ae_header_id,
                     lines.accounted_dr               as accounted_dr,
                     lines.accounted_cr               as accounted_cr,
                     lines.entered_dr                 as entered_dr,
                     lines.entered_cr                 as entered_cr,
                     lines.segment3
                from GL_JE_HEADERS_v          headers,
                     GL_JE_LINES_V            lines,
                     GL_CODE_COMBINATIONS_KFV GCC_ORI
               where headers.je_header_id = lines.je_header_id
                 and HEADERS.JE_CATEGORY = '1'
                 and lines.segment3 = NVL(BRANKACCT, lines.segment3)
                 and lines.code_combination_id = gcc_ori.code_combination_id
                 AND TO_CHAR(headers.default_effective_date, 'yyyy-mm-dd') between
                     '2010-06-30' and TO_CHAR(startdate - 1, 'yyyy-mm-dd'))
       ORDER BY accounting_date, doc_sequence_value;
  begin

    for i in cc loop

     SELECT MAX(id)
      INTO X
      FROM BALANCESTEMP
     WHERE MM < TO_DATE(TO_CHAR(startdate, 'yyyy-mm-dd'), 'yyyy-mm-dd')
       and bankName = BRANKACCT;
    SELECT BT.BALANCE INTO BL FROM BALANCESTEMP BT WHERE bt.id = x;
    STR := TO_NUMBER(BL);
      SELECT count(*)
        INTO CUT
        FROM BALANCESTEMP
       WHERE MM = TO_DATE(TO_CHAR(i.accounting_date, 'yyyy-mm-dd'), 'yyyy-mm-dd')
         and bankName = BRANKACCT
         and je_line_num=i.je_line_num
         and headerID =i.ae_header_id;
      IF CUT<=0 THEN
      CF := TO_CHAR(STR + NVL(i.accounted_dr, 0) - NVL(i.accounted_cr, 0));
      select max(id) into c from BALANCESTEMP;
      c1 := c + 1;
      INSERT INTO BALANCESTEMP
        (je_line_num,headerID, dr, cr, BALANCE, MM, bankName, id)
      VALUES
        (
        i.je_line_num,
        i.ae_header_id,
        i.accounted_dr,
         i.accounted_cr,
         CF,
         i.accounting_date,
         BRANKACCT,
         c1);
      COMMIT;
     END IF;
    end loop;
    return CF;

  end;
end;

调用方法

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24899662/viewspace-678542/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24899662/viewspace-678542/

cjm19860912
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
接口-日记账导入
yingshuli_e的专栏
02-23 2532
所有接口的注意事项1、验证数据的准确性，也就是各个字段进行数据校验，包括金额正负数等的验证2、验证数据的重复性，也就是已经传过的数据不允许再传送，否则造成数据重复导入3、并发的控制，如果前端系统无法保证数据的并发处理，那么需要在接口环境进行控制，否则一旦并发还是会造成数据重复，甚至错误。4、性能，如果数据量大的时候如果保证快速进行传送也是接口需要考虑的问题。5、日记账导入无法也是按照以上规则进行，...
oracle账户余额表和明细表,科目余额表与明细账
weixin_30764045的博客
04-08 2401
(明细与上相同)在建工程 11 小计 明细账科 LI 余额表 年月日 序上期余额本期发生额月末余额科目名称号借方贷方借方贷方借方 贷方二、负债类短期借款 12 XX 银行 XX 银行应付账款 13 XX 单位 XX 单位预收账款 14 XX 单位 XX ......余额 上述内容可简化为“T”型账户 左方 账户名称(会计科目) 右方 “T”...明细 分类 级 分类 科目 从属 科目 从属 科目 ...
关于日记账导入-外币
Haoyu_Lucky的博客
09-14 798
关于日记账导入 存在外币情况时，有两种处理方式 填写ENTERED_CR 或 ENTERED_DR , ACCOUNTED_CR 或 ACCOUNTED_DR , 无需指定汇率类型及日期。本位币必须为折换后的借方或贷方金额。 填写ENTERED_CR 或 ENTERED_DR，同时填写USER_CURRENCY_CONVERSION_TYPE ，如果类型为 用户汇率，则需 维护 CURRENCY_CONVERSION_RATE； 否则 需维护CURRENCY_CONVERSION_DATE。（用户汇率需输
项目总结之接口开发
cuihongxiao8170的博客
08-04 589
项目总结之接口开发 [摘] 2010-06-21 13:47:25|分类： ORACLE开发 |标签： |字号大中小订阅 概述 松下决裁项目属于一个开发项目。其开发的功能所实现的就是从金蝶EAS中把数据...
总账：日记账导入流程
taylorlliu的博客
01-11 2276
概要 会计事务处理来源于Oracle应用产品中的财务和生产制造模块中的正常商务活动，也包括其他外部模块中的商务活动。日记账导入流程的设计就是为了将这些事务处理登记到总账模块。 此流程的工作基于存于接口表中的现有数据。接口表名称：GL_INTERFACE。 每个子分类账通过一个或多个特定的流程将信息存储在此表中。一旦数据存储于接口表，日记账导入程序将加载总账表中的数据产生未过账的日
财务模块 - 采购、接收、应付会计分录和功能认识
congqishi0629的博客
03-23 478
本文档基于Oracle EBS R12版本测试。所有R12的查询在12.0.4下验证，11i的在11.5.10.1下测试一、企业采购业务采购业务是一般企业都会有的业务，主要包括请购、采购、接收、入库、发票、付款几个步骤。分别对应...
生产费用明细分类帐.doc
02-11
2. **明细分类帐**: 明细分类帐是对总账的补充，更深入地记录每一项费用的发生情况，以便更精确地进行成本核算。它按照不同的费用类别和子目进行划分，例如直接材料可能进一步分为不同类型的原材料费用。 3. **凭证...
原始分录簿及分类帐.pdf
10-12
原始分录簿与分类帐是会计基础工作的重要组成部分，它们是企业记录财务交易、编制财务报表的基础工具。在这个部分，我们将深入理解这些概念及其在实际操作中的应用。 首先，费用账户通常显示借方余额，意味着当费用...
bat-ledger-spec:分类帐代码测试套件（JS和C ++）
04-29
2. **账本状态管理**：测试可能涉及到账户余额的更新，新交易的添加，以及旧交易的删除。 3. **共识算法**：如果蝙蝠分类帐规格包含了一种特定的共识机制，如Proof of Work或Proof of Stake，那么测试套件将确保...
总帐接口表gl_interface的详细说明
期盼的骆驼专栏
05-17 2027
分类帐表 用于存储币种、日历和科目表信息的主表包括： • FND_CURRENCIES • GL_PERIOD_SETS • GL_PERIODS • GL_PERIOD_STATUSES • GL_PERIOD_TYPE • FND_ID_FLEX_STRUCTURES • GL_LEDGERS • GL_CODE_COMBINATIONS FND_CURRENCIES 和
ORACLE EBS 应付模块向SL子分类帐、GL追溯
贤时间
05-26 889
--应付 select aia.invoice_num 发票编号, sup.segment1, aia.org_id, /* aia.attribute5 是否单边, aia.voucher_num 凭证编号, sup.vendor_name 供应商名称, xal.accounting_date 入账日期, xal.description 摘要,*/ xal.accounted_dr 借方,
AR应收帐款凭证
weixin_30532837的博客
12-31 97
selectuser_name, currency_code, exchange_rate, account_number, descrption, code_accounts, sourcedescription, sum(entered_dr)asentered_dr, ...
xla_events
weixin_30725315的博客
12-10 467
LOOKUP_TYPE LANGUAGE LOOKUP_CODE MEANING DESCRIPTION XLA_EVENT_PROCESS_STATUS US D Draf...
总帐凭证和总帐余额
thenile的专栏
12-05 4832
GL模块是EBS的总模块，是财务系统核心，AP、AR、FA这些模块都是他的子模块。总帐模块中有几个主要的表是总帐凭证和总帐余额，表结构如下：总帐凭证总帐凭证批包含了同一个会计期间的总帐凭证。一个凭证包含头信息和行信息。总帐凭证批信息表：gl_je_batches， 一个批里的凭证只能是同一个会计期间的凭证  主要字段：主建批号ID:     JE_BATCH_ID 
总帐凭证和科目余额表
Justin's Blog
11-24 3345
GL模块是EBS的总模块，是财务系统核心，AP、AR、FA这些模块都是他的子模块。总帐模块中有几个主要的表是总帐凭证和总帐余额，表结构如下：总帐凭证总帐凭证批包含了同一个会计期间的总帐凭证。一个凭证包含头信息和行信息。总帐凭证批信息表：gl_je_batches一个批里的凭证只能是同一个会计期间的凭证，只有当总帐会计期打开时才可以做凭证。主要字段：主建批号ID:     JE_BATCH_ID本批的会计期间:                DEFAULT_PERIOD_NAME原币种凭证批借贷方汇总:  R
总账凭证数据
weixin_30466039的博客
02-22 207
SELECT jh.period_name 期间, jh.default_effective_date 日期, jh.name 凭证名, jh.doc_sequence_value 单据号, jl.je_line_num 凭证行号, ...
EBS总账模块与其他模块数据关联关系
weixin_30457551的博客
01-06 586
表名：GL_IMPORT_REFERENCES 说明：总账导入附加信息表 用途：用来追溯从子模块传入总账模块的明细，对于报表开发很有帮助 SQL 语句： select * from gl_je_headers gjh, gl_je_lines gjl, gl_import_references gir where gjh.je_header_id = gjl.je_header...
SAP FI总分类帐详解：功能与操作指南
5. 查询功能：系统支持查询实际业务往来，只需在适当等级上查看原始凭证，包括账户、日记账、月度借贷余额，以及资产、负债和利润评估等关键信息。 6. 主记录管理：总分类账主记录包含了详细的数据，如会计科目表中...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值