存储过程实例1Word格式.docx
《存储过程实例1Word格式.docx》由会员分享,可在线阅读,更多相关《存储过程实例1Word格式.docx(44页珍藏版)》请在冰豆网上搜索。
*/
FORIIN(SELECTA.IDASID,
A.DJBIDASDJBID,
A.RYIDASRYID,
C.DQYWHJASDQYWHJ,
C.DQYWZTASDQYWZT,
A.SLLBASSLLB,
A.SLYYASSLYY,
A.SLRQASSLRQ,
A.SLDWDMASSLDWDM,
A.SLRASSLR,
A.SFKSASSFKS,
A.SFDYLQPZASSFDYLQPZ,
A.DYLQPZRQASDYLQPZRQ,
A.SFYJFASSFYJF,
A.HZBHASHZBH,
A.HZFFRQASHZFFRQ,
A.HZFFRASHZFFR,
A.SFSHASSFSH,
A.SHSFTGASSHSFTG,
A.SHBTGYYASSHBTGYY,
C.SHRASSHR,
A.SHRQASSHRQ,
A.SHDWASSHDW,
A.SFZZASSFZZ,
C.ZZDWDMASZZDWDM,
A.ZZRQASZZRQ,
A.SFCXZZASSFCXZZ,
A.BLSFFFASBLSFFF,
A.BLFFPHASBLFFPH,
A.BLFFDWDMASBLFFDWDM,
A.BLFFRASBLFFR,
A.BLFFRQASBLFFRQ,
A.JSDWDMASJSDWDM,
A.JSRASJSR,
A.JSRQASJSRQ,
A.SFFFASSFFF,
C.FFRASFFR,
A.FFDWDMASFFDWDM,
A.FFRQASFFRQ,
B.XMASLQR,
A.LQRQASLQRQ,
A.CXLXASCXLX,
A.CXNRASCXNR,
A.CXDWASCXDW,
A.CXRASCXR,
A.CXRQASCXRQ,
A.BZASBZ,
A.SJCSPHASSJCSPH,
A.CJRASCJR,
A.CJSJASCJSJ,
A.GXRASGXR,
A.GXSJASGXSJ,
A.SFTHASSFTH,
A.SFZZYWASSFZZYW,
A.SFDCLASSFDCL,
A.SFCXASSFCX,
A.ZZSFCGASZZSFCG,
A.ZZSBYYASZZSBYY,
A.SFDZZASSFDZZ,
A.DZZRQASDZZRQ,
A.ZZPHASZZPH,
A.CXZZCSASCXZZCS,
A.SLBHASSLBH,
B.GMSFHMASLQRSFZH,
A.KZZD1ASKZZD1,
A.KZZD2ASKZZD2,
A.KZZD3ASKZZD3,
A.KZZD4ASKZZD4,
A.KZZD5ASKZZD5,
A.KZZD6ASKZZD6,
C.FLAGASFLAG,
C.OPERATIONASOPERATION,
C.XZQASXZQ
FROMKY_T_JZZYW_YXC,T_JZZXX_YXB,T_JZZYW_YXA
WHEREA.ID=B.JZZYWID
ANDA.ID=C.ID
/*ANDXZQISNOTNULL*/
ANDFLAGISNULL)LOOP
根据不同的操作类型,
应用到新市库上
IFI.OPERATION='
DE'
THEN
/*DELETEFROMT_JZZ_YW@KYXXWHEREID=I.ID;
DELETEFROMT_JZZ_XX@KYXXWHEREID=I.ID;
NULL;
ELSIFI.OPERATION='
IN'
/*当t_jzzyw_yx的shsftg不为空且dqywhj为03、04、05、07、08、09、10时,
如果id不存在于t_jzz_yw_sh,就新增一条记录到t_jzz_yw_sh,
如果存在,则修改*/
IFI.SHRISNOTNULLAND
I.DQYWHJIN('
03'
'
04'
/*,'
05'
07'
08'
09'
10'
*/)THEN
INSERTINTOT_JZZ_YW_SH@KYXX
(ID,SHR,SHDW,SHRQ,SHJG,SHBTGYY,CJR,CJSJ,ZHXGR,ZHXGSJ)
SELECTID,SHR,SHDW,SHRQ,SHJG,SHBTGYY,CJR,CJSJ,GXR,GXSJ
FROMT_JZZYW_SH
WHEREID=I.KZZD2;
ENDIF;
/*当t_jzzyw_yx的zzdwdm不为空且dqywhj为07、08、09、10时,
如果id不存在于t_jzz_yw_zzxx,就新增一条记录到t_jzz_yw_zzxx,
如果存在,则修改该记录*/
IFI.ZZDWDMISNOTNULLAND
--V_ZZXXID:
ZZXX'
||ID_JZZ.NEXTVAL;
INSERTINTOT_JZZ_YW_ZZXX@KYXX
(ID,ZZDW,ZZRQ,ZZSFCG,ZZCWLXMC,CJR,CJSJ,ZHXGR,ZHXGSJ)
SELECTID,
ZZDW,
ZZRQ,
ZZSFCG,
ZZCWLXMC,
CJR,
CJSJ,
ZHXGR,
ZHXGSJ
FROMT_JZZ_YW_ZZXX
WHEREID=I.KZZD4;
/*当t_jzzyw_yx的FFR不为空且dqywhj为10时,
新增一条记录到t_jzz_yw_ff*/
IFI.FFRISNOTNULLANDI.DQYWHJ='
--V_FFID:
FFID'
INSERTINTOT_JZZ_YW_FF@KYXX
(ID,FFR,FFDW,FFSJ,LQRXM,LQRSFZH,CJR,CJSJ,ZHXGR,ZHXGSJ)
(I.KZZD3,
I.FFR,
I.FFDWDM,
I.FFRQ,
I.LQR,
I.LQRSFZH,
I.CJR,
I.CJSJ,
I.GXR,
I.GXSJ);
INSERTINTOT_JZZ_YW@KYXX
(ID,
RYYWLSH,
RYID,
YWHJ,
DQYWZT,
SLLB,
SLYY,
SLRQ,
SLDW,
SLR,
SFKS,
SFDYLQPZ,
DYLQPZSJ,
SFYJF,
SFZXZZ,
CXRQ,
CZZZCS,
SLBH,
ZHXGSJ,
JZZBH,
XM,
ZJHM,
XB,
CSRQ,
MZ,
DZ,
ZZDZXZ,
HZBH,
JZZYXQX,
JZZYXQSRQ,
JZZYXJZRQ,
BZRQ,
JZZXPH,
SFSCSB,
SHENG,
SHI,
FWID,
XIAN,
ZYSCBZRQ,
ZALFFJE,
GBFJE,
SHIJB,
XZQ,
JZ,
FWZ,
JWH,
PQ,
GAFJ,
PCS,
JDDM,
MPDM,
CZWBH,
FWCSDZ,
DWDZ,
YDDH,
ZZSY,
DYHDZ,
ZZMM,
ZJXY,
WHCD,
QYBH,
XZ,
JTGJ,
CPHM,
LSRQ,
HYZK,
JHRQ,
POXM,
POZJLX,
POZJHM,
SFTZ,
JSZLX,
JSZHM,
YZRQ,
JSZYXRQ,
BZ,
JYZK,
HDQK,
CZHKSZD,
QH,
NANGS,
NUGS,
SFCB,
ZY,
PODZ,
SG,
RZRQ,
FJH,
ZZCS,
JZFS,
TBR,
TBRQ,
DWDH,
ZZID,
SHID,
FFID,
ZZXXID,
JCID,
DBID,
HJDH,
DQYWHJ)
SELECTA.ID,
A.DJBID,
A.RYID,
A.DQYWHJ,
NVL(A.DQYWZT,'
2'
)ASDQYWZT,
A.SLLB,
A.SLYY,
A.SLRQ,
t6.xzqmc||t6.jzmc||t6.fwzmc||t6.jwhmc||t6.cmxzmcSLDW,
A.SLR,
A.SFKS,
A.SFDYLQPZ,
A.DYLQPZRQ,
A.SFYJF,
A.SFCXZZ,
A.CXRQ,
A.CXZZCS,
A.SLBH,
A.CJR,
A.CJSJ,
A.GXR,
A.GXSJ,
B.XM,
B.GMSFHM,
B.XBDM,
B.CSRQ,
B.MZDM,
B.HJDZ,
B.JZDZ,
NVL(T.HZBH,T.BZ),
B.YXQX,
B.YXQSRQ,
B.YXJZRQ,
B.SLRQ,
B.XPH,
B.SFSCSB,
SUBSTR(B.GMSFHM,0,2),
SUBSTR(B.GMSFHM,0,4),
B.FWID,
B.HJQXDM,
B.ZYSCBZRQ,
B.ZALFFJE,
B.GBFJE,
'
4406'
T4.XZQDMXZQ,
T4.JZDMJZ,
T4.FWZDMFWZ,
T4.JWHDMJWH,
T4.CMXZDMPQ,
T5.GAFJ,
T2.PCS,
T2.JLXDMJDDM,
T1.MPDM,
T1.DABHCZWBH,
C.FWCS,
C.FWCSDZ,
C.YDDH,
NVL(C.ZZSY,'
99'
),
NVL(D.DYHDZ,E.DYHDZ),
COALESCE(D.ZZMM,E.ZZMM,'
13'
NVL(D.ZJXY,E.ZJXY),
COALESCE(D.WHCD,E.WHCD,'
80'
NVL(D.DWID,E.DWID),
NVL(D.HJXZ,E.HJXZ),
NVL(D.JTGJ,'
)ASJTGJ,
NVL(D.CPHM,E.CPHM),
COALESCE(D.LSRQ,E.LSRQ,D.TBSJ,SYSDATE),
COALESCE(D.HYZK,E.HYZK,'
1'
NVL(D.JHRQ,E.JHRQ),
NVL(D.POXM,E.POXM),
NVL(D.POZJLX,E.POZJLX),
NVL(D.POZJHM,E.POZJHM),
NVL(D.SFTZ,E.SFTZ),
NVL(D.JSZLX,E.JSZLX),
NVL(D.JSZHM,E.JSZHM),
NVL(D.YZRQ,E.YZRQ),
NVL(D.JSZYXRQ,E.JSZYXRQ),
NVL(D.BZ,E.BZ),
COALESCE(D.JYZK,E.JYZK,'
NVL(D.HDQK,E.HDQK),
NVL(D.CZHKSZD,E.CZHKSZD),
NVL(D.HJQH,E.HJQH),
NVL(D.NANGS,E.NANGS),
NVL(D.NUGS,E.NUGS),
NVL(D.SFCB,E.SFCB),
NVL(D.ZY,E.ZY),
NVL(D.POHJDZ,E.POHJDZ),
NVL(D.SG,E.SG),
NVL(D.RZRQ,E.RZRQ),
NVL(D.FJH,E.FJH),
NVL(D.ZZCS,'
无'
COALESCE(D.JZFS,E.JZFS,'
NULL,
I.KZZD2,
I.KZZD3,
I.KZZD4,
(CASE
WHENA.DQYWHJIN('
01'
02'
)THEN
WHENA.DQYWHJ='
06'
8'
7'
END)DQYWHJ
FROMT_JZZYW_YXA,
T_JZZXX_YXB,
T_JZZYW_QTXX_YXC,
T_LDRK_DJBD,
T_LDRK_DJB_ZXQKE,
T_LDRK_XPT,
T_FWXXT1,
T_FWXX_MPXXT2,
T_FWXX_JLXT3,
V_XZQH_ZZJGT4,
T_XZQH_QXT5,
V_XZQH_ZZJGt6
ANDA.ID=C.JZZYWID
ANDA.DJBID=D.ID(+)
ANDA.DJBID=E.ID(+)
ANDT.ID(+)=B.XPID
ANDB.FWID=T1.ID
ANDT2.JLXDM=T3.DM
ANDT2.XZQHDM=T4.DM
ANDT4.XZQDM=T5.DM
ANDa.sldwdm=t6.dm
ANDA.ID=I.ID;
IFI.DQYWHJ='
INSERTINTOT_JZZ_XX@KYXX
FFR,
FFDW,
FFSJ,
JZZZT,
ZXBZ)
A.ZZDWDM,
A.ZZRQ,
A.FFR,
A.FFDWDM,
A.FFRQ,
B.CJR,
B.CJSJ,
B.GXR,
B.GXSJ,
B.JZZZT,
T4.XZQDM,
T4.JZDM,
T4.FWZDM,
T4.JWHDM,
T2.JLXDM,
T1.DABH,
NULL
V_XZQH_ZZJGT6
WHEREA.ID=B.JZZYW