EBS 学习笔记 发运模块代码编写的思路

我们的项目是利用了一个stag2表，存放一些必要的物料信息，然后再APEX平台直接显示一批数据的信息，然后一起发运。

表的信息为：

object_version_number   NUMBER NOT NULL,  
  batch_id                NUMBER NOT NULL,
  ridx                    NUMBER NOT NULL,
--
  cust_po_number          VARCHAR2(240) NOT NULL,
  oe_header_id            NUMBER NOT NULL,
  oe_line_id              NUMBER NOT NULL,
  oe_line_number          NUMBER NOT NULL,
  item_id                 NUMBER NOT NULL,
  organization_id         NUMBER NOT NULL,  
  requested_quantity      NUMBER NOT NULL,
  shipped_quantity        NUMBER NOT NULL,
  subinventory_code       VARCHAR2(10),
  ship_options            VARCHAR2(20),
  location_id             NUMBER,
  lot_number              VARCHAR2(80),
  serial_number           VARCHAR2(30),
  ship_method_code        VARCHAR2(30),
  actual_departure_date   DATE DEFAULT SYSDATE NOT NULL ,
--
  created_by              NUMBER NOT NULL,
  creation_date           DATE   NOT NULL,
  last_updated_by         NUMBER NOT NULL,
  last_update_date        DATE   NOT NULL,
  last_update_login       NUMBER,
  request_id              NUMBER,
--
  process_code            VARCHAR2(30) DEFAULT 'PENDING' NOT NULL,
  error_message           VARCHAR2(2000)

而要发运的数据，有几种情况，一种是用货位号，批号控制的数据，另一种是由序列号控制的。

这个时候就要分成两种情况考虑。

第一种情况：

首先要根据stag2表的信息，在物料单中找出满足条件的物料单，循环：

                  对当前物料单的requested_qty 和  stag2表的shipped_quantity进行比较，如果小于，则将这个物料编号信息放到一个内存表中，

                 大于的话，在判断shipped_qty是否等于shipped_quantity，不等就要更新一下物料单的发运数量。存入内存表。

                如果正好等于的话，直接存入内存表

循环结束；

然后就是进行发货号的生成和分配，然后发运即可。

第二种情况：

根据header_id和line_id等信息找出满足条件的物料单，循环：

                    然后查出当前的物料单的序列号表，循环：

                              如果要发运的序列号在表中，将该条物料单放入到内存表。

                              跳出所有循环

                   循环结束；

                   如果这个物料单是要发运的物料单，则对其进行，首先将序列号清空，这里是为了之后的分行，不带有序列号，我是将物料单的发运数量=0，ordered数量=requested数量。

                   接下来分出一行来，然后对一行数据进行分配序列号，这一行就是stag2表的要发运的序列号，然后在将剩下的序列号和物料单的信息存储下来。

循环结束；

在外面做的是发运操作，但是再发运之前要为分行后的物料单分配多个序列号（如果是需要多个的话），然后再发运。

以上是我的代码逻辑，看不懂的地方请见谅，由于还有任务，不能写的太详细了。。