create or replace procedure yuchuli_update is
begin
-----2、更新数据
declare
----0-17已建会的，除了企业名称（qymc）和地税企业名称（sjqymc）以外的字段都要更新 ---17mins
cursor dsjh is
SELECT qyxx.qybm, qyxx.zzjgdm
FROM gh_qyxx qyxx, gh_qyghgx qyghgx
where qyxx.qybm = qyghgx.qybm
and qyghgx.jhzt in ('0',
'1',
'2',
'3',
'4',
'5',
'6',
'7',
'8',
'9',
'10',
'11',
'12',
'13',
'14',
'15',
'16',
'17')
and qyxx.zzjgdm is not null
and isxz = '0';
---------未建会的要更新税务登记状态、个税人数、单位名称
cursor dsnojh is
select qy.*,
CASE
WHEN hs.cjhszt = '0' THEN
'0'
else
'1'
end as cjhszt
from (SELECT qyxx.qybm, qyxx.zzjgdm, qyxx.sjqymc
FROM gh_qyxx qyxx, gh_qyghgx qyghgx
where qyxx.qybm = qyghgx.qybm
and qyghgx.jhzt in ('18',
'19',
'20',
'21',
'22',
'23',
'24',
'25',
'28')
and qyxx.zzjgdm is not null
and isxz = '0') qy
left join gh_hs hs
on qy.qybm = hs.qybm;
------匹配三级办数据
cursor sanjiban is
select qy.*, dt_enter.*
from dt_jczdb_enterprise dt_enter,
(select t.* ，qyghgx.GHDM,
qyghgx.GHMC,
qyghgx.GHLX,
qyghgx.ZHLX,
qyghgx.QYGHRS,
qyghgx.JHZT,
qyghgx.JHSJ,
qyghgx.SHSJ,
qyghgx.JFLCBL,
qyghgx.GHDM1,
qyghgx.BL1,
qyghgx.GHDM2,
qyghgx.BL2,
qyghgx.GHDM3,
qyghgx.BL3,
qyghgx.GHDM4,
qyghgx.BL4,
qyghgx.GHDM5,
qyghgx.BL5,
qyghgx.GHDM6,
qyghgx.BL6,
qyghgx.QYJC,
qyghgx.sffq
from GH_QYXX t
left join GH_QYGHGX qyghgx
on t.qybm = qyghgx.qybm
and t.zzjgdm is not null
and (t.isxz = '0' or t.isxz is null)) qy
where qy.zzjgdm = dt_enter.code
or qy.tyshxydm = dt_enter.code;
tempCount varchar(1); ---取上级工会
ghdm1 varchar2(10);
ghdm2 varchar2(10);
ghdm3 varchar2(10);
ghdm4 varchar2(10);
ghdm5 varchar2(10);
ghdm6 varchar2(10);
qycj varchar2(1);
--------建会状态为：X-暂不代收-个体工商户 ，但税务登记类型不是个体工商户，建会状态恢复成正常状态
--------------一级状态保留原状态信息：独立工会/联合工/未建会；二级状态：一级如果是独立工会/联合工会，
--------------则二级状态为应代收-工会经费；一级如果是未建会，则二级是：应代收-工会经费（筹建中）
cursor nogtgsh is
select t.* ，qyghgx.GHDM,
qyghgx.GHMC,
qyghgx.GHLX,
qyghgx.ZHLX,
qyghgx.QYGHRS,
qyghgx.JHZT,
qyghgx.JHSJ,
qyghgx.SHSJ,
qyghgx.JFLCBL,
qyghgx.GHDM1,
qyghgx.BL1,
qyghgx.GHDM2,
qyghgx.BL2,
qyghgx.GHDM3,
qyghgx.BL3,
qyghgx.GHDM4,
qyghgx.BL4,
qyghgx.GHDM5,
qyghgx.BL5,
qyghgx.GHDM6,
qyghgx.BL6,
qyghgx.QYJC,
qyghgx.sffq
from GH_QYXX t
left join GH_QYGHGX qyghgx
on t.qybm = qyghgx.qybm
where t.qybm = qyghgx.qybm
and qyghgx.jhzt in ('8', '17', '25')
and t.djzclxdm != '410';
--------登记注册类型为：个体工商户的，则企业信息一级标记：独立工会/联合工会/未建会（保持原企业不变），二级将暂不代收，三类：个体工商户
cursor gtgsh is
select t.* ，qyghgx.GHDM,
qyghgx.GHMC,
qyghgx.GHLX,
qyghgx.ZHLX,
qyghgx.QYGHRS,
qyghgx.JHZT,
qyghgx.JHSJ,
qyghgx.SHSJ,
qyghgx.JFLCBL,
qyghgx.GHDM1,
qyghgx.BL1,
qyghgx.GHDM2,
qyghgx.BL2,
qyghgx.GHDM3,
qyghgx.BL3,
qyghgx.GHDM4,
qyghgx.BL4,
qyghgx.GHDM5,
qyghgx.BL5,
qyghgx.GHDM6,
qyghgx.BL6,
qyghgx.QYJC,
qyghgx.sffq
from GH_QYXX t
left join GH_QYGHGX qyghgx
on t.qybm = qyghgx.qybm
where t.qybm = qyghgx.qybm
and t.djzclxdm = '410'
and t.istc = '0';
begin
for rc in dsjh loop
for dsqyxx_session in (select *
from gh_dsqyxx
where qybm = rc.qybm
and rownum = 1) loop
update gh_qyxx
set jydz = dsqyxx_session.jydz, ----经营地址
jydzyb = dsqyxx_session.jydzyb, ---经营地址邮编
zcdz = dsqyxx_session.zcdz, ---注册地址
ZCDZYB = dsqyxx_session.zcdzyb, ---注册地址邮编
JYDZLXDM = dsqyxx_session.jydzlxdm, ---经营地址联系电话
GJBZHYDM = dsqyxx_session.gjbzhydm, ---国家标准行业代码
DJZCLXDM = dsqyxx_session.djzclxdm, ---登记注册类型代码
SWJGZZJGDM = CASE
WHEN dsqyxx_session.zgswsdm is not null THEN
dsqyxx_session.zgswsdm
else
dsqyxx_session.zgswjdm
end,
SCJXDM = dsqyxx_session.scjxdm, ---所属街乡代码
NSRZTMC = dsqyxx_session.nsrzt, ---纳税人状态
gsrs = dsqyxx_session.zgrs, ---职工人数
KYDJRQ = dsqyxx_session.kydjrq, ---税务登记日期
SWDJLXMC = dsqyxx_session.swdjlxmc, ---税务登记种类
NSRSBH = dsqyxx_session.nsrsbh ---纳税人识别号
where zzjgdm = rc.zzjgdm; ---组织机构代码
end loop;
end loop;
---------未建会的且未核实的更新全部，未建会已核实的除去企业名称（qymc）字段，其他都更新
for rc in dsnojh loop
for dsqyxx_session in (select *
from gh_dsqyxx
where qybm = rc.qybm
and rownum = 1) loop
if (rc.cjhszt = '1') then
if (dsqyxx_session.nsrmc != rc.sjqymc) then
insert into GH_XTXX
(ID,
TITLE,
CONTENT,
YGLXID,
TYPE,
CJSJ,
CZRYDM,
YWLX,
QYGHDM)
values
(SEQ_XTXX.Nextval,
'地税中企业名称更改' ， '在地税系统中,企业名称原先是' || rc.sjqymc ||
'，现在是' || dsqyxx_session.nsrmc,
'0',
'0',
sysdate,
'系统后台' ， '0',
rc.qybm);
end if;
update gh_qyxx
set sjqymc = dsqyxx_session.nsrmc, ---地税企业名称
jydz = dsqyxx_session.jydz, ----经营地址
jydzyb = dsqyxx_session.jydzyb, ---经营地址邮编
zcdz = dsqyxx_session.zcdz, ---注册地址
ZCDZYB = dsqyxx_session.zcdzyb, ---注册地址邮编
JYDZLXDM = dsqyxx_session.jydzlxdm, ---经营地址联系电话
GJBZHYDM = dsqyxx_session.gjbzhydm, ---国家标准行业代码
DJZCLXDM = dsqyxx_session.djzclxdm, ---登记注册类型代码
SWJGZZJGDM = CASE
WHEN dsqyxx_session.zgswsdm is not null THEN
dsqyxx_session.zgswsdm
else
dsqyxx_session.zgswjdm
end,
SCJXDM = dsqyxx_session.scjxdm, ---所属街乡代码
NSRZTMC = dsqyxx_session.nsrzt, ---纳税人状态
gsrs = dsqyxx_session.zgrs, ---职工人数
KYDJRQ = dsqyxx_session.kydjrq, ---税务登记日期
SWDJLXMC = dsqyxx_session.swdjlxmc, ---税务登记种类
NSRSBH = dsqyxx_session.nsrsbh ---纳税人识别号
where zzjgdm = rc.zzjgdm; ---组织机构代码
else
update gh_qyxx
set qymc = dsqyxx_session.nsrmc, ---企业名称
sjqymc = dsqyxx_session.nsrmc, ---地税企业名称
jydz = dsqyxx_session.jydz, ----经营地址
jydzyb = dsqyxx_session.jydzyb, ---经营地址邮编
zcdz = dsqyxx_session.zcdz, ---注册地址
ZCDZYB = dsqyxx_session.zcdzyb, ---注册地址邮编
JYDZLXDM = dsqyxx_session.jydzlxdm, ---经营地址联系电话
GJBZHYDM = dsqyxx_session.gjbzhydm, ---国家标准行业代码
DJZCLXDM = dsqyxx_session.djzclxdm, ---登记注册类型代码
SWJGZZJGDM = CASE
WHEN dsqyxx_session.zgswsdm is not null THEN
dsqyxx_session.zgswsdm
else
dsqyxx_session.zgswjdm
end,
SCJXDM = dsqyxx_session.scjxdm, ---所属街乡代码
NSRZTMC = dsqyxx_session.nsrzt, ---纳税人状态
gsrs = dsqyxx_session.zgrs, ---职工人数
KYDJRQ = dsqyxx_session.kydjrq, ---税务登记日期
SWDJLXMC = dsqyxx_session.swdjlxmc, ---税务登记种类
NSRSBH = dsqyxx_session.nsrsbh ---纳税人识别号
where zzjgdm = rc.zzjgdm; ---组织机构代码
end if;
end loop;
end loop;
--三级办更新数据信息
for rc in sanjiban loop
---初始化值
tempCount := '1';
ghdm1 := '0';
ghdm2 := '0';
ghdm3 := '0';
ghdm4 := '0';
ghdm5 := '0';
ghdm6 := '0';
qycj := '1';
for a in (select * from table(split(rc.recursive_org, ','))) loop
if (tempCount = '1') then
select nvl(max(swds_id), '0')
into ghdm1
from dt_street
where jczdb_id = a.column_value;
qycj := '2';
elsif (tempCount = '2') then
select nvl(max(swds_id), '0')
into ghdm2
from dt_street
where jczdb_id = a.column_value;
qycj := '3';
elsif (tempCount = '3') then
select nvl(max(swds_id), '0')
into ghdm3
from dt_street
where jczdb_id = a.column_value;
qycj := '4';
elsif (tempCount = '4') then
select nvl(max(swds_id), '0')
into ghdm4
from dt_street
where jczdb_id = a.column_value;
qycj := '5';
elsif (tempCount = '5') then
select nvl(max(swds_id), '0')
into ghdm5
from dt_street
where jczdb_id = a.column_value;
qycj := '6';
elsif (tempCount = '6') then
select nvl(max(swds_id), '0')
into ghdm6
from dt_street
where jczdb_id = a.column_value;
qycj := '7';
end if;
tempCount := tempCount + 1;
end loop;
--同样为已建会单位，将“会员人数”更新至系统中
--三级办为已建会，系统中为未建会将“建会状态（独立、联合）、上级工会、会员人数”更新至系统中
------10 独立工会-应代收-工会经费 0联合工会-应代收-工会经费
if (rc.jhzt in ('0',
'1',
'2',
'3',
'4',
'5',
'6',
'7',
'8',
'9',
'10',
'11',
'12',
'13',
'14',
'15',
'16',
'17')) then
update gh_qyghgx
set qyghrs = rc.num_member
where qybm = rc.qybm;
elsif (rc.jhzt in
('18', '19', '20', '21', '22', '23', '24', '28')) then
update gh_qyghgx
set qyghrs = rc.num_member,
jhzt = CASE
WHEN rc.org_type = '201' THEN
'10'
else
'0'
end,
ghdm1 = ghdm1,
ghdm2 = ghdm2,
ghdm3 = ghdm3,
ghdm4 = ghdm4,
ghdm5 = ghdm5,
ghdm6 = ghdm6,
qyjc = qycj， SFWZY = '1' ----分配业务使用，当未建会改为已建会时此字段设置为1
where qybm = rc.qybm;
----记录修改建会状态的变更记录
---增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
CASE WHEN rc.org_type = '201' THEN '10' else '0' end,
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
end if;
end loop;
--------建会状态为：X-暂不代收-个体工商户 ，但税务登记类型不是个体工商户，建会状态恢复成正常状态
--------------一级状态保留原状态信息：独立工会/联合工/未建会；二级状态：一级如果是独立工会/联合工会，
--------------则二级状态为应代收-工会经费；一级如果是未建会，则二级是：应代收-工会经费（筹建中）
------8为联合工会-暂不代收-个体工商户，17独立工会-暂不代收-个体工商户，25为未建会-暂不代收-个体工商户
------0联合工会-应代收-工会经费 10独立工会-应代收-工会经费 18未建会-应代收-工会经费（筹建中
for rc in nogtgsh loop
if (rc.jhzt = '8') then
update gh_qyghgx set jhzt = '0' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'0',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
elsif (rc.jhzt = '17') then
update gh_qyghgx set jhzt = '10' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'0',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
elsif (rc.jhzt = '25') then
update gh_qyghgx set jhzt = '18' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'0',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
end if;
end loop;
--------登记注册类型为：个体工商户的，则企业信息一级标记：独立工会/联合工会/未建会（保持原企业不变），二级将暂不代收，三类：个体工商户
------8为联合工会-暂不代收-个体工商户，17独立工会-暂不代收-个体工商户，25为未建会-暂不代收-个体工商户
for rc in gtgsh loop
---联合工会
if (rc.jhzt in ('0', '1', '2', '3', '4', '5', '6', '7')) then
update gh_qyghgx set jhzt = '8' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'8',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
elsif (rc.jhzt in
('9', '10', '11', '12', '13', '14', '15', '16')) then
--独立工会
update gh_qyghgx set jhzt = '17' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'17',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
elsif (rc.jhzt in
('18', '19', '20', '21', '22', '23', '24', '28')) then
---未建会
update gh_qyghgx set jhzt = '25' where qybm = rc.qybm;
-----增加变更历史表数据
insert into GH_QYBG_LS
(ID,
YWLSDM,
QYBM,
BGXXZ,
BGXJZ,
SPZT,
CZRYDM,
CZSJ,
BGXDM,
GHDM,
GHMC,
GHLX,
ZHLX,
QYGHRS,
JHZT,
JHSJ,
SHSJ,
JFLCBL,
GHDM1,
BL1,
GHDM2,
BL2,
GHDM3,
BL3,
GHDM4,
BL4,
GHDM5,
BL5,
GHDM6,
BL6,
QYJC,
DRRQ,
QYMC,
SJJYDZ,
LXR,
LXDH,
KHH,
KHZH,
KHMC,
JSJDM,
TYSHXYDM,
DJZCLXDM,
ZZJGDM,
JYDZ,
JYDZYB,
ZCDZ,
ZCDZYB,
JYDZLXDM,
SWJGZZJGDM,
SCJXDM,
NSRZTMC,
GJBZHYDM,
KYDJRQ,
SWDJLXMC,
SJQYMC,
SJJYDZYB,
QYZT,
QYFR,
JHH,
XEZFH,
GSRS,
SSGLYDM,
ISTC,
NSRSBH,
XGRQ,
SFFQ)
values
(SEQ_YWLS.NEXTVAL,
SEQ_YWLS.NEXTVAL,
rc.QYBM,
'25',
rc.jhzt,
'0',
'预处理',
sysdate,
'jhzt',
rc.GHDM,
rc.GHMC,
rc.GHLX,
rc.ZHLX,
rc.QYGHRS,
rc.JHZT,
rc.JHSJ,
rc.SHSJ,
rc.JFLCBL,
rc.GHDM1,
rc.BL1,
rc.GHDM2,
rc.BL2,
rc.GHDM3,
rc.BL3,
rc.GHDM4,
rc.BL4,
rc.GHDM5,
rc.BL5,
rc.GHDM6,
rc.BL6,
rc.QYJC,
rc.DRRQ,
rc.QYMC,
rc.SJJYDZ,
rc.LXR,
rc.LXDH,
rc.KHH,
rc.KHZH,
rc.KHMC,
rc.JSJDM,
rc.TYSHXYDM,
rc.DJZCLXDM,
rc.ZZJGDM,
rc.JYDZ,
rc.JYDZYB,
rc.ZCDZ,
rc.ZCDZYB,
rc.JYDZLXDM,
rc.SWJGZZJGDM,
rc.SCJXDM,
rc.NSRZTMC,
rc.GJBZHYDM,
rc.KYDJRQ,
rc.SWDJLXMC,
rc.SJQYMC,
rc.SJJYDZYB,
rc.QYZT,
rc.QYFR,
rc.JHH,
rc.XEZFH,
rc.GSRS,
rc.SSGLYDM,
rc.ISTC,
rc.NSRSBH,
rc.XGRQ,
rc.SFFQ);
end if;
end loop;
insert into YUCHULI_MARK values (SYS_GUID(), 'update', sysdate);
commit;
end;
end yuchuli_update;