s13030.ec.c

源程序是银行综合业务平台中基本业务里的其中几个子业务的c语言的源码

			$rollback work;
			goto 	return_back;
		}	
********/
		if (rffhz2.wdzxs!=0)  {
			s_snd1303.wdzxs=rffhz2.wdzxs;
			i=get_wdz(fpw,s_rec1303.zh,rffhz2.wdzxs,rffhz2.czcdlx);
			if (i!=0)	{
				strcpy(s_snd1303.errmsg,g_errmsg);
				s_snd1303.flag=1; /*未登折有错*/
				$rollback work;
				goto  return_back;
			}
		}
		s_snd1303.dyhh=(rffhz2.dyyh-1)*rszdxx.mybs+rffhz2.dyhh-rffhz2.wdzxs+1;
		s_snd1303.dzlx=rffhz2.czcdlx;
		/*
		if (rffhz2.zhkz[0]!='0')		
			rffhz2.js=rffhz2.js+rffhz2.ye*(zxrq-rffhz2.jyrq); 	
		*/
		if (rffhz2.zhkz[0]!='0')		
			rffhz2.js=get_fhjs(rffhz2,zxrq);

		rffhz2.ye=rffhz2.ye-s_rec1303.fse; 	
		if (td_flag!=0)	rffhz2.tcje=rffhz2.tcje + s_rec1303.fse;
		rffhz2.jyrq=zxrq; 	
		rffhz2.zqcs=rffhz2.zqcs+1; 	
		rffhz2.wdzxs=0; 	
		/**************
		if (rffhz2.dyhh+1>rszdxx.mybs){
			rffhz2.dyyh=rffhz2.dyyh+1;
			rffhz2.dyhh=1;
		}
		else	rffhz2.dyhh=rffhz2.dyhh+1;
		******************/

		getflag = get_dqhh(2,rffhz2.czcdlx,&rffhz2.dyhh,&rffhz2.dyyh,0);
		if(getflag<0) {
			s_snd1303.flag = 1;
			strcpy(s_snd1303.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

		strcpy(s_snd1303.mc,rffhz2.hm);
		if (td_flag!=0)	s_snd1303.kmh=TDKMH;
			else	s_snd1303.kmh=rffhz2.kmh;               
		s_snd1303.ye=rffhz2.ye; 	
		fhz_dac(rffhz2,rffhz2.dac,1); 

		/***add by lwy****/
		rffhz2.bsxj = get_czye(rffhz2.czh,rffhz2.wdzxs,rffhz2.ye,rffhz2.bsxj);

		$update ffhz2 set (ye,tcje,bsxj,js,jyrq,zqcs,wdzxs,dyyh,dyhh,dac)
			=($rffhz2.ye,$rffhz2.tcje,$rffhz2.bsxj,$rffhz2.js,$rffhz2.jyrq,$rffhz2.zqcs,$rffhz2.wdzxs,$rffhz2.dyyh,$rffhz2.dyhh,$rffhz2.dac) 
			where zh=$s_rec1303.zh and dac=$g_dac;
		if (sqlca.sqlcode || sqlca.sqlerrd[2]!=1)   {
			sprintf(s_snd1303.errmsg,"更新分户错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
			errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1303.flag=68;
			$rollback work;
			goto  return_back;
		}
		/************ add by zwq 20000428 **********/
		memcpy(&rfh,&rffhz1,sizeof(rffhz1));
		/************ add by zwq 20000428 **********/

		memset(&rfdrmx,0,sizeof(rfdrmx));
		rfdrmx.kmh=rffhz2.kmh;
		rfdrmx.hbh=rffhz2.hbh;
		strncpy(rfdrmx.zh,rffhz2.zh,14);
		strncpy(rfdrmx.dljg,s_rec1303.jgm,10);
		strncpy(rfdrmx.jgm,rffhz2.jgm,10);
		rtoday(&rfdrmx.xtrq);
		rfdrmx.jyrq=zxrq;
		rfdrmx.zxlsh=zxlsh;
		rfdrmx.gylsh=gy_lsh;
		rfdrmx.jym=s_rec1303.jym;
		rfdrmx.jyje=s_rec1303.fse;
		rfdrmx.ye=rffhz2.ye;
		rfdrmx.js=rffhz2.js;
		rfdrmx.pzbz[0]='1';
		if (td_flag!=0)	rfdrmx.tdbz[0]='1';
		else	rfdrmx.tdbz[0]='0';
		rfdrmx.zy=s_rec1303.zy;
		rfdrmx.dycs=1;
		rfdrmx.pzzl=0;
		strcpy(rfdrmx.pzhm,"00000000");
		rfdrmx.jdbz[0]='2';
		rfdrmx.dqyc=rffhz2.dyyh;
		rfdrmx.dqybs=rffhz2.dyhh;
		rfdrmx.pj=0.00;
		rfdrmx.gy1=g_jzgy;
		rfdrmx.cngy=g_cngy;	
		get_cur_time( rfdrmx.jysj );
		strcpy( rfdrmx.dyzh,rczdflb.zh );
		/***** end ****/
		rfdrmx.gy2=0;
		rfdrmx.zl[0]=rffhz2.zl[0];
		strcpy(rfdrmx.sqm, " " );
		rfdrmx.dac[0]='1';

		$insert into fdrmx values($rfdrmx);
		if (sqlca.sqlcode)   {
			sprintf(s_snd1303.errmsg,"增加当日明细错[%d]!",sqlca.sqlcode);
			errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1303.flag=sqlca.sqlcode;
			$rollback work;
			goto  return_back;
		}
		rfdrmx.ye=0-rfdrmx.ye;
		gen_czline(tmpnr,rfdrmx.jdbz[0],rfdrmx.jyrq,rfdrmx.zy,rfdrmx.jyje,rfdrmx.ye,rfdrmx.gy1,rffhz2.czcdlx);
		fprintf(fpw,"%s\n",tmpnr);
		break;
	case '3':
		if(fhz_dac(rffhz3,rffhz3.dac,2)){
			strcpy(s_snd1303.errmsg,"帐户被非法改动过!");
			s_snd1303.flag=27; /*分户DAC错*/
			$rollback work;
			goto return_back;
		}
		strncpy(g_dac,rffhz3.dac,17);
		if( rffhz3.czh != 60 && ((int)(s_rec1303.fse*100)%(int)(rffhz3.lfzje*100))!=0) {
			strcpy(s_snd1303.errmsg,"零整定期存入金额不符!");
			s_snd1303.flag=31; /*零整存入金额有误*/
			$rollback work;
			goto return_back;
		}
		if(zxrq>=rffhz3.dqrq) {
			strcpy(s_snd1303.errmsg,"零整定期已到期!");
			s_snd1303.flag=32; /*已到期*/
			$rollback work;
			goto return_back;
		}
		if( rffhz3.czh != 60 && fabs(rffhz3.ye)==((int)((rffhz3.dqrq-rffhz3.khrq)/30))*rffhz3.lfzje) {
			strcpy(s_snd1303.errmsg,"零整定期已存满金额,不需再存!");
			s_snd1303.flag=33; /*已存满金额*/
			$rollback work;
			goto return_back;
		}
		if( rffhz3.czh != 60 && fabs(rffhz3.ye-s_rec1303.fse)>((int)((rffhz3.dqrq-rffhz3.khrq)/30)*rffhz3.lfzje)) {
			strcpy(s_snd1303.errmsg,"累计存入金额已超过总金额!");
			s_snd1303.flag=34; /*超过总存入金额*/
			$rollback work;
			goto return_back;
		}

		$select * into $rszdxx from szdxx where zdlx=$rffhz3.czcdlx;
		if (sqlca.sqlcode)   {
			sprintf(s_snd1303.errmsg,"取折单信息错[%d]!",sqlca.sqlcode);
			errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1303.flag=sqlca.sqlcode;
			$rollback work;
			goto  return_back;
		}

/*******************
		if ( ((rffhz3.dyyh-1)*rszdxx.mybs+rffhz3.dyhh+1)>(rszdxx.mybs*rszdxx.ys) ) {
			strcpy(s_snd1303.errmsg,"请先更换存折!");
			s_snd1303.flag=25;
			$rollback work;
			goto  return_back;
		}
******************/

		getflag = get_dqhh(1,rffhz3.czcdlx,&rffhz3.dyhh,&rffhz3.dyyh,0);
		if(getflag<0) {
			s_snd1303.flag = 1;
			strcpy(s_snd1303.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}
		if(getflag) {
			strcpy(s_snd1303.errmsg,"请先更换存折!");
			s_snd1303.flag=25;
			$rollback work;
			goto  return_back;
		}

		if (rffhz3.wdzxs!=0)  {
			s_snd1303.wdzxs=rffhz3.wdzxs;
			i=get_wdz(fpw,s_rec1303.zh,rffhz3.wdzxs,rffhz3.czcdlx);
			if (i!=0)	{
				strcpy(s_snd1303.errmsg,g_errmsg);
				s_snd1303.flag=1; /*未登折有错*/
				$rollback work;
				goto  return_back;
			}
		}
		s_snd1303.dyhh=(rffhz3.dyyh-1)*rszdxx.mybs+rffhz3.dyhh-rffhz3.wdzxs+1;
		s_snd1303.dzlx=rffhz3.czcdlx;

		/*
		if (rffhz3.zhkz[0]!='0')		
			rffhz3.js=rffhz3.js+rffhz3.ye*(zxrq-rffhz3.jyrq); 	
		*/
		if (rffhz3.zhkz[0]!='0')		
			rffhz3.js=get_fhjs(rffhz3,zxrq);

		rffhz3.ye=rffhz3.ye-s_rec1303.fse; 	
		if (td_flag!=0)	rffhz3.tcje=rffhz3.tcje + s_rec1303.fse;
		rffhz3.jyrq=zxrq; 	
		rffhz3.zqcs=rffhz3.zqcs+1; 	
		/**********************
		if (rffhz3.dyhh+1>rszdxx.mybs)	{
			rffhz3.dyyh=rffhz3.dyyh+1;
			rffhz3.dyhh=1;
		}
		else	rffhz3.dyhh=rffhz3.dyhh+1;
		**********************/

		getflag = get_dqhh(2,rffhz3.czcdlx,&rffhz3.dyhh,&rffhz3.dyyh,0);
		if(getflag<0) {
			s_snd1303.flag = 1;
			strcpy(s_snd1303.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

		rffhz3.wdzxs=0; 	
		strcpy(s_snd1303.mc,rffhz3.hm);
		if (td_flag!=0)	s_snd1303.kmh=TDKMH;
			else	s_snd1303.kmh=rffhz3.kmh;                
		s_snd1303.ye=rffhz3.ye; 	
		fhz_dac(rffhz3,rffhz3.dac,1); 

		$update ffhz3 set (ye,tcje,js,jyrq,zqcs,wdzxs,dyyh,dyhh,dac)
			=($rffhz3.ye,$rffhz3.tcje,$rffhz3.js,$rffhz3.jyrq,$rffhz3.zqcs,$rffhz3.wdzxs,$rffhz3.dyyh,$rffhz3.dyhh,$rffhz3.dac) 
			where zh=$s_rec1303.zh and dac=$g_dac;
		if (sqlca.sqlcode || sqlca.sqlerrd[2]!=1)   {
			sprintf(s_snd1303.errmsg,"更新分户错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
			errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1303.flag=68;
			$rollback work;
			goto  return_back;
		}

		memset(&rfdrmx,0,sizeof(rfdrmx));
		rfdrmx.kmh=rffhz3.kmh;
		rfdrmx.hbh=rffhz3.hbh;
		strncpy(rfdrmx.zh,rffhz3.zh,14);
		strncpy(rfdrmx.dljg,s_rec1303.jgm,10);
		strncpy(rfdrmx.jgm,rffhz3.jgm,10);
		rtoday(&rfdrmx.xtrq);
		rfdrmx.jyrq=zxrq;
		rfdrmx.zxlsh=zxlsh;
		rfdrmx.gylsh=gy_lsh;
		rfdrmx.jym=s_rec1303.jym;
		rfdrmx.jyje=s_rec1303.fse;
		rfdrmx.ye=rffhz3.ye;
		rfdrmx.js=rffhz3.js;
		rfdrmx.pzbz[0]='1';
		if (td_flag!=0)	rfdrmx.tdbz[0]='1';
		else	rfdrmx.tdbz[0]='0';
		rfdrmx.zy=s_rec1303.zy;
		rfdrmx.dycs=1;
		rfdrmx.pzzl=0;
		strcpy(rfdrmx.pzhm,"00000000");
		rfdrmx.jdbz[0]='2';
		rfdrmx.dqyc=rffhz3.dyyh;
		rfdrmx.dqybs=rffhz3.dyhh;
		rfdrmx.pj=0.00;
		rfdrmx.gy1=g_jzgy;
		rfdrmx.cngy=g_cngy;
		get_cur_time( rfdrmx.jysj );
		strcpy( rfdrmx.dyzh,rczdflb.zh );
		/***** end ****/
		rfdrmx.gy2=0;
		rfdrmx.zl[0]=rffhz3.zl[0];
		strcpy(rfdrmx.sqm, " " );
		rfdrmx.dac[0]='1';

		$insert into fdrmx values($rfdrmx);
		if (sqlca.sqlcode)   {
			sprintf(s_snd1303.errmsg,"增加当日明细错[%d]!",sqlca.sqlcode);
			errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1303.flag=sqlca.sqlcode;
			$rollback work;
			goto  return_back;
		}
		rfdrmx.ye=0-rfdrmx.ye;
		gen_czline(tmpnr,rfdrmx.jdbz[0],rfdrmx.jyrq,rfdrmx.zy,rfdrmx.jyje,rfdrmx.ye,rfdrmx.gy1,rffhz3.czcdlx);
		fprintf(fpw,"%s\n",tmpnr);
		break;
	default:  
		  strcpy(s_snd1303.errmsg,"非法帐户!");
		  s_snd1303.flag=-999;
		  $rollback work;
		  goto return_back;
	}

	$select * into $rffhz3 from ffhz3 where zh=$rczdflb.zh;
	if (sqlca.sqlcode)   {
		if(sqlca.sqlcode != 100)
			sprintf(s_snd1303.errmsg,"取现金帐户信息错[%d]!",sqlca.sqlcode);
		else
			strcpy(s_snd1303.errmsg,"无现金帐户!");
		errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd1303.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}
	if(fhz_dac(rffhz3,rffhz3.dac,2)){
		strcpy(s_snd1303.errmsg,"现金帐户被非法改动过!");
		s_snd1303.flag=27; /*现金户DAC错*/
		$rollback work;
		goto return_back;
	}
	strncpy(g_dac,rffhz3.dac,17);
	$select * into $rszdxx from szdxx where zdlx=$rffhz3.czcdlx;
	if (sqlca.sqlcode)   {
		sprintf(s_snd1303.errmsg,"取现金帐户折单信息错[%d]!",sqlca.sqlcode);
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd1303.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}

	/*
	if (rffhz3.zhkz[0]!='0')		
		rffhz3.js=rffhz3.js+rffhz3.ye*(zxrq-rffhz3.jyrq); 	
	*/
	if (rffhz3.zhkz[0]!='0')		
		rffhz3.js=get_fhjs(rffhz3,zxrq);

	rffhz3.ye=rffhz3.ye+s_rec1303.fse; 	
	rffhz3.zqcs=rffhz3.zqcs+1; 	
	/******************
	if (rffhz3.dyhh+1>rszdxx.mybs)	{
		rffhz3.dyyh=rffhz3.dyyh+1;
		rffhz3.dyhh=1;
	}
	else	rffhz3.dyhh=rffhz3.dyhh+1;
	********************/

		getflag = get_dqhh(2,rffhz3.czcdlx,&rffhz3.dyhh,&rffhz3.dyyh,0);
		if(getflag<0) {
			s_snd1303.flag = 1;
			strcpy(s_snd1303.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

	rffhz3.wdzxs=0; 	
	rffhz3.jyrq=zxrq; 	
	fhz_dac(rffhz3,rffhz3.dac,1); 

/*****************update by wh 99.4.19
	$update ffhz3 set (ye,js,jyrq,zqcs,dyyh,dyhh,dac)
		=($rffhz3.ye,$rffhz3.js,$rffhz3.jyrq,$rffhz3.zqcs,$rffhz3.dyyh,$rffhz3.dyhh,$rffhz3.dac) 
		where zh=$rczdflb.zh and dac=$g_dac;
********************/
	$update ffhz3 set (ye,js,jyrq,zqcs,dac)
		=($rffhz3.ye,$rffhz3.js,$rffhz3.jyrq,$rffhz3.zqcs,$rffhz3.dac) 
		where zh=$rczdflb.zh and dac=$g_dac;
	if (sqlca.sqlcode || sqlca.sqlerrd[2]!=1)   {
		sprintf(s_snd1303.errmsg,"更新分户错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
		errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd1303.flag=68;
		$rollback work;
		goto  return_back;
	}
	memset(&rfdrmx,0,sizeof(rfdrmx));
	rfdrmx.kmh=rffhz3.kmh;
	rfdrmx.hbh=rffhz3.hbh;
	strncpy(rfdrmx.zh,rffhz3.zh,14);
	strncpy(rfdrmx.dljg,s_rec1303.jgm,10);
	strncpy(rfdrmx.jgm,rffhz3.jgm,10);
	rtoday(&rfdrmx.xtrq);
	rfdrmx.jyrq=zxrq;
	rfdrmx.zxlsh=zxlsh;
	rfdrmx.gylsh=gy_lsh;
	rfdrmx.jym=s_rec1303.jym;
	rfdrmx.jyje=s_rec1303.fse;
	rfdrmx.ye=rffhz3.ye;
	rfdrmx.js=rffhz3.js;
	rfdrmx.pzbz[0]='1';
	rfdrmx.tdbz[0]='0';
	rfdrmx.zy=s_rec1303.zy;
	rfdrmx.dycs=1;
	rfdrmx.pzzl=0;
	strcpy(rfdrmx.pzhm,"00000000");
	rfdrmx.jdbz[0]='1';
	rfdrmx.dqyc=rffhz3.dyyh;
	rfdrmx.dqybs=rffhz3.dyhh;
	rfdrmx.pj=0.00;
	rfdrmx.gy1=g_jzgy;
	rfdrmx.cngy=g_cngy;
	get_cur_time( rfdrmx.jysj );
	strcpy( rfdrmx.dyzh,s_rec1303.zh );
	/***** end ****/
	rfdrmx.gy2=0;
	rfdrmx.zl[0]=rffhz3.zl[0];
	strcpy(rfdrmx.sqm, " " );
	rfdrmx.dac[0]='1';

	/**** cancel by zjh 99.4.1 *****
	$insert into fdrmx values($rfdrmx);
	if (sqlca.sqlcode)   {
		errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd1303.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}
	------------------------------**/
	s_snd1303.flag=qx_cl(rffhz3.hbh,s_rec1303.fse,g_cngy,'1');
	if (s_snd1303.flag){
		strcpy(s_snd1303.errmsg,g_errmsg);
		$rollback work;
		goto return_back;
	}
	/******************** add by zwq 20000428 ***************/
	if ((s_rec1303.zh[12]=='1'||s_rec1303.zh[12]=='2')&&s_rec1303.zh[11]=='1'&&rfh.kbz>0){
		/*errout ("有折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);*/
		if ( chk_kfzh(rfh) == 1 ){
		s_snd1303.flag=999;
		sprintf(s_snd1303.errmsg,"此户欠费且足额,请处理");
		}
	}
	/******************** add by zwq 20000428 ***************/

	$commit work;

return_back:
#ifdef NORMAL
	$close	database;
#endif
	fclose(fpw);
	send_to(argv[1],argv[2],_address,&s_snd1303,sendfile);
	return 0;
return_back1:
#ifdef NORMAL
	$close	database;
#endif
	send_to(argv[1],argv[2],_address,&s_snd1303,NULL);
	return 0;
}

/******
init_dqxdjb()
{
		rdqxdjb.wxbh=rdwxdjb.wxbh;
		strncpy(rdqxdjb.jgm,rdwxdjb.jgm,10);
		rdqxdjb.hbh=rffhz3.hbh;
		rdqxdjb.sggy=g_cngy;
		rdqxdjb.rq=rcxtzt.yyrq; 
		rdqxdjb.ye=s_rec1303.fse;
		rdqxdjb.zt[0]='0';
		rdqxdjb.qb1zs=0;
		rdqxdjb.qb2zs=0;
		rdqxdjb.qb3zs =0;
		rdqxdjb.qb4zs=0;
		rdqxdjb.qb5zs=0;
		rdqxdjb.qb6zs=0;
		rdqxdjb.qb7zs=0;
		rdqxdjb.qb8zs=0;
		rdqxdjb.qb9zs=0;
		rdqxdjb.qb10zs=0;
		rdqxdjb.qb11zs=0;
		rdqxdjb.qb12zs=0;
		rdqxdjb.qb13zs=0;
		rdqxdjb.qb14zs=0;
		rdqxdjb.qb15zs=0;
		rdqxdjb.qb16zs=0;
		rdqxdjb.qb17zs=0;
		rdqxdjb.qb18zs=0;
		rdqxdjb.qb19zs=0;
		rdqxdjb.qb20zs=0;
		rdqxdjb.ws=0.0;   
		return 0;
}
******/