单据序列的概念及应用目录文档控制 ................................................................................................................................... i i 概述 . (4)单据序列概念 (4)单据序列（客户化应用） (7)AR 中的单据序列 (11)AR 中的单据序列试验 (14)单据序列的实用意义分析 (23)已解决问题和未解决问题 (27)未解决问题 (27)已解决问题 (27)概述本文对 Oracle ERP系统中“单据序列”的概念进行了初步的探索和实验。
目的在于进一步理解“单据序列”的概念和作用单据序列概念序列的概念Oracle 对于序列概念的描述如下：单据序列可对 Oracle Applications 产品所生成的单据进行唯一编号。
利用Oracle Applications，您可以通过在表单中输入数据并生成单据（如发票），起动一项事务处理。
单据序列会生成跟踪线索，用以标识创建了该事务处理的应用产品（如Oracle Receivables），以及所生成的原始单据（如发票编号 1234）。
单据序列可以提供完整性的证明。
例如，单据序列可用于反映每项事务处理，甚至是失败的事务处理。
单据序列还可以提供跟踪线索。
例如，单据序列可以提供一条从总帐到子分类帐，再到最初影响帐户余额的单据的跟踪线索。
由于单据序列会生成跟踪数据，因此即使单据被删除，它们的跟踪记录也会保留下来。
序列的定义Nav : System Administrator->Application->Document->Define上图我们看到的是一个序列：AP发票号，可以看出来该序列采用自动编号。
初始值为1 ，其内部的Doc_sequence_id = 5oracle 对每一个序列的使用都有跟踪记录，并且序列的跟踪记录存储在应用产品的跟踪表中，其标题为 Application Short Name _DOC_SEQUENCE_AUDIT。
例如，属于Oracle Payables 的序列的跟踪表为 AP_DOC_SEQUENCE_AUDIT。
在这张表中，我们检索AP发票所有使用过的编号，这些编号被使用在哪种单据类型上。
如下图所示上图中，DOC_SEQUENCE_ID是单据序列的内部ID , 5表示AP 发票；而DOC_SEQUENCE_ASSIGNMENT_ID是单据分配的内部ID，它表示该单据序列被分配在哪种单据类别上（下文会有描述）；而DOC_SEQUENCE_VALUE表示该单据序列被分配在某种单据类别上，曾经在什么时候被使用过，其值是多少。
序列的分配Nav : System Administrator->Application->Document->Define上图中，我们看到单据序列:AP发票号被分配给单据类别：借项通知单。
其DOC_SEQUENCE_ASSIGNMENT_ID=8 。
单据类别的定义Nav : System Administrator->Application->Document->Category单据类别标识了存储单据（由用户输入的事务处理产生）的数据库表。
使用类别可对单据进行更精确地分类。
例如，您可以将应收帐款发票分成以下几个不同的类别：拖欠款项定金保证金借项通知单贷项通知单销售发票客户服务发票同样，您也可以将应付帐款或采购发票分成以下几个不同的类别：标准费用报表预付款利息贷项通知单借项通知单单据序列（客户化应用）我们知道，定义单据类别的时候只是指定了表的名字，而在定义单据序列，以及把单据序列分配给单据类别的时候也没有指定任何子段，那么oracle 是如何利用单据序列来给特定的字段自动生成编号的呢？我们来看个客户化程序中使用单据序列的实验例子。
客户化的程序中如何使用单据序列？1、在 HWCUST Schema 中创建一个测试表create table cux_seq_test(test_num number null,test_name varchar2(255) null)2、在APPS中创建同义词，并注册表和子段。
CREATE SYNONYM cux_seq_test for hwcust.cux_seq_test;EXECUTE ad_dd.register_table('HW', 'cux_seq_test', 'T', 8, 10, 90);EXECUTE ad_dd.register_column('HW', 'CUX_SEQ_TEST', 'TEST_NUM', 1, 'NUMBER',30, 'Y', 'N' );EXECUTE ad_dd.register_column('HW', 'CUX_SEQ_TEST', 'TEST_NAME', 2,'VARCHAR2', 255, 'Y', 'N' );3、Nav : System Administrator->Application->Document->Category定义单据类别4、定义单据序列Nav : System Administrator->Application->Document->Define拷贝号姓名Name HW_SEQ_TSTApplication5、序列分配：Nav : System Administrator->Application->Document->Define拷贝号姓名ApplicationApplication HW_SEQ_TSTCategory测试单据类别Set of BooksSequence HW_SEQ_TST6、在Form 中使用出口函数：procedure Get_seq_num isbeginif (nvl(:parameter.seq_numbers, 'N') != 'N'and NOT Is_DB_Record) thenUser_Exit('FND SEQCHK ' || 'APPLICATION_ID="20002" ' ||'SET_OF_BOOKS_ID="' || TO_CHAR(:PARAMETER.SET_OF_BOOKS_ID) || '" ' ||'CATEGORY="CUX_TST" ' || 'METHOD="A" ' ||'TRX_DATE=":PARAMETER.TRX_DATE" ' ||'DOC_SEQUENCE_VALUE=":PARAMETER.INTEREST_INV_DOC_SEQ"');if (Not Form_Success) thenRaise Form_Trigger_Failure;end if;end if;:PARAMETER.INTEREST_INV_DOC_SEQ := NULL;:PARAMETER.INTEREST_INV_DOC_SEQ_ID := NULL;if (nvl(:parameter.seq_numbers, 'N') != 'N') thenUser_Exit('FND SEQVAL ' || 'APPLICATION_ID="20002" ' ||'SET_OF_BOOKS_ID="' || TO_CHAR(:PARAMETER.SET_OF_BOOKS_ID) || '" ' ||'CATEGORY="CUX_TST" ' || 'METHOD="A" ' ||'TRX_DATE=":PARAMETER.TRX_DATE" ' ||'DOC_SEQUENCE_VALUE=":PARAMETER.INTEREST_INV_DOC_SEQ" ' ||'DOC_SEQUENCE_VALUE_FIELD="PARAMETER.INTEREST_INV_DOC_SEQ"' ||'DOC_SEQUENCE_ID_FIELD="PARAMETER.INTEREST_INV_DOC_SEQ_ID"');if (Not Form_Success) and (nvl(:parameter.seq_numbers, 'N') = 'A') then:PARAMETER.INTEREST_INV_DOC_SEQ := NULL;:PARAMETER.INTEREST_INV_DOC_SEQ_ID := NULL;Raise Form_Trigger_Failure;end if;fnd_message.debug(to_char(:PARAMETER.INTEREST_INV_DOC_SEQ));end if;end;FUNCTION Is_DB_Record RETURN Boolean ISBEGINif (nvl(:system.record_status,:system.form_status)in ('QUERY','CHANGED')) thenreturn TRUE;elsereturn FALSE;end if;RETURN NULL; END Is_DB_Record;用Form 测试：上图中，当我们点击 [GetSeq] 按钮时，我们就调用Get_seq_num ，然后把值从参数:PARAMETER.INTEREST_INV_DOC_SEQ 中取出来放入Test Num ,就出现如上结果。