最近都寫APP的介面,有苦說不出啊.
阿新 • • 發佈:2019-02-20
--寄送個人權益單
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;
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;