s13010.ec.c

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

fflush(stdout);

		rffhz2.ye=rffhz2.ye-s_rec.je; 	
		if (td_flag!=0)	rffhz2.tcje=rffhz2.tcje+s_rec.je;
		/***************
		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_snd.flag = 1;
			strcpy(s_snd.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

		rffhz2.zqcs=rffhz2.zqcs+1; 	
		rffhz2.jyrq=zxrq; 	
		strcpy(s_snd.mc,rffhz2.hm);
		if (td_flag!=0)	s_snd.kmh=TDKMH;
			else s_snd.kmh=rffhz2.kmh;       


		s_snd.ye=rffhz2.ye;
		fhz_dac(rffhz2,rffhz2.dac,1); 

printf("qqqq bbbb js[%lf]\n ", rffhz2.js);
fflush(stdout);

		$update ffhz2 set (ye,tcje,js,jyrq,zqcs,dyyh,dyhh,dac,wdzxs)
			=($rffhz2.ye,$rffhz2.tcje,$rffhz2.js,$rffhz2.jyrq,$rffhz2.zqcs,$rffhz2.dyyh,$rffhz2.dyhh,$rffhz2.dac,$rffhz2.wdzxs) 
			where zh=$s_rec.zh and dac=$g_dac;
		if (sqlca.sqlcode || sqlca.sqlerrd[2]!=1)   {
			sprintf(s_snd.errmsg,"更新分户帐错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
			errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd.flag=68;
			$rollback work;
			goto  return_back;
		}
		/****** add by zwq 20000428 **********/
		memcpy(&rfh,&rffhz2,sizeof(rffhz2));
		/****** 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_rec.jgm,10);
		strncpy(rfdrmx.jgm,rffhz2.jgm,10);
		rtoday(&rfdrmx.xtrq);
		rfdrmx.jyrq=zxrq;
		rfdrmx.zxlsh=zxlsh;
		rfdrmx.gylsh=gy_lsh;
		rfdrmx.jym=s_rec.jym;
		rfdrmx.jyje=s_rec.je;
		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_rec.zy;
		rfdrmx.dycs=0;
		rfdrmx.pzzl=s_rec.pzzl;
		strncpy(rfdrmx.pzhm,s_rec.pzhm,9);
		rfdrmx.jdbz[0]='2';
		rfdrmx.dqyc=rffhz2.dyyh;
		rfdrmx.dqybs=rffhz2.dyhh;
		rfdrmx.pj=0.00;
		/* modify by yxb 99.4.1 ***********/
		rfdrmx.cngy=g_cngy;
		rfdrmx.gy1=g_jzgy;
		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';
		strcpy( rfdrmx.dyzh,"   " );

		$insert into fdrmx values($rfdrmx);
		break;
	case '3':
		if(fhz_dac(rffhz3,rffhz3.dac,2)){
			strcpy(s_snd.errmsg,"帐户已被非法修改!");
			s_snd.flag=27; /*分户DAC错*/
			$rollback work;
			goto return_back;
		}
		strncpy(g_dac,rffhz3.dac,17);
		if(((int)(s_rec.je*100)%(int)(rffhz3.lfzje*100))!=0) {
			strcpy(s_snd.errmsg,"零整存入金额有误!");
			s_snd.flag=31; /*零整存入金额有误*/
			$rollback work;
			goto return_back;
		}
		if(zxrq>=rffhz3.dqrq) {
			strcpy(s_snd.errmsg,"零整定期已到期!");
			s_snd.flag=32; /*已到期*/
			$rollback work;
			goto return_back;
		}
		if(fabs(rffhz3.ye)==((int)((rffhz3.dqrq-rffhz3.khrq)/30))*rffhz3.lfzje) {
			strcpy(s_snd.errmsg,"零整定期已存满金额,不许再存!");
			s_snd.flag=33; /*已存满金额*/
			$rollback work;
			goto return_back;
		}
		if(fabs(rffhz3.ye-s_rec.je)>((int)((rffhz3.dqrq-rffhz3.khrq)/30)*rffhz3.lfzje)) {
			strcpy(s_snd.errmsg,"零整累计本次存入已超过总存金额!");
			s_snd.flag=34; /*超过总存入金额*/
			$rollback work;
			goto return_back;
		}

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



