cms506.sqc

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

/********************************************************************
 **   源码文件名称 : cms506.SQC
 **   所属子系统   : CMS 
 **   当前文件版本 : 4.0.0.0
 **   作者         : UCCB	ALEX
 **   版本创建日期 : 2004/10/11
 **   功能描述     : 卡作废处理子交易     
 **   修改记录     :
 **   修改人       修改日期     修改说明
 **   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 "cmscardcancelt.h"

EXEC SQL INCLUDE SQLCA;

int cmsCardCancelPro( PUBCOM *pstPubcom )
{
	/*定义局部变量*/
	struct	cmscardinfo		stCardInfo;
    struct  cmscardkind     stCmsCardKind;      	/* 卡片种类表       */
	struct	cmsacctm     	stCmsAcctM;
	struct	cmscardcancelt	stCmsCant;		/* 作废销毁登记簿	*/
	int		iRtn;

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

	memset( &stCardInfo, 0x00, sizeof ( struct cmscardinfo ) ); 
	memset( &stCmsAcctM, 0x00, sizeof ( struct cmsacctm    ) ); 
    memset( &stCmsCardKind, 0x00, sizeof( struct cmscardkind ) );

	/* 取数据字典值 */
	getstring("CardNo",		stCardInfo.cardno			); /*卡号  */
	
	/* 获取卡片信息表 */ 
	if( pubReadCmscardinfo( &stCardInfo ) ) 
	{
		if ( SQLCODE == SQLNOTFOUND )
			sprintf( g_acRspMsg, "卡号[%s]不存在", stCardInfo.cardno );
		ERRLOG
		goto Exit;
	}
    /* 获取卡片种类表 */
    iRtn = cmsApiGetCmsCardKind( stCardInfo.cardkind, &stCmsCardKind );
    if ( iRtn )
    {
        ERRLOG
        return FAILED;
    }
	
	/*修改卡片信息为作废卡*/
	stCardInfo.cardstat[BIT1_LEN]=BIT1_CARDBLANKOUT;
	if( pubModiCmscardinfo( &stCardInfo ) )
	{
		ERRLOG
		goto Exit;
	}
	
	memset( &stCmsCant,	0x00,	sizeof( struct cmscardcancelt ) );
	strcpy( stCmsCant.canceldate,      pstPubcom->acTranDate   );
	stCmsCant.serseqno = pstPubcom->lSerSeqNo;
	strcpy( stCmsCant.cardno,    stCardInfo.cardno    );
	/* Feng Add in 2006-01-16 Begin */
	strcpy( stCmsCant.cardkind,    stCardInfo.cardkind    );
	strcpy( stCmsCant.voukind,    stCmsCardKind.blankvoukind    );
	strcpy( stCmsCant.precharcode,    stCardInfo.precharcode    );
	strcpy( stCmsCant.vouno,    stCardInfo.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 ] = stCardInfo.cardflg[ BIT1_LEN ];
	strcpy( stCmsCant.cancelbrc,	pstPubcom->acBrc	);
	strcpy( stCmsCant.cancelteller,pstPubcom->acTeller	);

	/* 插入卡作废销毁登记簿 */
	iRtn = pubInstCmscardcancelt( &stCmsCant );
	if ( iRtn )
	{
		ERRLOG
		return FAILED;
	}

	/*子交易流水*/
	if( cmsApiInsTranLog( pstPubcom, &stCardInfo, &stCmsAcctM, "废卡", "卡作废 " ) )
	{
		ERRLOG
		goto Exit;
	}
	/* 子交易出口 */ 
	
	strcpy( g_acTrcMsg, "子交易: 卡作废处理结束.." );
	TRCLOG4

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