最近都写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;

其实逻辑也很简单,原型如图

思路在于先判断时间是否在1-6月,在就继续下一步,否则也就不能进行寄送登记了;

另一个思路判断在于是否在1-6月再次点击寄送的重复数据,控制当年只能寄送一次,控制的点在身份证和时间.

开始写的很多if..else..是的代码很冗余,看着就很难受,慢慢的精简提炼吧.以及改正思路逻辑达到一个较好的代码.

还有个小的问题被发现解决了

即数字number类型的json传递是过程里是不会""包括起来的导致在一些极端情况下比如身份证为0开头护照0会被去除掉

好在也找到解决方法了(也是感谢老大的提示)

也就是在返回json时给拼接上了""

如: j_JsonmainOut := Json.Addattr(j_JsonmainOut, 'sfzh', '"'||iv_sfzh||'"',true); --身份证