/****________
		if ( ((rffhz3.dyyh-1)*rszdxx.mybs+rffhz3.dyhh+1)>rszdxx.mybs*(rszdxx.ys) ) {
			strcpy(s_snd.errmsg,"请先更换存折!");
			s_snd.flag=25; *请先更换存折*
			$rollback work;
			goto  return_back;
		}
		if (rffhz3.wdzxs>=MAXWDZBS)	{
			strcpy(s_snd.errmsg,"未登折项超过20笔，请先补登折!");
			s_snd.flag=11; *未登折项数超过20笔,请先补登折*
			$rollback work;
			goto  return_back;
		}
		*********_________******/

		getflag = get_dqhh(1,rffhz3.czcdlx,&rffhz3.dyhh,&rffhz3.dyyh,0);
		if(getflag!=0 && getflag != 1) {
			s_snd.flag = 1;
			strcpy(s_snd.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}
		if( getflag == 1 ){
				strcpy(s_snd.errmsg,"请先更换存折!");
				s_snd.flag=25;
				$rollback work;
				goto  return_back;
		}
			
		/*delete at 19991112
		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);

printf("qqq 1 js [%lf]\n", rffhz3.js);
fflush(stdout);

		rffhz3.ye=rffhz3.ye-s_rec.je; 	
		if (td_flag!=0)	rffhz3.tcje=rffhz3.tcje + s_rec.je;
		rffhz3.jyrq=zxrq; 	
		rffhz3.zqcs=rffhz3.zqcs+1; 	
		rffhz3.wdzxs=rffhz3.wdzxs+1; 	
		strcpy(s_snd.mc,rffhz3.hm);
		if (td_flag!=0)	s_snd.kmh=TDKMH;
			else s_snd.kmh=rffhz3.kmh;

		
		s_snd.ye=rffhz3.ye;
		/*****************
		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_snd.flag = 1;
			strcpy(s_snd.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

		fhz_dac(rffhz3,rffhz3.dac,1); 

		$update ffhz3 set (ye,tcje,js,jyrq,zqcs,wdzxs,dyyh,dyhh,dac,tzed,xycked)
			=($rffhz3.ye,$rffhz3.tcje,$rffhz3.js,$rffhz3.jyrq,$rffhz3.zqcs,$rffhz3.wdzxs,$rffhz3.dyyh,$rffhz3.dyhh,$rffhz3.dac,$rffhz3.tzed,$rffhz3.xycked) 
			where zh=$s_rec.zh and dac=$g_dac;
		if (sqlca.sqlcode || sqlca.sqlerrd[2]!=1)   {
			sprintf(s_snd.errmsg,"更新分户帐错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
			errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd.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_rec.jgm,10);
		strncpy(rfdrmx.jgm,rffhz3.jgm,10);
		rtoday(&rfdrmx.xtrq);
		rfdrmx.jyrq=zxrq;
		rfdrmx.zxlsh=zxlsh;
		rfdrmx.gylsh=gy_lsh;
		rfdrmx.jym=s_rec.jym;
		rfdrmx.jyje=s_rec.je;
		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_rec.zy;
		rfdrmx.dycs=0;
		rfdrmx.pzzl=s_rec.pzzl;
		strncpy(rfdrmx.pzhm,s_rec.pzhm,9);
		rfdrmx.jdbz[0]='2';
		rfdrmx.dqyc=rffhz3.dyyh;
		rfdrmx.dqybs=rffhz3.dyhh;
		rfdrmx.pj=0.00;
		/* modify by yxb 99.4.1 ***********/
		rfdrmx.cngy=g_cngy;
		rfdrmx.gy1=g_jzgy;
		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);
		break;
	default:  s_snd.flag=-999;
		  $rollback work;
		  goto return_back;
	}
	if (sqlca.sqlcode)   {
		sprintf(s_snd.errmsg,"增加当日明细错[%d]!",sqlca.sqlcode);
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}

	/**** close by zjh 
	$select * into $rczdflb from czdflb 
		where jgm=$s_rec.jgm and hbh=$hbh and ywzl=13;
	if (sqlca.sqlcode)   {
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}
	***************/

	$select * into $rffhz3 from ffhz3 where zh=$rczdflb.zh;
	if (sqlca.sqlcode)   {
		sprintf(s_snd.errmsg,"取现金分户信息错[%d]!",sqlca.sqlcode);
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}
	if(fhz_dac(rffhz3,rffhz3.dac,2)){
		strcpy(s_snd.errmsg,"现金分户已被非法修改!");
		s_snd.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_snd.errmsg,"取现金户折单信息错[%d]!",sqlca.sqlcode);
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}

	/*modi at 19991112
	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);
printf("qqq 2 js [%lf]\n", rffhz3.js);
fflush(stdout);

	rffhz3.ye=rffhz3.ye+s_rec.je; 	
	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_snd.flag = 1;
		strcpy(s_snd.errmsg,g_errmsg);
		$rollback work;
		goto return_back;
	}
printf("qqq tttt 2 js [%lf]\n", rffhz3.js);
fflush(stdout);

	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;
******************/
printf("qqq tttt 3 js [%lf]\n", rffhz3.js);
fflush(stdout);
	
	$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_snd.errmsg,"更新现金分户帐错[%d][%d]!",sqlca.sqlcode,sqlca.sqlerrd[2]);
		errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd.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_rec.jgm,10);
	strncpy(rfdrmx.jgm,rffhz3.jgm,10);
	rtoday(&rfdrmx.xtrq);
	rfdrmx.jyrq=zxrq;
	rfdrmx.zxlsh=zxlsh;
	rfdrmx.gylsh=gy_lsh;
	rfdrmx.jym=s_rec.jym;
	rfdrmx.jyje=s_rec.je;
	rfdrmx.ye=rffhz3.ye;
	rfdrmx.js=rffhz3.js;
	rfdrmx.pzbz[0]='1';
	rfdrmx.tdbz[0]='0';
	rfdrmx.zy=s_rec.zy;
	rfdrmx.dycs=0;
	rfdrmx.pzzl=s_rec.pzzl;
	strncpy(rfdrmx.pzhm,s_rec.pzhm,9);
	rfdrmx.jdbz[0]='1';
	rfdrmx.dqyc=rffhz3.dyyh;
	rfdrmx.dqybs=rffhz3.dyhh;
	rfdrmx.pj=0.00;
	/**** modify by zjh 99.4.1 *******/
	rfdrmx.cngy=g_cngy;
	rfdrmx.gy1=g_jzgy;
	get_cur_time( rfdrmx.jysj);
	strcpy( rfdrmx.dyzh,s_rec.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_snd.flag=sqlca.sqlcode;
		$rollback work;
		goto  return_back;
	}
	********/

	s_snd.flag = qx_cl(rffhz3.hbh,s_rec.je,g_cngy,'1');
	if ( s_snd.flag ){
		strcpy(s_snd.errmsg,g_errmsg);
		$rollback work;
		goto  return_back;
	}
	/******************** add by zwq 20000428 ***************/
	if ((s_rec.zh[12]=='1'||s_rec.zh[12]=='2')&&s_rec.zh[11]=='1'&&rfh.kbz>0){
		/*errout ("无折存款",argv[2],__FILE__,__LINE__,sqlca.sqlcode);*/
		if ( chk_kfzh(rfh) ==1 ){
		s_snd.flag=999;
		sprintf(s_snd.errmsg,"此户欠费且足额,请处理");
		}
	}
	/******************** add by zwq 20000428 ***************/

	$commit work;

return_back:

#ifdef NORMAL
	$close	database;
#endif
printf("s_snd.ye=%16.2f\n",s_snd.ye);fflush(stdout);
	send_to(argv[1],argv[2],_address,&s_snd,NULL);
}
/******
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_rec.je;
	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;
}
*******/