“相邻库存查询”的应用场景：主要是实现门店间，相互查看商品库存状况，但出于公司对门店的查看权限控制要求，不能一次性查看到相关店铺的所有库存，所以产生了“相邻库存查询”的功能，通过后台系统给指定门店定义相关联的店仓，让门店可以按照单款查询到的方式查询到已定义的“相邻店铺”的商品库存分布状况。
但是标准产品里面设计的“相邻库存查询”，因对查询条件的匹配限制(当输入“款号”能查询所有尺码的库存分布情况，输入“条码”时只能查询次条码的库存情况)，这样的方式降低“相邻看下查询”的功能效果，接收很多客户的反馈之后，重新调整自定义了相关程序(getBarcodeQtyCanByUserId_C.jsp)，添加条码解析函数(oracle数据库自定义函数get_mpda_no_mpt)，实现了扫入条码，直接查询所有尺码的库存情况。
修改后的jsp
自定义函数get_mpda_no_mpt的代码
create or replace function get_mpda_no_mpt(p_no in varchar2) return number as
v_seqname varchar2(80);
pos number(10);
m_pda_id number(10);
begin
--1条码
begin
EXECUTE IMMEDIATE '
select t.m_product_id from m_product_alias t where t.no = :1'
into m_pda_id
using p_no;
exception
when no_data_found then
m_pda_id := null;
end;
if m_pda_id is not null then
return m_pda_id;
end if;
--2条码
begin
EXECUTE IMMEDIATE '
select t.id from m_product t where t.name = :1'
into m_pda_id
using p_no;
exception
when no_data_found then
m_pda_id := null;
end;
if m_pda_id is not null then
return m_pda_id;
end if;
--3流水码（截取位数）
pos := ad_param_value(37, 'portal.6001', 0);
begin
--raise_application_error(-20201,pos);
FOR v IN (SELECT regexp_substr(pos, '[^,]+', 1, LEVEL, 'i') AS text
FROM dual
CONNECT BY LEVEL <=
length(pos) - length(REPLACE(pos, ',')) + 1) LOOP
EXECUTE IMMEDIATE 'select max(m_product_id) from m_product_alias where no=:1'
INTO m_pda_id
USING substr(p_no, 1, length(p_no) - v.text);
IF m_pda_id > 0 THEN
return m_pda_id;
END IF;
END LOOP;
exception
when no_data_found then
m_pda_id := null;
end;
if m_pda_id is not null then
return m_pda_id;
end if;
--4国标码
begin
EXECUTE IMMEDIATE '
select t.m_product_id
from m_product_alias t
where t.INTSCODE = :1'
into m_pda_id
using p_no;
exception
when no_data_found then
m_pda_id := null;
end;
if m_pda_id is not null then
return m_pda_id;
end if;
--5新旧条码对照
begin
EXECUTE IMMEDIATE '
select a.m_product_id
from m_pdt_alias_con t, m_product_alias g,m_product_alias a
where t.m_pda_old_id = g.id
and t.m_pda_new_id=a.id
and g.no = :1'
into m_pda_id
using p_no;
exception
when no_data_found then
m_pda_id := null;
end;
if m_pda_id is not null then
return m_pda_id;
end if;
return m_pda_id;
end;
后台“相邻店铺”维护调整，标准的“相邻店铺”维护只能是一一对应维护，例如定义A店铺的“相邻店铺”为B、C店铺，则需要再A店铺的店仓档案下的“相邻店铺”table也页添加B、C店铺后，再到B、C店铺的店仓档案下添加A店铺，维护起来很是不方便。
解决方案：通过给店仓档案添加新的标签，修改对应的店仓档案程序，在对店仓档案修改的时候，识别将统一标签的店仓直接相互更新到对应的“相邻店铺”。
1 /*根据店仓性质更新相邻店铺*/
2 --先删除原明细
3 delete from C_STORENEB;
4
5 for v in (select a.id, a.c_storekind_id
6 from c_store a
7 where a.isactive='Y') loop
8
9 --插入新的明细
10 insert into C_STORENEB t
11 (id,
12 ad_client_id,
13 ad_org_id,
14 c_neb_store_id,
15 c_store_id,
16 ownerid,
17 modifierid,
18 creationdate,
19 modifieddate,
20 isactive)
21 select get_sequences('C_STORENEB'),
22 a.ad_client_id,
23 a.ad_org_id,
24 a.id,
25 v.id,
26 ownerid,
27 modifierid,
28 creationdate,
29 modifieddate,
30 isactive
31 from c_store a
32 where a.isactive='Y';
33 end loop;
