svrf303.ec

一个银行业务的程序

#include "../incl/serverpub.h"
$include sqlca;

/*
 *	功能：生成ID
 *	日期：2002/12/27
 *	参数：
 */

/**	修改记录
	2003/01/24：argv[0]网点号为9位，生成ID时加0,拼成10位
*/

SvrF303(int argc,char *argv[])
{
	$char	e_cSql[200],e_cBankNo[11];
	$long	e_lCount=0;
	char	cColName[20],cId[17],cRetCode[4];
	int	i,iFlag=0;

	if(argc<2) return 0;
	iFlag=atoi(argv[1]);
#ifdef QDCS
	for(i=0;i<argc;i++)
		WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif
	memset(cColName,0,sizeof(cColName));
	switch(iFlag){
		case 1://企业
		case 3://发展商
			strcpy(cColName,"ent_id");break;
		case 2://个人
			strcpy(cColName,"per_id");break;
		case 4://贷款申请
			strcpy(cColName,"loan_apply");break;
		case 5://农户贷款证
			strcpy(cColName,"loan_card");break;
		case 6://联保小组
			strcpy(cColName,"group");break;
		case 7://抵贷资产登记申请
			strcpy(cColName,"register");break;
		case 8://抵贷资产处置申请
			strcpy(cColName,"handle");break;
		case 9://黑名单申请
			strcpy(cColName,"blacklist");break;
	}

	memset(e_cBankNo,0,sizeof(e_cBankNo));
	memcpy(e_cBankNo,argv[0],9);
        memset(e_cSql,0,sizeof(e_cSql));
        sprintf(e_cSql,"banknet where bank_no='%s'",e_cBankNo);

	memset(cRetCode,0,sizeof(cRetCode));
	if(GetCount(e_cSql,cRetCode)==0)
	{
		$insert into banknet (bank_no) values(:e_cBankNo);
		if(SQLCODE)
		{
			CreateStruct("返回码",DBOPERERR);
			return 0;
		}
	}

        memset(e_cSql,0,sizeof(e_cSql));
        sprintf(e_cSql,"select %s from banknet where bank_no='%s'",cColName,e_cBankNo);
#ifdef QDCS
        WriteTest("[%s]SQL=%s\n",__FILE__,e_cSql);
#endif

	$lock table banknet in exclusive mode;
        $prepare Selectid from :e_cSql;
        $declare ID_cur cursor for Selectid;
        if(SQLCODE!=0){
		CreateStruct("返回码",DBOPERERR);
                return 0;
        }
        $open ID_cur;
        if(SQLCODE!=0){
		CreateStruct("返回码",DBOPERERR);
                return 0;
        }
	$fetch ID_cur into :e_lCount;

        $close ID_cur;
        $free ID_cur;

	if(e_lCount==NULL || e_lCount<0)e_lCount=1;
	else e_lCount++;
	memset(cId,0,sizeof(cId));
	sprintf(cId,"%-9.9s0%1d%05d",argv[0],iFlag,e_lCount);//add "0"
	CreateStruct("通用编号",cId);

        memset(e_cSql,0,sizeof(e_cSql));
        sprintf(e_cSql,"update banknet set %s=%d where bank_no='%s'",cColName,e_lCount,e_cBankNo);
#ifdef QDCS
        WriteTest("[%s]SQL=%s\n",__FILE__,e_cSql);
#endif

        $execute immediate :e_cSql;
        if(SQLCODE!=0)
	{
		CreateStruct("返回码",DBOPERERR);
                return 0;
        }
        $unlock table banknet;

	CreateStruct("返回码","000");

	return 0;
}