cmsb21.sqc

一整套完整的银行卡系统源代码

		memset( &stPrtdata,	0x00,	sizeof( struct prtdata ) );
		acNum1 = 0;
		acNum2 = 0;
		memset( caBrc,    		0x00, sizeof( caBrc )      );
		memset( acBrcCode,    	0x00, sizeof( acBrcCode )  );
		pubInitCmstxdethis();

		EXEC SQL FETCH pub_l_cur into   R_PUBBRANCHINFO;

		if( SQLCODE == SQLNOTFOUND )	break ;
		sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
		TRCLOG4
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS112" );
			pubCrtRspInfo("pubbranchinfo",SQLCODE );
			ERRLOG
			goto Exit ;
		}
		sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  TRCLOG4

		memset( acBrcCode,    	0x00, sizeof( acBrcCode )  );

		strcpy ( acBrcCode, 			pubbranchinfo_brccode );
		strcpy ( acBrcName, 			pubbranchinfo_brcname );

		sprintf(  g_acTrcMsg, "acBrcCode[%s][%s]", acBrcCode, stPrtdata.acBrcName );
		TRCLOG4

		sprintf( acWhrStr3, " select trandevtype, count(*), sum(tranamt), sum(bankpayfee) from cmstxdethis where");
		sprintf( acWhrStr4, "  brc = '%s'",  acBrcCode );
	
		if ( strcmp ( acBeginDate, INITDATE ) )
		{
			sprintf( acWhrStr5, " and trandate >= '%s'",  acBeginDate );
		}

		if ( strcmp ( acEndDate, INITDATE ) )
		{
			sprintf( acWhrStr6," and trandate <= '%s'", acEndDate );
		}
		sprintf( acWhrStr7," and (cardtrantype='05' or cardtrantype='06' or cardtrantype='07' or cardtrantype='08') and (trandevtype='01' or trandevtype='03' or trandevtype='04' or trandevtype='06' or trandevtype='07' or trandevtype='08' or trandevtype='09' or trandevtype='11' or trandevtype='22' or trandevtype='23' or trandevtype='24' or trandevtype='25' or trandevtype='26' or trandevtype='27' or trandevtype='28') and trankind='004'");

		sprintf( acWhrStr9," and trankind='023'");

		sprintf( acWhrStr10, " and validf='0' GROUP BY trandevtype with ur" );

		sprintf( acWhrStr11, "%s%s%s%s%s%s",
			acWhrStr3,acWhrStr4,acWhrStr5,acWhrStr6,acWhrStr7,acWhrStr10 ); 
		sprintf(  g_acTrcMsg, "acWhrStr11[%s]", acWhrStr11 );
		TRCLOG4

		sprintf( acWhrStr13, "%s%s%s%s%s%s",
			acWhrStr3,acWhrStr4,acWhrStr5,acWhrStr6,acWhrStr9,acWhrStr10 ); 
		sprintf(  g_acTrcMsg, "acWhrStr13[%s]", acWhrStr13 );
		TRCLOG4

		EXEC SQL PREPARE pre_1 FROM :acWhrStr11;
		if ( SQLCODE )                      
		{	                                   
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );       
			ERRLOG                          
			goto Exit;
		}                                   

		EXEC SQL    DECLARE gls_l_cur CURSOR FOR pre_1;
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS110" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}

	SQLOPENCUR(gls_l_cur,"gls_l_cur")
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS111" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}
		for( ; ; )
		{
			Number = 0;
			Tranamt = 0.0;
			Payfee = 0.0;
			memset( acBuffer, 	   	0x00, sizeof( acBuffer ) );
			memset( TranDevType, 	0x00, sizeof( TranDevType ) );
			memset( &stPrtdata,		0x00, sizeof( struct prtdata ) );
			pubInitCmstxdethis();

			EXEC SQL FETCH gls_l_cur into :TranDevType:TranDevType_ID,:Number:Number_ID,:Tranamt:Tranamt_ID,:Payfee:Payfee_ID;

			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			if( SQLCODE == SQLNOTFOUND )	break ;
			acNum1 = 1;
			if(SQLCODE)
			{
				sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
				TRCLOG4
				strcpy( g_acRspCode, "CMS112" );
				pubCrtRspInfo("cmstxdethis",SQLCODE );
				ERRLOG
				goto Exit ;
			}
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4

			acNumber=  	 Number  ;
			acTranAmt=   Tranamt ;
			acBankPayFee=  Payfee  ;
			acNumber1 +=  Number  ;
			acTranAmt1 += Tranamt ;
			acBankPayFee1 += Payfee  ;

			/* 业务发生地类型 */
			TransMemo( "0012", TranDevType, acBuffer);

			strcpy ( stPrtdata.acBrc,	 	acBrcCode );
			strcpy ( stPrtdata.acBrcName,	acBrcName );
			sprintf( stPrtdata.acTranDevType, "%s", acBuffer );
			sprintf( stPrtdata.acNumber, "%ld", acNumber );
			sprintf( stPrtdata.acTranAmt, "%.2lf", acTranAmt );
			sprintf( stPrtdata.acBankPayFee, "%.2lf", acBankPayFee );

			sprintf(  g_acTrcMsg, "acNumber[%s],acTranAmt[%s],acBankPayFee[%s]", 
				stPrtdata.acNumber,stPrtdata.acTranAmt, stPrtdata.acBankPayFee );
			TRCLOG4

			if( iLine	==	0 ) { PRTHEAD }
		
			if ( acNumber!=0 )
			{
				PRTBODY1
				acNum = 1;
			}
		
			if( iLine % OVERPAGE == 0 )
				{ PRTFOOT
				sprintf( g_acTrcMsg,"zhouran1");  TRCLOG4}
		}

		EXEC SQL PREPARE pre_3 FROM :acWhrStr13;
		if ( SQLCODE )                      
		{	                                   
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( "cmstxdethis",SQLCODE );       
			ERRLOG                          
			goto Exit ;
		}                                   

		EXEC SQL    DECLARE gls_l_cur2 CURSOR FOR pre_3;
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS110" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}

	SQLOPENCUR(gls_l_cur2,"gls_l_cur2")
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			strcpy( g_acRspCode, "CMS111" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}
		for( ; ; )
		{
			Number = 0;
			Tranamt= 0.0;
			Payfee = 0.0;
			pubInitCmstxdethis();
			memset( acBuffer, 	   	0x00, sizeof( acBuffer ) );
			memset( TranDevType, 	0x00, sizeof( TranDevType ) );
			memset( &stPrtdata,	0x00,	sizeof( struct prtdata ) );

			EXEC SQL FETCH gls_l_cur2 into :TranDevType:TranDevType_ID,:Number:Number_ID,:Tranamt:Tranamt_ID,:Payfee:Payfee_ID;

			if( SQLCODE == SQLNOTFOUND )	break ;
			acNum2 = 1;
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4
			if(SQLCODE)
			{
				sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
				TRCLOG4
				strcpy( g_acRspCode, "CMS112" );
				pubCrtRspInfo("cmstxdethis",SQLCODE );
				ERRLOG
				goto Exit ;
			}
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);  
			TRCLOG4


			acNumber2=    Number  ;
			acTranAmt2=   Tranamt ;
			acBankPayFee2= Payfee  ;
			acNumber5+=    Number  ;
			acTranAmt5+=   Tranamt ;
			acBankPayFee5+= Payfee  ;
	
			/* 业务发生地类型 */
			TransMemo( "0012", TranDevType, acBuffer);
			strcpy ( stPrtdata.acBrc,	 	acBrcCode );
			strcpy ( stPrtdata.acBrcName,	acBrcName );
			sprintf( stPrtdata.acTranDevType, 	"%s", 	 acBuffer );
			sprintf( stPrtdata.acNumber2, 		"%ld", 	 acNumber2 );
			sprintf( stPrtdata.acTranAmt2, 		"%.2lf", acTranAmt2 );
			sprintf( stPrtdata.acBankPayFee2, 	"%.2lf", acBankPayFee2 );
	
			sprintf(  g_acTrcMsg, "acNumber[%ld],acTranAmt[%.2lf],acBankPayFee[%.2lf]", 
					stPrtdata.acNumber2,stPrtdata.acTranAmt2,stPrtdata.acBankPayFee2 );
			TRCLOG4
	
			if( iLine	==	0 ) { PRTHEAD }
			
			if ( acNumber2!=0 )
			{
				PRTBODY2
				acNum = 1;
			}
			
			if( iLine % OVERPAGE == 0 )
				{ PRTFOOT 
				sprintf( g_acTrcMsg,"zhouran2");  TRCLOG4}
		}
		
		if ( acNum1!=0 || acNum2!=0 )
		{
			acNumber3 = acNumber1 + acNumber5;
			acTranAmt3 = acTranAmt1 + acTranAmt5;
			acBankPayFee3 = acBankPayFee1 + acBankPayFee5;
	
			strcpy ( stPrtdata.acBrc,	 	acBrcCode );
			strcpy ( stPrtdata.acBrcName,	acBrcName );
			sprintf( stPrtdata.acNumber3, "%ld", acNumber3 );
			sprintf( stPrtdata.acTranAmt3, "%.2lf", acTranAmt3 );
			sprintf( stPrtdata.acBankPayFee3, "%.2lf", acBankPayFee3 );
		
			acNumber4 += acNumber3;
			acTranAmt4 += acTranAmt3;
			acBankPayFee4 += acBankPayFee3;
	
			if( iLine	==	0 ) { PRTHEAD }
		
			PRTBODY3
			acNum = 1;
			
			if( iLine % OVERPAGE == 0 )
			{ PRTFOOT 
			sprintf( g_acTrcMsg,"zhouran3");  TRCLOG4}
		}

		acNumber1 = 0;
		acTranAmt1 = 0;
		acBankPayFee1 = 0;
		acNumber2 = 0;
		acTranAmt2 = 0;
		acBankPayFee2 = 0;
		acNumber3 = 0;
		acTranAmt3 = 0;
		acBankPayFee3 = 0;
		acNumber5 = 0;
		acTranAmt5 = 0;
		acBankPayFee5 = 0;
	SQLCLOSECUR(gls_l_cur,"gls_l_cur")
	SQLCLOSECUR(gls_l_cur2,"gls_l_cur2")
	}
	sprintf( stPrtdata.acNumber4, "%ld", acNumber4 );
	sprintf( stPrtdata.acTranAmt4, "%.2lf", acTranAmt4 );
	sprintf( stPrtdata.acBankPayFee4, "%.2lf", acBankPayFee4 );
		PRTBODY
		PRTFOOT 
	
	if( iLine < OVERPAGE && iLine != 0 )	{ PRTFOOT }
	
	if( acNum == 0 )
	{
		strcpy( g_acRspCode, "999998" );
		sprintf( g_acRspMsg, "无满足条件的纪录!" );
		ERRLOG
		goto	Exit ;
	}
	
		
Exit:
	fclose( fmtfp );
	fclose( fp );
	SQLCLOSECUR(pub_l_cur,"pub_l_cur")
	SQLCLOSECUR(gls_l_cur,"gls_l_cur")
	SQLCLOSECUR(gls_l_cur2,"gls_l_cur2")
	if( !strcmp( g_acRspCode, RSP_OK ) )
	{
		SetInqFormid(pstPubcom, "") ;
		return SUCCESS; 
	}
	else 
		return FAILED ;
}