cmsb34.sqc

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

/********************************************************************
 **   源码文件名称 : cmsB34.SQC
 **   所属子系统   : CMS 
 **   当前文件版本 : 4.0.0.0
 **   作者         : Feng
 **   版本创建日期 : 2004/09/21
 **   功能描述     : 银联中心清算资金入帐子交易
 **   修改记录     :
 **   修改人       修改日期     修改日期
*********************************************************************/

#include "code.h"
#include "attrdef.h"
#include "sysdef.h"
#include "sysdefine.h"
#include "pubcom.h"
#include "cmscode.h"
#include "cmscardinfo.h"
#include "cmscardkind.h"

EXEC SQL INCLUDE SQLCA;

int cmsClsFinanceInAccount( PUBCOM *pstPubcom )
{
	/*定义局部变量*/
	struct	cmscardinfo			stCmsCardInfo;		/* 卡片信息表		*/
	struct	cmscardkind			stCmsCardKind;		/* 卡片种类表		*/

	int		iRtn;							/* 函数返回值		*/
	char	acSettleDate[ DATE_LEN + 1 ];	/* 清算日期			*/
	char	acMemo[ MEMO_LEN + 1 ];			/* 摘要内容			*/
	char	acMemo1[ MEMO_LEN + 1 ];		/* 摘要内容			*/
	char	acFlag[ FLAG_LEN + 1 ];			/* 金额正负标志0正1负	*/
	double	dTranAmt;
	double	dAmt;

	strcpy( g_acRspCode,  RSP_OK );
	strcpy( g_acTrcMsg, "子交易: 银联中心清算资金入帐预处理" );
	TRCLOG4

	/* 初始化 */
	memset( acSettleDate,		0x00,	sizeof( acSettleDate ) );
	memset( acMemo,				0x00,	sizeof( acMemo ) );
	memset( acMemo1,			0x00,	sizeof( acMemo1 ) );
	memset( acFlag,				0x00,	sizeof( acFlag ) );
	dTranAmt = 0.0;

	/* 取数据字典值 */
	getdouble( "TrsAmt",		&dTranAmt				);
	getstring( "QueryDate",		acSettleDate			);
	sprintf( g_acTrcMsg,  "TrsAmt=[%.2lf]", dTranAmt		);
	TRCLOG3
	sprintf( g_acTrcMsg,  "SettleDate=[%s]", acSettleDate );
	TRCLOG3

	sprintf( acMemo, "%s 银联中心清算资金入帐", acSettleDate );
	sprintf( acMemo1, "%s 银联中心商户回佣入帐", acSettleDate );

	dAmt =  fabs( dTranAmt );
	sprintf( g_acTrcMsg,  "Amt=[%.2lf]", dAmt		);
	TRCLOG3
	if ( dAmt < 0.005 )
	{
		strcpy( g_acRspCode, "PUB400" );
		sprintf( g_acRspMsg, "%s 无清算资金，不需要入帐", acSettleDate );
		ERRLOG
		goto Exit;
	}

	if ( dTranAmt > 0.005 )
		acFlag[ 0 ] = '0' ;
	else
		acFlag[ 0 ] = '1';

	
	/* 子交易出口 */ 
	setstring( "Memo",		acMemo		);			/* 摘要		*/
	setstring( "Memo1",		acMemo1		);			/* 摘要1	*/
	setstring( "Flag",		acFlag		);			/* 金额符号		*/
	setdouble( "TrsAmt",	&dAmt		);			/* 金额		*/
	
Exit:
	strcpy( g_acTrcMsg, "子交易: 银联中心清算资金入帐结束.." );
	TRCLOG4

	if( !strcmp( g_acRspCode, RSP_OK ) )
		return SUCCESS;
	else
		return FAILED ;
}