📄 s11060.ec.c
字号:
s_snd.flag = 1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return -1;
}
s_snd.dyhh = getflag;
if (rxhfh.czh==10 || rxhfh.czh==2 || rxhfh.czh==21 || rxhfh.czh==3 || rxhfh.czh==4 || rxhfh.czh==5 || rxhfh.czh==6 || rxhfh.czh==DGCZH || rxhfh.czh==60 ) {
getflag=get_dqhh(1,rxhfh.czcdlx,&rxhfh.dyhh,&rxhfh.dyyh,rxhfh.wdzxs);
if(getflag < 0){
s_snd.flag = 1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return -1;
}
if(getflag) {
s_snd.flag=1;
strcpy(s_snd.errmsg,"请先更换存折!");
$rollback work;
return -1;
}
if (rxhfh.wdzxs!=0) {
if (get_wdz(fpw,s_rec.xhzh,rxhfh.wdzxs,rxhfh.czcdlx)!=0) {
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return -1;
}
}
if(rxhfh.czcdlx==DQYBTCZ)
gen_ybtline(tmpnr,rxhfh,'1',rcxtzt.yyrq,110,rxhfh.ye,lx,g_jzgy);
else
gen_czline(tmpnr,'1',rcxtzt.yyrq,110,bj,0.00,g_jzgy,rxhfh.czcdlx);
fprintf(fpw,"%s\n",tmpnr);
}
return 0;
}
int lxfhmx_cl(lx)
double lx;
{
if ( s_rec.khbz == 1 )
strcpy(s_snd.zh,s_rec.rfhz.zh);
else
strcpy(s_snd.zh," ");
rfdrmx.kmh=rlxfh.kmh;
rfdrmx.hbh=rlxfh.hbh;
strcpy(rfdrmx.zh,rlxfh.zh);
strcpy(rfdrmx.dljg,s_rec.jgm);
strcpy(rfdrmx.jgm,rlxfh.jgm);
rtoday(&rfdrmx.xtrq);
rfdrmx.jyrq=rcxtzt.yyrq;
if((rfdrmx.zxlsh=get_zxlsh())<0){
s_snd.flag=1;
strcpy(s_snd.errmsg,"取中心流水号错误 !");
$rollback work;
return -1;
}
rfdrmx.gylsh = s_snd.lsh;
rfdrmx.jym=s_rec.jym;
rfdrmx.jyje=lx;
rfdrmx.ye=rlxfh.ye+lx;
if((rcxtzt.yyrq>rlxfh.jyrq)&&(rlxfh.zhkz[0]!='0')){
/*
rlxfh.js+=rlxfh.ye*(rcxtzt.yyrq-rlxfh.jyrq);
*/
rlxfh.js=get_fhjs(rlxfh,rcxtzt.yyrq);
rlxfh.jyrq=rcxtzt.yyrq;
}
rlxfh.ye=rfdrmx.ye;
rfdrmx.js=rlxfh.js;
strcpy(rfdrmx.pzbz,"1");
if( !strcmp(s_rec.jgm,rxhfh.jgm) )
strcpy(rfdrmx.tdbz,"0");
else
strcpy(rfdrmx.tdbz,"1");
rfdrmx.zy=108;
rfdrmx.dycs=1;
strcpy(rfdrmx.sqm," ");
rfdrmx.pzzl=0;
strcpy(rfdrmx.pzhm," ");
strcpy(rfdrmx.jdbz,"1");
getflag=get_dqhh(2,rlxfh.czcdlx,&rlxfh.dyhh,&rlxfh.dyyh,0);
if(getflag < 0){
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return -1;
}
rfdrmx.dqyc=rlxfh.dyyh;
rfdrmx.dqybs=rlxfh.dyhh;
rfdrmx.pj=0;
rfdrmx.gy1=g_jzgy;
rfdrmx.cngy=g_cngy;
rfdrmx.gylsh = get_gylsh(g_jzgy);
get_cur_time( rfdrmx.jysj );
strcpy( rfdrmx.dyzh,rdffh.zh);
rfdrmx.gy2=0;
strcpy(rfdrmx.zl,rlxfh.zl);
if(s_rec.xhlx==1){ /* 本金转开户,利息取现 */
printf("1dyzh[%s],xjzh[%s]",rfdrmx.dyzh,xjzh);fflush(stdout);
strcpy(rfdrmx.dyzh,xjzh);
strcpy(rfdrmx.dac,"1");
}
else{ /* 本金利息转开户 */
strcpy(rfdrmx.dyzh,s_snd.zh);
strcpy(rfdrmx.dac," ");
}
if(fabs(lx)>0.005){
$insert into fdrmx values($rfdrmx); /*利息支出方明细*/
if(sqlca.sqlcode){
errout ("帐户销户",sqlca.sqlerrm,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日明细[%d]失败[%d]!",rfdrmx.zxlsh,sqlca.sqlcode);
$rollback work;
return -1;
}
if ( lxsfhmx_cl(lx) ) {
errout ("帐户销户","",__FILE__,__LINE__,0);
return -1;
}
s_snd.lx=mylx-mylxs;
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 ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d]!",sqlca.sqlcode);
$rollback work;
return -1;
}
}
return 0;
}
int lxsfhmx_cl(lx)
double lx;
{
/*组织利息支出帐号数据*/
/** lxs_cl **/
if( lxs_bz ) {
/** 组织利息税数据插入当日明细 **/
if(s_rec.xhlx==1) strcpy(rfdrmx.dac,"1");
else strcpy(rfdrmx.dac," ");
rfdrmx.dycs=1;
getflag=get_dqhh(2,rlxfh.czcdlx,&rlxfh.dyhh,&rlxfh.dyyh,0);
if(getflag < 0){
s_snd.flag=1;
strcpy(s_snd.errmsg,g_errmsg);
$rollback work;
return -1;
}
rfdrmx.dqyc=rlxfh.dyyh;
rfdrmx.dqybs=rlxfh.dyhh;
rfdrmx.kmh = rlxsfh.kmh;
strcpy(rfdrmx.jdbz,"2");
strcpy(rfdrmx.zh, rlxsfh.zh);
rfdrmx.jyje = rlxdgs.lxs;
mylxs=rlxdgs.lxs; /*add by lys */
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;
rfdrmx.zy=114;
strcpy(rfdrmx.zl,rlxsfh.zl);
if(fabs(rlxdgs.lxs)>0.005){
$insert into fdrmx values($rfdrmx);
if(sqlca.sqlcode){
errout ("帐户销户","",__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 ("帐户销户","",__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.gyh = g_jzgy;
rdlxsdjb.gylsh = rfdrmx.gylsh;
rdlxsdjb.cq = rxhfh.cq;
rdlxsdjb.ye = xhfhye;
$insert into dlxsdjb values ($rdlxsdjb);
if(sqlca.sqlcode){
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入利息税登记簿错[%d]!",sqlca.sqlcode);
$rollback work;
return -1;
}
}
/** 利息税处理2结束 **/
return 0;
}
int xhfhmx_cl(bj,lx)
double bj;
double lx;
{
/*组织销户帐号数据*/
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;
strcpy(rfdrmx.pzbz,"1");
rfdrmx.zy=110;
strcpy(rfdrmx.jdbz,"1");
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;
}
rfdrmx.dqyc=rxhfh.dyyh;
rfdrmx.dqybs=rxhfh.dyhh;
printf("\n**********zl[%s]\n",rxhfh.zl);
strcpy(rfdrmx.zl,rxhfh.zl);
strcpy(rfdrmx.dac," ");
if ( s_snd.zh[0]== 0 )
strcpy(rfdrmx.dyzh," ");
else
strcpy(rfdrmx.dyzh,s_snd.zh);
$insert into fdrmx values($rfdrmx); /*销户方明细*/
if(sqlca.sqlcode){
errout ("帐户销户",sqlca.sqlerrm,__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入当日明细[%d]失败[%d]!",rfdrmx.zxlsh,sqlca.sqlcode);
$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 ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"更新分户帐失败[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
$rollback work;
return -1;
}
return 0;
}
int kxh_lxd_cl(bj,lx)
double bj;
double lx;
{
$char note[13];
/* 登记开销户登记簿 */
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 ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入开销户登记簿失败[%d] !",sqlca.sqlcode);
$rollback work;
return -1;
}
/*
s_snd.bj=bj;
*/
if( !lxs_bz ){
rlxdgs.lxs=0.00;
s_snd.lx=lx-rlxdgs.lxs;
printf("\n line [%d] test lx[%16.2f] \n",__LINE__,s_snd.lx);fflush(stdout);
initlxdgs();
if(rxhfh.czh==4){
if(rcxtzt.yyrq-rxhfh.dqrq<0)
rlxdgs.lxje1=lx;
rlxdgs.lxhj=lx;
}
if ( gen_lxdtxt(rlxdgs,fp,1,g_jzgy) ) {
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"生成利息单文件失败!");
$rollback work;
return -1;
};
}
/**add by lys **/
else
{
s_snd.lx=lx-rlxdgs.lxs;
printf("\n line [%d] test lx[%16.2f] \n",__LINE__,s_snd.lx);fflush(stdout);
initlxdgs();
if(rxhfh.czh==4){
if(rcxtzt.yyrq-rxhfh.dqrq<0)
rlxdgs.lxje1=lx;
rlxdgs.lxhj=lx;
}
if ( gen_lxdtxt(rlxdgs,fp,1,g_jzgy) ) {
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"生成利息单文件失败!");
$rollback work;
return -1;
};
}
/***add end **/
return 0;
}
int dkfh_cl()
{
$struct ffhbc rdkbc;
if(rxhfh.zh[12]=='5'){ /* 贷款销户 */
$select * into $rdkbc from ffhbc where zh=$rxhfh.zh;
if(sqlca.sqlcode){
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"检索分户补充表失败[%d] !",sqlca.sqlcode);
$rollback work;
return -1;
}
/*
if(fabs(rdkbc.sslxlj-rdkbc.yslxlj)>0.005){
s_snd.flag=1;
strcpy(s_snd.errmsg,"应收利息累计不等于实收利息累计 !");
$rollback work;
return -1;
}
$select * into $rbwfh from ffhz3 where jgm=$s_rec.jgm
and zh=$rdkbc.bwzh;
if(sqlca.sqlcode){
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
if(sqlca.sqlcode==100)
strcpy(s_snd.errmsg,"对应表外帐户不存在, 不能销户 !");
else
sprintf(s_snd.errmsg,"检索分户帐失败[%d]!",sqlca.sqlcode);
s_snd.flag=1;
$rollback work;
return -1;
}
*/
if(fhz_dac(rbwfh,rbwfh.dac,2)){
s_snd.flag=1;
strcpy(s_snd.errmsg,"对应表外帐户DAC校验错, 不能销户 !");
return -1;
}
}
return 0;
}
int wyefhxh_cl()
{
$char note[13];
$long counttmp;
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 ("帐户销户","",__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 ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
s_snd.flag=1;
sprintf(s_snd.errmsg,"插入开销户登记簿失败[%d] !",sqlca.sqlcode);
$rollback work;
return -1;
}
/* 支票是否销号 */
$select count(*) into $counttmp from dkhpjdjb1
where zh=$s_rec.xhzh and xhgy=0;
if(sqlca.sqlcode){
errout ("帐户销户","",__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;
}
int zz_qt_cl()
{
long days;
days=0;
$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 ("帐户销户","",__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;
}
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;
}
int add_dxzkhdjb(bj,lx)
double bj;
double lx;
{
strcpy(rdxzkhdjb.zh ,rxhfh.zh);
rdxzkhdjb.gyh = g_jzgy;
rdxzkhdjb.bz = 0 ;
rdxzkhdjb.jyrq = rcxtzt.yyrq ;
if ( s_rec.xhlx == 1 )
rdxzkhdjb.fse = bj;
else
rdxzkhdjb.fse = bj + lx -rlxdgs.lxs;
$insert into dxzkhdjb values ($rdxzkhdjb);
if(sqlca.sqlcode ){
errout ("帐户销户","",__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd.errmsg , "增加销转开户登记簿错[%d]!" ,sqlca.sqlcode );
s_snd.flag=1;
$rollback work;
return -1;
}
return 0;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -