全是在过程里做操作,APP那边只负责传数据,也是坑的不行,这样APP开发连传入传出的数据都要我在接口里做判断,或许是我不太了解APP开发吧
今天写了个判断的过程,想着贴出来以后可以理解下判断的思路和方向
--寄送个人权益单
Procedure sbp_sbcx_1051(as_inmsg in long, as_outmsg out clob) is
al_inmsg long;
j_JsonmainIn Json.Jsonstructobj; --主信息JSON
Ret_ErrCode varchar2(10); --错误代码
Ret_Errmsg varchar2(32670); --提示信息
j_JsonmainOut Json.Jsonstructobj; --主信息JSON
J_Jsonlist Json.Jsonstructobj; --jsonlist
i integer := 0;
J_ARRAY JSON.JSONARRAY;
iv_xm varchar2(30);
iv_dh varchar2(11);
iv_dz varchar2(100);
iv_sfzh varchar2(30);
v_aac001 varchar2(20);
v_count number;
n_ljcce number;
v_aaa005 varchar2(6);
v_aac004 varchar2(6);
rec_app03 app03%rowtype;
appcount number;
app03_sj date;
sysmonth date;
Begin
Ret_ErrCode := 'B00';
Ret_Errmsg := null;
--判断传入参数
app_sjjc.P_Dissemble('1051','1',as_inmsg,Ret_ErrCode,Ret_Errmsg);
if Ret_ErrCode = 'ERROR' then
sbp_err(Ret_ErrCode, Ret_Errmsg, as_outmsg);
Return;
end if;
---解包
al_inmsg := as_inmsg;
---转换成json
j_JsonmainIn := Json.String2json(al_inmsg, '"'); --转换成JSON
iv_xm := Json.Getattrvalue(j_JsonmainIn, 'xm'); --取得姓名
iv_dh := Json.Getattrvalue(j_JsonmainIn, 'dh'); --取得电话
iv_dz := Json.Getattrvalue(j_JsonmainIn, 'dz'); --取得地址
iv_sfzh := Json.Getattrvalue(j_JsonmainIn, 'sfzh'); --取得身份证号;
Json.Newjsonobj(j_JsonmainOut, TRUE);
j_JsonmainOut := Json.Addattr(j_JsonmainOut, 'recode', Ret_ErrCode); --交易结果
j_JsonmainOut := Json.Addattr(j_JsonmainOut, 'remessage', Ret_Errmsg); --交易结果信息
begin
select count(*) into appcount from app03 where aae135 = iv_sfzh;
select to_char(sysdate, 'MM') into sysmonth from dual;
if sysmonth in ('01', '02', '03', '04', '05', '06') then--当年1-6月时可寄送
if appcount < 1 then--表中无该人数据时直接增加
--新增app03
select sq_aaz002.nextval into rec_app03.aaz002 from dual;
rec_app03.aaz002 := rec_app03.aaz002;
rec_app03.aac003 := iv_xm;
rec_app03.aae005 := iv_dh;
rec_app03.aae006 := iv_dz;
rec_app03.aae036 := sysdate;
rec_app03.aae135 := iv_sfzh;
insert into app03 values rec_app03;
else--表中数据大于1时取最大时间判断是否为同一年,同年提示,不同年(肯定大于当年)增加一条
select max(aae036) into app03_sj from app03 where aae135 = iv_sfzh;
if to_char(app03_sj, 'yyyy') = to_char(sysdate, 'yyyy') then
Ret_ErrCode := 'ERROR';
Ret_Errmsg := '当年已寄出个人权益单';
sbp_err(Ret_ErrCode, Ret_Errmsg, as_outmsg);
Return;
else
--新增app03
select sq_aaz002.nextval into rec_app03.aaz002 from dual;
rec_app03.aaz002 := rec_app03.aaz002;
rec_app03.aac003 := iv_xm;
rec_app03.aae005 := iv_dh;
rec_app03.aae006 := iv_dz;
rec_app03.aae036 := sysdate;
rec_app03.aae135 := iv_sfzh;
insert into app03 values rec_app03;
end if;
end if;
else
Ret_ErrCode := 'ERROR';
Ret_Errmsg := '当前时间不能寄送!';
sbp_err(Ret_ErrCode, Ret_Errmsg, as_outmsg);
Return;
end if;
end;
commit;
Json.Closejsonobj(j_JsonmainOut);
--json转化成数据
as_outmsg := Json.Json2string(j_JsonmainOut);
Return;
Exception
When Others Then
Ret_ErrCode := 'ERROR';
Ret_Errmsg := '交易异常出错:' || sqlerrm;
sbp_err(Ret_ErrCode, Ret_Errmsg, as_outmsg);
Return;
End;
其实逻辑也很简单,原型如图
思路在于先判断时间是否在1-6月,在就继续下一步,否则也就不能进行寄送登记了;
另一个思路判断在于是否在1-6月再次点击寄送的重复数据,控制当年只能寄送一次,控制的点在身份证和时间.
开始写的很多if..else..是的代码很冗余,看着就很难受,慢慢的精简提炼吧.以及改正思路逻辑达到一个较好的代码.
还有个小的问题被发现解决了
即数字number类型的json传递是过程里是不会""包括起来的导致在一些极端情况下比如身份证为0开头护照0会被去除掉
好在也找到解决方法了(也是感谢老大的提示)
也就是在返回json时给拼接上了""
如: j_JsonmainOut := Json.Addattr(j_JsonmainOut, 'sfzh', '"'||iv_sfzh||'"',true); --身份证