?? svrf302.ec
字號:
#include "../incl/serverpub.h"
$include sqlca;
/**修改記錄
2003/01/18:name 由like改為matches
2003/02/10:增加網點號作為查詢條件
2003/02/26:增加查詢范圍為所有（企業、個人、不包括發展商，多表數據）
*/
int ExecQuery(int argc,char *argv[],int iBound)
{
char cTemp[200],cCon[200],cAnd[6],cRetCode[4],cFileName[80];
$char e_cSql[800],e_cSqlDest[800];
FILE *fp=NULL;
int i,iRet=0,iOne=1,iType=0,iAppend=0,viCounts=0;
$char cId[17],cName[61],cNo[21],cMan[17],cAddress[101],cZip[9],cPhone[21],cLevel[4],cDate[11];
$int e_iCertType;
char cBody[256];
iAppend=atoi(argv[argc-1]);
#ifdef QDCS
WriteTest("查詢范圍＝%d,類型＝%d\n",iAppend,iBound);
#endif
memset(e_cSql,0,sizeof(e_cSql));
for(i=0;i<(argc-1);i++){
memset(cTemp,0,sizeof(cTemp));
strcpy(cTemp,argv[i]);
ClipStr(cTemp);
if(strlen(cTemp)==0) continue;
memset(cCon,0,sizeof(cCon));
switch(iBound){
case 1://enterprise
iType=1;//證件類型
if(i==0){
memset(cTemp,0,sizeof(cTemp));
strcpy(cTemp,argv[i]);
ClipStr(cTemp);
sprintf(cCon," name matches '%s' ",cTemp);
strcat(e_cSql,cCon);
}else if(i==1){
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s code matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==2){
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s JURD_MAN_ID matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==3){
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s LOAN_CARD_NO matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==4){
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s TRADE_LIC matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==5){//網點編號
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s bank_no matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}
break;
case 2://person
iType=2;//證件類型
if(i==0){
memset(cTemp,0,sizeof(cTemp));
strcpy(cTemp,argv[i]);
ClipStr(cTemp);
sprintf(cCon," name matches '%s' ",cTemp);
strcat(e_cSql,cCon);
}else if(i==1){
memset(cAnd,0,sizeof(cAnd));
if(strlen(cCon)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s cert_code matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==2){
memset(cAnd,0,sizeof(cAnd));
if(strlen(cCon)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s id matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==3){//貸款卡號 無
}else if(i==4){//營業執照 無
}else if(i==5){//網點編號
memset(cAnd,0,sizeof(cAnd));
if(strlen(e_cSql)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s bank_no matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}
break;
case 3://發展商
iType=3;//證件類型
if(i==0){
memset(cTemp,0,sizeof(cTemp));
strcpy(cTemp,argv[i]);
ClipStr(cTemp);
sprintf(cCon," name matches '%s' ",cTemp);
strcat(e_cSql,cCon);
}else if(i==2){
memset(cAnd,0,sizeof(cAnd));
if(strlen(cCon)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s id matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}else if(i==5){//網點編號
memset(cAnd,0,sizeof(cAnd));
if(strlen(cCon)>0)strcpy(cAnd," and ");
else strcpy(cAnd,"");
sprintf(cCon,"%s bank_no matches '%s' ",cAnd,argv[i]);
strcat(e_cSql,cCon);
}
break;
}
}
if(strlen(e_cSql)==0){
CreateStruct("返回碼",ALLRECORD);return -1;
}
memset(e_cSqlDest,0,sizeof(e_cSqlDest));
switch(iType)
{
case 1:
sprintf(e_cSqlDest,"enterprise where %s",e_cSql);
break;
case 2:
sprintf(e_cSqlDest,"person where %s",e_cSql);
break;
case 3:
sprintf(e_cSqlDest,"dev_trader where %s",e_cSql);
break;
}
memset(cRetCode,0,sizeof(cRetCode));
iRet=GetCount(e_cSqlDest,cRetCode);
if(iAppend!=0 && iRet==0){//NO record
CreateStruct("返回碼",NORECORD);return -1;
}else if(iAppend!=0 && iRet==1)//One record
iOne=0;
else if((iAppend!=0 && iRet>1) || (iAppend==0 && iBound==1))
{//Many record
iOne=1;
//地區號（5）+前置機號（4）+所號（4）+操作員號（4）
memset(cTemp,0,sizeof(cTemp));
FindKey("地區號");strcat(cTemp,sCurrent->cValue);
FindKey("前置機號");strcat(cTemp,sCurrent->cValue);
FindKey("儲蓄所號");strcat(cTemp,sCurrent->cValue);
FindKey("操作員號");strcat(cTemp,sCurrent->cValue);
memset(cFileName,0,sizeof(cFileName));
sprintf(cFileName,"%s/download/%s",getenv("HOME"),cTemp);
if (( fp=fopen(cFileName,"w"))==NULL)
{
WriteTest("[%s]: open file %s error \n",__FILE__,cFileName);
CreateStruct("返回碼","020");
return -1;
}
fprintf(fp,"客戶號,客戶名稱,證件類型,證件號碼/企業代碼,企業法人,地址,郵政編碼,聯系電話,信用等級,評定日期\n");
}
if(iRet==0 && iAppend==0)
{
if(iBound==1) fclose(fp);
CreateStruct("發報報體","100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000");//1 有文件標志
return -2;
}
if(iAppend==0 && iRet>0 && iBound>1)
{//Have record
iOne=1;
memset(cTemp,0,sizeof(cTemp));
FindKey("地區號");strcat(cTemp,sCurrent->cValue);
FindKey("前置機號");strcat(cTemp,sCurrent->cValue);
FindKey("儲蓄所號");strcat(cTemp,sCurrent->cValue);
FindKey("操作員號");strcat(cTemp,sCurrent->cValue);
memset(cFileName,0,sizeof(cFileName));
sprintf(cFileName,"%s/download/%s",getenv("HOME"),cTemp);
if (( fp=fopen(cFileName,"a+"))==NULL)
{
WriteTest("[%s]: open file %s error \n",__FILE__,cFileName);
CreateStruct("返回碼","020");
return -1;
}
}
memset(e_cSqlDest,0,sizeof(e_cSqlDest));
if(iType==1){
sprintf(e_cSqlDest,"select id,name,code,JURD_MAN_ID,address,zip,phone,credit_level,assess_date from enterprise where %s order by id",e_cSql);
}else if(iType==2){
//member1 not use
sprintf(e_cSqlDest,"select id,name,cert_type,cert_code,address,member1,homephone,credit_level,assess_date from person where %s order by id",e_cSql);
}else if(iType==3){
sprintf(e_cSqlDest,"select id,name,address,phone from dev_trader where %s order by id",e_cSql);
}
#ifdef QDCS
WriteTest("[%s]SQL=%s\n",__FILE__,e_cSqlDest);
#endif
$prepare Many from :e_cSqlDest;
$declare File1 cursor for Many;
if(SQLCODE!=0){
if(iOne) fclose(fp);
CreateStruct("返回碼",DBOPERERR);return -1;
}
$open File1;
if(SQLCODE!=0){
if(iOne) fclose(fp);
CreateStruct("返回碼",DBOPERERR);return -1;
}
viCounts=0;
while(1){
memset(cId,0,sizeof(cId));
memset(cName,0,sizeof(cName));
memset(cAddress,0,sizeof(cAddress));
memset(cZip,0,sizeof(cZip));
memset(cPhone,0,sizeof(cPhone));
memset(cLevel,0,sizeof(cLevel));
memset(cDate,0,sizeof(cDate));
memset(cMan,0,sizeof(cMan));
memset(cNo,0,sizeof(cNo));
if(iType==3)
$fetch File1 into :cId,:cName,:cAddress,:cPhone;
else if(iType==1)
$fetch File1 into :cId,:cName,:cNo,:cMan,:cAddress,:cZip,:cPhone,:cLevel,:cDate;
else if(iType==2)
$fetch File1 into :cId,:cName,:e_iCertType,:cNo,:cAddress,:cZip,:cPhone,:cLevel,:cDate;
if(SQLCODE!=0)break;
ConvertDate(cDate);
if(iType==2)
{
memset(cMan,0,sizeof(cMan));
memset(cZip,0,sizeof(cZip));
}
memset(cBody,0,sizeof(cBody));
if(iOne){
if(iType==2)
sprintf(cBody,"%s,%s,%d,%s,%s,%s,%s,%s,%s,%s",cId,cName,e_iCertType,cNo,cMan,cAddress,cZip,cPhone,cLevel,cDate);
else
sprintf(cBody,"%s,%s,%d,%s,%s,%s,%s,%s,%s,%s",cId,cName,iType,cNo,cMan,cAddress,cZip,cPhone,cLevel,cDate);
fprintf(fp,"%s\n",cBody);
viCounts++;
if(viCounts>=1000)
break;
}else
sprintf(cBody,"%1d%16s%60s%1d%20s%16s%100s%8s%20s%3s%8s",iOne,cId,cName,iType,cNo,cMan,cAddress,cZip,cPhone,cLevel,cDate);
}
$close File1;
$free File1;
if(iOne)
fclose(fp);
if(iAppend!=0 && iOne==0)
CreateStruct("發報報體",cBody);
else
CreateStruct("發報報體","100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000");//1 有文件標志
return 0;
}
SvrF302(int argc,char *argv[])
{
int i;
#ifdef QDCS
/*NAME,企業代碼,JURD_MAN_ID,LOAN_CARD_NO,TRADE_LIC,操作網點,查詢范圍*/
for(i=0;i<argc;i++)
WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif
if(atoi(argv[argc-1])==0)
{
for(i=1;i<3;i++)
if(ExecQuery(argc,argv,i)==-1) return 0;
}else
if(ExecQuery(argc,argv,atoi(argv[argc-1]))==-1) return 0 ;
CreateStruct("返回碼","000");
return 0;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -