BPOS关于“相邻库存查询”的调整
“相邻库存查询”的应用场景：主要是实现门店间，相互查看商品库存状况，但出于公司对门店的查看权限控制要求，不能一次性查看到相关店铺的所有库存，所以产生了“相邻库存查询”的功能，通过后台系统给指定门店定义相关联的店仓，让门店可以按照单款查询到的方式查询到已定义的“相邻店铺”的商品库存分布状况。
但是标准产品里面设计的“相邻库存查询”，因对查询条件的匹配限制(当输入“款号”能查询所有尺码的库存分布情况，输入“条码”时只能查询次条码的库存情况)，这样的方式降低“相邻看下查询”的功能效果，接收很多客户的反馈之后，重新调整自定义了相关程序(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;
版权声明：本文为zhrw0628原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。