📄 s11050.ec.c
字号:
if(fabs(lx)>0.005){
$insert into fdrmx values($rfdrmx);
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日明细[%d]失败[%d]!",rfdrmx.zxlsh,sqlca.sqlcode);
$rollback work;
return 1;
}
}
return 0;
}
cl_lxsfh()/***处理利息税****/
{
if( lxs_bz ) {
/** 组织利息税数据插入当日明细 **/
rfdrmx.js=rlxfh.js;
strcpy(rfdrmx.dac," ");
rfdrmx.zy=114;
rfdrmx.dycs=1;
rfdrmx.kmh = rlxsfh.kmh;
strcpy(rfdrmx.jdbz,"2");
strcpy(rfdrmx.zh, rlxsfh.zh);
rfdrmx.jyje = rlxdgs.lxs;
rfdrmx.ye=rlxsfh.ye-rlxdgs.lxs;
if((rcxtzt.yyrq>rlxsfh.jyrq)&&(rlxsfh.zhkz[0]!='0')){
/*** rlxsfh.js+=rlxsfh.ye*(rcxtzt.yyrq-rlxsfh.jyrq); ***/
rlxsfh.js = get_fhjs ( rlxsfh , rcxtzt.yyrq ) ;
rlxsfh.jyrq=rcxtzt.yyrq;
}
rlxsfh.ye=rfdrmx.ye;
rfdrmx.js=rlxsfh.js;
strcpy(rfdrmx.zl,rlxsfh.zl);
if(s_rec.xhlx==1) strcpy(rfdrmx.dac,"1");
else strcpy(rfdrmx.dac," ");
if(fabs(rlxdgs.lxs)>0.005){
$insert into fdrmx values($rfdrmx);
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日利息税明细错[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
}
/** 更新利息税分户信息 **/
strcpy(g_dac,rlxsfh.dac);
fhz_dac(rlxsfh,rlxsfh.dac,1);
$update ffhz3 set *=($rlxsfh) where zh=$rlxsfh.zh and dac=$g_dac;
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
/** 插入利息税登记簿纪录 **/
strcpy(rdlxsdjb.jgm , rxhfh.jgm);
rdlxsdjb.kmh = rxhfh.kmh;
rdlxsdjb.hbh = rxhfh.hbh;
rdlxsdjb.czh = rxhfh.czh;
strcpy(rdlxsdjb.zh , rxhfh.zh);
strcpy(rdlxsdjb.hm , rxhfh.hm);
rdlxsdjb.qxr = rxhfh.qxr;
rdlxsdjb.jxr = rcxtzt.yyrq;
rdlxsdjb.lx = lx;
rdlxsdjb.ynslx = rlxdgs.lxje2;
rdlxsdjb.lxs = rlxdgs.lxs;
rdlxsdjb.sxf = rlxdgs.sxf;
rdlxsdjb.cq = rxhfh.cq;
rdlxsdjb.ye = xhfhye;
rdlxsdjb.gyh = g_jzgy;
rdlxsdjb.gylsh = rfdrmx.gylsh;
$insert into dlxsdjb values ($rdlxsdjb);
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入利息税登记簿错[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
}
strcpy(g_dac,rlxfh.dac);
fhz_dac(rlxfh,rlxfh.dac,1);
$update ffhz3 set *=($rlxfh) where zh=$rlxfh.zh and dac=$g_dac;
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlerrd[2]);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
$rollback work;
return 1;
}
return 0;
}
cl_xhzh()/****销户帐号处理****/
{
/*组织销户帐号数据*/
rfdrmx.kmh=rxhfh.kmh;
rfdrmx.hbh=rxhfh.hbh;
strcpy(rfdrmx.zh,rxhfh.zh);
strcpy(rfdrmx.dljg,s_rec.jgm);
strcpy(rfdrmx.jgm,rxhfh.jgm);
rfdrmx.jyje=bj;
rfdrmx.ye=rxhfh.ye+bj;
rxhfh.jyrq=rcxtzt.yyrq;
rxhfh.js=0.00;
rxhfh.ye=rfdrmx.ye;
rfdrmx.js=rxhfh.js;
if(s_rec.xhlx==1) rfdrmx.zy=109;
else rfdrmx.zy=110;
strcpy(rfdrmx.jdbz,"1");
if( s_rec.xhlx==1 ) strcpy(rfdrmx.dac,"1");
else strcpy(rfdrmx.dac," ");
getflag=get_dqhh(2,rxhfh.czcdlx,&rxhfh.dyhh,&rxhfh.dyyh,0);
if(getflag<0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return 1;
}
strcpy(rfdrmx.pzbz,"1");
rfdrmx.dqyc=rxhfh.dyyh;
rfdrmx.dqybs=rxhfh.dyhh;
strcpy(rfdrmx.zl,rxhfh.zl);
$insert into fdrmx values($rfdrmx);
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日明细[%d]失败[%d][%s]!",rfdrmx.zxlsh,sqlca.sqlcode,sqlca.sqlerrm);;
$rollback work;
return 1;
}
rxhfh.zhzt[0]='2';
rxhfh.wdzxs=0;
if (rxhfh.czh==4) {
if (rcxtzt.yyrq == rxhfh.dqrq) {
rxhfh.qxr=rcxtzt.yyrq;
}
}
strcpy(g_dac,rxhfh.dac);
rxhfh.tzed+=lx;
fhz_dac(rxhfh,rxhfh.dac,1);
switch(rxhfh.zh[12]){
case '1':
/***add by lwy***/
rxhfh.bsxj = get_czye(rxhfh.czh,rxhfh.wdzxs,rxhfh.ye,rxhfh.bsxj);
$update ffhz1 set *=($rxhfh) where zh=$rxhfh.zh and dac=$g_dac;
break;
case '2':
/***add by lwy***/
rxhfh.bsxj = get_czye(rxhfh.czh,rxhfh.wdzxs,rxhfh.ye,rxhfh.bsxj);
$update ffhz2 set *=($rxhfh) where zh=$rxhfh.zh and dac=$g_dac;
break;
case '3': case '4':
$update ffhz3 set *=($rxhfh) where zh=$rxhfh.zh and dac=$g_dac;
break;
}
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
return 0;
}
cl_dfzh()/****贷方帐号处理,插入到当日明细***/
{
/*组织转帐贷方帐号数据*/
rfdrmx.kmh=rdffh.kmh;
rfdrmx.hbh=rdffh.hbh;
strcpy(rfdrmx.zh,rdffh.zh);
strcpy(rfdrmx.dljg,s_rec.jgm);
strcpy(rfdrmx.jgm,rdffh.jgm);
rfdrmx.dycs=0;
if(!lxs_bz) rlxdgs.lxs=0.00;
rfdrmx.jyje=lx+bj-rlxdgs.lxs;
rfdrmx.ye=rdffh.ye-lx-bj+rlxdgs.lxs;
s_snd.zzje=rfdrmx.jyje;
s_snd.dfye = rfdrmx.ye;
if((rcxtzt.yyrq>rdffh.jyrq)&&(rdffh.zhkz[0]!='0')){
/*
rdffh.js+=rdffh.ye*(rcxtzt.yyrq-rdffh.jyrq);
*/
rdffh.js=get_fhjs( rdffh,rcxtzt.yyrq);
rdffh.jyrq=rcxtzt.yyrq;
}
rdffh.ye=rfdrmx.ye;
rfdrmx.js=rdffh.js;
rfdrmx.zy=121;
getflag=get_dqhh(1,rdffh.czcdlx,&rdffh.dyhh,&rdffh.dyyh,0);
if(getflag < 0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return 1;
}
if(rdffh.zh[12]=='1' || rdffh.zh[12]=='3' || rdffh.zh[12]=='4' || (rdffh.zh[12]=='2' && rdffh.czh==DGCZH )){
if(getflag) {
s_snd.flag=1;
sprintf(s_snd.errmsg,"贷方帐户请先更换存折!");
$rollback work;
return 1;
}
/* 可删除未登折笔数判断 */
/****** 封 zwq 20000315 ******
if (rdffh.wdzxs>=MAXWDZBS) {
s_snd.flag= 1; *未登折项数超过20笔,请先补登折*
strcpy(s_snd.errmsg,"未登折项数超过20笔,请先补登折!");
$rollback work;
return 1;
}
****** 封 zwq 20000315 ******/
}
if ( rdffh.zl[0] != '7' ) {
getflag=get_dqhh(2,rdffh.czcdlx,&rdffh.dyhh,&rdffh.dyyh,0);
if(getflag < 0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return 1;
}
}
rfdrmx.dqyc=rdffh.dyyh;
rfdrmx.dqybs=rdffh.dyhh;
rfdrmx.jdbz[0]='2';
strcpy(rfdrmx.dyzh,rxhfh.zh);
strcpy(rfdrmx.zl,rdffh.zl);
if( !strcmp(s_rec.jgm,rdffh.jgm) )
strcpy(rfdrmx.tdbz,"0");
else
strcpy(rfdrmx.tdbz,"1");
strcpy(rfdrmx.dac,"0");
if(s_rec.xhlx!=1){
$insert into fdrmx values($rfdrmx);
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日明细[%d]失败[%d]!",rfdrmx.zxlsh,sqlca.sqlcode);
$rollback work;
return 1;
}
}
switch(s_rec.dfzh[12]) {
case '1':case '3':case '4':
rdffh.wdzxs++;
break;
default :
if(rdffh.czh==DGCZH) rdffh.wdzxs++;
else rdffh.wdzxs=0;
break;
}
strcpy(s_snd.zzhm,rdffh.hm);
strcpy(g_dac,rdffh.dac);
/** 更新贷方分户时加入对于利息税的处理
if( !lxs_bz ) rlxdgs.lxs=0.00;
rdffh.ye=rdffh.ye+rlxdgs.lxs;
end **/
fhz_dac(rdffh,rdffh.dac,1);
switch(rdffh.zh[12]){
case '1':
/***add by lwy***/
rdffh.bsxj = get_czye(rdffh.czh,rdffh.wdzxs,rdffh.ye,rdffh.bsxj);
$update ffhz1 set *=($rdffh) where zh=$rdffh.zh and dac=$g_dac;
break;
case '2':
/***add by lwy***/
rdffh.bsxj = get_czye(rdffh.czh,rdffh.wdzxs,rdffh.ye,rdffh.bsxj);
$update ffhz2 set *=($rdffh) where zh=$rdffh.zh and dac=$g_dac;
break;
default:
$update ffhz3 set *=($rdffh) where zh=$rdffh.zh and dac=$g_dac;
break;
}
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
return 0;
}
cl_dkzh()/***贷款帐号处理****/
{
$select * into $rdkbc from ffhbc where zh=$rxhfh.zh;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
if(fabs(rdkbc.fflj-rdkbc.hslj)>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"发放累计不等于回收累计 !");
$rollback work;
return 1;
}
if(fabs(rdkbc.qxhj)>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"欠息金额不为0!");
$rollback work;
return 1;
}
$declare cur_bwfh cursor for
select * into $rbwfh from ffhz3 where jgm=$s_rec.jgm
and zh in (select bwzh from fdkmxz
where zh=$rxhfh.zh
and bwzh[1]=' ');
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
$open cur_bwfh;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
$fetch cur_bwfh;
if(sqlca.sqlcode!=100&&sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
if(!sqlca.sqlcode){
if(fhz_dac(rbwfh,rbwfh.dac,2)){
s_snd.flag=1;
strcpy(s_snd.errmsg,"对应表外帐户DAC校验错, 不能销户 !");
return 1;
}
if(rbwfh.ye<-0.005 || rbwfh.ye>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"表外帐户余额不为 0, 不能销户 !");
$rollback work;
return 1;
}
/* 销对应表外帐户和挂息帐户 */
strcpy(g_dac,rbwfh.dac);
rbwfh.zhzt[0]='2';
fhz_dac(rbwfh,rbwfh.dac,1);
$update ffhz3 set *=($rbwfh) where zh=$rbwfh.zh and dac=$g_dac;
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
sprintf(note,"%02d-%-5d",rbwfh.hbh,rbwfh.kmh);
$insert into dkxhdjb values($rbwfh.jgm,$rbwfh.zh,$rbwfh.hm,$rcxtzt.yyrq,$note,$g_jzgy,0,"1");
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入开销户登记簿失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
$fetch cur_bwfh;
if(sqlca.sqlcode!=100&&sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
}
$select sum(bnysx),sum(bwysx) into $rfdkmxz.bnysx,$rfdkmxz.bwysx from fdkmxz where zh=$rdkbc.zh;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索贷款明细表失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
if(fabs(rfdkmxz.bnysx)>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"还有表内应收息未回收!");
$rollback work;
return 1;
}
if(fabs(rfdkmxz.bwysx)>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"还有表外应收息未回收!");
$rollback work;
return 1;
}
return 0;
}
cl_wyezh()/****无余额帐号处理*******/
{
/* 无余额帐销户处理 */
strcpy(g_dac,rxhfh.dac);
rxhfh.zhzt[0]='2';
fhz_dac(rxhfh,rxhfh.dac,1);
if(rxhfh.zh[12]=='2')
$update ffhz2 set *=($rxhfh) where zh=$rxhfh.zh and dac=$g_dac;
else
$update ffhz3 set *=($rxhfh) where zh=$rxhfh.zh and dac=$g_dac;
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
sprintf(note,"%02d-%-5d",rxhfh.hbh,rxhfh.kmh);
$insert into dkxhdjb values($rxhfh.jgm,$rxhfh.zh,$rxhfh.hm,$rcxtzt.yyrq,$note,$g_jzgy,0,"1");
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入开销户登记簿失败[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
/************* 是否打印完对帐单 Closed 99.04.28
$select count(*) into $counttmp from fdrmx
where jgm=$s_rec.jgm and zh=$s_rec.xhzh and dycs=0;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检查未登折项错[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
if (counttmp!=0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,"未打印完对帐单!");
$rollback work;
return 1;
}
$select count(*) into $counttmp from flsmxz2
where jgm=$s_rec.jgm and zh=$s_rec.xhzh and dycs=0;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索未登折明细错[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
if (counttmp!=0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,"未打印完对帐单!");
$rollback work;
return 1;
}
*****************/
/* 支票是否销号 */
$select count(*) into $counttmp from dkhpjdjb1
where zh=$s_rec.xhzh and xhgy=0;
if(sqlca.sqlcode){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索客户票据登记簿失败[%d]!",sqlca.sqlcode);
$rollback work;
return 1;
}
if (counttmp!=0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,"票据未销号!");
$rollback work;
return 1;
}
return 0;
}
cl_kmzz()/****处理科目总帐****/
{
$update zkmzz set (rxhs,yxhs,jxhs,nxhs,ljxhs)=
(rxhs+1,yxhs+1,jxhs+1,nxhs+1,ljxhs+1)
where jgm=$rxhfh.jgm and
hbh=$rxhfh.hbh and kmh=$rxhfh.kmh;
if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
errout ("帐户销户",ZHXHJYM,__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd.errmsg , "更新科目总帐失败[%d]!" ,sqlca.sqlcode );
s_snd.flag=1;
sprintf(s_snd.errmsg,"后台数据库操作错, 代码=[%d] !",sqlca.sqlcode);
$rollback work;
return 1;
}
return 0;
}
cl_tzckzh()/****处理通知存款*****/
{
if(rxhfh.czh==7 || rxhfh.czh==71){
days=bank_days(rxhfh.khrq,rcxtzt.yyrq);
if(rxhfh.czh==7){
s_snd.tzcq=get_7_cq(days,rxhfh.hbh);
s_snd.tzll=get_int_rate(rxhfh.hbh,7,s_snd.tzcq);
}
else{
s_snd.tzcq=get_71_cq(days,rxhfh.hbh);
s_snd.tzll=get_int_rate(rxhfh.hbh,71,s_snd.tzcq);
}
if (s_snd.tzll<0.00) {
s_snd.flag=1; /*得到利率错*/
strcpy(s_snd.errmsg,"得到通知存款利率错!");
$rollback work;
return 1;
}
}
return 0;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -