lmis6.0通用处理库存的过程

注意过程调用参数的 处理类型 和 业务类型 来处理库存

DECLARE

BEGIN
  FOR P IN
(SELECT * FROM KC_SPPHHW K WHERE EXISTS(
SELECT * FROM INF.INF_RK_SC_BILL WHERE DANJ_NO='RKD03600033845' AND K.SHANGP_ID=SHANGP_ID AND K.LOT=LOT )
AND K.KUC_STATE='3'  )LOOP
--先冲原错误状态库存预占
        PRC_UTL_STOCKS('KPD03600041413', --单据编号
                       'CL', --摘要
                       '1', --处理类型 1 预分配;2 下账;3 在途;4 锁定
                       '1', --业务类型 0 下账;1 入库预占;2 出库预扣; 3 补货预占;4 补货预扣;5 在途;6 锁定;7 解锁;8 补货下账
                       P.YEZ_ID, --业主内码
                       'DWI35776366', --单位内码
                       P.SHANGP_ID, --商品内码
                       P.huow_id, --货位内码
                      P.LOT, --批号