cms402.sqc

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

/********************************************************************
 **   源码文件名称 : cms402.SQC
 **   所属子系统   : CMS 
 **   当前文件版本 : 4.0.0.0
 **   作者         : Feng
 **   版本创建日期 : 2004/09/21
 **   功能描述     : 附卡销卡处理子交易
 **   修改记录     :
 **   修改人       修改日期     修改说明
 **   Feng         2006-01-16   增加废卡登记簿凭证得处理
*********************************************************************/

#include "code.h"
#include "attrdef.h"
#include "sysdef.h"
#include "pubcom.h"
#include "cmscode.h"

#include "cmscardinfo.h"
#include "cmscardkind.h"
#include "cmsacctm.h"
#include "cmscuscdnum.h"
#include "cmscardcancelt.h"
#include "ciscustomerinfo.h"

EXEC SQL INCLUDE SQLCA;

int cmsCloseAcceCardPro( PUBCOM *pstPubcom )
{
	/*定义局部变量*/
	struct	cmscardinfo			stCmsCardInfo;		/* 卡片信息表		*/
	struct	cmscardinfo			stMainCardInfo;		/* 主卡卡片信息表	*/
	struct	cmsacctm			stCmsAcctM;			/* 卡账户对照表		*/
	struct	cmscuscdnum			stCmsCuscdNum	;
	struct	cmscardcancelt		stCmsCant;			/* 作废销毁登记簿	*/
	struct	ciscustomerinfo     stCustomInfo;		/* 客户信息			*/
    struct  cmscardkind     stCmsCardKind;      	/* 卡片种类表       */
	int		iRtn;									/* 函数返回值		*/
	char	acCloseType[ FLAG_LEN + 1 ];			/* 销卡类型			*/

	strcpy( g_acTrcMsg, "子交易: 附卡销卡处理开始.." );
	TRCLOG4

	/* 初始化 */
	memset( &stCmsCardInfo,		0x00,	sizeof( struct cmscardinfo ) );
	memset( &stMainCardInfo,	0x00,	sizeof( struct cmscardinfo ) );
    memset( &stCmsCardKind, 0x00, sizeof( struct cmscardkind ) );
	memset( &stCmsAcctM,		0x00,	sizeof( struct cmsacctm ) );
	memset( &stCmsCuscdNum,		0x00,	sizeof( struct cmscuscdnum ) );
	memset( acCloseType,		0x00,	sizeof( acCloseType ) );

	/* 取数据字典值 */
	getstring( "CardNo",	stCmsCardInfo.cardno	);
	getstring( "CloseType",	acCloseType				);
	
	/* 获取卡片信息并锁住记录 */
	pubStoVCmscardinfo( &stCmsCardInfo );
	EXEC SQL	DECLARE Inf_l_cur CURSOR FOR 
				SELECT * FROM CMSCARDINFO
				WHERE cardno = :cmscardinfo_cardno
				FOR UPDATE;
	/* 定义游标错误
    if ( SQLCODE )
	{
		strcpy( g_acRspCode, "CMS110" );
		pubCrtRspInfo( "cmscardinfo", SQLCODE );
		ERRLOG
		return FAILED;
	}
	*/

	SQLOPENCUR(Inf_l_cur,"Inf_l_cur")
	/* 打开游标错误 */
	if ( SQLCODE )
	{
		strcpy( g_acRspCode, "CMS111" );
		pubCrtRspInfo( "cmscardinfo", SQLCODE );
		ERRLOG
		return FAILED;
	}

	pubInitCmscardinfo();
	EXEC SQL	FETCH Inf_l_cur INTO R_CMSCARDINFO ;
	/* 取游标错误 */
	if ( SQLCODE && SQLCODE != SQLNOTFOUND )
	{
		strcpy( g_acRspCode, "CMS112" );
		pubCrtRspInfo( "cmscardinfo", SQLCODE );
		ERRLOG
	SQLCLOSECUR(Inf_l_cur,"Inf_l_cur")
		return FAILED;
	}
	/* 记录不存在 */
	else if ( SQLCODE == SQLNOTFOUND )
	{
		strcpy( g_acRspCode, "CMS113" );
		sprintf( g_acRspMsg, "卡号[%s]不存在", stCmsCardInfo.cardno );
		ERRLOG
	SQLCLOSECUR(Inf_l_cur,"Inf_l_cur")
		return FAILED;
	}
	pubVtoSCmscardinfo( &stCmsCardInfo );

	/* 为修改卡片信息表做赋值准备 */
	stCmsCardInfo.crdsts[ BIT1_LEN ] = CARDCCSTS;
	if ( acCloseType[ BIT1_LEN ] == NORMALCLOSE )
	/* 正常销卡		*/
		stCmsCardInfo.cardstat[ BIT1_LEN ] = BIT1_CARDCANCEL;
	else
	/* 挂失销卡 */
		stCmsCardInfo.cardstat[ BIT1_LEN ] = BIT1_CARDLOSTCAN;
	strcpy( stCmsCardInfo.closedate,		pstPubcom->acTranDate	);
	strcpy( stCmsCardInfo.chgdate,			pstPubcom->acTranDate	);
	strcpy( stCmsCardInfo.lastdate,			pstPubcom->acTranDate	);
	strcpy( stCmsCardInfo.clsbrc,			pstPubcom->acBrc		);
	strcpy( stCmsCardInfo.clsteller,		pstPubcom->acTeller		);


	/* 修改卡片信息标记录 */
	pubInitCmscardinfo();
	pubStoVCmscardinfo( &stCmsCardInfo );
	EXEC SQL	UPDATE CMSCARDINFO
				SET		( U_CMSCARDINFO ) = ( W_CMSCARDINFO )
				WHERE	CURRENT OF Inf_l_cur;
	if ( SQLCODE )
	{
		strcpy( g_acRspCode, "CMS114" );
		/* 数据库更新错误 */
		pubCrtRspInfo( "cmscardinfo",SQLCODE );
		ERRLOG
	SQLCLOSECUR(Inf_l_cur,"Inf_l_cur")
		return FAILED;
	};
	SQLCLOSECUR(Inf_l_cur,"Inf_l_cur")

	/* Feng Add in 2006-01-16 Begin */
    /* 获取卡片种类表 */
    iRtn = cmsApiGetCmsCardKind( stCmsCardInfo.cardkind, &stCmsCardKind );
    if ( iRtn )
    {
        ERRLOG
        return FAILED;
    }
	/* Feng Add in 2006-01-16 End */

	/* 获取卡账户对照表并锁住记录 */
	strcpy( stCmsAcctM.cardno,		stCmsCardInfo.cardno		);
	strcpy( stCmsAcctM.acctseqno,	stCmsCardInfo.acctseqno		);
	pubStoVCmsacctm( &stCmsAcctM );
	EXEC SQL	DECLARE Acc_l_cur CURSOR FOR 
				SELECT * FROM CMSACCTM
				WHERE cardno = :cmsacctm_cardno
				AND	acctseqno = :cmsacctm_acctseqno
				FOR UPDATE;

	SQLOPENCUR(Acc_l_cur,"Acc_l_cur")
	/* 打开游标错误 */
	if ( SQLCODE )
	{
		strcpy( g_acRspCode, "CMS111" );
		pubCrtRspInfo( "cmsacctm", SQLCODE );
		ERRLOG
		return FAILED;
	}

	pubInitCmsacctm();
	EXEC SQL	FETCH Acc_l_cur INTO R_CMSACCTM ;
	/* 取游标错误 */
	if ( SQLCODE && SQLCODE != SQLNOTFOUND )
	{
		strcpy( g_acRspCode, "CMS112" );
		pubCrtRspInfo( "cmsacctm", SQLCODE );
		ERRLOG
	SQLCLOSECUR(Acc_l_cur,"Acc_l_cur")
		return FAILED;
	}
	/* 记录不存在 */
	else if ( SQLCODE == SQLNOTFOUND )
	{
		strcpy( g_acRspCode, "CMS113" );
		pubCrtRspInfo( "cmsacctm", SQLCODE );
		ERRLOG
	SQLCLOSECUR(Acc_l_cur,"Acc_l_cur")
		return FAILED;
	}
	/*
	pubVtoSCmscardinfo( &stCmsAcctM );
	*/

	/* 为修改卡账户对照表准备数据 */
	/*
	strncpy( stCmsAcctM.closebrc,	pstPubcom->acBrc,	BRC_LEN		);
	strncpy( stCmsAcctM.closeteller,pstPubcom->acTeller,TELLER_LEN	);
	strncpy( stCmsAcctM.closedate,	pstPubcom->acTranDate,DATE_LEN	);
	*/
	strcpy( cmsacctm_closebrc,	pstPubcom->acBrc		);
	strcpy( cmsacctm_closeteller,pstPubcom->acTeller	);
	strcpy( cmsacctm_closedate,	pstPubcom->acTranDate	);
	if ( stCmsCardInfo.hasbankbook[ BIT1_LEN ] == NOBANKBOOK )
	/* 无折 */
		stCmsAcctM.status[ BIT1_LEN ] = CANCEL_STS;		/* 销户			*/
	else
	/* 有折 */
		stCmsAcctM.status[ BIT1_LEN ] = MOVEOUT_STS;	/* 移出			*/

	/* 修改卡账户对照表 */
	/*
	pubInitCmsacctm();
	pubStoVCmsacctm( &stCmsAcctM );
	*/
	EXEC SQL	UPDATE CMSACCTM
				SET		( U_CMSACCTM ) = ( W_CMSACCTM )
				WHERE	CURRENT OF Acc_l_cur;
	if ( SQLCODE )
	{
		strcpy( g_acRspCode, "CMS114" );
		/* 数据库更新错误 */
		pubCrtRspInfo( "cmsacctm",SQLCODE );
		ERRLOG
	SQLCLOSECUR(Acc_l_cur,"Acc_l_cur")
		return FAILED;
	};
	SQLCLOSECUR(Acc_l_cur,"Acc_l_cur")

	/* 删除卡账户序号表记录 */
	/*
	iRtn = cmsApiDltCmsSeqNo( stCmsCardInfo.cardno );
	if ( iRtn )
	{
		ERRLOG
		return FAILED;
	}
	*/

	/* 获取主卡信息 */
	strcpy( stMainCardInfo.cardno,		stCmsCardInfo.maincardno		);
	iRtn = pubReadCmscardinfo( &stMainCardInfo );
	if ( iRtn )
	{
		ERRLOG
		return FAILED;
	}
	
	/* 修改主卡卡片信息中附卡数量 */
	/* 附卡数量减一 */
	stMainCardInfo.acdcnt --;
	iRtn = pubModiCmscardinfo( &stMainCardInfo );
	if ( iRtn )
	{
		ERRLOG
		return FAILED;
	}

	/* 获取客户持卡数表
	strcpy( stCmsCuscdNum.custno,	stCmsCardInfo.custno		);
	strcpy( stCmsCuscdNum.cardkind,	stCmsCardInfo.cardkind		);
	strcpy( stCmsCuscdNum.cardflg ,	stCmsCardInfo.cardflg 		);
	if( pubReadCmscuscdnum( &stCmsCuscdNum ) )
	{
		ERRLOG
		return FAILED;
	}
	* 修改客户持卡数表*
	stCmsCuscdNum.crdnum --;
	if( pubModiCmscuscdnum( &stCmsCuscdNum ) )
	{
		ERRLOG
		return FAILED;
	}
	*/

	/* 正常销卡		*/
	if ( acCloseType[ BIT1_LEN ] == NORMALCLOSE )
	{
		memset( &stCustomInfo, 0x00, sizeof( stCustomInfo ) );
		strcpy( stCustomInfo.customid ,stCmsCardInfo.custno );
		if ( pubReadCiscustomerinfo( &stCustomInfo ) )
		{
			ERRLOG
			return FAILED;
		}

		memset( &stCmsCant,	0x00,	sizeof( struct cmscardcancelt ) );
		strcpy( stCmsCant.canceldate,      pstPubcom->acTranDate   );
		stCmsCant.serseqno = pstPubcom->lSerSeqNo;
		strcpy( stCmsCant.cardno,    stCmsCardInfo.cardno    );
	/* Feng Add in 2006-01-16 Begin */
		strcpy( stCmsCant.cardkind,    stCmsCardInfo.cardkind    );
		strcpy( stCmsCant.voukind,    stCmsCardKind.blankvoukind    );
		strcpy( stCmsCant.precharcode,    stCmsCardInfo.precharcode    );
		strcpy( stCmsCant.vouno,    stCmsCardInfo.vouno    );
	/* Feng Add in 2006-01-16 End */
		sprintf( stCmsCant.vouchno, "%s%0*ld", pstPubcom->acTranDate8, \
								SERSEQNO_LEN, stCmsCant.serseqno );
		stCmsCant.flag[ BIT1_LEN ] = FLAG_INVALID;
		stCmsCant.cardflg[ BIT1_LEN ] = stCmsCardInfo.cardflg[ BIT1_LEN ];
		strcpy( stCmsCant.custname, stCustomInfo.customname );
		strcpy( stCmsCant.idtype,	stCustomInfo.idtype	);
		strcpy( stCmsCant.idcode,	stCustomInfo.idno	);
		strcpy( stCmsCant.cancelbrc,	pstPubcom->acBrc	);
		strcpy( stCmsCant.cancelteller,pstPubcom->acTeller	);

		/* 插入卡作废销毁登记簿 */
		iRtn = pubInstCmscardcancelt( &stCmsCant );
		if ( iRtn )
		{
			ERRLOG
			return FAILED;
		}
	}
	
	/* 是否写子交易流水 */
	if( cmsApiInsTranLog( pstPubcom, &stCmsCardInfo, &stCmsAcctM, "销卡", "附卡销卡" ) )
	{
		ERRLOG
		return FAILED;
	}

	/* 子交易出口 */ 
	setstring( "AcctSeqNo",	stCmsCardInfo.acctseqno );	/* 账户序号	*/
	setstring( "CardNo1", stCmsCardInfo.maincardno 		);
	
	strcpy( g_acTrcMsg, "子交易: 附卡销卡处理结束.." );
	TRCLOG4

	strcpy( g_acRspCode,  RSP_OK );

	return SUCCESS;
}