最近都写APP的接口,有苦说不出啊.

本文主要是介绍最近都写APP的接口,有苦说不出啊.，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

全是在过程里做操作,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;