s11010.ec.c

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

			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}
		s_snd1101.lsh=rfdrmx.gylsh;
		rfdrmx.jym=s_rec1101.jym;
		rfdrmx.jyje=fabs(s_rec1101.rfhz.ye);
		rfdrmx.ye=s_rec1101.rfhz.ye;
		rfdrmx.js=0.00;
		strcpy(rfdrmx.pzbz,"1");
		/*******modify by lwy 1999,09,13*********/
		if(strcmp(kh_jgm,s_rec1101.rfhz.jgm)) 
			strcpy(rfdrmx.tdbz,"1");
	   	else
			strcpy(rfdrmx.tdbz,"0");
	     /****************************************/
		rfdrmx.zy=104;
		rfdrmx.dycs=1;
		strcpy(rfdrmx.sqm," ");
		rfdrmx.pzzl=0;
		strcpy(rfdrmx.pzhm," ");
		strcpy(rfdrmx.jdbz,"2");
		rfdrmx.dqyc=s_rec1101.rfhz.dyyh;
		rfdrmx.dqybs=s_rec1101.rfhz.dyhh;
		rfdrmx.pj=0.00;
		rfdrmx.cngy=g_cngy;
		rfdrmx.gy1=g_jzgy;
		get_cur_time( rfdrmx.jysj );
		/******
		$select zh into $xjzh from czdflb where jgm=$s_rec1101.rfhz.jgm 
			and hbh=$s_rec1101.rfhz.hbh and ywzl=13;
		******/
		$select zh into $xjzh from czdflb where jgm=$kh_jgm 
			and hbh=$s_rec1101.rfhz.hbh and ywzl=13;
		if (sqlca.sqlcode) {
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1101.flag=1;
			strcpy ( s_snd1101.errmsg , "自动分录表中无对应现金帐号!");
			$rollback work;
			goto return_back;
		}
		strcpy( rfdrmx.dyzh,xjzh);
		rfdrmx.gy2=0;
		strcpy(rfdrmx.dac,"1");
		strcpy(rfdrmx.zl,s_rec1101.rfhz.zl);
		$insert into fdrmx values($rfdrmx);
		if (sqlca.sqlcode) {
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			sprintf ( s_snd1101.errmsg , "插入当日明细失败[%d]!" , sqlca.sqlcode );
			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}
	
		$select * into $rxjzh from ffhz3 where zh=$xjzh;
		if (sqlca.sqlcode) {
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1101.flag = 1;
			sprintf ( s_snd1101.errmsg , "取现金帐号错[%d]!" , sqlca.sqlcode );
			$rollback work;
			goto return_back;
		}
		zt=zh_jyjc(rxjzh,rfdrmx.jyje,1);
		if(zt){
			strcpy ( s_snd1101.errmsg , g_errmsg );
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}

		rfdrmx.kmh=rxjzh.kmh;
		strcpy(rfdrmx.zh,xjzh);
		rfdrmx.ye=rxjzh.ye+rfdrmx.jyje;

		if((rfdrmx.jyrq>rxjzh.jyrq)&&(rxjzh.zhkz[0]!='0')){
			/*****
			rxjzh.js+=rxjzh.ye*(rfdrmx.jyrq-rxjzh.jyrq);
			******/
			rxjzh.js = get_fhjs ( rxjzh , rfdrmx.jyrq ) ;
			rxjzh.jyrq=rfdrmx.jyrq;
		}
		rfdrmx.js=rxjzh.js;
		rxjzh.ye=rfdrmx.ye;

		strcpy(rfdrmx.jdbz,"1");

		getflag = get_dqhh(2,rxjzh.czcdlx,&rxjzh.dyhh,&rxjzh.dyyh,0);
		if(getflag) {
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1101.flag = 1;
			strcpy(s_snd1101.errmsg,g_errmsg);
			$rollback work;
			goto return_back;
		}

		rfdrmx.dycs=0;
		rfdrmx.dqyc=rxjzh.dyyh;
		rfdrmx.dqybs=rxjzh.dyhh;
		strcpy(rfdrmx.zl,rxjzh.zl);
		strcpy(rfdrmx.zh,s_rec1101.rfhz.zh);

		/************ cancel by zjh 99.4.1 ***
		$insert into fdrmx values($rfdrmx);
		if(sqlca.sqlcode){
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			s_snd1101.flag=sqlca.sqlcode;
			$rollback work;
			goto return_back;
		}
		*************************************/

		strcpy(g_dac,rxjzh.dac);
		if (fhz_dac(rxjzh,rxjzh.dac,1) !=0) {
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			strcpy ( s_snd1101.errmsg , g_errmsg );
			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}

		$update ffhz3 set (ye,js,jyrq,dac)=($rxjzh.ye,$rxjzh.js, $rxjzh.jyrq,$rxjzh.dac) where zh=$xjzh and dac=$g_dac;
		if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			sprintf ( s_snd1101.errmsg , "更新分户帐失败[%d]!" , sqlca.sqlcode );
			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}

		s_snd1101.flag=qx_cl(s_rec1101.rfhz.hbh,rfdrmx.jyje,g_cngy,'1');
		if(s_snd1101.flag){
			errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
			strcpy ( s_snd1101.errmsg , g_errmsg );
			s_snd1101.flag = 1;
			$rollback work;
			goto return_back;
		}
	}

	$select xm into $s_snd1101.gyxm from sgyxxb where gy=$g_jzgy;
	if(sqlca.sqlcode){
		errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		sprintf(s_snd1101.errmsg,"取柜员姓名错[%d]!",sqlca.sqlcode);
		s_snd1101.flag=1;
		$rollback work;
		goto return_back;
	}

	$update sgyxxb set pzbz="0" where gy=$g_jzgy;
	if(sqlca.sqlcode){
		errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
		s_snd1101.flag=13;
		$rollback work;
		goto return_back;
	}

	strcpy(s_snd1101.zh,s_rec1101.rfhz.zh);
		
	$commit work;

