cmsb14.sqc

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

	sprintf( acSelStr + strlen(acSelStr), " and (trandevtype = '14' or trandevtype = '22') and (trankind = '006' or trankind = '014' or trankind = '035' or trankind = '039')" );
	sprintf( acSelStr + strlen(acSelStr), " ORDER BY mid,devid,frnttrancode,trandate,serseqno " );

	strcpy( g_acTrcMsg, acSelStr );
	TRCLOG4

	EXEC SQL PREPARE pre_1 FROM :acSelStr;
	if ( SQLCODE )
	{
		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( ; ; )
	{
		memset( &stPrtdata,	0x00,	sizeof( struct prtdata ) );
		pubInitCmstxdethis();
		EXEC SQL FETCH gls_l_cur into R_CMSTXDETHIS;
		if( SQLCODE == SQLNOTFOUND )	break ;
		if(SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);
			TRCLOG4
			strcpy( g_acRspCode, "CMS112" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}

		memset(acMctName, 0x00, sizeof(acMctName));
		EXEC SQL SELECT mctname INTO :acMctName
				 FROM	cmsmerchantinfo
				 WHERE	mid = :cmstxdethis_mid;
		if (SQLCODE)
		{
			sprintf( g_acTrcMsg,"SQLCODE[%d]", SQLCODE);
			TRCLOG4
			strcpy( g_acRspCode, "找商户名称错误!" );
			pubCrtRspInfo("cmstxdethis",SQLCODE );
			ERRLOG
			goto Exit ;
		}

		/* 日期为18991231忽略 */
		if ( strcmp ( acBeginDate, INITDATE ) )
		{
    		memcpy(acYear, acBeginDate, 4);
    		memcpy(acMonth,acBeginDate + 5, 2);
    		memcpy(acDate, acBeginDate + 8, 2);
		}
		if ( strcmp ( acEndDate, INITDATE ) )
		{
            memcpy(acYear1, acEndDate, 4);
            memcpy(acMonth1,acEndDate + 5, 2);
            memcpy(acDate1, acEndDate + 8, 2);
        }

		if (iFlag == 0)
		{
			strcpy ( acTmpMid, cmstxdethis_mid );
			strcpy ( acTmpDevId,  cmstxdethis_devid  );
			strcpy ( acTmpTranCode, cmstxdethis_frnttrancode  );
		}

		memset(&stPrtdata, 0x00, sizeof(struct prtdata));
		dTmpAmt = 0.00;
		dTmpAmt = cmstxdethis_tranamt - cmstxdethis_bankgetfee;

		strpack(cmstxdethis_cardno1);
		strcpy ( stPrtdata.acDevId,         cmstxdethis_devid );
		strcpy ( stPrtdata.acDevStan,       cmstxdethis_devstan );
		strcpy ( stPrtdata.acCardNo,         cmstxdethis_cardno1 );
		strcpy ( stPrtdata.acFrntTime,      cmstxdethis_frnttime );
		strcpy ( stPrtdata.acTranKindComm,  cmstxdethis_trankindcomm );
		sprintf(stPrtdata.acTranAmt, "%.2f", cmstxdethis_tranamt );
		sprintf(stPrtdata.acBankGetFee, "%.2f", cmstxdethis_bankgetfee );
		sprintf(stPrtdata.acEarningAmt, "%.2f", dTmpAmt );

		strpack(stPrtdata.acTranKindComm);
		strpack(stPrtdata.acCardNo);
		strpack(stPrtdata.acDevId);
		strpack(stPrtdata.acCardNo);
		strpack(acMctName);

		if (iFlag == 0)
		{
			sprintf( acPage, "%d", iPage );
			PRTHEAD
			iFlag ++;
		}

		/* 比较商户是否发生变化，变化就重新打表头 */
		if (strcmp(acTmpMid, cmstxdethis_mid))
		{
			/* 打印交易合计 */
			sprintf (acTAmt, "%.2f", dTAmt);
			sprintf (acTAmt1, "%.2f", dTAmt1);
			sprintf (acTAmt2, "%.2f", dTAmt2);
			PRTTRANTOT

			/* 打印POS合计 */
			sprintf (acPAmt, "%.2f", dPAmt);
			sprintf (acPAmt1, "%.2f", dPAmt1);
			sprintf (acPAmt2, "%.2f", dPAmt2);
			PRTPOSTRANTOT

			/* 打印商户合计 */
			sprintf (acMAmt, "%.2f", dMAmt);
			sprintf (acMAmt1, "%.2f", dMAmt1);
			sprintf (acMAmt2, "%.2f", dMAmt2);
			PRTMIDTRANTOT

			PRTFOOT

			memset(acTmpMid, 0x00, sizeof(acTmpMid));
			memset(acTmpDevId, 0x00, sizeof(acTmpDevId));
			memset(acTmpTranCode, 0x00, sizeof(acTmpTranCode));
			strcpy ( acTmpMid, cmstxdethis_mid );
			strcpy ( acTmpDevId,  cmstxdethis_devid  );
			strcpy ( acTmpTranCode, cmstxdethis_frnttrancode  );
			iNum = 1;
			iPage = 1;

			sprintf( acPage, "%d", iPage );
			PRTHEAD

			/* 给合计赋初值 */
			dTAmt = 0.00;
			dTAmt1 = 0.00;
			dTAmt2 = 0.00;
			dPAmt = 0.00;
			dPAmt1 = 0.00;
			dPAmt2 = 0.00;
			dMAmt = 0.00;
			dMAmt1 = 0.00;
			dMAmt2 = 0.00;
		}

		/* POS变换 */	
		if (strcmp ( acTmpTranCode, cmstxdethis_frnttrancode ))
		{
			/* 打印交易合计 */
			sprintf (acTAmt, "%.2f", dTAmt);
			sprintf (acTAmt1, "%.2f", dTAmt1);
			sprintf (acTAmt2, "%.2f", dTAmt2);
			PRTTRANTOT

			/* 打印POS合计 */
			sprintf (acPAmt, "%.2f", dPAmt);
			sprintf (acPAmt1, "%.2f", dPAmt1);
			sprintf (acPAmt2, "%.2f", dPAmt2);
			PRTPOSTRANTOT

			/* 给合计赋初值 */
			dTAmt = 0.00;
			dTAmt1 = 0.00;
			dTAmt2 = 0.00;
			dPAmt = 0.00;
			dPAmt1 = 0.00;
			dPAmt2 = 0.00;
		}

		/* 交易变换 */	
		if (strcmp ( acTmpDevId, cmstxdethis_devid ))
		{
			/* 打印交易合计 */
			sprintf (acTAmt, "%.2f", dTAmt);
			sprintf (acTAmt1, "%.2f", dTAmt1);
			sprintf (acTAmt2, "%.2f", dTAmt2);
			
			PRTTRANTOT				

			/* 给合计赋初值 */
			dTAmt = 0.00;
			dTAmt1 = 0.00;
			dTAmt2 = 0.00;
		}

		sprintf( stPrtdata.acBer, "%d", iNum );
		/* 打印数据带 */
		if (strcmp(acTmpTranCode, cmstxdethis_frnttrancode) != 0 || strcmp(acTmpDevId, cmstxdethis_devid) != 0 )
		{
			PRTBODY
			memset(acTmpDevId, 0x00, sizeof(acTmpDevId));
			memset(acTmpTranCode, 0x00, sizeof(acTmpTranCode));
			strcpy ( acTmpDevId,  cmstxdethis_devid  );
			strcpy ( acTmpTranCode, cmstxdethis_frnttrancode  );
		}
		else
		{
			PRTBODY
		}

		/* 合计累加 */
		dTAmt  += cmstxdethis_tranamt;
		dTAmt1 += cmstxdethis_bankgetfee;
		dTAmt2 += dTmpAmt;
		dPAmt  += cmstxdethis_tranamt;
		dPAmt1 += cmstxdethis_bankgetfee;
		dPAmt2 += dTmpAmt;
		dMAmt  += cmstxdethis_tranamt;
		dMAmt1 += cmstxdethis_bankgetfee;
		dMAmt2 += dTmpAmt;

		/* 翻页并且初始化页合计变量 */
		if ( iLine % OVERPAGE == 0 )
		{
    		PRTFOOT;
			sprintf( acPage, "%d", iPage );
			PRTHEAD
		}
	}

	if( iLineCount == 0 )
	{
		strcpy( g_acRspCode, "999998" );
		sprintf( g_acRspMsg, "无满足条件的纪录!" );
		ERRLOG
		goto	Exit ;
	}

	/* 打印表尾 */
	sprintf (acTAmt, "%.2f", dTAmt);
	sprintf (acTAmt1, "%.2f", dTAmt1);
	sprintf (acTAmt2, "%.2f", dTAmt2);
	PRTTRANTOT
	sprintf (acPAmt, "%.2f", dPAmt);
	sprintf (acPAmt1, "%.2f", dPAmt1);
	sprintf (acPAmt2, "%.2f", dPAmt2);
	PRTPOSTRANTOT
	sprintf (acMAmt, "%.2f", dMAmt);
	sprintf (acMAmt1, "%.2f", dMAmt1);
	sprintf (acMAmt2, "%.2f", dMAmt2);
	PRTMIDTRANTOT
	PRTFOOT
	
Exit:
	fclose( fmtfp );
	fclose( fp );
	SQLCLOSECUR(gls_l_cur,"gls_l_cur")
	if( !strcmp( g_acRspCode, RSP_OK ) )
	{
		SetInqFormid(pstPubcom, "") ;
		return SUCCESS; 
	}
	else 
		return FAILED ;
}