cms040.sqc

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

/********************************************************************
**   源码文件名称 : cms040.SQC
**   所属子系统   : CMS
**   当前文件版本 : 4.0.0.0
**   作者         : zhour
**   版本创建日期 : 2004/09/xx
**   功能描述     : 柜员对卡交易登记簿查询，用于本代他存款撤销
**   修改记录     :
**   修改人       修改日期     修改日期
*********************************************************************/
#include "code.h"
#include "attrdef.h"
#include "sysdef.h"
#include "pubcom.h"
#include "cmscode.h"
#include <stdio.h>

#include "cmstxdet.h"
EXEC SQL INCLUDE SQLCA;
/*******************************************************
**   函数名称: cms215035
**   功能描述：对卡交易登记簿查询指定流水
**   输入参数：
**             lSerSeqNo 	 ----  交易流水号
**   输出参数:
**             
**             
**   返回结果: 
**   作        者 : Feng
**   版本创建日期 : 2004/09/20
**   修改记录     :
**   修改人       修改日期     修改位置
*******************************************************/

int cms215035( PUBCOM *pstPubcom )
{
	/*定义局部变量*/
	struct  cmstxdet     	stCmsTxdet; 		/* 卡交易登记簿 */
	long	lSerSeqNo;						    /* 交易流水号 */
	char	acTmpStr[CONDITION_LEN + 1];
	char	acCardNo[CARDNO_LEN + 1];
	FILE    *fp;								/* 文件指针     */

	strcpy( g_acTrcMsg, "子交易: 柜员对卡交易登记簿查询子交易开始.." );
	TRCLOG4;

	/* 初始化 */
	memset( &stCmsTxdet,    0x00,   sizeof( struct cmstxdet ) );
	memset( acCardNo, 	    0x00,   sizeof( acCardNo ) );

    /* 取数据字典值 */
	getint   ( "SerSeqNo1",   		&lSerSeqNo   );
	getstring( "CardNo1",  	  		acCardNo     );

	pubInitCmstxdet();
	cmstxdet_serseqno = lSerSeqNo;
	strcpy( cmstxdet_trandate,	pstPubcom->acTranDate );
	strcpy( cmstxdet_brc,		pstPubcom->acBrc );
	/*
	strcpy( cmstxdet_cardno2,	acCardNo );
				AND		cardno2 = :cmstxdet_cardno2
	*/
	EXEC SQL	SELECT	trandate, serseqno, teller, frntstan, 
						frntdate, frntno, cardno1, cardno2,
						trankind, tranamt
				INTO	:cmstxdet_trandate, :cmstxdet_serseqno,
						:cmstxdet_teller,	:cmstxdet_frntstan,
						:cmstxdet_frntdate,	:cmstxdet_frntno,
						:cmstxdet_cardno1,	:cmstxdet_cardno2,
						:cmstxdet_trankind,	:cmstxdet_tranamt
				FROM	cmstxdet
				WHERE	trandate = :cmstxdet_trandate
				AND		serseqno = :cmstxdet_serseqno
				AND		brc = :cmstxdet_brc
				AND		trankind in ( '035','022','034','036' )
				AND		cardtrantype in ( '01','02','03','04' )
				AND		validf='0';
	if ( SQLCODE )
	{
		sprintf( g_acTrcMsg, "TranDate[%s]cardno2[%s][%s]", cmstxdet_trandate, cmstxdet_cardno2, cmstxdet_brc );
		TRCLOG2
		strcpy( g_acRspCode, "999996" );
		pubCrtRspInfo( "cmstxdet", SQLCODE );
		ERRLOG
		return FAILED;
	}
	

	if( cmstxdet_cardno2[0]!=' ' )
	{
		strpack( acCardNo );
		strpack( cmstxdet_cardno2 );
		if( strcmp( cmstxdet_cardno2, acCardNo )!=0 )
		{
			strcpy( g_acRspCode, "999996" );
			pubCrtRspInfo( "cmstxdet", SQLCODE );
			ERRLOG
			return FAILED;
		}
	}

	if( cmstxdet_cardno1[0]!=' ' )
	{
		strpack( acCardNo );
		strpack( cmstxdet_cardno1 );
		if( strcmp( cmstxdet_cardno1, acCardNo )!=0 )
		{
			strcpy( g_acRspCode, "999996" );
			pubCrtRspInfo( "cmstxdet", SQLCODE );
			ERRLOG
			return FAILED;
		}
	}

	/* 出口赋值 */
	memset( acTmpStr, 0x00, sizeof( acTmpStr ) );
	sprintf( acTmpStr, "%4.4s%2.2s%2.2s", cmstxdet_trandate, cmstxdet_trandate+5,
										cmstxdet_trandate+8 );
	sprintf( g_acTrcMsg, "TranDate[%s][%s]", cmstxdet_trandate, acTmpStr );
	TRCLOG2
	setstring( "TranDate1", acTmpStr );
	setint( "SerSeqNo1", 	&cmstxdet_serseqno );
	setstring( "Teller1",	cmstxdet_teller );
	setstring( "TermSeq",	cmstxdet_frntstan );

	memset( acTmpStr, 0x00, sizeof( acTmpStr ) );
	sprintf( acTmpStr, "%4.4s%2.2s%2.2s", cmstxdet_frntdate, cmstxdet_frntdate+5,
										cmstxdet_frntdate+8 );
	sprintf( g_acTrcMsg, "Frntdate[%s][%s]", cmstxdet_frntdate, acTmpStr );
	TRCLOG2
	setstring( "QueryDate",	acTmpStr );
	setstring( "FrntNo",	cmstxdet_frntno );
	setstring( "CardNo",	cmstxdet_cardno1 );
	setstring( "CardNo1",	cmstxdet_cardno2 );
	setstring( "TranKind",	cmstxdet_trankind );
	setdouble( "TrsAmt", 	&cmstxdet_tranamt );
	
	return SUCCESS;
}