return_back:

#ifdef NORMAL
     $close	database;
#endif
printf("flag=[%d],dyhh=[%d],lsh=[%d],zh=[%s],errmsg=[%s],gyxm=[%s]\n",s_snd1101.flag,s_snd1101.dyhh,s_snd1101.lsh,s_snd1101.zh,s_snd1101.errmsg,s_snd1101.gyxm);
	if(s_rec1101.rfhz.zl[0]=='3' && s_snd1101.flag==0 && s_rec1101.rfhz.czcdlx!=DQYBTCZ) 
		sprintf(s_snd1101.errmsg,"%.2f",s_rec1101.rfhz.lfzje);

	if(s_rec1101.rfhz.czcdlx==DQYBTCZ && s_snd1101.flag==0){
		   send_to( argv[1] , argv[2] , _address , (void *)&s_snd1101, filename );
	}
	else {
		   send_to( argv[1] , argv[2] , _address , (void *)&s_snd1101, NULL );
	}
	return 0;
}

ybt_cl(clbz,file)
long clbz;
char *file;
{
	long zhxh,getflag,i,int_mm;
	char checkbit;
	char MY[17],catfile[80],msg[256];
	$short mdy[3];

	if(clbz==1){
		$select * into $rfdqfhbc from fdqfhbc where zh=$s_rec1101.rfhz.dyzh;
		if(sqlca.sqlcode ){
			errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
			if(sqlca.sqlcode!=100)
			sprintf( g_errmsg , "取定期分户补充表错[%d]!",sqlca.sqlcode);
			else
			sprintf( g_errmsg , "无此一本通帐号!");
			return -1;
		}
		switch(rfdqfhbc.bz[0]) {
			case '0':
				break;
			case '1':
			case '2':
				sprintf(g_errmsg,"一本通存折已挂失!");
				return -1;
				break;
			case '3':
				sprintf(g_errmsg,"一本通存折已销户!");
				return -1;
				break;
			default:
				sprintf(g_errmsg,"一本通存折状态错!");
				return -1;
				break;
		}
		if(strcmp(rfdqfhbc.czcdh,s_rec1101.rfhz.czcdh)){
				sprintf(g_errmsg,"一本通存折号不符!");
				return -1;
		}
		/************
		if(strcmp(rfdqfhbc.jgm,s_rec1101.rfhz.jgm)){
				sprintf(g_errmsg,"非本所一本通存折!");
				return -1;
		}
		************/
		rfdqfhbc.dqxh++;
		getflag = get_ybthh(rfdqfhbc.dqxh,DQYBTCZ,&rfdqfhbc.dqyh,&rfdqfhbc.dqhh);
		if(getflag<0) return -1;

		rfdqfhbc.ljhs++;
		strcpy(s_rec1101.rfhz.zhmm,rfdqfhbc.czmm);
		s_rec1101.rfhz.zhkz[4] = rfdqfhbc.bz[1];
		sprintf(s_rec1101.rfhz.czcdh,"%08d",rfdqfhbc.dqxh);
		strcpy(s_rec1101.rfhz.hm,rfdqfhbc.hm);
		strcpy(s_rec1101.rfhz.jgm,rfdqfhbc.jgm);
		s_rec1101.rfhz.czcdlx = rfdqfhbc.czlx;
		s_rec1101.rfhz.dyyh = rfdqfhbc.dqyh;
		s_rec1101.rfhz.dyhh = rfdqfhbc.dqhh;
		$update fdqfhbc set(ljhs,dqxh,dqyh,dqhh)=
			   ($rfdqfhbc.ljhs,$rfdqfhbc.dqxh,$rfdqfhbc.dqyh,$rfdqfhbc.dqhh)
			   where zh=$rfdqfhbc.zh;
		if(sqlca.sqlcode){
			errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
			sprintf( g_errmsg , "更新定期分户补充表错![%d]",sqlca.sqlcode);
			return -1;
		}
	}
	else{
		memset(&rfdqfhbc,0,sizeof(rfdqfhbc));
		if((zhxh=get_zhxh())<=0) return -1;

		checkbit=get_jyw(zhxh,YBT_CODE);
		sprintf(rfdqfhbc.zh,"%09d%c%02d%c",zhxh,checkbit,YBT_CODE,s_rec1101.rfhz.zl[0]);
		
		strcpy(rfdqfhbc.jgm,s_rec1101.rfhz.jgm);
		strcpy(rfdqfhbc.hm,s_rec1101.rfhz.hm);
		rfdqfhbc.ljhs = 1;
		rfdqfhbc.ljxh = 0;
		rfdqfhbc.dqxh = 1;
		rfdqfhbc.dqyh = s_rec1101.rfhz.dyyh;
		rfdqfhbc.dqhh = s_rec1101.rfhz.dyhh;
		rfdqfhbc.kzrq = s_rec1101.rfhz.khrq;
		rfdqfhbc.czlx = DQYBTCZ;
		strcpy(rfdqfhbc.czcdh,s_rec1101.rfhz.czcdh);
		rfdqfhbc.bz[0] = '0';
		rfdqfhbc.bz[1] = s_rec1101.rfhz.zhkz[4];
		memset(MY,0,17);
		sprintf(MY,"000%13s",rfdqfhbc.zh);
		int_mm = atol(s_rec1101.rfhz.zhmm);
		compmm(MY,int_mm,rfdqfhbc.czmm);

		strcpy(s_rec1101.rfhz.dyzh,rfdqfhbc.zh);
		sprintf(s_rec1101.rfhz.czcdh,"%08d",rfdqfhbc.dqxh);
		strcpy(s_rec1101.rfhz.zhmm,rfdqfhbc.czmm);
		s_rec1101.rfhz.czcdlx = rfdqfhbc.czlx;

		$insert into fdqfhbc values($rfdqfhbc);
		if(sqlca.sqlcode){
			errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
			sprintf( g_errmsg , "增加定期分户补充表错![%d]",sqlca.sqlcode);
			return -1;
		}
		
	     if((i=px_del1(atol(rfdqfhbc.czcdh),atol(rfdqfhbc.czcdh),s_rec1101.rfhz.jgm,g_jzgy,s_rec1101.rfhz.czcdlx,rcxtzt.yyrq,s_rec1101.jym))!=0) {
		    return -1;
		}
	}
	sprintf(filename,"easyfile.%05d",g_jzgy);
	sprintf(catfile,"%s/%s",getenv("UDTFILEDIR"),filename);
	if((fp=fopen(catfile,"w"))==NULL){
		strcpy(g_errmsg,"生成明细文件错!");
		return -1;
	}
  	strncpy(s_snd1101.errmsg,rfdqfhbc.zh,14);
	s_snd1101.dyhh = rfdqfhbc.dqhh*100 + rfdqfhbc.dqxh;
	memset(msg,0,256);
	gen_ybtline(msg,s_rec1101.rfhz,'2',rcxtzt.yyrq,104,-1*s_rec1101.rfhz.ye,s_rec1101.rfhz.ll,g_jzgy);
	fprintf(fp,"%s\n",msg);
	fclose(fp);

	/* insert kmzz  */
	memcpy(rzkmzz.jgm,s_rec1101.rfhz.jgm,9);
	rzkmzz.jgm[9]=0;
	rzkmzz.hbh=s_rec1101.rfhz.hbh;
	rzkmzz.kmh=s_rec1101.rfhz.kmh;
	
	$select * from zkmzz where jgm=$rzkmzz.jgm and
		hbh=$rzkmzz.hbh and kmh=$rzkmzz.kmh;

	if((sqlca.sqlcode!=0)&&(sqlca.sqlcode!=SQLNOTFOUND)){
		errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
		sprintf (g_errmsg , "检索科目总帐错[%d]!" , sqlca.sqlcode );
		return -1;
	}

	if(sqlca.sqlcode==SQLNOTFOUND){
	rzkmzz.ye=rzkmzz.jye=rzkmzz.js=rzkmzz.jjs=0.00;
	rzkmzz.rcye=rzkmzz.rcjye=rzkmzz.rjfse=rzkmzz.rdfse=0.00;
	rzkmzz.rjbs=rzkmzz.rdbs=0;
	rzkmzz.ycjs=rzkmzz.ycjjs=rzkmzz.ycye=rzkmzz.ycjye=rzkmzz.yjfse=rzkmzz.ydfse=0.00;
	rzkmzz.yjbs=rzkmzz.ydbs=0;
	rzkmzz.jcjs=rzkmzz.jcjjs=rzkmzz.jcye=rzkmzz.jcjye=rzkmzz.jjfse=rzkmzz.jdfse=0.00;
	rzkmzz.jjbs=rzkmzz.jdbs=0;
	rzkmzz.ncjs=rzkmzz.ncjjs=rzkmzz.ncye=rzkmzz.ncjye=rzkmzz.njfse=rzkmzz.ndfse=0.00;
	rzkmzz.njbs=rzkmzz.ndbs=0;
	rzkmzz.rkhs=rzkmzz.ykhs=rzkmzz.jkhs=rzkmzz.nkhs=rzkmzz.ljkhs=1;
	rzkmzz.rxhs=rzkmzz.yxhs=rzkmzz.jxhs=rzkmzz.nxhs=rzkmzz.ljxhs=0;
	memcpy(rzkmzz.yef,s_rec1101.rfhz.yef,1);    
	rzkmzz.yef[1]=0;
	rzkmzz.fsrq=rcxtzt.yyrq;  
	rjulmdy(rcxtzt.yyrq,mdy);
	rzkmzz.yf=mdy[0];
	rzkmzz.nf=mdy[2];
	$insert into zkmzz values($rzkmzz);
	if(sqlca.sqlcode!=0){
		errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
		sprintf ( g_errmsg , "插入科目总帐失败[%d]!" , sqlca.sqlcode );
		return -1;
	}
	}
	else{
		$update zkmzz set (rkhs,ykhs,jkhs,nkhs,ljkhs)=
			(rkhs+1,ykhs+1,jkhs+1,nkhs+1,ljkhs+1) 
			where jgm=$rzkmzz.jgm and
			hbh=$rzkmzz.hbh and kmh=$rzkmzz.kmh;
		if(sqlca.sqlcode || sqlca.sqlerrd[2]!=1){
			errout("现金开户",file,__FILE__,__LINE__,sqlca.sqlcode);
			sprintf ( g_errmsg , "更新科目总帐失败[%d]!" ,sqlca.sqlcode );
			return -1;
		}
	}
	return 0;
}