static void GenResMsgHead(char *msghead,char *refno,int errcode,char *errmsg)
{
char buf[1024]="";
char sysdate[9]="";
char systime[7]="";
getsysdate(sysdate);
getsystime(systime);
AddXmlItemStr(buf,"AreaNo",""); //地区代码
AddXmlItemStr(buf,"ChanNo",""); //渠道代码
if(refno != NULL)
AddXmlItemStr(buf,"TransNo",refno); //交易流水号
else
AddXmlItemStr(buf,"TransNo","");
AddXmlItemStr(buf,"TransDate",sysdate); //交易日期
AddXmlItemStr(buf,"TransTime",systime); //交易时间
AddXmlItemStr(buf,"BankNo",""); //机构代码
AddXmlItemStr(buf,"TellerNo",""); //柜员代码
AddXmlItemInt(buf, "FuncTionFlag", 1); //处理标志
if(errcode!=0)
AddXmlItemInt(buf, "ResultCode", errcode);
else
AddXmlItemStr(buf, "ResultCode", "0000");
AddXmlItemStr(buf, "Err_Info", errmsg);
AddXmlItemStr(msghead, "MsgHead", buf); // 全包含在MsgHead 中
}
static int doCard(const T_t_card& tCard)
{
char sysdate[9]={0};
getsysdate(sysdate);
if(tCard.status[0]!=STATUS_NORMAL)
{
return ERRIF_CARD_CLOSE;
}
if('1'==tCard.lockflag[0])
{
return ERRIF_CARD_LOCKED;
}
if('1'==tCard.frozeflag[0])
{
return ERRIF_CARD_FROZED;
}
if('1'==tCard.lossflag[0])
{
return ERRIF_CARD_LOST;
}
if('1'==tCard.badflag[0])
{
return ERRIF_CARD_BAD;
}
//检查卡的有效期
if(strcmp(tCard.expiredate,sysdate)<=0)
return ERRIF_CARD_EXPIRED;
return 0;
}
int F843358(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret=0;
T_t_deposit_oper tDepositOper;
memset(&tDepositOper,0,sizeof(tDepositOper));
//添加操作员
des2src(tDepositOper.oper_code,rPack->scust_auth);
tDepositOper.max_amt=rPack->damt0*100;
tDepositOper.status[0]='1';
des2src(tDepositOper.usedevlimit_flag,rPack->sstatus2);
des2src(tDepositOper.shopoper_flag,rPack->sstatus3);
getsysdate(tDepositOper.open_date);
getdatetime(tDepositOper.last_saved);
ret=DB_t_deposit_oper_add(&tDepositOper);
if(ret)
{
if(DB_REPEAT==ret)
*pRetCode=E_DB_DEPOSIT_OPER_E;
else
*pRetCode=E_DB_DEPOSIT_OPER_I;
goto L_RETU;
}
return 0;
L_RETU:
return -1;
}
static int do_refundment_subsidy(T_t_aif_account *account,double *subsidy_money,char *opercode,int subsidy_no)
{
T_t_tif_subsidy tSubsidy;
char tx_date[9]="";
char tx_time[7]="";
double total_money = 0.0;
int ret;
char status[2] = "";
getsysdate(tx_date);
getsystime(tx_time);
status[0] = SUBSIDY_STAT_NORMAL;
// 按交易卡号退款
ret = DB_t_tif_subsidy_open_select_for_update_by_c3_and_cardno_and_status(
account->cardno,status);
if(ret)
{
if(DB_NOTFOUND != ret)
{
writelog(LOG_ERR,"open subsidy error,cardno[%d],ret[%d]",account->cardno,ret);
return E_DB_SUBSIDY_R;
}
}
else
{
while(1)
{
memset(&tSubsidy,0,sizeof tSubsidy);
ret = DB_t_tif_subsidy_fetch_select_by_c3(&tSubsidy);
if(ret)
{
if(DB_NOTFOUND == ret)
break;
writelog(LOG_ERR,"read subsidy error,cardno[%d],ret[%d]",account->cardno,ret);
return E_DB_SUBSIDY_R;
}
if(subsidy_no > -1 && tSubsidy.subsidy_no < subsidy_no)
{
writelog(LOG_INFO,"cardid[%d]online subsidy_no[%d],db subsidy_no[%d] ignore",
account->cardno,subsidy_no,tSubsidy.subsidy_no);
continue;
}
total_money += D4U5(tSubsidy.amount,2);
tSubsidy.status[0] = SUBSIDY_STAT_FINISHED;
des2src(tSubsidy.get_date,tx_date);
des2src(tSubsidy.get_time,tx_time);
des2src(tSubsidy.opercode,opercode);
ret = DB_t_tif_subsidy_update_lock_by_c3(&tSubsidy);
if(ret)
{
writelog(LOG_ERR,"update subsidy error,cardno[%d],subsidy_no[%d],ret[%d]",
tSubsidy.cardno,tSubsidy.subsidy_no,ret);
return E_DB_SUBSIDY_U;
}
}
}
*subsidy_money = total_money;
return 0;
}
int F930101(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret= 0;
int dev_usage = 0;
T_t_attend_txdtl tTxdtl;
if(strlen(rPack->sdate0) != 8)
{
*pRetCode = E_DEVPHYID_NULL;
goto L_RETU;
}
/*
ret=chk_dyn_key(rPack->lcert_code,rPack->scust_limit2);
if(ret)
{
writelog(LOG_ERR,"subsys_id[%d]dyn_key[%s]",rPack->lcert_code,rPack->scust_limit2);
*pRetCode = ret;
goto L_RETU;
}
*/
memset(&tTxdtl,0,sizeof(tTxdtl));
tTxdtl.serial_no= rPack->lvol3; //上传端流水号
tTxdtl.sys_id = rPack->lcert_code; //上传工作站标识(前置机注册号)
// tTxdtl.mode_code=rPack->lvol6; //模式代码
tTxdtl.card_no= rPack->lvol7; //交易卡号
// tTxdtl.use_type= rPack->lvol8; //考勤类型
// tTxdtl.inductor_no= rPack->lvol9; //感应头标记
// tTxdtl.work_mark=rPack->lvol10; //上下班标志
tTxdtl.tx_mark=rPack->lvol11; //999交易标志
des2src(tTxdtl.device_id, rPack->sdate0); //物理设备ID
des2src(tTxdtl.tx_date,rPack->sdate1); //发生日期(格式化输入的日期)
des2src(tTxdtl.crc,rPack->sbank_code2); //CRC校验
des2src(tTxdtl.tx_time,rPack->spost_code2); //发生时间(格式化输入的时间)
getsysdate(tTxdtl.col_date);
getsystime(tTxdtl.col_time);
// ret=check(&tTxdtl);
// if(ret)
// {
// tTxdtl.status[0]='5'; //无效交易
// //tTxdtl.err_code=ret;
// writelog(LOG_DEBUG,"无效流水device_id[%d]serial_no[%d]",tTxdtl.device_id,tTxdtl.serial_no);
// return ret;
// }
// else
// tTxdtl.status[0]='1';
ret = SaveDoorJSBSerial(&tTxdtl);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
return 0;
L_RETU:
return -1;
}
int F930030(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg) {
int ret = 0;
T_t_posdtl posdtl;
memset(&posdtl, 0, sizeof(posdtl));
posdtl.devseqno = rPack->lvol4; //上传端流水号
posdtl.transmark = rPack->lvol12; //999交易标记
posdtl.sysid = rPack->lcert_code; //上传工作站标识
des2src(posdtl.devphyid, rPack->sdate1); //物理设备ID
des2src(posdtl.inpower_no, rPack->stx_pwd); //终端设备授权号
posdtl.comu_ver = rPack->lbank_acc_type; //通信版本号
int ver = posdtl.comu_ver / 10;
if (0x81 == posdtl.comu_ver || 0x81 == ver)
posdtl.fee_code = rPack->lbank_acc_type2;
else
posdtl.fee_code = 0;
des2src(posdtl.crc, rPack->sbank_code2); //CRC效验
posdtl.cardno = rPack->lvol5; //交易卡号
posdtl.purseno = rPack->lvol6; //消费钱包号
posdtl.cardbefbal = rPack->lvol9; //入卡金额
posdtl.cardaftbal = rPack->lvol10; //出卡金额
posdtl.amount = rPack->lvol8; //本次消费金额
posdtl.cardcnt = rPack->lvol7; //当前卡中帐户消费次数
posdtl.transcode = 930030; //交易代码
snprintf(posdtl.transdate, 9, "20%s", rPack->spost_code);//发生日期(格式化输入的日期)
des2src(posdtl.transtime,rPack->spost_code2); //发生时间(格式化输入的时间)
getsysdate(posdtl.coldate);
ret = check(&posdtl);
if (ret) {
posdtl.errcode = ret;
if (2 == posdtl.transmark)
posdtl.status[0] = '6'; //中途拔卡
else {
posdtl.status[0] = '5';
strncpy(posdtl.accdate, posdtl.coltimestamp, 8);
strncpy(posdtl.acctime, posdtl.coltimestamp + 8, 6);
}
} else
posdtl.status[0] = '1';
g_dbchkerr = 0;
ret = DB_t_posdtl_add(&posdtl);
if (ret) {
g_dbchkerr = 1;
writelog(LOG_DEBUG,"serial_no[%d]cardno[%d]deviceid[%s]transdate[%s]transtime[%s]",posdtl.devseqno,posdtl.cardno,posdtl.devphyid,posdtl.transdate,posdtl.transtime);
if (DB_REPEAT == ret)
return 0;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
g_dbchkerr = 1;
return 0;
L_RETU:
return -1;
}
//签到交易处理过程
int Do_Login (BANK_TRANS_REQUEST *pBankTrans)
{
char mac_key[32]="";
//char mac[16]="";
int ret;
BANK_TRANS_REQUEST BankTransPak;
memcpy(mac_key,STATIC_KEY,sizeof(mac_key));
memset(&BankTransPak,0,BANK_TRANS_PACKLEN);
//写交易代码---------银行说把签到换成密钥交换，暂时把31-->34
memcpy( BankTransPak.TradeCode,TRADE_BANK_CHGKEY, sizeof(BankTransPak.TradeCode));
//写交易日期和交易时间
getsysdate(BankTransPak.TradeDate);
getsystime(BankTransPak.TradeTime);
//写院校代码
sprintf(BankTransPak.CustNo,"%-16s",SCHOOL_CODE);
//写校验mac码
ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,BankTransPak.MAC);
TRACE_BANK_TRANS(&BankTransPak,"send login package");
//发送数据到银行并同时接收银行数据，此处不判断返回的mac校验
ret=send_to_and_recv_from_bank((char*)(&BankTransPak),BANK_TRANS_PACKLEN, (char*)&BankTransPak,BANK_TRANS_PACKLEN,0);
if(ret)
{
writelog(LOG_ERR,"send_to_and_recv_from_bank error,errcode=[%d]",ret);
return ret;
}
//printf("%d\n",__LINE__);
TRACE_BANK_TRANS(&BankTransPak,"recv login package");
//此处银行说不加mac传输的，所以此处不做校验
/*
ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,mac);
ret=memcmp(mac,BankTransPak.MAC,8);
if(ret)
{
writelog(LOG_INFO,"Mac vertify fail,source_mac=[%s],true_mac[%s]",BankTransPak.MAC,mac);
return E_TRANS_BANK_RECVERR;
}
*/
if(strncmp(BankTransPak.RetCode,"00",2)!=0)
{
writelog(LOG_ERR,"send_to_and_recv_from_bank error,errcode=[%d]",ret);
return -1;
}
memcpy(pBankTrans, &BankTransPak, BANK_TRANS_PACKLEN);
writelog(LOG_INFO,"Congratulation,login to bank succeed!");
return 0;
}
int Do_Compare( BANK_TRANS_REQUEST *pBankTrans )
{
char mac_key[32]="";
char mac[16]="";
int ret;
BANK_TRANS_REQUEST BankTransPak;
memcpy(mac_key,STATIC_KEY,sizeof(mac_key));
memset(&BankTransPak,0,BANK_TRANS_PACKLEN);
//写交易代码
memcpy( BankTransPak.TradeCode,TRADE_BANK_COMP, sizeof(BankTransPak.TradeCode));
//写交易日期和交易时间
getsysdate(BankTransPak.TradeDate);
getsystime(BankTransPak.TradeTime);
//写院校代码
sprintf(BankTransPak.CustNo,"%-16s",SCHOOL_CODE);
//写校验mac码
//写校验mac码----林钦此处应该用银行回传回来的动态密钥做mac密钥，此处改过来了
generate_mac((char*)(&BankTransPak),sizeof(BankTransPak),BankTransPak.MAC);
//ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,BankTransPak.MAC);
TRACE_BANK_TRANS(&BankTransPak,"send compare package");
//发送数据到银行并同时接收银行数据，此处不判断返回的mac校验
ret=send_to_and_recv_from_bank((char*)(&BankTransPak),BANK_TRANS_PACKLEN, (char*)&BankTransPak,BANK_TRANS_PACKLEN,0);
if(ret)
{
writelog(LOG_ERR,"send_to_and_recv_from_bank error,errcode=[%d]",ret);
return E_TRANS_BANK_NOANSWER;
}
TRACE_BANK_TRANS(&BankTransPak,"recv compare package");
ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,mac);
ret=memcmp(mac,BankTransPak.MAC,8);
if(ret)
{
writelog(LOG_INFO,"Mac vertify fail,source_mac=[%s],true_mac[%s]",BankTransPak.MAC,mac);
return E_TRANS_BANK_RECVERR;
}
memcpy(pBankTrans, &BankTransPak, BANK_TRANS_PACKLEN);
writelog(LOG_INFO,"Congratulation, compare succeed!");
return 0;
}
static int check(T_t_tif_rcvdtl *p)
{
int ret=0;
if(strlen(p->crc)==0)
{
return E_999_CRC; //上传流水CRC校验错误
}
if(strcmp(p->tx_date,"20000000") != 0)
{
ret=IsInvalidDateTime(p->tx_date,"YYYYMMDD");
if(ret)
{
return E_999_DATE; //上传流水交易日期有误
}
}
else
getsysdate(p->tx_date);
if(strcmp(p->tx_time,"000000") != 0)
{
ret=IsInvalidDateTime(p->tx_time,"HHMMSS");
if(ret)
{
return E_999_TIME; //上传流水交易时间有误
}
}
else
getsystime(p->tx_time);
if((p->tx_mark!=0X99)&&(p->tx_mark!=0xFE) )
{
return p->tx_mark+E_999_0X00; //把返回码置为交易标记
}
if(p->in_bala- p->out_bala!=p->amount)
{
return E_999_CARD_BALANCE; //上传流水出入卡余额有误
}
if(0X99==p->tx_mark)
{
if(p->amount<=0)
{
return E_999_AMT; //上传流水交易发生金额有误
}
}
else
{
//冲正交易,发生额为负数
if(p->amount>=0)
{
return E_999_AMT; //上传流水交易发生金额有误
}
}
return 0;
}
//检查线路处理过程
int Do_CheckLine( BANK_TRANS_REQUEST *pBankTrans )
{
char mac_key[32]="";
//char mac[16]="";
int ret;
BANK_TRANS_REQUEST BankTransPak;
memcpy(mac_key,STATIC_KEY,sizeof(mac_key));
memset(&BankTransPak,0,BANK_TRANS_PACKLEN);
//写交易代码
memcpy( BankTransPak.TradeCode,TRADE_BANK_CHECKLINE, sizeof(BankTransPak.TradeCode));
//写交易日期和交易时间
getsysdate(BankTransPak.TradeDate);
getsystime(BankTransPak.TradeTime);
//写院校代码
sprintf(BankTransPak.CustNo,"%-16s",SCHOOL_CODE);
//写校验mac码----林钦此处应该用银行回传回来的动态密钥做mac密钥，此处改过来了
generate_mac((char*)(&BankTransPak),sizeof(BankTransPak),BankTransPak.MAC);
//ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,BankTransPak.MAC);
TRACE_BANK_TRANS(&BankTransPak,"send checkline package");
//发送数据到银行并同时接收银行数据，此处不判断返回的mac校验
ret=send_to_and_recv_from_bank((char*)(&BankTransPak),BANK_TRANS_PACKLEN, (char*)&BankTransPak,BANK_TRANS_PACKLEN,0);
if(ret!=0)
{
writelog(LOG_ERR,"调用银行通信失败[%d]",ret);
return E_TRANS_BANK_NOANSWER;
}
TRACE_BANK_TRANS(&BankTransPak, "recv checkline package");
//此处银行说不加mac传输的，所以此处不做校验
/*
ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,mac);
ret=memcmp(mac,BankTransPak.MAC,8);
if(ret!=0)
{
writelog(LOG_INFO,"数据校验错误");
return E_TRANS_BANK_RECVERR;
}
*/
memcpy(pBankTrans, &BankTransPak, BANK_TRANS_PACKLEN);
return 0;
}
/**************************************************
终端消费模块
*******************************************************/
static int pre_check_term_trade(ST_PACK *in_pack,ST_PACK *out_pack,transfer_control_t *trans_ctl)
{
T_t_pif_device tDevice;
char curr_date[9];
char curr_time[7];
int shop_id;
int ret;
if(in_pack->lvol4 <= 0)
return E_INPUT_DATA_INVAILD;
trans_ctl->check_user_pwd = 0;
memset(&tDevice,0,sizeof tDevice);
getsysdate(curr_date);
getsystime(curr_time);
if( strcmp(in_pack->sdate0,curr_date) != 0)
{
return E_INPUT_DATE;
}
ret = get_shpId_by_devId_date_time(&shop_id,tDevice.device_id,in_pack->sdate0
,curr_time,0);
if(ret)
{
return ret;
}
// 保存商户号
in_pack->lvol12 = shop_id;
ret = DB_t_pif_device_read_lock_by_cur_and_device_id(in_pack->lvol4,&tDevice);
if(ret)
{
if(DB_NOTFOUND == ret)
return E_DB_DEVICE_N;
else
return E_DB_DEVICE_R;
}
ret = 0;
if(tDevice.state_id == DEVISTAT_LOGOUT)
{
ret = E_DEVICE_NOT_EXIST;
}
else if(tDevice.lasttraserno!= in_pack->lvol5)
{
writelog(LOG_ERR,"中断流水号不符,devid[%d]input serial[%d]"
,in_pack->lvol4,in_pack->lvol5);
ret = E_SERIALNO_NOT_EXIST;
}
DB_t_pif_device_free_lock_cur();
return ret;
}
static void getdata(Message *Msg,ST_PACK *rPack)
{
// char trade_date[9]={0}; // 交易日期
// char trade_time[7]={0}; // 交易时间
//set_msg(Msg->campus_no,"%s","001"); //1学校编号
//des2src(Msg->txcode,"20200"); //2交易代码
// des2src(Msg->userno, rPack->sphone); //3 学工号
// des2src(Msg->usernoalias, rPack->scust_auth2);// 4身份证号
// des2src(Msg->acctperi, rPack->vsmess); //5 对账日期
// des2src(Msg->acctno, rPack->scust_limit2);//6 银行卡号
// set_msg(Msg->due_amount,"%0.2f",rPack->damt0); //7交易金额（格式：180.00）x
// //8
// des2src(Msg->custname, rPack->scust_limit );//9 客户名
// set_msg(Msg->site,"%d",rPack->lvol6); //10
// set_msg(Msg->teller,"%d",rPack->lvol6); //11
// des2src(trade_date, rPack->sdate0); //12 交易日期
// des2src(trade_time, rPack->stime0); //12 交易时间
// set_msg(Msg->time,"%s%s",trade_date,trade_time); //12 交易时间,日期＋时间
// des2src(Msg->comporder, rPack->sholder_ac_no); //13
snprintf(Msg->userno, sizeof(Msg->userno), "%d", rPack->lvol2); //3 客户号
snprintf(Msg->usernoalias, sizeof(Msg->usernoalias), "%s", rPack->scust_auth2); // 身份证号
snprintf(Msg->acctno, sizeof(Msg->acctno), "%s", rPack->scust_limit2); // 银行卡号
snprintf(Msg->custname, sizeof(Msg->custname), "%s", rPack->scust_limit); // 客户名
snprintf(Msg->acctperi, sizeof(Msg->acctperi), "%s", rPack->sdate0); // 交易日期
if(strlen(Msg->acctperi) == 0)// 没有提供日期
getsysdate(Msg->acctperi);
snprintf(Msg->due_amount, sizeof(Msg->due_amount), "%.2f", rPack->damt0);// 交易金额
snprintf(Msg->site, sizeof(Msg->site), "%d", rPack->lvol6);// 终端ID
getsysdatetime(Msg->time); // 交易日期＋时间
if(strlen(rPack->sholder_ac_no) > 8) // 一卡通交易参考号
{
// 一卡通交易参考号 去除 yyMMDD, 作为系统跟踪号
int serial = atoi(&rPack->sholder_ac_no[8]);
snprintf(Msg->comporder, sizeof(Msg->comporder), "%06d", serial); // 公司方流水
snprintf(Msg->comp_o_order, sizeof(Msg->comp_o_order), "%06d", serial); // 公司方流水
}
snprintf(Msg->bankorder, sizeof(Msg->bankorder), rPack->sname); // 银行方流水
snprintf(Msg->bank_o_order, sizeof(Msg->bank_o_order), rPack->sname); // 银行方原交易流水
//print_send_msg(Msg); // 打印发送报文
}
static int doAccount(char *cardaccno)
{
int ret=0;
T_t_aif_account tAccount;
memset(&tAccount,0,sizeof(tAccount));
ret=DB_t_aif_account_read_lock_by_cur_and_account_id(cardaccno,&tAccount);
if(ret)
{
if(DB_NOTFOUND==ret)
return E_DB_ACCOUNT_N;
else
return E_DB_ACCOUNT_R;
}
if(tAccount.current_state!=ACCOUNTSTAT_REGIST)
{
DB_t_aif_account_free_lock_cur();
return E_EACCNO_LOGOUT;
}
if(amtcmp(tAccount.cur_freebala,0)!=0)
{
writelog(LOG_ERR,"balance[%d]",tAccount.cur_freebala);
DB_t_aif_account_free_lock_cur();
return E_EACC_BALANCE_NOZERO;
}
tAccount.current_state=ACCOUNTSTAT_LOGOUT;
getsysdate(tAccount.close_date);
getsystime(tAccount.close_time);
ret=DB_t_aif_account_update_lock_by_cur(&tAccount);
if(ret)
{
if(DB_NOTFOUND==ret)
return E_DB_ACCOUNT_N;
else
return E_DB_ACCOUNT_U;
}
return 0;
}
int F843358(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret=0;
CAccTrans& ats=CAccTrans::GetInst();
des2src(ats.trans.opercode,rPack->semp);
ats.trans.transcode=MAKETRANSCODEADD(TCM_DEPOSITOPER);
ret=ats.InitTrans();
if(ret)
return ret;
T_t_dpsoper tDepositOper;
memset(&tDepositOper,0,sizeof(tDepositOper));
//添加操作员
des2src(tDepositOper.opercode,rPack->scust_auth);
tDepositOper.maxdepositamt=rPack->damt0;
tDepositOper.status[0]=rPack->sstatus1[0];
tDepositOper.devlimitflag[0]=rPack->sstatus2[0];
tDepositOper.shopoperflag[0]=rPack->sstatus3[0];
if(tDepositOper.shopoperflag[0]=='1')
{
if(tDepositOper.devlimitflag[0]!='1');
{
return E_DEPOSITSHOPOPER_MUST_LIMITDEV;
}
}
getsysdate(tDepositOper.opendate);
des2src(tDepositOper.lastsaved,CAccTrans::GetInst().hostdatetime);
ret=DB_t_dpsoper_add(&tDepositOper);
if(ret)
{
if(DB_REPEAT==ret)
return E_DB_DEPOSITOPER_E;
else
return E_DB_DEPOSITOPER_I;
}
return 0;
}
/**
* \brief 处理网银转账入账业务
* \param in_pack 请求报文包
* \param out_pack 输出报文包
* \param online_tx 联机交易，当为1时，如果个人账户已注销，则不能交易，
* 当为0时，如果个人账户已注销，则借记 现金，贷记 营业成本
*/
int do_849009(ST_PACK *in_pack,char *szMsg,ST_PACK *out_pack,int online_tx)
{
int cust_id,card_id;
int subsidy_no;
int ret,count;
char temp[64];
double max_subsidy_money = 0.0;
double total_money,dSerial;
T_t_tif_subsidy subsidy;
T_t_tif_tradeserial tSerial;
T_t_aif_account account;
T_t_tif_meslist tMesList;
InAcc IA;
if(amtcmp(in_pack->damt0,0.0) <= 0)
{
writelog(LOG_DEBUG,"input money error!");
return E_INPUT_AMT;
}
memset(temp,0,sizeof temp);
ret = GetParameter(GLOBAL_MAX_PER_SUBSIDY,temp);
if(ret)
{
return ret;
}
max_subsidy_money = D4U5(atof(temp),2);
// 流水号
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dSerial);
if(ret)
{
return ret;
}
// 查询卡信息
ret = do_849008_query(in_pack,&cust_id,&card_id);
if(ret)
{
writelog(LOG_DEBUG,"query customer information error!,ret[%d]",ret);
return ret;
}
// 账户信息
memset(&account,0,sizeof account);
ret = DB_t_aif_account_read_by_card_id_and_purse_id(card_id,in_pack->lvol3,&account);
if(ret)
{
// 账户表无信息
if(DB_NOTFOUND == ret)
return E_DB_ACCOUNT_N;
else
return E_DB_ACCOUNT_R;
}
// 生成流水记录
memset(&tSerial,0,sizeof tSerial);
writelog(LOG_DEBUG,"cust_id[%d],Serial_no[%d]]",cust_id,in_pack->lvol2);
ret = do_849008_query_serial(cust_id,in_pack->lvol2,&tSerial);
if(ret)
{
return ret;
}
// 认为已经入账成功，直接返回结果
if(tSerial.serial_no > 0)
{
out_pack->lvol0 = tSerial.card_id;
out_pack->lvol1 = tSerial.serial_no;
out_pack->lvol2 = tSerial.customer_id;
out_pack->damt0 = tSerial.trade_fee;
return 0;
}
memset(&IA,0,sizeof IA);
tSerial.serial_no = D2I(dSerial);
tSerial.serial_type = TXCODE_NETFEE_TRANS; // 网银转账
tSerial.serial_state = SERISTAT_DEBT;
des2src(tSerial.oper_code,in_pack->scust_no2);
des2src(tSerial.operate_date,in_pack->sdate0);
des2src(tSerial.operate_time,in_pack->stime0);
GetLogicDate(tSerial.enteract_date);
getsystime(tSerial.enteract_time);
getsysdate(tSerial.collect_date);
des2src(tSerial.collect_time,tSerial.enteract_time);
tSerial.customer_id = cust_id;
tSerial.card_id = card_id;
tSerial.in_balance = 0.0;
tSerial.out_balance = 0.0;
tSerial.trade_fee = in_pack->damt0;
tSerial.other_seri_no = in_pack->lvol2; // 银行端流水号
if(account.current_state >= ACCOUNTSTAT_LOGOUT)
{
// 个人账户已经注销
if(online_tx)
return E_ACTNO_LOGOUT;
// 借记 银行存款 贷记 营业成本
des2src(IA.sArrInActno[3],"1021");
IA.dArrInAmt[1] = tSerial.trade_fee;
}
else
{
// 个人账户号
des2src(IA.sArrInActno[0],account.account_id);
IA.dArrInAmt[0] = tSerial.trade_fee;
}
IA.iFeeType=1;
ret = process(&IA,&tSerial);
if(ret)
{
writelog(LOG_ERR,"入账失败,cust_id[%d],card_id[%d],ret[%d]"
,cust_id,card_id,ret);
return ret;
}
ret = DB_t_tif_tradeserial_add(&tSerial);
if(ret)
{
writelog(LOG_ERR,"记录流水失败");
return E_DB_TRADESERIAL_I;
}
// 先入账
total_money = 0.0;
count = 0;
memset(&subsidy,0,sizeof subsidy);
subsidy.cust_no = cust_id;
getsysdatetime(subsidy.batch_no);
des2src(subsidy.oper_code,tSerial.oper_code);
strcpy(subsidy.summary,"网银转账");
strcpy(subsidy.expire_date,"20500101");
subsidy.bill_type = TYPE_CASH;
subsidy.card_no = card_id;
des2src(subsidy.tx_date,tSerial.operate_date);
des2src(subsidy.tx_time,tSerial.operate_time);
subsidy.status[0] = SUBSIDY_STAT_NORMAL;
strcpy(subsidy.subsidytype,"1");
subsidy.amount = D4U5(in_pack->damt0 - total_money,2);
if(amtcmp(subsidy.amount,0.0) <= 0)
{
// 剩余金额为 0, 不可能出现小于 0
// break;
ret=E_MOBILE_TRANS_ZERO;
return ret;
}
else if(amtcmp(subsidy.amount,max_subsidy_money) > 0.0)
{
// 单笔金额不能大于最大值
//subsidy.amount = max_subsidy_money;
ret=E_MOBILE_TRANS_MAX;
return ret;
}
total_money = D4U5(total_money+subsidy.amount,2);
ret = calc_card_max_subsidy_no(cust_id,card_id,&subsidy_no);
if(ret)
{
writelog(LOG_DEBUG,"cannot calculate max subsidy NO,cust[%d],card[%d],ret[%d]",
cust_id,card_id,ret);
return ret;
}
subsidy.subsidy_no = subsidy_no;
ret = DB_t_tif_subsidy_add(&subsidy);
if(ret)
{
// 记录信息失败
if(DB_REPEAT == ret)
return E_DB_SUBSIDY_E;
else
return E_DB_SUBSIDY_I;
}
out_pack->lvol0 = card_id;
out_pack->lvol1 = tSerial.serial_no;
out_pack->lvol2 = tSerial.customer_id;
out_pack->damt0 = tSerial.trade_fee;
return 0;
}
static int packege_send_data(ST_PACK *in_pack,int flag,char *send_data){
int ret =0;
//char cellphone[31]=""; //充值手机号
double money=0; //充值金额
char sysdate[11]="";
char systime[9]="";
char sysdatetime[20]="";
char serialno[20]="";
char sMoney[20]="";
T_t_pif_card tCard;
// ext_phone_trans_t phone_trans_struct;
ext_phone_trans_t* phone_trans_struct;
phone_trans_struct=(ext_phone_trans_t*)send_data;
memset(&tCard,0,sizeof(tCard));
memset(phone_trans_struct,0,sizeof(ext_phone_trans_t));
phone_trans_struct->prix[0]=0x31;
memcpy(phone_trans_struct->length,"0067",4);
if(1==flag)
{
memcpy(phone_trans_struct->type,"0100",4);
}
else if(2==flag)
{
memcpy(phone_trans_struct->type,"0200",4);
}
//memcpy(phone_trans_struct->bitery,"0000000000000000",16);
memset(phone_trans_struct->bitery,'0',sizeof(phone_trans_struct->bitery));
ret=DB_t_pif_card_read_by_card_id(in_pack->lvol0, &tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
ret=E_CARDNO_NOT_EXIST;
else
ret=E_DB_CARD_R;
return ret;
}
sprintf(phone_trans_struct->cutid,"%-22d",tCard.cosumer_id);
money = in_pack->damt1;
int i_money=D2I(D4U5(money*100,0));
sprintf(sMoney,"%07d",i_money);
memcpy(phone_trans_struct->money,sMoney,sizeof(phone_trans_struct->money));
ret=get_datetime_from_db(sysdate,systime);
if(ret)
{
writelog(LOG_ERR,"get_datetime_from_db error,error code=[%d]",ret);
getsysdate(sysdate);
getsystime(systime);
}
strcpy(sysdatetime,sysdate+4);
strcat(sysdatetime,systime);
memcpy(phone_trans_struct->datetime,sysdatetime,10);
memcpy(phone_trans_struct->tracenum,sysdate,8);
sprintf(serialno,"%06d",in_pack->lvol6%1000000);
memcpy(phone_trans_struct->tracenum+8,serialno,6);
memcpy(phone_trans_struct->phone,in_pack->sphone,strlen(in_pack->sphone));
memcpy(phone_trans_struct->retnum,"00",2);
memset(phone_trans_struct->plugdata,0x20,sizeof(phone_trans_struct->plugdata));
/*
memcpy(send_data,phone_trans_struct->prix,1);
memcpy(send_data+1,phone_trans_struct->length,4);
memcpy(send_data+5,phone_trans_struct->type,4);
memcpy(send_data+9,phone_trans_struct->bitery,16);
memcpy(send_data+25,phone_trans_struct->cutid,22);
memcpy(send_data+47,phone_trans_struct->money,7);
memcpy(send_data+54,phone_trans_struct->datetime,10);
memcpy(send_data+64,phone_trans_struct->tracenum,14);
memcpy(send_data+78,phone_trans_struct->phone,11);
memcpy(send_data+89,phone_trans_struct->retnum,2);
memcpy(send_data+91,phone_trans_struct->plugdata,36);
*/
writelog(LOG_ERR,"package send data=[%s]",send_data);
return 0;
}
//系统正式入账
int enter_account(ST_PACK *in_pack,InAcc *IA,ST_PACK *out_pack){
int ret = 0;
int i=0;
int card_id = 0;
char logicdate[11]="";
char sysdate[11]="";
char systime[9]="";
char sMsg[256]="";
T_t_tif_tradeserial tradeserial;
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
T_t_aif_account tAccount;
T_t_pif_card tCard;
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tSpeFee,0,sizeof(tSpeFee));
memset(&tAccount,0,sizeof(tAccount));
memset(&tCard,0,sizeof(tCard));
card_id=in_pack->lvol0;
ret=get_datetime_from_db(sysdate,systime);
if(ret)
{
writelog(LOG_ERR,"get_datetime_from_db error,error code=[%d]",ret);
getsysdate(sysdate);
getsystime(systime);
return ret;
}
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
writelog(LOG_ERR,"GetLogicDate error,errcode=[%d]",ret);
return ret;
}
ret=DB_t_pif_card_read_by_card_id(card_id, &tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
ret=E_CARDNO_NOT_EXIST;
else
ret=E_DB_CARD_R;
return ret;
}
if(strncmp(tCard.state_id,CARDSTAT_REG,4)!=0)
{
if('2'==tCard.state_id[CARDSTAT_TYPE_REG])
ret= E_CARDNO_LOGOUT;
else if('3'==tCard.state_id[CARDSTAT_TYPE_REG])
ret = E_CARD_CHANGE;
else if(tCard.state_id[CARDSTAT_TYPE_LOST]==STATE_TRUE)
ret=E_CARDNO_LOST;
else if(tCard.state_id[CARDSTAT_TYPE_FREEZE]==STATE_TRUE)
ret=E_CARDNO_FREEZE;
else if(tCard.state_id[CARDSTAT_TYPE_WFAIL]==STATE_TRUE)
ret=E_CARDNO_WFAIL;
return ret;
}
//根据卡号和钱包号得到消费者账号(借方)
ret=DB_t_aif_account_read_by_card_id_and_purse_id(card_id, PURSE_NO_ONE,&tAccount);
if(ret)
{
writelog(LOG_ERR,"DB_t_aif_account_read_by_card_id_and_purse_id ret[%d]card_id[%d]",ret,card_id);
if(DB_NOTFOUND==ret)
ret=E_ACTNO_NOT_EXIST;
else
ret=E_DB_ACCOUNT_R;
return ret;
}
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(tCard.cosumer_id, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",tCard.cosumer_id);
if(DB_NOTFOUND==ret)
ret= E_CUSTOMER_NOT_EXIST;
else
ret= E_DB_CUSTOMER_R;
return ret;
}
//得到收费类别
if(0==tCustomer.fee_type)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
return E_DB_SPEFEE_R;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
ret= E_CUSTOMER_NOT_EXIST;
else
ret= E_DB_CUSTOMER_U;
return ret;
}
}
DB_t_cif_customer_free_lock_cur();
ret = DB_t_tif_tradeserial_read_lock_by_cur_and_serial_no(in_pack->lvol6,&tradeserial);
if(ret)
{
if(DB_NOTFOUND == ret){
ret = E_DB_TRADESERIAL_N;
}else{
ret = E_DB_TRADESERIAL_R;
}
}
IA->iCardNo=tCard.card_id;
IA->iFeeType=tCustomer.fee_type;
IA->dArrInAmt[0]=tradeserial.trade_fee;
IA->iMainDevId=tradeserial.maindevice_id; //工作站标识
IA->iDevId=tradeserial.device_id; //设备ID
IA->iSerialNo=tradeserial.serial_no; //流水号
IA->iTradeNo=tradeserial.serial_type; //交易码
strcpy(IA->sTxDate,tradeserial.operate_date); //交易日期
strcpy(IA->sTxTime,tradeserial.operate_time); //交易时间
strcpy(IA->sTxCollectDate,tradeserial.collect_date); //采集日期
strcpy(IA->sTxCollectTime,tradeserial.collect_time); //采集时间
strcpy(IA->sTxAccDate,tradeserial.enteract_date); //记账日期
strcpy(IA->sTxAccTime,tradeserial.enteract_time); //记账时间
strcpy(IA->sMdeOper,tradeserial.oper_code); //操作员
strcpy(IA->sChkOper,tradeserial.reserve_1); //复核操作员
IA->iUseCardFlag=USE_CARD_TYPE_ONLINE; //联机交易
IA->iTxCnt=tradeserial.trade_count; //交易次数
IA->dInCardBala=tradeserial.in_balance; //入卡值
IA->dOutCardBala=-1; //出卡值
//修改借方和贷方帐户余额，记会计分录帐
ret=AccountProcess(IA);
if(ret)
{
writelog(LOG_ERR,"AccountProcess ret[%d]",ret);
return ret;
}
tradeserial.out_balance=IA->dOutCardBala; //出卡值
if(amtcmp(tradeserial.out_balance,0)<0)
{
return E_ENTER_ACCOUNT;
}
for(i=1;i<=IA->iOutTxTypeCnt;i++)
{
switch(IA->iArrOutTxType[i])
{
case TXTYPE_TOLL_DEPOSIT:
case TXTYPE_TOLL_DEPOSIT_BILL:
case TXTYPE_TOLL_DEPOSIT_FUNDBOOK:
case TXTYPE_DEDUCT_DEPOSIT:
case TXTYPE_RETURN_DEPOSIT:
tradeserial.deposit_fee=IA->dArrOutAmt[i];
break;
case TXTYPE_PRE_TOLL_BOARD:
case TXTYPE_PRE_TOLL_BOARD_BILL:
case TXTYPE_BANK_PRE_TOLL_BOARD:
case TXTYPE_PRE_TOLL_BOARD_FUNDBOOK:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_CASH:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_BILL:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_FUNDBOOK:
case TXTYPE_TOLL_BOARD:
case TXTYPE_DEDUCT_BOARD:
case TXTYPE_RETURN_BOARD:
case TXTYPE_RETURN_BOARD_BILL:
case TXTYPE_RETURN_BOARD_FUNDBOOK:
tradeserial.boardfee=IA->dArrOutAmt[i];
break;
case TXTYPE_TOLL_CHARGE:
case TXTYPE_TOLL_CHARGE_BILL:
case TXTYPE_TOLL_CHARGE_FUNDBOOK:
tradeserial.in_fee=IA->dArrOutAmt[i];
break;
case TXTYPE_TOLL_CARDCOST:
case TXTYPE_TOLL_CARDCOST_BILL:
case TXTYPE_TOLL_CARDCOST_FUNDBOOK:
tradeserial.cost_fee=IA->dArrOutAmt[i];
break;
default:
break;
}
if(amtcmp(IA->dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA->sArrOutTxName[i],IA->dArrOutAmt[i]);
}
}
tradeserial.serial_state=SERISTAT_DEBT;
ret = DB_t_tif_tradeserial_update_lock_by_cur(&tradeserial);
if(ret)
{
writelog(LOG_ERR,"db update t_tif_tradeserial error,errcode=[%d]",ret);
return E_DB_TRADESERIAL_U;
}
DB_t_tif_tradeserial_free_lock_cur();
out_pack->damt0=tradeserial.out_balance; //出卡值
out_pack->damt1=tradeserial.trade_fee; //交易金额
out_pack->lvol0 = tradeserial.serial_no; //流水号
sprintf(sMsg,"交易前卡余额:%.2lf元 卡当前余额:%.2lf元",tradeserial.in_balance,tradeserial.out_balance);
strcat(out_pack->vsmess,sMsg);
writelog(LOG_DEBUG,out_pack->vsmess);
return 0;
}
static int packege_elec_request(ST_PACK *in_pack,int flag,char *send_data){
int ret;
ext_elect_req_t* elect_req_t;
elect_req_t=(ext_elect_req_t*)send_data;
double money=0; //充值金额
char serialno[10]="";
char sysdate[11]="";
char systime[9]="";
char sysdatetime[20]="";
unsigned char buf[106]="";
unsigned char soutmd5[16]="";
char outmd5[32]="";
T_t_pif_card tCard;
memset(&tCard,0,sizeof(tCard));
if(flag==1){//房间查询不加密
memcpy(elect_req_t->prix,"0",1);
}else{
memcpy(elect_req_t->prix,"1",1);
}
memcpy(elect_req_t->length,"0141",4);
if(flag==1){
memcpy(elect_req_t->type,"0001",4);
}else if(flag==2){
memcpy(elect_req_t->type,"0002",4);
}
memset(elect_req_t->bitery,'0',sizeof(elect_req_t->bitery));
sprintf(elect_req_t->room,"%-20s",in_pack->saddr);
ret=DB_t_pif_card_read_by_card_id(in_pack->lvol0, &tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
ret=E_CARDNO_NOT_EXIST;
else
ret=E_DB_CARD_R;
return ret;
}
sprintf(elect_req_t->cutid,"%-22d",tCard.cosumer_id);
money = in_pack->damt1;
int i_money=D2I(D4U5(money*100,0));
sprintf(elect_req_t->money,"%07d",i_money);
ret=get_datetime_from_db(sysdate,systime);
if(ret)
{
writelog(LOG_ERR,"get_datetime_from_db error,error code=[%d]",ret);
getsysdate(sysdate);
getsystime(systime);
}
strcpy(sysdatetime,sysdate+4);
strcat(sysdatetime,systime);
memcpy(elect_req_t->datetime,sysdatetime,10);
memcpy(elect_req_t->tracenum,sysdate,8);
sprintf(serialno,"%010d",in_pack->lvol6);
memcpy(elect_req_t->tracenum+8,serialno,10);
memcpy(elect_req_t->retnum,"0000",4);
memcpy(elect_req_t->clientid,"0001",4);
memset(outmd5,'0',32);
if(flag==1){
sprintf(elect_req_t->signcheck,"%s",outmd5);
}else if(flag==2){
memcpy(buf,elect_req_t->type,105);
writelog(LOG_ERR,"buf data=[%s]",buf);
CalcMD5(buf,105,soutmd5);
dec2hex(soutmd5,16,outmd5);
writelog(LOG_ERR,"outmd5 data=[%s]",outmd5);
sprintf(elect_req_t->signcheck,"%s",outmd5);
}
return 0;
}
///////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////
//系统模拟入账
int tend_to_enter_account(ST_PACK *in_pack,InAcc *IA,int trade_code,T_t_tif_tradeserial *tradeserial){
int ret = 0;
int i=0;
int card_id = 0;
char Operator[33+1] = "";
int maindevice_id = 0;
int device_id = 0;
char logicdate[11]="";
char sysdate[11]="";
char systime[9]="";
double dUniqno = 0;
char sMsg[256]="";
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
T_t_aif_account tAccount;
T_t_pif_card tCard;
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tSpeFee,0,sizeof(tSpeFee));
memset(&tAccount,0,sizeof(tAccount));
memset(&tCard,0,sizeof(tCard));
card_id=in_pack->lvol0;
ret=get_datetime_from_db(sysdate,systime);
if(ret)
{
writelog(LOG_ERR,"get_datetime_from_db error,error code=[%d]",ret);
getsysdate(sysdate);
getsystime(systime);
return ret;
}
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
writelog(LOG_ERR,"GetLogicDate error,errcode=[%d]",ret);
return ret;
}
ret=DB_t_pif_card_read_by_card_id(card_id, &tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
ret=E_CARDNO_NOT_EXIST;
else
ret=E_DB_CARD_R;
return ret;
}
if(strncmp(tCard.state_id,CARDSTAT_REG,4)!=0)
{
if('2'==tCard.state_id[CARDSTAT_TYPE_REG])
ret= E_CARDNO_LOGOUT;
else if('3'==tCard.state_id[CARDSTAT_TYPE_REG])
ret = E_CARD_CHANGE;
else if(tCard.state_id[CARDSTAT_TYPE_LOST]==STATE_TRUE)
ret=E_CARDNO_LOST;
else if(tCard.state_id[CARDSTAT_TYPE_FREEZE]==STATE_TRUE)
ret=E_CARDNO_FREEZE;
else if(tCard.state_id[CARDSTAT_TYPE_WFAIL]==STATE_TRUE)
ret=E_CARDNO_WFAIL;
return ret;
}
//根据卡号和钱包号得到消费者账号(借方)
ret=DB_t_aif_account_read_by_card_id_and_purse_id(card_id, PURSE_NO_ONE,&tAccount);
if(ret)
{
writelog(LOG_ERR,"DB_t_aif_account_read_by_card_id_and_purse_id ret[%d]card_id[%d]",ret,card_id);
if(DB_NOTFOUND==ret)
ret=E_ACTNO_NOT_EXIST;
else
ret=E_DB_ACCOUNT_R;
return ret;
}
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(tCard.cosumer_id, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",tCard.cosumer_id);
if(DB_NOTFOUND==ret)
ret= E_CUSTOMER_NOT_EXIST;
else
ret= E_DB_CUSTOMER_R;
return ret;
}
//得到收费类别
if(0==tCustomer.fee_type)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
return E_DB_SPEFEE_R;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
ret= E_CUSTOMER_NOT_EXIST;
else
ret= E_DB_CUSTOMER_U;
return ret;
}
}
DB_t_cif_customer_free_lock_cur();
des2src(Operator,in_pack->scust_no); //操作员号 //采集设备标识
// 准备数据插入交易流水表
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dUniqno); //获得最大流水号
if(ret)
{
writelog(LOG_ERR,"getNewUniqNo error,errcode=[%d]",ret);
return ret;
}
strncpy(tradeserial->operate_date,sysdate,sizeof(sysdate)-1); //发生日期
strncpy(tradeserial->operate_time,systime,sizeof(systime)-1);
des2src(tradeserial->collect_date,tradeserial->operate_date); //采集日期
des2src(tradeserial->collect_time,tradeserial->operate_time); //采集时间
des2src(tradeserial->enteract_date,logicdate); //处理日期
des2src(tradeserial->enteract_time,tradeserial->operate_time); //处理时间
tradeserial->serial_no = D2I(dUniqno); //流水号
tradeserial->serial_type = trade_code; //流水类型
tradeserial->purse_id = PURSE_NO_ONE; //钱包号
tradeserial->serial_state = SERISTAT_NODEBT; //流水状态
tradeserial->maindevice_id = maindevice_id; //上传工作站标识
tradeserial->device_id = device_id; //采集设备标识
tradeserial->card_id = card_id; //交易卡号
tradeserial->customer_id=tCard.cosumer_id; //客户号
des2src(tradeserial->oper_code,Operator);
tradeserial->trade_count=in_pack->lvol1+1; //交易次数
tradeserial->in_balance=in_pack->damt0; //入卡值
tradeserial->trade_fee=in_pack->damt1; //交易金额
strncpy(tradeserial->reserve_2,in_pack->vsmess,sizeof(tradeserial->reserve_2)-1);
IA->iCardNo=tCard.card_id;
IA->iFeeType=tCustomer.fee_type;
IA->dArrInAmt[0]=tradeserial->trade_fee;
IA->iMainDevId=tradeserial->maindevice_id; //工作站标识
IA->iDevId=tradeserial->device_id; //设备ID
IA->iSerialNo=tradeserial->serial_no; //流水号
IA->iTradeNo=tradeserial->serial_type; //交易码
strcpy(IA->sTxDate,tradeserial->operate_date); //交易日期
strcpy(IA->sTxTime,tradeserial->operate_time); //交易时间
strcpy(IA->sTxCollectDate,tradeserial->collect_date); //采集日期
strcpy(IA->sTxCollectTime,tradeserial->collect_time); //采集时间
strcpy(IA->sTxAccDate,tradeserial->enteract_date); //记账日期
strcpy(IA->sTxAccTime,tradeserial->enteract_time); //记账时间
strcpy(IA->sMdeOper,tradeserial->oper_code); //操作员
strcpy(IA->sChkOper,tradeserial->reserve_1); //复核操作员
IA->iUseCardFlag=USE_CARD_TYPE_ONLINE; //联机交易
IA->iTxCnt=tradeserial->trade_count; //交易次数
IA->dInCardBala=tradeserial->in_balance; //入卡值
IA->dOutCardBala=-1; //出卡值
//修改借方和贷方帐户余额，记会计分录帐
ret=AccountProcess(IA);
if(ret)
{
writelog(LOG_ERR,"AccountProcess ret[%d]",ret);
return ret;
}
tradeserial->out_balance=IA->dOutCardBala; //出卡值
if(amtcmp(tradeserial->out_balance,0)<0)
{
return E_ENTER_ACCOUNT;
}
for(i=1;i<=IA->iOutTxTypeCnt;i++)
{
switch(IA->iArrOutTxType[i])
{
case TXTYPE_TOLL_DEPOSIT:
case TXTYPE_TOLL_DEPOSIT_BILL:
case TXTYPE_TOLL_DEPOSIT_FUNDBOOK:
case TXTYPE_DEDUCT_DEPOSIT:
case TXTYPE_RETURN_DEPOSIT:
tradeserial->deposit_fee=IA->dArrOutAmt[i];
break;
case TXTYPE_PRE_TOLL_BOARD:
case TXTYPE_PRE_TOLL_BOARD_BILL:
case TXTYPE_BANK_PRE_TOLL_BOARD:
case TXTYPE_PRE_TOLL_BOARD_FUNDBOOK:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_CASH:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_BILL:
case TXTYPE_SUBSIDY_PRE_TOLL_BOARD_FUNDBOOK:
case TXTYPE_TOLL_BOARD:
case TXTYPE_DEDUCT_BOARD:
case TXTYPE_RETURN_BOARD:
case TXTYPE_RETURN_BOARD_BILL:
case TXTYPE_RETURN_BOARD_FUNDBOOK:
tradeserial->boardfee=IA->dArrOutAmt[i];
break;
case TXTYPE_TOLL_CHARGE:
case TXTYPE_TOLL_CHARGE_BILL:
case TXTYPE_TOLL_CHARGE_FUNDBOOK:
tradeserial->in_fee=IA->dArrOutAmt[i];
break;
case TXTYPE_TOLL_CARDCOST:
case TXTYPE_TOLL_CARDCOST_BILL:
case TXTYPE_TOLL_CARDCOST_FUNDBOOK:
tradeserial->cost_fee=IA->dArrOutAmt[i];
break;
default:
break;
}
if(amtcmp(IA->dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA->sArrOutTxName[i],IA->dArrOutAmt[i]);
}
}
ret = db_rollback();
if(ret)
{
writelog(LOG_ERR,"db_roll_back error,errcode=[%d]",ret);
return E_DB_ROLLBACK;
}
return 0;
}
int AccountProcess(InAcc *IA)
{
int ret=-1;
int iTxType=0; //交易类型
char num_exp[256]="";
char sFee[256]="";
char sFormula[256]="";
char sIdxDbActNo[4]="";
char sIdxCrActNo[4]="";
char sVocNo[21] = "";
char cur_date[9]="";
char tradetime[15] = "";
double dExpCalAmt=0;
int iVocType = VOCTYPE_DEFALUT;
char * pMessage = (char*)IA->pVoidPointer;
int i = 0;
// int idx=0;
int idxTxCfg=-1;
int idxSubCfg=-1;
int config_cnt=1;
int db_amt_flag=0;
int cr_amt_flag=0;
double dInCardBala=0;
double dCardBala=0;
double dOutCardBala=0;
T_t_pif_card tCard;
T_t_aif_account tAccountDb;
T_t_aif_account tAccountCr;
T_t_tif_tradelog tTradelogDb;
T_t_tif_tradelog tTradelogCr;
getsysdate(cur_date);
sprintf(tradetime,"%s%s",IA->sTxDate,IA->sTxTime);
ret=InitTxFeeCfg(IA->iTradeNo);
if(ret)
return ret;
ret=InitSplitCfg();
if(ret)
return ret;
ret=InitSubjectCfg();
if(ret)
return ret;
//根据交易码和客户收费类别读交易配置表
if(IA->iFeeType<1)
{
return E_CUSTOMER_NO_FEE_TYPE;
}
idxTxCfg=GetIndexTxFeeCfgByTxCode(IA->iTradeNo,IA->iFeeType);
if(idxTxCfg<0)
{
//如果没有取默认值
idxTxCfg=GetIndexTxFeeCfgByTxCode(IA->iTradeNo,0);
if(idxTxCfg<0)
{
writelog(LOG_ERR,"tx_code[%d]fee_type[%d]",IA->iTradeNo,IA->iFeeType);
return E_CUSTOMER_NO_RIGHT;
}
}
dInCardBala=IA->dInCardBala;
dCardBala=IA->dInCardBala;
dOutCardBala=IA->dOutCardBala;
for(config_cnt=1; config_cnt<=MAXNUM_CFGSPLIT; config_cnt++)
{
//开始遍历收费集合
ret=GetValueFromFmtBuf(CfgFee.ArrCfgFee[idxTxCfg].fee_list,",",config_cnt,sFee);
if(ret)
{
if(1==config_cnt)
{
writelog(LOG_ERR, "TxCode[%d]FeeType[%d]fee_list[%s]",IA->iTradeNo,IA->iFeeType,CfgFee.ArrCfgFee[idxTxCfg].fee_list);
return E_TXCODE_NOT_CONFIG; //交易未配置
}
//writelog(LOG_ERR,"GetValueFromFmtBuf return error [%d]",ret);
break;
}
iTxType=atoi(sFee);
if(iTxType<0)
{
writelog(LOG_ERR,"tx_code[%d]fee_type[%d]",IA->iTradeNo,IA->iFeeType);
return E_CUSTOMER_NO_RIGHT;
}
// writelog(LOG_DEBUG,"fee_list[%s]sFee[%s]",CfgFee.ArrCfgFee[idxTxCfg].fee_list,sFee);
ret=GetValueFromFmtBuf(CfgFee.ArrCfgFee[idxTxCfg].formula_list,",",config_cnt,sFormula);
if(ret)
{
writelog(LOG_ERR, "TxCode[%d]FeeType[%d]formula_list[%s]",IA->iTradeNo,IA->iFeeType,CfgFee.ArrCfgFee[idxTxCfg].formula_list);
return E_EXP_NOT_CFG; //交易未配置
}
// writelog(LOG_DEBUG,"formula_list[%s]Formula[%s]",CfgFee.ArrCfgFee[idxTxCfg].formula_list,sFormula);
//得到收费类型
/*
switch(iTxType)
{
// case TXTYPE_TOLL_DEPOSIT: //收押金
case TXTYPE_RETURN_DEPOSIT: //退押金
case TXTYPE_DEDUCT_DEPOSIT: //扣押金
memset(&tCard,0,sizeof(tCard));
if(IA->iCardNo<1)
{
return E_INPUT_CARDNO_CANNOT_NULL;
}
ret=DB_t_pif_card_read_by_card_id(IA->iCardNo,&tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
return E_CARDNO_NOT_EXIST;
else
return E_DB_CARD_R;
}
dExpCalAmt=tCard.deposit_fee;
break;
default:
ret=VarExp2NumExp(IA->dArrInAmt,IA->iArrInFeeSwitch,sFormula,num_exp);
if(ret)
{
writelog(LOG_ERR,"ret[%d]txcode[%d]txtype[%d]formula[%s]",ret,IA->iTradeNo, iTxType,sFormula);
return E_EXP_CFG;
}
// writelog(LOG_ERR,"formula[%s]num_exp[%s]",sFormula,num_exp);
ret=ExpCalAmt(num_exp, &dExpCalAmt);
if(ret)
{
writelog(LOG_ERR,"formula[%s]num_exp[%s]",sFormula,num_exp);
return E_EXP_CFG;
}
writelog(LOG_ERR,"formula[%s]num_exp[%s]amt[%lf]",sFormula,num_exp,dExpCalAmt);
break;
}
*/
//根据公式计算发生额
ret=VarExp2NumExp(IA->dArrInAmt,IA->iArrInFeeSwitch,sFormula,num_exp);
if(ret)
{
writelog(LOG_ERR,"ret[%d]txcode[%d]txtype[%d]formula[%s]",ret,IA->iTradeNo, iTxType,sFormula);
return E_EXP_CFG;
}
// writelog(LOG_DEBUG,"formula[%s]num_exp[%s]",sFormula,num_exp);
ret=ExpCalAmt(num_exp, &dExpCalAmt);
if(ret)
{
writelog(LOG_ERR,"formula[%s]num_exp[%s]",sFormula,num_exp);
return E_EXP_CFG;
}
dExpCalAmt=D4U5(dExpCalAmt,2);
// writelog(LOG_DEBUG,"formula[%s]num_exp[%s]amt[%.4lf]",sFormula,num_exp,dExpCalAmt);
//如果金额为0则continue
if(amtcmp(dExpCalAmt,0)==0)
{
continue;
}
else if(amtcmp(dExpCalAmt,0)<0)
{
//如果不是冲正交易则不允许金额小于0
if(ACC_TYPE_NORMAL == IA->iTxFlag)
{
writelog(LOG_DEBUG,"交易名称[%s]当前交易金额[%.4lf]",CfgSplit.ArrCfgsplit[iTxType].txname,dExpCalAmt);
if(IA->pVoidPointer != NULL)
{
sprintf((char*)IA->pVoidPointer,"%.2lf",dExpCalAmt);
}
return E_AMT_LACK;
}
}
else
{
//冲正交易不允许金额大于0
if(ACC_TYPE_RUSH == IA->iTxFlag)
{
writelog(LOG_DEBUG,"交易名称[%s]当前交易金额[%.4lf]",CfgSplit.ArrCfgsplit[iTxType].txname,dExpCalAmt);
return E_INPUT_AMT;
}
}
//类型为0的交易是用来检查输入金额是否有错误
if(0==iTxType)
{
writelog(LOG_DEBUG,"交易名称[%s]当前交易金额[%.4lf]",CfgSplit.ArrCfgsplit[iTxType].txname,dExpCalAmt);
return E_INPUT_AMT;
}
memset(sIdxDbActNo,0,sizeof(sIdxDbActNo));
memset(sIdxCrActNo,0,sizeof(sIdxCrActNo));
memset(&tTradelogDb, 0, sizeof(tTradelogDb));
memset(&tTradelogCr, 0, sizeof(tTradelogCr));
switch (CfgSplit.ArrCfgsplit[iTxType].dbflag)
{
case TYPE_INPUT:
/*
ret=GetValueFromFmtBuf(CfgFee.ArrCfgFee[idxTxCfg].idxdbactno_list,",",config_cnt,sIdxDbActNo);
if(ret)
{
writelog(LOG_ERR, "TxCode[%d]FeeType[%d]idxdbactno_list[%s]",IA->iTradeNo,IA->iFeeType,CfgFee.ArrCfgFee[idxTxCfg].idxdbactno_list);
return E_ACTNO_IDX_NOT_CFG; //交易未配置
}
idx=atoi(sIdxDbActNo);
if(idx<0)
return E_ACTNO_IDX_CFG;
strcpy(tTradelogDb.act_id, IA->sArrInActno[idx]); //借方账号
*/
if(TXCODE_CARD_DBCR!=IA->iTradeNo)
{
if(strcmp(CfgSplit.ArrCfgsplit[iTxType].dbsubno,CfgSplit.ArrCfgsplit[iTxType].crsubno)!=0)
{
if(strncmp(CfgSplit.ArrCfgsplit[iTxType].dbsubno,SUBJECT_INDIVIDUALSAVING,3)==0)
strcpy(tTradelogDb.act_id, IA->sArrInActno[0]); //借方账号(person)
else if(strncmp(CfgSplit.ArrCfgsplit[iTxType].dbsubno,SUBJECT_SHOPSAVING,3)==0)
strcpy(tTradelogDb.act_id, IA->sArrInActno[1]); //借方账号(shop)
else
strcpy(tTradelogDb.act_id, IA->sArrInActno[2]); //借方账号
}
else
{
strcpy(tTradelogDb.act_id, IA->sArrInActno[0]); //借方账号(person)
}
}
else
{
strcpy(tTradelogDb.act_id, IA->sArrInActno[0]); //借方账号(person)
}
break;
case TYPE_CONFIG:
strcpy(tTradelogDb.act_id, CfgSplit.ArrCfgsplit[iTxType].dbactno);
break;
default:
writelog(LOG_ERR, " TxType=[%d]",iTxType,CfgSplit.ArrCfgsplit[iTxType].dbflag);
return E_DB_TRADEACT_R;
}
//修改借方帐户余额
tTradelogDb.op_fee = dExpCalAmt; //借方发生额
memset(&tAccountDb, 0, sizeof(tAccountDb));
ret = DB_t_aif_account_read_lock_by_cur_and_account_id(tTradelogDb.act_id, &tAccountDb);
if (ret)
{
writelog(LOG_ERR, "read account err[%d]act_id[%s] ", ret, tTradelogDb.act_id);
if (DB_NOTFOUND == ret)
return E_ACTNO_NOT_EXIST;
else
return E_DB_ACCOUNT_R;
}
if(tAccountDb.current_state == ACCOUNTSTAT_LOGOUT)
{
DB_t_aif_account_free_lock_cur();
writelog(LOG_ERR, "read account err[%d]act_id[%s]", E_ACTNO_LOGOUT, tAccountDb.account_id);
return E_ACTNO_LOGOUT;
}
if(CfgSplit.ArrCfgsplit[iTxType].dbsubno[0]!=0)
{
if(strcmp(tAccountDb.subno,CfgSplit.ArrCfgsplit[iTxType].dbsubno)!=0)
{
DB_t_aif_account_free_lock_cur();
writelog(LOG_ERR,"tradecode config_cnt[%d]TxType[%d]act_id[%s] tAccount.subno[%s]config dbsubno[%s]",config_cnt,iTxType,tAccountDb.account_id,tAccountDb.subno,CfgSplit.ArrCfgsplit[iTxType].dbsubno);
return E_SPLIT_CFG;
}
}
strcpy(tTradelogDb.subno,tAccountDb.subno); //借方科目号
// writelog(LOG_DEBUG,"debit No[%d]account[%s]account.cur_bala[%lf]cur_freebala[%lf]cur_frozebala[%lf]amt[%lf]",i,account.account_id,account.cur_bala,account.cur_freebala,account.cur_frozebala,tTradelogDb.op_fee);
idxSubCfg=GetIndexSubjectCfgBySubNo(tAccountDb.subno);
if(idxSubCfg<0)
{
writelog(LOG_ERR, "GetIndexSubjectCfgBySubNo[%d] ",tAccountDb.subno);
DB_t_aif_account_free_lock_cur();
return E_DB_SUBJECT_N;
}
if (SUBTYPE_FUND== CfgSubject.ArrSubject[idxSubCfg].subtype|| SUBTYPE_COST== CfgSubject.ArrSubject[idxSubCfg].subtype )
{
tAccountDb.cur_bala = D4U5(tAccountDb.cur_bala+ tTradelogDb.op_fee,6);
tAccountDb.cur_freebala = D4U5(tAccountDb.cur_freebala+ tTradelogDb.op_fee,6);
db_amt_flag=1;
}
else
{
db_amt_flag=-1;
if(strncmp(tAccountDb.subno,"201",3)==0)
{
//消费时从冻结金额中扣除搭伙费
switch(CfgSplit.ArrCfgsplit[iTxType].fundtype)
{
case FUNDTYPE_BOARD://搭伙费
//如果搭伙费不足,则只扣账户上剩余的搭伙费
if(amtcmp(tAccountDb.cur_frozebala,0)<=0)
{
//如果搭伙费为负值或0,则不扣
DB_t_aif_account_free_lock_cur();
continue;
}
if(amtcmp(tAccountDb.cur_frozebala,tTradelogDb.op_fee)<0)
{
dExpCalAmt=tAccountDb.cur_frozebala;
tTradelogDb.op_fee = dExpCalAmt; //借方发生额
}
tAccountDb.cur_bala =D4U5(tAccountDb.cur_bala- tTradelogDb.op_fee,6); //总余额
tAccountDb.cur_frozebala = D4U5(tAccountDb.cur_frozebala - tTradelogDb.op_fee,6);
break;
default:
tAccountDb.cur_bala =D4U5(tAccountDb.cur_bala- tTradelogDb.op_fee,6); //总余额
tAccountDb.cur_freebala =D4U5(tAccountDb.cur_freebala-tTradelogDb.op_fee,6); //可用余额
//更新卡余额
if(USE_CARD_TYPE_ONLINE==IA->iUseCardFlag)
{
//联机交易保留交易金额的交易时间
getsysdatetime(tAccountDb.reserve_1);
if(amtcmp(dOutCardBala,0)>=0)
{
tAccountDb.card_balance=dOutCardBala; //卡余额
if(IA->iTxCnt>0)
tAccountDb.consume_count=IA->iTxCnt; //消费次数增加
}
else if(amtcmp(dInCardBala,0)>=0)
{
//有入卡值,没有出卡值,计算出卡值,卡余额
dCardBala = dCardBala - D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
tAccountDb.card_balance=IA->dOutCardBala; //账户卡余额
if(IA->iTxCnt>0)
tAccountDb.consume_count=IA->iTxCnt;
}
}
else if(USE_CARD_TYPE_OFFLINE==IA->iUseCardFlag)
{
if((tAccountDb.consume_count<=IA->iTxCnt)
||((strncmp(cur_date,IA->sTxDate,8) == 0)&& (strncmp(tradetime,tAccountDb.reserve_1,14)>0)))
{
strcpy(tAccountDb.reserve_1,tradetime);
if(amtcmp(dOutCardBala,0)>=0)
{
tAccountDb.card_balance=dOutCardBala;
if(IA->iTxCnt>0)
tAccountDb.consume_count=IA->iTxCnt; //消费次数增加
}
else if(amtcmp(dInCardBala,0)>=0)
{
//有入卡值,没有出卡值,计算出卡值,卡余额
dCardBala = dCardBala - D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
tAccountDb.card_balance=IA->dOutCardBala; //账户卡余额
if(IA->iTxCnt>0)
tAccountDb.consume_count=IA->iTxCnt;
}
}
//当前交易不是最近一次交易,有入卡值,只计算出卡值
else if((amtcmp(dInCardBala,0)>=0)&&(amtcmp(dOutCardBala,0)<0))
{
//计算出卡值
dCardBala = dCardBala - D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
}
}
break;
}
}
else
{
/*
//对押金单独处理
switch(iTxType)
{
case TXTYPE_RETURN_DEPOSIT: //退押金
case TXTYPE_DEDUCT_DEPOSIT: //扣押金
memset(&tCard,0,sizeof(tCard));
if(IA->iCardNo<1)
{
return E_INPUT_CARDNO_CANNOT_NULL;
}
ret=DB_t_pif_card_read_lock_by_cur_and_card_id(IA->iCardNo,&tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
return E_CARDNO_NOT_EXIST;
else
return E_DB_CARD_R;
}
tCard.deposit_fee=0;
ret=DB_t_pif_card_update_lock_by_cur(&tCard);
if(ret)
{
if(DB_NOTFOUND==ret)
return E_CARDNO_NOT_EXIST;
else
return E_DB_CARD_U;
}
DB_t_pif_card_free_lock_by_cur();
break;
}
*/
tAccountDb.cur_bala =D4U5(tAccountDb.cur_bala - tTradelogDb.op_fee,6);
tAccountDb.cur_freebala =D4U5(tAccountDb.cur_freebala- tTradelogDb.op_fee,6);
}
}
//判断余额是否小于0,不允许透支,资产类帐户除外
//应该是负债类账户
if(strncmp(tAccountDb.subno,"2",1)==0)
{
if(amtcmp(tAccountDb.cur_bala,0)<0||amtcmp(tAccountDb.cur_freebala,0)<0)
{
writelog(LOG_ERR,"host serialno[%d]debit No[%d]account[%s]account.cur_bala[%lf]cur_freebala[%lf]cur_frozebala[%lf]amt[%lf]",IA->iSerialNo,i,tAccountDb.account_id,tAccountDb.cur_bala,tAccountDb.cur_freebala,tAccountDb.cur_frozebala,tTradelogDb.op_fee);
DB_t_aif_account_free_lock_cur();
return E_BALANCE_SHORTAGE;
}
}
tTradelogDb.new_fee = tAccountDb.cur_bala; //借方帐户总余额
tTradelogDb.cur_frozebala=tAccountDb.cur_frozebala; //冻结金额
ret = DB_t_aif_account_update_lock_by_cur(&tAccountDb);
if (ret)
{
writelog(LOG_ERR, "update account err[%d] account[%s]", ret,tAccountDb.account_id);
if (DB_NOTFOUND == ret)
return E_ACTNO_NOT_EXIST;
else
return E_DB_ACCOUNT_U;
}
DB_t_aif_account_free_lock_cur();
//######################################################
//处理贷方账号1
switch (CfgSplit.ArrCfgsplit[iTxType].crflag)
{
case TYPE_INPUT:
/*
ret=GetValueFromFmtBuf(CfgFee.ArrCfgFee[idxTxCfg].idxcractno_list,",",config_cnt,sIdxCrActNo);
if(ret)
{
writelog(LOG_ERR, "TxCode[%d]FeeType[%d]idxcractno_list[%s]",IA->iTradeNo,IA->iFeeType,CfgFee.ArrCfgFee[idxTxCfg].idxcractno_list);
return E_ACTNO_IDX_NOT_CFG; //交易未配置
}
idx=atoi(sIdxCrActNo);
if(idx<0)
return E_ACTNO_IDX_CFG;
strcpy(tTradelogCr.act_id, IA->sArrInActno[idx]); //贷方账号
*/
if(TXCODE_CARD_DBCR!=IA->iTradeNo)
{
if(strcmp(CfgSplit.ArrCfgsplit[iTxType].dbsubno,CfgSplit.ArrCfgsplit[iTxType].crsubno)!=0)
{
if(strncmp(CfgSplit.ArrCfgsplit[iTxType].crsubno,SUBJECT_INDIVIDUALSAVING,3)==0)
strcpy(tTradelogCr.act_id, IA->sArrInActno[0]); //贷方账号(person)
else if(strncmp(CfgSplit.ArrCfgsplit[iTxType].crsubno,SUBJECT_SHOPSAVING,3)==0)
strcpy(tTradelogCr.act_id, IA->sArrInActno[1]); //贷方账号(shop)
else
strcpy(tTradelogDb.act_id, IA->sArrInActno[3]); //贷方账号
}
else
{
strcpy(tTradelogCr.act_id, IA->sArrInActno[1]); //贷方账号(person)
}
}
else
{
strcpy(tTradelogCr.act_id, IA->sArrInActno[1]); //贷方账号(person)
}
break;
case TYPE_CONFIG:
strcpy(tTradelogCr.act_id, CfgSplit.ArrCfgsplit[iTxType].cractno);
break;
default:
writelog(LOG_ERR, " TxType=[%d]",iTxType,CfgSplit.ArrCfgsplit[iTxType].crflag);
return E_DB_TRADEACT_R;
}
//修改贷方帐户余额
tTradelogCr.op_fee =dExpCalAmt; //贷方发生额
memset(&tAccountCr, 0, sizeof(tAccountCr));
ret = DB_t_aif_account_read_lock_by_cur_and_account_id(tTradelogCr.act_id, &tAccountCr);
if (ret)
{
writelog(LOG_ERR, "read account err[%d]act_id[%s]", ret, tTradelogCr.act_id);
if (DB_NOTFOUND == ret)
return E_ACTNO_NOT_EXIST;
else
return E_DB_ACCOUNT_R;
}
if(tAccountCr.current_state == ACCOUNTSTAT_LOGOUT)
{
DB_t_aif_account_free_lock_cur();
writelog(LOG_ERR, "read account err[%d]act_id[%s]", E_ACTNO_LOGOUT, tAccountCr.account_id);
return E_ACTNO_LOGOUT;
}
if(CfgSplit.ArrCfgsplit[iTxType].crsubno[0]!=0)
{
if(strcmp(tAccountCr.subno,CfgSplit.ArrCfgsplit[iTxType].crsubno)!=0)
{
writelog(LOG_ERR,"tradecode config_cnt[%d]TxType[%d]act_id[%s] tAccount.subno[%s]config dbsubno[%s]",config_cnt,iTxType,tAccountCr.account_id,tAccountCr.subno,CfgSplit.ArrCfgsplit[iTxType].crsubno);
DB_t_aif_account_free_lock_cur();
return E_SPLIT_CFG;
}
}
strcpy(tTradelogCr.subno, tAccountCr.subno); //贷方科目号
// writelog(LOG_DEBUG,"credit No[%d]tAccount[%s]account.cur_bala[%lf]cur_freebala[%lf]cur_frozebala[%lf]amt[%lf]",i,account.account_id,account.cur_bala,account.cur_freebala,account.cur_frozebala,ArrTradelog[i+1].op_fee);
idxSubCfg=GetIndexSubjectCfgBySubNo(tAccountCr.subno);
if(idxSubCfg<0)
{
writelog(LOG_ERR, "GetIndexSubjectCfgBySubNo[%d] ", tAccountCr.subno);
DB_t_aif_account_free_lock_cur();
return E_DB_SUBJECT_N;
}
if (SUBTYPE_FUND== CfgSubject.ArrSubject[idxSubCfg].subtype|| SUBTYPE_COST== CfgSubject.ArrSubject[idxSubCfg].subtype )
{
tAccountCr.cur_bala =D4U5(tAccountCr.cur_bala- tTradelogCr.op_fee,6); //当前总余额
tAccountCr.cur_freebala =D4U5(tAccountCr.cur_freebala-tTradelogCr.op_fee,6); //当前可用余额
cr_amt_flag=-1;
}
else
{
cr_amt_flag=1;
//如果帐户类型为个人,则计算搭伙费，主要是充值使用
if(strncmp(tAccountCr.subno,"201",3)==0)
{
tAccountCr.cur_bala =D4U5(tAccountCr.cur_bala+ tTradelogCr.op_fee,6); //总余额
switch(CfgSplit.ArrCfgsplit[iTxType].fundtype)
{
case FUNDTYPE_BOARD: //搭伙费
tAccountCr.cur_frozebala =D4U5(tAccountCr.cur_frozebala+ tTradelogCr.op_fee,6);
break;
default:
tAccountCr.cur_freebala =D4U5(tAccountCr.cur_freebala+ tTradelogCr.op_fee,6); //可用余额
//更新卡余额
if(USE_CARD_TYPE_ONLINE==IA->iUseCardFlag)
{
getsysdatetime(tAccountCr.reserve_1);
if(IA->iTxCnt>0)
tAccountCr.consume_count=IA->iTxCnt; //消费次数增加
else
{
DB_t_aif_account_free_lock_cur();
return E_INPUT_CARD_TXCNT;
}
if(amtcmp(dOutCardBala,0)>=0)
{
tAccountCr.card_balance=dOutCardBala; //卡余额
}
else if(amtcmp(dInCardBala,0)>=0)
{
//有入卡值,没有出卡值,计算出卡值,卡余额
dCardBala = dCardBala + D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
tAccountCr.card_balance=IA->dOutCardBala; //账户卡余额
}
}
else if(USE_CARD_TYPE_OFFLINE==IA->iUseCardFlag)
{
if((tAccountCr.consume_count<=IA->iTxCnt)
||((strncmp(cur_date,IA->sTxDate,8) == 0)&&(strncmp(tradetime,tAccountDb.reserve_1,14)>0)))
{
strcpy(tAccountCr.reserve_1,tradetime);
if(IA->iTxCnt>0)
tAccountCr.consume_count=IA->iTxCnt; //消费次数增加
if(amtcmp(dOutCardBala,0)>=0)
{
tAccountCr.card_balance=dOutCardBala;
}
else if(amtcmp(dInCardBala,0)>=0)
{
//有入卡值,没有出卡值,计算出卡值,卡余额
dCardBala = dCardBala + D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
tAccountCr.card_balance=IA->dOutCardBala; //账户卡余额
}
}
//当前交易不是最近一次交易,有入卡值,只计算出卡值
else if((amtcmp(dInCardBala,0)>=0)&&(amtcmp(dOutCardBala,0)<0))
{
//计算出卡值
dCardBala = dCardBala + D4U5(tTradelogDb.op_fee,2); //卡余额
IA->dOutCardBala=D4U5(dCardBala,2);
}
}
break;
}
}
else
{
//对押金单独处理
switch(iTxType)
{
case TXTYPE_TOLL_DEPOSIT: //收押金
case TXTYPE_TOLL_DEPOSIT_BILL:
case TXTYPE_TOLL_DEPOSIT_FUNDBOOK:
memset(&tCard,0,sizeof(tCard));
if(IA->iCardNo<1)
{
DB_t_aif_account_free_lock_cur();
return E_INPUT_CARDNO_CANNOT_NULL;
}
ret=DB_t_pif_card_read_lock_by_cur_and_card_id(IA->iCardNo,&tCard);
if(ret)
{
DB_t_aif_account_free_lock_cur();
if(DB_NOTFOUND==ret)
return E_CARDNO_NOT_EXIST;
else
return E_DB_CARD_R;
}
tCard.deposit_fee=tTradelogCr.op_fee;
ret=DB_t_pif_card_update_lock_by_cur(&tCard);
if(ret)
{
DB_t_aif_account_free_lock_cur();
if(DB_NOTFOUND==ret)
return E_CARDNO_NOT_EXIST;
else
return E_DB_CARD_U;
}
DB_t_pif_card_free_lock_by_cur();
default:
break;
}
tAccountCr.cur_bala =D4U5(tAccountCr.cur_bala+tTradelogCr.op_fee,6); //当前总余额
tAccountCr.cur_freebala=D4U5(tAccountCr.cur_freebala+tTradelogCr.op_fee,6) ; //当前可用余额
}
}
//判断余额是否小于0,不允许透支,资产类帐户除外
if(strncmp(tAccountCr.subno,"2",1)==0)
{
if(amtcmp(tAccountCr.cur_bala,0)<0||amtcmp(tAccountCr.cur_freebala,0)<0)
{
writelog(LOG_ERR,"host serialno[%d]credit No[%d+1]account[%s]account.cur_bala[%lf]cur_freebala[%lf]cur_frozebala[%lf]amt[%lf]",IA->iSerialNo,i,tAccountCr.account_id,tAccountCr.cur_bala,tAccountCr.cur_freebala,tAccountCr.cur_frozebala,tTradelogDb.op_fee);
DB_t_aif_account_free_lock_cur();
return E_BALANCE_SHORTAGE;
}
}
tTradelogCr.new_fee = tAccountCr.cur_bala; //贷方帐户余额
tTradelogCr.cur_frozebala=tAccountCr.cur_frozebala; //冻结金额
ret = DB_t_aif_account_update_lock_by_cur(&tAccountCr);
if (ret)
{
writelog(LOG_ERR, "update account err[%d] account[%s]", ret,tAccountCr.account_id);
if (DB_NOTFOUND == ret)
return E_ACTNO_NOT_EXIST;
else
return E_DB_ACCOUNT_U;
}
DB_t_aif_account_free_lock_cur();
//增加借方分录流水
tTradelogDb.maindevice_id = IA->iMainDevId; //工作站标识
tTradelogDb.device_id= IA->iDevId; //终端设备ID
tTradelogDb.serino = IA->iSerialNo; //流水号
tTradelogDb.seri_type= IA->iTradeNo; //交易码
tTradelogDb.fee_type=iTxType; //分录序号
tTradelogDb.warrant_type = iVocType; //凭证类型
strcpy(tTradelogDb.warrant_no, sVocNo); //凭证号
strcpy(tTradelogDb.comments, CfgSplit.ArrCfgsplit[iTxType].txname); //摘要
strcpy(tTradelogDb.operate_date, IA->sTxDate); //交易日期
strcpy(tTradelogDb.operate_time, IA->sTxTime); //交易时间
strcpy(tTradelogDb.collect_date,IA->sTxCollectDate); //采集日期
strcpy(tTradelogDb.collect_time,IA->sTxCollectTime); //采集时间
strcpy(tTradelogDb.enteract_date,IA->sTxAccDate); //记账日期
strcpy(tTradelogDb.enteract_time,IA->sTxAccTime); //记账时间
strcpy(tTradelogDb.record_oper, IA->sMdeOper); //录入操作员
strcpy(tTradelogDb.write_oper, IA->sChkOper); //复核记账员
tTradelogDb.outorin = DBCR_DEBIT; //借方标志
strcpy(tTradelogDb.other_actid, tTradelogCr.act_id); //对方账号
strcpy(tTradelogDb.other_subno, tTradelogCr.subno); //对方科目
++IA->iSubIndex;
tTradelogDb.annex = IA->iSubIndex;
ret = DB_t_tif_tradelog_add(&tTradelogDb);
if (ret)
{
writelog(LOG_ERR, "add ArrTradelog err[%d] ", ret);
return E_DB_TRADELOG_I;
}
//增加贷方分录流水
tTradelogCr.maindevice_id = IA->iMainDevId; //工作站标识
tTradelogCr.device_id= IA->iDevId; //终端设备ID
tTradelogCr.serino = IA->iSerialNo; //流水号
tTradelogCr.seri_type = IA->iTradeNo; //交易码
tTradelogCr.fee_type=iTxType; //分录序号
tTradelogCr.warrant_type = iVocType; //凭证类型
strcpy(tTradelogCr.warrant_no, sVocNo); //凭证号
strcpy(tTradelogCr.comments, CfgSplit.ArrCfgsplit[iTxType].txname);//摘要
strcpy(tTradelogCr.operate_date, IA->sTxDate); //交易日期
strcpy(tTradelogCr.operate_time, IA->sTxTime); //交易时间
strcpy(tTradelogCr.collect_date,IA->sTxCollectDate); //采集日期
strcpy(tTradelogCr.collect_time,IA->sTxCollectTime); //采集时间
strcpy(tTradelogCr.enteract_date,tTradelogDb.enteract_date);//记账日期
strcpy(tTradelogCr.enteract_time,tTradelogDb.enteract_time);//记账时间
strcpy(tTradelogCr.record_oper, IA->sMdeOper); //录入操作员
strcpy(tTradelogCr.write_oper, IA->sChkOper); //复核操作员
tTradelogCr.outorin = DBCR_CREDIT; //贷方标志
strcpy(tTradelogCr.other_actid, tTradelogDb.act_id); //对方账号
strcpy(tTradelogCr.other_subno, tTradelogDb.subno); //对方科目
tTradelogCr.annex = IA->iSubIndex;
ret = DB_t_tif_tradelog_add(&tTradelogCr);
if (ret)
{
writelog(LOG_ERR, "add ArrTradelog err[%d] ", ret);
return E_DB_TRADELOG_I;
}
IA->dArrOutAmt[config_cnt]=dExpCalAmt;
IA->iArrOutTxType[config_cnt]=iTxType;
strcpy(IA->sArrOutTxName[config_cnt],CfgSplit.ArrCfgsplit[iTxType].txname);
IA->iOutTxTypeCnt=config_cnt;
//##############################################################
if(IA->pVoidPointer!=NULL)
{
if(db_amt_flag>0)
sprintf(pMessage+strlen(pMessage),"%s:余额增加%.2lf元", tAccountDb.cut_name,dExpCalAmt);
else
sprintf(pMessage+strlen(pMessage),"%s:余额减少%.2lf元", tAccountDb.cut_name,dExpCalAmt);
if(cr_amt_flag>0)
sprintf(pMessage+strlen(pMessage)," %s:余额增加%.2lf元",tAccountCr.cut_name,dExpCalAmt);
else
sprintf(pMessage+strlen(pMessage)," %s:余额减少%.2lf元", tAccountCr.cut_name,dExpCalAmt);
}
}
//如果有入卡值但没有出卡值，则出卡值就是入卡值
if(amtcmp(IA->dOutCardBala,0)<0)
{
if(amtcmp(IA->dInCardBala,0)>=0)
IA->dOutCardBala=IA->dInCardBala;
}
// writelog(LOG_DEBUG,"serino[%d]IA->dInCardBala[%lf]IA->dOutCardBala[%lf]IA->iTxCnt[%d]",IA->iSerialNo,IA->dInCardBala,IA->dOutCardBala,IA->iTxCnt);
return 0;
}
int F847132(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret=0;
int i=0;
int iTotalCnt=0;
double dTotalAmt=0.0;
double dSerialNo = 0;
char logicdate[11]=""; //业务日期
char sysdate[11]="";
char systime[9]="";
char sMsg[256]="";
T_t_tif_tradeserial tradeserial;
T_t_tif_savdtl tSavdtl;
T_t_tif_subsidy tSubsidy;
InAcc IA;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
T_t_tif_meslist tMesList;
T_t_pif_device t_device;
T_t_pif_syskey tSyskey;
memset(&t_device,0,sizeof t_device);
memset(&tMesList,0,sizeof tMesList);
memset(&tSavdtl,0,sizeof(tSavdtl));
memset(&tSubsidy,0,sizeof(tSubsidy));
memset(&tSyskey,0,sizeof tSyskey);
memset(&tradeserial,0,sizeof(tradeserial));
memset(&IA,0,sizeof(IA));
ResetNormalCPack(&aPack,0,1);
SetCol(handle,0);
SetCol(handle,F_VSMESS,0);
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
if(strlen(rPack->scust_limit)<1)
{
*pRetCode=E_INPUT_BATCH_NO;
goto L_RETU;
}
if(strlen(rPack->scust_no)<1)
{
*pRetCode=E_INPUT_OPER_NULL;
goto L_RETU;
}
//允许补助负金额
if(amtcmp(rPack->damt0,0)==0)
{
*pRetCode=E_INPUT_AMT;
goto L_RETU;
}
des2src(tSubsidy.summary,rPack->semail); //补助摘要
if(strlen(rPack->semail)<1)
{
*pRetCode=E_INPUT_SUMMARY;
goto L_RETU;
}
des2src(tSubsidy.batch_no,rPack->scust_limit);
tSubsidy.bill_type=rPack->lvol2; //票据类型
des2src(tSubsidy.bill_no,rPack->scust_auth2); //票据号码
tSubsidy.amount=rPack->damt0; //补助金额
des2src(tSubsidy.subsidytype,rPack->smain_flag);//补助标志(0增值1减值)
des2src(tSubsidy.subsidytype,"1"); //补助标志(0增值1减值)
des2src(tSubsidy.broker_id,rPack->sname); //经办人身份证号
des2src(tSubsidy.broker_name,rPack->semail2); //经办人姓名
IA.dArrInAmt[0]=tradeserial.trade_fee;
switch(tSubsidy.bill_type)
{
case TYPE_CASH: //现金
IA.iArrInFeeSwitch[1]=1;
break;
case TYPE_BILL: //支票
IA.iArrInFeeSwitch[2]=1;
break;
case TYPE_FUNDBOOK: //经费本
IA.iArrInFeeSwitch[3]=1;
break;
default:
*pRetCode=E_INPUT_DEPOSIT_TYPE;
goto L_RETU;
}
/*
ret=get_batch_no_by_subsidy_no(tSubsidy.subsidy_no,tSubsidy.batch_no);
if(ret)
{
*pRetCode = E_DB_SUBSIDYTMP_R;
goto L_RETU;
}
*/
// 下发补助时才生成批次号
/*
ret=judge_with_max_subsidy_no_within_new(tSubsidy.subsidy_no);
if(ret)
{
*pRetCode = E_SUBSIDY_DOWN_ERROR;
goto L_RETU;
}
*/
ret=stat_subsidy_amount_by_batch_no(tSubsidy.batch_no, &iTotalCnt,&dTotalAmt);
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret[%d]",ret);
goto L_RETU;
}
if(iTotalCnt!=rPack->lvol3)
{
strcpy(szMsg,"补助人数与导入的数据不符");
*pRetCode=E_INPUT_DATA_INVAILD;
goto L_RETU;
}
if(amtcmp(dTotalAmt,rPack->damt0)!=0)
{
strcpy(szMsg,"补助总金额与导入的补助数据不符");
*pRetCode=E_INPUT_DATA_INVAILD;
goto L_RETU;
}
writelog(LOG_DEBUG,"download subsidy batch_no : %s",tSubsidy.batch_no);
des2src(tSubsidy.tx_date,sysdate);
des2src(tSubsidy.tx_time,systime);
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dSerialNo); //获得最大流水号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret[%d]",ret);
goto L_RETU;
}
tradeserial.serial_no = D2I(dSerialNo); //流水号
tradeserial.other_seri_no = 0; //上传端流水号
if(amtcmp(dTotalAmt,0.0)>0)
tradeserial.serial_type = TXCODE_SET_SUBSIDY;
else tradeserial.serial_type = TXCODE_DESUBSIDY_DOWN;
tradeserial.serial_state = SERISTAT_DEBT; //流水状态
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.maindevice_id = rPack->lvol6; //上传工作站标识
tradeserial.device_id = rPack->lvol7; //采集设备标识
des2src(tradeserial.oper_code , rPack->scust_no); //操作员代码
tradeserial.sys_id = 0; //外部系统标识
// 设置发生金额
tradeserial.trade_fee = dTotalAmt;
switch(tSubsidy.bill_type)
{
case TYPE_CASH: //现金
break;
case TYPE_BILL: //支票
case TYPE_FUNDBOOK: //经费本
tSavdtl.amount=rPack->damt0; //发生额
if(amtcmp(tSavdtl.amount,0)==0)
break;
des2src(tSavdtl.bill_no,tSubsidy.bill_no); //票据号码
if(strlen(tSavdtl.bill_no)<1)
{
*pRetCode=E_INPUT_BILLNO;
goto L_RETU;
}
tSavdtl.card_no=0; //卡号
des2src(tSavdtl.oper_no,rPack->scust_limit); //操作员
tSavdtl.seqno=tradeserial.serial_no; //流水号
des2src(tSavdtl.tx_date,sysdate); //发生日期
des2src(tSavdtl.tx_time,systime); //发生时间
tSavdtl.cnt=1; //票据数量
tSavdtl.bill_type=tSubsidy.bill_type; //票据类型
tSavdtl.tx_code=tradeserial.serial_type; //交易码
ret=DB_t_tif_savdtl_add(&tSavdtl);
if(ret)
{
if(DB_REPEAT==ret)
*pRetCode = E_DB_SAVDTL_E;
else
*pRetCode = E_DB_SAVDTL_I;
goto L_RETU;
}
break;
default:
*pRetCode=E_INPUT_DEPOSIT_TYPE;
goto L_RETU;
}
IA.iFeeType=1; //默认值
//支持负金额扣款
if(tradeserial.trade_fee<0)
tradeserial.trade_fee=-tradeserial.trade_fee;
IA.dArrInAmt[0]=tradeserial.trade_fee;
IA.iArrInFeeSwitch[0]=rPack->lvol0;
IA.iArrInFeeSwitch[5]=rPack->lvol5;
IA.iArrInFeeSwitch[6]=rPack->lvol6;
IA.iArrInFeeSwitch[7]=rPack->lvol7;
IA.iArrInFeeSwitch[8]=rPack->lvol8;
IA.iArrInFeeSwitch[9]=rPack->lvol9;
IA.iArrInFeeSwitch[10]=rPack->lvol10;
// 记入账户信息
ret=process(&IA,&tradeserial,&tSubsidy);
if(ret)
{
writelog(LOG_ERR,"process ret[%d]",ret);
*pRetCode=ret;
goto L_RETU;
}
sprintf(out_pack->vsmess,"流水号:%d ",IA.iSerialNo);
// writelog(LOG_DEBUG,"out tx type count %d",IA.iOutTxTypeCnt);
/*
for(i=1;i<=IA.iOutTxTypeCnt;i++)
{
if(amtcmp(IA.dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA.sArrOutTxName[i],IA.dArrOutAmt[i]);
strcat(out_pack->vsmess,sMsg);
}
}
*/
sprintf(sMsg,",共%d笔",iTotalCnt);
strcat(out_pack->vsmess,sMsg);
// strcat(out_pack->vsmess,sMsg);
// writelog(LOG_DEBUG,out_pack->vsmess);
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
writelog(LOG_ERR,"ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
// 广播下载补助名单任务
memset(&tMesList,0,sizeof tMesList);
tMesList.funid=930077;
tMesList.level = MESLIST_PRIORITY_REALTIME;
tMesList.msgtype = MESLIST_TYPE_NORMAL;
tMesList.max_send_cnt = 5;
ret=AddMsgLst(&tMesList);
if(ret)
{
*pRetCode=E_DB_MESLIST_I;
writelog(LOG_ERR,"AddMsgLst err[%d]",ret);
return ret;
}
////////////////////////新增
ret=DB_t_pif_device_open_select_by_c5_and_devtype_and_phytype("5301",1001);
if(ret)
{
writelog(LOG_ERR,"DB_t_pif_device_open_select_by_c5_and_devtype_and_phytype error,ret=[%d]",ret);
*pRetCode = E_DB_DEVICE_R;
goto L_RETU;
}
while(1)
{
// 初始化宿主变量
ret=DB_t_pif_device_fetch_select_by_c5(&t_device);
if (ret)
{
DB_t_pif_device_close_select_by_c5();
db_chk_err(__FILE__,__LINE__,&sqlca);
if(DB_NOTFOUND==ret)
{
break;
}
else
{
*pRetCode=E_DB_DEVICE_R;
writelog(LOG_ERR,"DB_t_pif_device_fetch_select_by_c5 err [%d]",ret);
goto L_RETU;
}
}
if(t_device.state_id == DEVISTAT_LOGOUT) //设备已经注销
continue;
tMesList.devid = t_device.device_id;
tMesList.device_id= t_device.subsystem_id;
ret=AddMsgLst(&tMesList);
if(ret)
{
*pRetCode=E_DB_MESLIST_I;
DB_t_pif_device_close_select_by_c5();
writelog(LOG_ERR,"AddMsgLst err[%d]",ret);
return ret;
}
}
// 锁住批次号
ret = DB_t_pif_syskey_read_lock_by_cur_and_key_code(KEYTYPE_TIF_SUBSIDY_NO,&tSyskey);
if(ret)
{
if(DB_NOTFOUND == ret)
*pRetCode = E_DB_SYSKEY_N;
else
*pRetCode = E_DB_SYSKEY_R;
goto L_RETU;
}
ret = calc_import_max_subsidy_no(tSubsidy.batch_no,tSubsidy.oper_code,&tSubsidy.subsidy_no);
if(ret)
{
DB_t_tif_subsidy_close_select_by_c4();
return ret;
}
writelog(LOG_DEBUG,"download subsidy no[%d]",tSubsidy.subsidy_no);
ret=update_subsidy_info_by_batch_no(&tSubsidy);
if(ret)
{
*pRetCode = ret;
DB_t_pif_syskey_free_lock_cur();
writelog(LOG_ERR,"ret[%d]",ret);
goto L_RETU;
}
// 释放批次号
DB_t_pif_syskey_free_lock_cur();
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847116(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int hi_cutid = 0; //客户ID
int hi_cuttype = 0; //客户类型
int i=0;
int ret = 0;
int len = 0;
char h_showcardid[11] = ""; //显示卡号
char h_password[7] = ""; //卡密码
double h_temp_Card_id = 0; //卡号
char seed_key[17] = ""; //种子密钥
char card_endtime[27 + 1] = ""; //卡的有效截至日期
char logicdate[11]="";
char sysdate[11]="";
char systime[9]="";
char sMsg[256]="";
char sMaxCardBalance[20]="";
double dMaxCardBalance=0;
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
T_t_pif_card tCard;
T_t_aif_account tAccount;
T_t_tif_tradeserial tradeserial;
InAcc IA;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
ResetNormalCPack(&aPack,0,1);
SetCol(handle,0);
SetCol(handle,F_LVOL0,F_LVOL1,F_LVOL5,
F_SCUST_NO, F_SCUST_NO2,F_SCUST_AUTH,F_SCUST_AUTH2,
F_SDATE0,F_SNAME,F_SNAME2,
F_SOPEN_EMP,F_SSTATUS0,
F_DAMT2,F_DAMT3,F_LSERIAL1,F_VSMESS,0);
memset(&IA,0,sizeof(IA));
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tCard, 0, sizeof(tCard));
memset(&tAccount,0,sizeof(tAccount));
memset(&tradeserial,0,sizeof(tradeserial));
memset(&tSpeFee,0,sizeof(tSpeFee));
#ifdef DEBUG
writelog(LOG_DEBUG,"rPack->damt0[%lf]",rPack->damt0);
writelog(LOG_DEBUG,"rPack->scust_auth2[%s]",rPack->scust_auth2);
#endif
hi_cutid = rPack->lvol0; //客户ID
hi_cuttype = rPack->lvol3; //客户类别
tradeserial.trade_fee=rPack->damt0; //发生额
des2src(h_showcardid,rPack->scust_no); //显示卡号
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
ret=IsExistShowCardNo(h_showcardid);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
// 检查客户信息，判断是否可以发行临时卡
ret = IsExistNoLostCardByCustomId(hi_cutid);
if (ret)
{
writelog(LOG_ERR,"hi_cutid[%d]",hi_cutid);
*pRetCode = ret;
goto L_RETU;
}
des2src(tCard.physical_no, rPack->sbank_acc); //物理卡号
ret=IsExistCardByPhyCardNo(tCard.physical_no); //物理卡号
if(ret)
{
writelog(LOG_ERR,"physical_no[%s]",tCard.physical_no);
*pRetCode = ret;
goto L_RETU;
}
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(hi_cutid, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",hi_cutid);
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_R;
goto L_RETU;
}
//得到收费类别
if(tCustomer.fee_type<1)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
*pRetCode=E_DB_SPEFEE_R;
goto L_RETU;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_U;
goto L_RETU;
}
}
DB_t_cif_customer_free_lock_cur();
//检查金额是否超过最大额度
ret=GetParameter(GLOBE_MAXCARDBALANCE,sMaxCardBalance);
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
dMaxCardBalance=atof(sMaxCardBalance);
if(amtcmp(tradeserial.trade_fee,dMaxCardBalance)>0)
{
writelog(LOG_ERR,"tradeserial.trade_fee[%lf]",tradeserial.trade_fee);
*pRetCode=E_AMT_EXCEED_MAX;
goto L_RETU;
}
// 准备数据插入卡信息表
memcpy(seed_key,STATIC_SEED_KEY,sizeof(seed_key)); //读种子密钥
// 默认密码, 初始取身份证的后6位, 没有身份证号用666666.
trim(rPack->sname2);
len=strlen(rPack->sname2) ;
if (len >= 6)
{
strncpy(h_password,&(rPack->sname2[len-6]),6);
if(h_password[5]>'9'||h_password[5]<'0')
h_password[5]='0';
}
else
{
strcpy(h_password,"666666");
}
ret = getNewUniqNo(KEYTYPE_CARD_ID,&h_temp_Card_id); //获取最大卡号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret[%d]",ret);
goto L_RETU;
}
tCard.card_id = (int)h_temp_Card_id; //卡号
des2src(tCard.showid,h_showcardid); //显示卡号
des2src(tCard.is_main,TYPE_YES); //是否为主卡
des2src(tCard.state_id,CARDSTAT_REG); //卡状态
tCard.type_id = CT_TEMP; //卡类别
EncodePwd(seed_key,h_password,tCard.password,0); //卡密码
tCard.cosumer_id = hi_cutid; //客户标识
tCard.account_count = ACCOUNT_COUNT_ONE; //卡对应帐户个数
des2src(tCard.begin_time,logicdate); //注册时间
ret = GetTempCardValiddate(GLOBE_TMPCARDVALIDDATE,logicdate,card_endtime); //计算卡的有效期
if (ret)
{
*pRetCode = ret;
goto L_RETU;
}
des2src(tCard.end_time, card_endtime); //截至时间
tCard.phytype = PHYTYPE_NO_ONE; //设备物理型号;默认为1
// 插入卡信息
ret = DB_t_pif_card_add(&tCard);
if (ret)
{
if(DB_REPEAT==ret)
*pRetCode = E_DB_CARD_E;
else
*pRetCode = E_DB_CARD_I;
goto L_RETU;
}
// 准备数据插入帐户信息表
ret = getNewActno(tAccount.account_id); //获得最大帐号
if (ret)
{
*pRetCode = ret;
goto L_RETU;
}
des2src(tAccount.open_date,logicdate); //开户时间
des2src(tAccount.open_time,systime);
tAccount.current_state = ACCOUNTSTAT_REGIST; //当前状态
tAccount.act_type = ACCTYPE_PERMAIN; //帐号类别
tAccount.customer_id = rPack->lvol0; //客户号
des2src(tAccount.cut_name,rPack->sname); //客户名称
tAccount.cut_type = hi_cuttype; //客户类别
des2src(tAccount.stuemp_no,rPack->scust_auth2); //客户学号或员工号
tAccount.card_id = (int)h_temp_Card_id; //关联卡号
tAccount.purse_id = PURSE_NO_ONE; //关联卡钱包号
tAccount.card_type = CT_TEMP; //卡类别
des2src(tAccount.subno,SUBJECT_INDIVIDUALSAVING); //所属科目
des2src(tAccount.isautotra,TYPE_NO); //是否自动转帐
// 插入帐户信息表
ret = DB_t_aif_account_add(&tAccount);
if (ret)
{
if(DB_REPEAT==ret)
*pRetCode = E_DB_ACCOUNT_E;
else
*pRetCode = E_DB_ACCOUNT_I;
goto L_RETU;
}
// 准备数据插入交易流水表
double h_temp_Serial_no = 0;
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&h_temp_Serial_no); //获得最大流水号
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
tradeserial.serial_no = (int)h_temp_Serial_no; //流水号
tradeserial.other_seri_no = 0; //上传端流水号
tradeserial.serial_type = TXCODE_TEMPCARD_OPEN; //交易代码
tradeserial.serial_state = SERISTAT_DEBT; //流水状态
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.maindevice_id = rPack->lvol6; //上传工作站标识
tradeserial.device_id = rPack->lvol7; //采集设备标识
tradeserial.card_id = tCard.card_id; //卡号
des2src(tradeserial.showid,tCard.showid); //显示卡号
tradeserial.purse_id = PURSE_NO_ONE; //钱包号
tradeserial.customer_id = rPack->lvol0; //客户标识
des2src(tradeserial.oper_code,rPack->scust_limit); //操作员代码
tradeserial.sys_id = 0; //外部系统标识
tradeserial.trade_count=1; //当前卡交易次数
des2src(IA.sArrInActno[0],tAccount.account_id); //帐户
IA.iCardNo=tCard.card_id;
IA.iFeeType=tCustomer.fee_type;
IA.dArrInAmt[0]=tradeserial.trade_fee;
IA.iArrInFeeSwitch[0]=rPack->lvol0;
IA.iArrInFeeSwitch[1]=rPack->lvol1;
IA.iArrInFeeSwitch[2]=rPack->lvol2;
IA.iArrInFeeSwitch[3]=rPack->lvol3;
IA.iArrInFeeSwitch[4]=rPack->lvol4;
IA.iArrInFeeSwitch[5]=rPack->lvol5;
IA.iArrInFeeSwitch[6]=rPack->lvol6;
IA.iArrInFeeSwitch[7]=rPack->lvol7;
IA.iArrInFeeSwitch[8]=rPack->lvol8;
IA.iArrInFeeSwitch[9]=rPack->lvol9;
IA.iArrInFeeSwitch[10]=rPack->lvol10;
// 调用入账子模块
ret=process(&IA,&tradeserial);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"process ret[%d]",ret);
goto L_RETU;
}
sprintf(out_pack->vsmess,"流水号:%d 卡号:%d ",IA.iSerialNo,IA.iCardNo);
for(i=1;i<=IA.iOutTxTypeCnt;i++)
{
switch(IA.iArrOutTxType[i])
{
case TXTYPE_TOLL_DEPOSIT:
case TXTYPE_DEDUCT_DEPOSIT:
case TXTYPE_RETURN_DEPOSIT:
tradeserial.deposit_fee=IA.dArrOutAmt[i];
break;
case TXTYPE_PRE_TOLL_BOARD:
case TXTYPE_TOLL_BOARD:
case TXTYPE_DEDUCT_BOARD:
case TXTYPE_RETURN_BOARD:
tradeserial.boardfee=IA.dArrOutAmt[i];
break;
case TXTYPE_TOLL_CHARGE:
tradeserial.in_fee=IA.dArrOutAmt[i];
break;
case TXTYPE_TOLL_CARDCOST:
tradeserial.cost_fee=IA.dArrOutAmt[i];
break;
default:
break;
}
if(amtcmp(IA.dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA.sArrOutTxName[i],IA.dArrOutAmt[i]);
strcat(out_pack->vsmess,sMsg);
}
}
sprintf(sMsg,"卡当前余额:%.2lf元",tradeserial.out_balance);
strcat(out_pack->vsmess,sMsg);
writelog(LOG_DEBUG,out_pack->vsmess);
// 插入交易流水表
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
if(amtcmp(tradeserial.out_balance,0)<0)
{
*pRetCode=E_ENTER_ACCOUNT;
goto L_RETU;
}
// 返回卡号\密码\显示卡号\客户类型\图书证号\有效截至日期
out_pack->lvol0 = (int)h_temp_Card_id; //交易卡号
out_pack->lvol1 = tCustomer.cut_type; //客户类别
out_pack->lvol5 = tCustomer.fee_type; //收费类别
des2src(out_pack->scust_no,h_showcardid); //显示卡号
des2src(out_pack->scust_no2,tCustomer.classdept_no); //部门号
des2src(out_pack->scust_auth,tCustomer.stuemp_no); //学号
des2src(out_pack->scust_auth2,tCustomer.man_id); //身份证号
des2src(out_pack->sname,tCustomer.cut_name); //客户姓名
des2src(out_pack->sname2,tCustomer.lib_cardid); //图书证号
des2src(out_pack->sstatus0,tCustomer.sex); //性别
des2src(out_pack->sopen_emp,h_password); //卡密码
des2src(out_pack->sdate0,card_endtime); //有效截至日期
out_pack->damt2=tradeserial.out_balance; //出卡值
out_pack->damt3=tradeserial.boardfee; //搭伙费
out_pack->lserial1=tradeserial.serial_no; //流水号
// add by 汤成 2005-8-8
// 增加向名单表写入记录
ret = InsertToBlkList((int)h_temp_Card_id,CHCARD_BLACKLIST);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847226(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret;
int card_id;
char oper_code[11] = "";
char sysdate[9] = "";
char systime[7] = "";
char work_key[51] = "";
T_t_pif_operator tOper;
T_t_pif_oper_authcard tAuthCard;
T_t_tif_tradeserial tSerial;
double uni_no = 0.0;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
memset(&tOper,0,sizeof tOper);
memset(&tAuthCard,0,sizeof tAuthCard);
memset(&tSerial,0,sizeof tSerial);
memset(&aPack,0,sizeof aPack);
ResetNormalCPack(&aPack,0,1);
SetCol(handle,0);
SetCol(handle,F_LVOL0,F_LVOL1,F_SCUST_LIMIT,F_SCUST_LIMIT2,F_SDATE2,F_SBANK_ACC,0);
des2src(oper_code,rPack->sname2);
if(strlen(oper_code) == 0)
{
*pRetCode = E_OPER_NOT_EXIST;
goto L_RETU;
}
if(strlen(rPack->scust_limit) == 0)
{
*pRetCode = E_INPUT_OPER_NULL;
goto L_RETU;
}
if((ret = IsInvalidDateTime(rPack->sdate2,"YYYYMMDD")))
{
*pRetCode = ret;
goto L_RETU;
}
ret = DB_t_pif_operator_read_by_oper_code(oper_code,&tOper);
if(ret)
{
if(DB_NOTFOUND == ret)
*pRetCode = E_OPER_NOT_EXIST;
else
*pRetCode = E_DB_OPERATOR_R;
goto L_RETU;
}
if(strcmp(OPERATOR_LOGOUT,tOper.status) == 0)
{
writelog(LOG_ERR,"操作员[%s]已注销",oper_code);
*pRetCode = E_OPERLOGON_UNREG;
goto L_RETU;
}
//todo:判断如果该操作员持有该卡已经发行过,那么系统允许重复发行,但是不计流水
//todo:用于解决操作员发行卡失败后,必须回收卡才能继续处理的问题
ret=is_already_publish_authcard(rPack->sname,oper_code,&card_id);
if(!ret)
{
//writelog(LOG_ERR,"physical_no=[%s],oper_code=[%s],card_id=[%d]",rPack->sname,oper_code,card_id);
ret = DB_t_pif_oper_authcard_read_by_card_id(card_id,&tAuthCard);
if(ret)
{
if(DB_NOTFOUND == ret)
*pRetCode = E_AUTHCARD_NOT_EXISTS;
else
*pRetCode = E_DB_OPER_AUTHCARD_R;
goto L_RETU;
}
out_pack->lvol0 = tAuthCard.card_id;
out_pack->lvol1 = tAuthCard.privilege;
des2src(out_pack->sdate2,tAuthCard.expired_date);
des2src(out_pack->scust_limit,tAuthCard.oper_code);
des2src(out_pack->sbank_acc,work_key);
des2src(out_pack->scust_limit2,tOper.oper_name);
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
}
if((ret = is_oper_has_authcard(oper_code)))
{
if(ret == 1)
*pRetCode = E_OPER_ALREADY_HAS_AUTHCARD;
else
*pRetCode = ret;
goto L_RETU;
}
ret=is_physical_no_in_use(rPack->sname);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
ret=GetParameter(GLOBE_999_DEVAUTHKEY,work_key);
if( ret)
{
*pRetCode= ret;
goto L_RETU;
}
ret = getNewUniqNo(KEYTYPE_CARD_ID,&uni_no);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
tAuthCard.card_id = D2I(uni_no);
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&uni_no);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
tSerial.serial_no = D2I(uni_no);
getsysdate(sysdate);
getsystime(systime);
des2src(tAuthCard.issue_date,sysdate);
des2src(tAuthCard.issue_time,systime);
des2src(tAuthCard.oper_code,oper_code);
des2src(tAuthCard.card_phyid,rPack->sname);
des2src(tAuthCard.expired_date,rPack->sdate2);
tAuthCard.privilege = rPack->lvol0;
tAuthCard.status = AUTHCARD_STATUS_NORMAL;
// TODO : 检查物理卡号是否已经存在
ret = DB_t_pif_oper_authcard_add(&tAuthCard);
if(ret)
{
if(DB_REPEAT == ret)
{
writelog(LOG_ERR,"授权卡交易卡号已存在[%d]",tAuthCard.card_id);
*pRetCode = E_DB_OPER_AUTHCARD_E;
}
else
*pRetCode = E_DB_OPER_AUTHCARD_I;
goto L_RETU;
}
tSerial.card_id = tAuthCard.card_id;
tSerial.serial_state = SERISTAT_NONEEDDEBT;
tSerial.serial_type = TXCODE_ISSUE_AUTHCARD;
des2src(tSerial.operate_date,sysdate);
des2src(tSerial.operate_time,systime);
des2src(tSerial.enteract_date,sysdate);
des2src(tSerial.enteract_time,systime);
des2src(tSerial.collect_date,sysdate);
des2src(tSerial.collect_time,systime);
des2src(tSerial.oper_code,rPack->scust_limit);
ret = DB_t_tif_tradeserial_add(&tSerial);
if(ret)
{
if(DB_REPEAT == ret)
{
writelog(LOG_ERR,"记录流水表失败!");
*pRetCode = E_DB_TRADESERIAL_E;
}
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
writelog(LOG_DEBUG,"发行授权卡成功，操作员[%s]交易卡号[%d]流水号[%d]"
,tAuthCard.oper_code,tAuthCard.card_id,tSerial.serial_no);
out_pack->lvol0 = tAuthCard.card_id;
out_pack->lvol1 = tAuthCard.privilege;
des2src(out_pack->sdate2,tAuthCard.expired_date);
des2src(out_pack->scust_limit,tAuthCard.oper_code);
des2src(out_pack->sbank_acc,work_key);
des2src(out_pack->scust_limit2,tOper.oper_name);
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847183(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret=0;
char tx_date[8+1]=""; //发生日期
char tx_time[6+1]=""; //发生时间
int card_no=0; //卡号
char device_id[8+1]=""; //终端机ID
int serial_no=0; //终端机流水号
double dUniqno=0;
T_t_tif_tradeserial tTradeserial; //卡操作流水表
T_t_tif_rcvdtl tRcvdtl;
char sysdate[11]="";
char systime[9]="";
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
ResetNormalCPack(&aPack,0,1);
memset(&tRcvdtl,0,sizeof(tRcvdtl));
memset(&tTradeserial,0,sizeof(tTradeserial));
getsysdate(sysdate);
getsystime(systime);
des2src(tTradeserial.enteract_time,systime);
des2src(tx_date,rPack->sbank_pwd);
des2src(tx_time,rPack->sbank_code);
card_no=rPack->lvol0;
des2src(device_id,rPack->sbank_pwd2);
serial_no=rPack->lvol1;
trim(rPack->scust_limit);
trim(rPack->scust_limit2);
trim(rPack->semp_pwd);
if(strlen(rPack->scust_limit)==0)
{
*pRetCode=E_OPER_NOT_EXIST;
goto L_RETU;
}
if(strlen(rPack->scust_limit2)==0)
{
*pRetCode=E_INPUT_AUTH_OPER_NULL;
goto L_RETU;
}
if(strcmp(rPack->scust_limit,rPack->scust_limit2)==0)
{
writelog(LOG_ERR,"oper[%s]auth_oper[%s]",rPack->scust_limit,rPack->scust_limit2);
*pRetCode=E_OPER_AND_AUTH_OPER_EQ;
goto L_RETU;
}
ret=chk_oper_pwd(rPack->scust_limit2,rPack->semp_pwd);
if(ret)
{
if(E_OPER_NOT_EXIST==ret)
*pRetCode=E_AUTH_OPER_NOT_EXIST;
else if(E_PASSWORD_WRONG==ret)
*pRetCode=E_AUTH_OPER_PWD;
else
*pRetCode=ret;
goto L_RETU;
}
ret=DB_t_tif_rcvdtl_read_lock_by_c0_and_tx_date_and_tx_time_and_card_no_and_device_id_and_serial_no(tx_date,tx_time,card_no,device_id,serial_no,&tRcvdtl);
if(ret)
{
if(DB_NOTFOUND==ret)
{
writelog(LOG_ERR,"tx_date[%s],tx_time[%s],card_no[%d],device_id[%s],serial_no[%d]",tx_date,tx_time,card_no,device_id,serial_no);
*pRetCode=E_SERIALNO_NOT_EXIST;
}
else
{
writelog(LOG_ERR,"read_lock t_tif_rcvdtl err ret[%d]",ret);
*pRetCode=E_DB_RCVDTL_R;
}
goto L_RETU;
}
if(tRcvdtl.status[0]=='4')
{
*pRetCode=E_TX_SERIAL_CZ;
DB_t_tif_rcvdtl_free_lock_c0();
goto L_RETU;
}
if(tRcvdtl.status[0]!='3')
{
*pRetCode=E_TX_SERIAL_CANNOT_CZ;
DB_t_tif_rcvdtl_free_lock_c0();
goto L_RETU;
}
if(tRcvdtl.amount<0)
{
*pRetCode=E_TX_SERIAL_CANNOT_CZ;
DB_t_tif_rcvdtl_free_lock_c0();
goto L_RETU;
}
tRcvdtl.status[0]='4'; //冲正
des2src(tRcvdtl.oper_no,rPack->scust_limit);
des2src(tRcvdtl.deal_date,sysdate);
des2src(tRcvdtl.deal_time,systime);
ret=DB_t_tif_rcvdtl_update_lock_by_c0(&tRcvdtl);
if(ret)
{
*pRetCode=E_DB_RCVDTL_U;
writelog(LOG_ERR,"DB_t_tif_rcvdtl_update_lock_by_c0[%d]",ret);
goto L_RETU;
}
DB_t_tif_rcvdtl_free_lock_c0();
//赋值
ret=getdata(&tTradeserial,&tRcvdtl);
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
des2src(tTradeserial.operate_date,sysdate);
des2src(tTradeserial.operate_time,systime);
des2src(tTradeserial.collect_date,sysdate);
des2src(tTradeserial.collect_time,systime);
ret=GetLogicDate(tTradeserial.enteract_date); //业务日期
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"GetLogicDate err ret[%d]",ret);
goto L_RETU;
}
des2src(tTradeserial.enteract_time,systime);
tTradeserial.in_balance =rPack->damt1;
tTradeserial.trade_fee = -(tRcvdtl.amount/100.0); //本次消费金额
tTradeserial.out_balance=tTradeserial.in_balance-tTradeserial.trade_fee;
tTradeserial.trade_count=rPack->lvol10;
tTradeserial.maindevice_id=rPack->lvol6;
// tTradeserial.sys_id=rPack->lvol6;
des2src(tTradeserial.oper_code,rPack->sdate1);
tTradeserial.reviseserial_no=tTradeserial.other_seri_no;
//取流水号,从帐处理
ret=getNewUniqNo(KEYTYPE_TRADESERIAL, &dUniqno);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"getNewUniqNo err[%d]",ret);
goto L_RETU;
}
tTradeserial.serial_no=(int)dUniqno;
//######################################################
//入账处理
switch(tTradeserial.serial_type)
{
case 930031:
if(0==tRcvdtl.amount)
break;
tTradeserial.serial_type=TXCODE_TX_REVEAL;
ret=process930031(&tTradeserial);
if(ret)
{ //业务处理失败处理
*pRetCode=ret;
goto L_RETU;
}
break;
default:
*pRetCode=E_TXCODE_NOT_EXIST; //交易码错误
goto L_RETU;
}
//######################################################
//添加交易流水
tTradeserial.serial_state=SERISTAT_DEBT;
ret = DB_t_tif_tradeserial_add(&tTradeserial);
if (ret)
{
writelog(LOG_ERR,"DB_t_tif_tradeserial_add ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode= E_DB_TRADESERIAL_E;
else
*pRetCode= E_DB_TRADESERIAL_I;
goto L_RETU;
}
if(amtcmp(tTradeserial.out_balance,0)<0)
{
*pRetCode=E_ENTER_ACCOUNT;
goto L_RETU;
}
SetCol(handle,0);
SetCol(handle,F_LSERIAL1,F_DAMT2,F_DAMT3,F_VSMESS,0);
out_pack->lserial1=tTradeserial.serial_no;
out_pack->damt2=tTradeserial.out_balance;
out_pack->damt3=-tTradeserial.trade_fee;
sprintf(out_pack->vsmess,"流水号:%d 冲正金额:%.2lf元 冲正前卡余额:%.2lf元 卡当前余额:%.2lf元",tTradeserial.serial_no,-tTradeserial.trade_fee,tTradeserial.in_balance,tTradeserial.out_balance);
writelog(LOG_DEBUG,out_pack->vsmess);
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int Do_Transfer(BANK_TRANS_REQUEST *pBankTrans)
{
//char buffer[20]="";
char temp[128]="";
int ho_OpCount=0;
int delay_time=0;
double ho_Fee_Change=0;
int ret=0;
FILE *fp;
TIniFile tf;
int nrows=0;
char path_name[128]="";
char file_name[128]="";
BANK_TRANSFER_HEAD trans_head;
BANK_TRANSFER_RECORD trans_record;
T_v_tif_shopdeptfee v_shopdeptfee;
T_t_cif_shop t_shop;
//系统正在结算，可以生成划拨文件
//sleep(1);
//ret=DB_v_tif_shopdeptfee_read_sum_fee(&ho_OpCount,&ho_Fee_Change);
if(ret)
{
writelog(LOG_ERR,"DB_v_tif_shopdeptfee_read_sum_fee err [%d]",ret);
return ret;
}
ho_OpCount=4;
ho_Fee_Change=12345.98;
strcpy(path_name,"/ykt/ykt/src/bank/ftp");
sprintf(file_name,"%s/fd_%8.8s",path_name,getsysdate(NULL));
#ifdef DEBUG
// strcpy(path_name,"./ftp/fd_20041009");
writelog(LOG_ALERT,"file_name2=[%s]",file_name);
#endif
fp = fopen(file_name,"wb");
if (fp==NULL)
{
writelog(LOG_ALERT,"Open indicate file fail");
return -1;
}
memcpy(trans_head.rmb_batch_no,BATCH_NO,sizeof(trans_head.rmb_batch_no));
fprintf(fp,"%-14.14s",trans_head.rmb_batch_no); //批量编号
memcpy(trans_head.rmb_start_seq,"000000",6);
fprintf(fp,"%-6.6s",trans_head.rmb_start_seq); //填000000
trans_head.rmb_acc_status='0';
fprintf(fp,"%c",trans_head.rmb_acc_status); //记帐状态（填0）
trans_head.rmb_chk_status='2';
fprintf(fp,"%c",trans_head.rmb_chk_status); //检查状态（填2）
sprintf(trans_head.rmb_total_amount,"%-13d",int(ho_Fee_Change*100));
fprintf(fp,"%-13.13s",trans_head.rmb_total_amount); //总金额(11位整数2位小数，无小数点)
sprintf(trans_head.rmb_total_num,"%-6d",ho_OpCount);
fprintf(fp,"%-6.6s",trans_head.rmb_total_num); //总笔数
fprintf(fp,"%-13.13s",trans_head.rmb_enter_amount); //入帐金额
fprintf(fp,"%-6.6s",trans_head.rmb_enter_num); //入帐笔数
sprintf(trans_head.rmb_unit_name,"%-40s",UNIT_NAME);
fprintf(fp,"%-40.40s",trans_head.rmb_unit_name); //单位名称
#ifdef DEBUG
writelog(LOG_ALERT,"trans_head.rmb_unit_name=[%s]",trans_head.rmb_unit_name);
#endif
strcpy(trans_head.rmb_unit_account,UNIT_ACCOUNT);
//sprintf(trans_head.rmb_unit_account,"%-20s"UNIT_ACCOUNT);
fprintf(fp,"%-20.20s",trans_head.rmb_unit_account); //单位帐号
#ifdef DEBUG
writelog(LOG_ALERT,"trans_head.rmb_unit_account=[%s]",trans_head.rmb_unit_account);
#endif
memcpy(trans_head.rmb_apply_date,getsysdate(NULL),sizeof(trans_head.rmb_apply_date));
fprintf(fp,"%-8.8s",trans_head.rmb_apply_date); //申请入帐日期（当天日期）
//memcpy(trans_head.rmb_send_date,trans_head.rmb_apply_date,sizeof(trans_head.rmb_apply_date));
memcpy(trans_head.rmb_send_date,getsystime(NULL),sizeof(trans_head.rmb_send_date));
fprintf(fp,"%-8.8s",trans_head.rmb_send_date); //上传日期（当天日期）
#ifdef DEBUG
printf("[%14.14s]\n",trans_head.rmb_batch_no ); //批量编号
printf("[%6.6s]\n",trans_head.rmb_start_seq ); //填000000
printf("[%c]\n",trans_head.rmb_acc_status ); //记帐状态（填0）
printf("[%c]\n",trans_head.rmb_chk_status ); //检查状态（填2）
printf("[%13.13s]\n",trans_head.rmb_total_amount ); //总金额(11位整数2位小数，无小数点)
printf("[%6.6s]\n",trans_head.rmb_total_num ); //总笔数
printf("[%13.13s]\n",trans_head.rmb_enter_amount ); //入帐金额(11位整数2位小数，无小数点)
printf("[%6.6s]\n",trans_head.rmb_enter_num ); //入帐笔数
printf("[%40.40s]\n",trans_head.rmb_unit_name ); //单位名称
printf("[%20.20s]\n",trans_head.rmb_unit_account ); //单位帐号
printf("[%8.8s]\n",trans_head.rmb_apply_date ); //申请入帐日期（当天日期）
printf("[%8.8s]\n",trans_head.rmb_send_date ); //上传日期（当天日期）
#endif
//写入划拨文件
// fprintf(fp,(char*)(&trans_head));
strcpy(temp,"1");
ret=DB_v_tif_shopdeptfee_open_select_by_c6_and_is_indep(temp);
if(ret)
{
//db_chk_err(__FILE__,__LINE__,&sqlca);
writelog(LOG_ALERT,"DB_v_tif_shopdeptfee_open_select_by_c6_and_is_indep[%d]",ret);
return ret;
}
while(1)
{
//初始化宿主变量
ho_Fee_Change=0;
memset(&v_shopdeptfee,0,sizeof(v_shopdeptfee));
memset(&t_shop,0,sizeof(t_shop));
ret=DB_v_tif_shopdeptfee_fetch_select_by_c6(&v_shopdeptfee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
if(0==nrows)
{
writelog(LOG_ERR,"DB_v_tif_shopdeptfee_fetch_select_by_c6[%d]",ret);
break;
}
else break; //循环记录结束
}
else
{
//db_chk_err(__FILE__,__LINE__,&sqlca);
writelog(LOG_ERR,"DB_v_tif_shopdeptfee_fetch_select_by_c6[%d]",ret);
return ret;
}
}
ret=DB_t_cif_shop_read_by_shop_id(v_shopdeptfee.shop_id,&t_shop);
if(ret)
{
//db_chk_err(__FILE__,__LINE__,&sqlca);
writelog(LOG_ALERT,"DB_t_cif_shop_read_by_shop_id[%d]",ret);
return ret;
}
strcpy(trans_record.rmb_batch_no1,BATCH_NO);
sprintf(trans_record.rmb_seq_no,"%d",nrows);
trans_record.rmb_acc_status1='0';
trans_record.rmb_tran_kind='2';
strncpy(trans_record.rmb_cust_name,t_shop.b_act_name,sizeof(trans_record.rmb_cust_name));
strncpy(trans_record.rmb_acc_no,t_shop.b_act_id,sizeof(trans_record.rmb_acc_no));
trans_record.rmb_cb_cr='0';
sprintf(trans_record.rmb_tran_amt,"%f",ho_Fee_Change);
strcpy(trans_record.rmb_cur_code,"001");
strcpy(trans_record.rmb_host_no,"00000000");
memcpy(trans_record.rmb_ret_code," ",sizeof(trans_record.rmb_ret_code));
strcpy(trans_record.rmb_acc_date,"00000000");
strcpy(trans_record.rmb_host_no1,"000000000");
strcpy(trans_record.rmb_open_branch,"0000000");
memcpy(trans_record.rmb_vcho_kind," ",sizeof(trans_record.rmb_vcho_kind));
strcpy(trans_record.rmb_vcho_bat_no,"00");
strcpy(trans_record.rmb_vcho_no,"000000000");
strcpy(trans_record.rmb_memo," ");
strcpy(trans_record.rmb_tran_info," ");
fprintf(fp,(char*)(&trans_record));
nrows++;
}
fclose(fp);
memset(pBankTrans,0,BANK_TRANS_PACKLEN);
//开始银行发送清算报文
memcpy( pBankTrans->TradeCode,TRADE_BANK_BALANCE, sizeof(pBankTrans->TradeCode)); //写交易代码
//写交易日期和交易时间
getsysdate(pBankTrans->TradeDate);
getsystime(pBankTrans->TradeTime);
//写院校代码
sprintf(pBankTrans->CustNo,"%-16s",SCHOOL_CODE);
//写银行卡号-此处约定为划拨文件名
sprintf(pBankTrans->BankCardNo,"%8.8s",getsysdate(NULL));
//写校验mac码
//写校验mac码----林钦此处应该用银行回传回来的动态密钥做mac密钥，此处改过来了
generate_mac((char*)pBankTrans,sizeof(pBankTrans),pBankTrans->MAC);
//ANSIX99(mac_key,(char*)(&BankTransPak), BANK_TRANS_PACKLEN-LEN_MAC,BankTransPak.MAC);
TRACE_BANK_TRANS(pBankTrans,"send transfer package");
//发送数据到银行并同时接收银行数据，此处不判断返回的mac校验
ret=send_to_and_recv_from_bank((char*)pBankTrans,BANK_TRANS_PACKLEN, (char*)pBankTrans,BANK_TRANS_PACKLEN,delay_time);
if(ret)
{
writelog(LOG_ERR,"send_to_and_recv_from_bank error,errcode=[%d]",ret);
return E_TRANS_BANK_NOANSWER;
}
TRACE_BANK_TRANS(pBankTrans,"recv transfer package");
//农行暂时未校验该mac,所以暂时屏蔽掉
ret=check_mac((char*)pBankTrans,BANK_TRANS_PACKLEN);
if(ret)
{
writelog(LOG_ERR,"Receive data mac verify error,error code is [%d] ",ret);
//sprintf(pNode->RetCode,"%d",E_TRANS_BANK_RECVERR);
return E_TRANS_BANK_RECVERR;
}
writelog(LOG_INFO,"Congratulation, transer succeed!");
return 0;
}
int F847119(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret=0;
char logicdate[11]="";
char sysdate[11]="";
char systime[9]="";
char operate_date[11]="";
char sSerialno[20]="";
char physical_no[41]="";
char old_physical_no[41]="";
int iSerialno=0;
int card_id=0;
int serial_type=0;
int flag=0;
double dSerialno=0;
double dAmt=0;
char h_password[7] = ""; //卡密码
char seed_key[17] = ""; //种子密钥
int card_use_cnt=0;
int seri_use_cnt=0;
double seri_in_bala=0;
double seri_out_bala=0;
double seri_in_bala_next=0;
double seri_out_bala_next=0;
int amt_flag=0;
char tx_date[11]="";
T_t_pif_card tCard;
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
T_t_tif_tradeserial tradeserial;
T_t_tif_tradeserial old_tradeserial;
T_t_tif_tradeserial_his tradeserialhis;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
memset(&tCard,0,sizeof(tCard));
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tSpeFee,0,sizeof(tSpeFee));
memset(&old_tradeserial,0,sizeof(old_tradeserial));
memset(&tradeserial,0,sizeof(tradeserial));
memset(&tradeserialhis,0,sizeof(tradeserialhis));
memcpy(seed_key,STATIC_SEED_KEY,sizeof(seed_key)); //读种子密钥
ResetNormalCPack(&aPack,0,1);
SetCol(handle,0);
SetCol(handle,F_LVOL0,F_LVOL1,F_LVOL5,F_LVOL6,
F_SCUST_NO, F_SCUST_NO2,F_SCUST_AUTH,F_SCUST_AUTH2,
F_SDATE0,F_SNAME,F_SNAME2,
F_SOPEN_EMP,F_SSTATUS0,
F_DAMT2,F_LSERIAL1,F_VSMESS,0);
des2src(physical_no,rPack->sbank_acc);
card_id=rPack->lvol0;
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
//判断卡状态是否为写卡未成功状态
ret=DB_t_pif_card_read_by_card_id(card_id, &tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CARDNO_NOT_EXIST;
else
*pRetCode= E_DB_CARD_R;
goto L_RETU;
}
if(STATE_FALSE==tCard.state_id[CARDSTAT_TYPE_WFAIL])
{
*pRetCode=E_CARDSTATE_NOTWRITEFAIL;
goto L_RETU;
}
ret=GetXmlValue(sSerialno, sizeof(sSerialno), XML_KEY_SERIALNO, tCard.comments);
if(ret)
{
DB_t_pif_card_free_lock_by_cur();
*pRetCode=ret;
goto L_RETU;
}
//修改账号表中的卡状态
//根据流水号得到补卡的出卡值
ret=GetXmlValue(operate_date, sizeof(operate_date), XML_KEY_OPERATEDATE, tCard.comments);
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
iSerialno=atoi(sSerialno);
if(strncmp(logicdate,operate_date,8)==0)
{
ret=DB_t_tif_tradeserial_read_by_serial_no(iSerialno,&old_tradeserial);
if(ret)
{
writelog(LOG_ERR,"Serialno[%d]",iSerialno);
if(DB_NOTFOUND==ret)
*pRetCode=E_SERIALNO_NOT_EXIST;
else
*pRetCode=E_DB_TRADESERIAL_R;
goto L_RETU;
}
if(card_id!=old_tradeserial.card_id)
{
writelog(LOG_ERR,"input card_id [%d],tradeserial card_id[%d]",card_id,old_tradeserial.card_id);
*pRetCode=E_CARDNO_SERIAL_NE;
goto L_RETU;
}
serial_type=old_tradeserial.serial_type;
flag=TYPE_CUR;
}
else
{
ret=DB_t_tif_tradeserial_his_read_by_bak_date_and_serial_no(operate_date,iSerialno,&tradeserialhis);
if(ret)
{
writelog(LOG_ERR,"operate_date[%s]Serialno[%d]",operate_date,iSerialno);
if(DB_NOTFOUND==ret)
*pRetCode=E_SERIALNO_NOT_EXIST;
else
*pRetCode=E_DB_TRADESERIAL_R;
goto L_RETU;
}
if(card_id!=tradeserialhis.card_id)
{
writelog(LOG_ERR,"input card_id [%d],tradeserial card_id[%d]",card_id,tradeserialhis.card_id);
*pRetCode=E_CARDNO_SERIAL_NE;
goto L_RETU;
}
serial_type=tradeserialhis.serial_type;
flag=TYPE_HIS;
}
if(TYPE_CUR==flag)
{
seri_in_bala=old_tradeserial.in_balance;
seri_out_bala=old_tradeserial.out_balance;
strncpy(tx_date,old_tradeserial.operate_date,sizeof(tx_date));
dAmt=D4U5(old_tradeserial.out_balance-old_tradeserial.in_balance,2); //发生额=出卡值-入卡值
}
else
{
seri_in_bala=tradeserialhis.in_balance;
seri_out_bala=tradeserialhis.out_balance;
strncpy(tx_date,tradeserialhis.operate_date,sizeof(tx_date));
dAmt=D4U5(tradeserialhis.out_balance-tradeserialhis.in_balance,2); //发生额=出卡值-入卡值
}
des2src(old_physical_no,tCard.physical_no);
trim(physical_no);
trim(old_physical_no);
switch(serial_type)
{
//发行正式卡
case 847101:
//补办正式卡
case 847104:
//发行过渡临时卡
case 847116:
//发行非记名临时卡
case 847124:
case 847125:
case 847126:
if(strcmp(old_physical_no,physical_no)!=0)
{
ret=IsExistCardByPhyCardNo(physical_no);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
//修改卡标志，置为正常状态
ret=DB_t_pif_card_read_lock_by_cur_and_card_id(card_id, &tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CARDNO_NOT_EXIST;
else
*pRetCode= E_DB_CARD_R;
goto L_RETU;
}
des2src(tCard.physical_no,physical_no); //物理卡号
ret=DB_t_pif_card_update_lock_by_cur(&tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CARDNO_NOT_EXIST;
else
*pRetCode= E_DB_CARD_U;
goto L_RETU;
}
DB_t_pif_card_free_lock_by_cur();
// add by 汤成 2005-8-10
// 增加向名单表写入记录
switch(serial_type)
{
//补办正式卡
case 847104:
//发行过渡临时卡
case 847116:
// 记名临时卡
//case 847124:
// VIP 卡
case 847126:
ret = InsertToBlkList(tCard.card_id,CHCARD_BLACKLIST);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
break;
default:
break;
}
}
tradeserial.in_balance=0; //入卡值
break;
//银行转帐-Added by hhd at 20051225
//考虑到有可能圈存写卡成功，但是提示失败
//避免重复写卡
case 240001:
//判断卡中交易次数是否等于发生错误的流水的交易次数
if(card_use_cnt==seri_use_cnt)
{
//判断上传入卡值是否等于发生错误的流水的入卡值
if(rPack->damt1==seri_in_bala) //入卡值等于入卡值，卡没有写上
tradeserial.in_balance=rPack->damt1;
if(rPack->damt1==seri_out_bala) //入卡值等于出卡值，卡已经写上
{
tradeserial.in_balance=rPack->damt1;
amt_flag=1;
}
else
{
writelog(LOG_ERR,"In_balance abnormity,in_bala=[%f]",rPack->damt1);
*pRetCode= E_ENTER_ACCOUNT;
goto L_RETU;
}
}
if(card_use_cnt>seri_use_cnt)
{
ret=Get_card_next_serial(tCard.card_id,tx_date,rPack->lvol6,&seri_in_bala_next,&seri_out_bala_next);
if(ret)
{
writelog(LOG_ERR,"Get_card_next_serial error,errcode=[%d]",ret);
writelog(LOG_ERR,"没有找到下一笔流水");
goto L_RETU;
}
if(seri_in_bala_next==seri_in_bala)
tradeserial.in_balance=rPack->damt1;
if(seri_in_bala_next==seri_out_bala)
{
tradeserial.in_balance=rPack->damt1;
amt_flag=1;
}
else
{
writelog(LOG_ERR,"In_balance abnormity,in_bala=[%f]",rPack->damt1);
*pRetCode= E_ENTER_ACCOUNT;
goto L_RETU;
}
}
else
{
writelog(LOG_ERR,"In_total_cnt abnormity,in_total_cnt=[%d]",card_use_cnt);
*pRetCode= E_ENTER_ACCOUNT;
goto L_RETU;
}
default:
if(strcmp(old_physical_no,physical_no)!=0)
{
writelog(LOG_ERR,"db physical_no[%s],input physical_no[%s]",old_physical_no,physical_no);
*pRetCode= E_CARD_PHYNO_DIFFER;
goto L_RETU;
}
tradeserial.in_balance=rPack->damt1; //入卡值
break;
}
if(TYPE_CUR==flag)
dAmt=D4U5(old_tradeserial.out_balance-old_tradeserial.in_balance,2); //发生额=出卡值-入卡值
else
dAmt=D4U5(tradeserialhis.out_balance-tradeserialhis.in_balance,2); //发生额=出卡值-入卡值
//说明不需要写卡,则发生额置为0
if(amt_flag==1)
{
tradeserial.trade_fee=0; //补写卡值
}
else
{
tradeserial.trade_fee=dAmt; //补写卡值
}
tradeserial.out_balance=tradeserial.in_balance+dAmt; //出卡值
if(tradeserial.out_balance<0||tradeserial.out_balance>999)
{
writelog(LOG_ERR,"tradeserial.out_balance[%lf]",tradeserial.out_balance);
*pRetCode= E_TX_SERIAL;
goto L_RETU;
}
writelog(LOG_DEBUG,"写卡失败日期%s,补写流水号%d,交易码%d,卡号%d,补写金额%.2lf,入卡值%lf,出卡值%lf",operate_date,iSerialno,serial_type,card_id,dAmt,tradeserial.in_balance,tradeserial.out_balance);
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(tCard.cosumer_id, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",tCard.cosumer_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_R;
goto L_RETU;
}
EncodePwd(seed_key,h_password,tCard.password,0); //卡密码
//得到收费类别
if(tCustomer.fee_type<1)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
*pRetCode=E_DB_SPEFEE_R;
goto L_RETU;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_U;
goto L_RETU;
}
}
DB_t_cif_customer_free_lock_cur();
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dSerialno); //获得流水号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret [%d]",ret);
goto L_RETU;
}
tradeserial.serial_no = (int)dSerialno; //流水号
tradeserial.other_seri_no = 0; //上传端流水号
tradeserial.serial_type = TXCODE_REWRITE_CARD; //交易代码；备注：发卡+充值 用一个交易码，即847101； 发卡（不充值）另用一个交易码，即新的发卡程序文件名，从而区分发卡充值与发卡不充值的卡操作信息。
tradeserial.serial_state = SERISTAT_DEBT; //流水状态
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
des2src(tradeserial.oper_code , rPack->scust_limit);
tradeserial.maindevice_id = rPack->lvol6; //上传工作站标识
tradeserial.device_id = rPack->lvol7; //采集设备标识
tradeserial.card_id = tCard.card_id; //卡号
des2src(tradeserial.showid,tCard.showid); //显示卡号
tradeserial.purse_id = PURSE_NO_ONE; //钱包号
tradeserial.customer_id = tCard.cosumer_id; //客户标识
tradeserial.reviseserial_no=dSerialno; //原写卡失败流水号
// 插入交易流水表
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
writelog(LOG_ERR,"ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
if(amtcmp(tradeserial.out_balance,0)<0)
{
*pRetCode=E_ENTER_ACCOUNT;
goto L_RETU;
}
sprintf(out_pack->vsmess,"流水号:%d 补写金额:%.2lf元 补写前卡余额:%.2lf元 卡当前余额:%.2lf元",tradeserial.serial_no,tradeserial.trade_fee,tradeserial.in_balance,tradeserial.out_balance);
writelog(LOG_DEBUG,out_pack->vsmess);
out_pack->lvol0 = tCard.card_id; //交易卡号
out_pack->lvol1 = tCustomer.cut_type; //客户类别
out_pack->lvol5 = tCustomer.fee_type; //收费类别
des2src(out_pack->scust_no,tCard.showid); //显示卡号
des2src(out_pack->scust_no2,tCustomer.classdept_no); //部门号
des2src(out_pack->scust_auth,tCustomer.stuemp_no); //学号
des2src(out_pack->scust_auth2,tCustomer.man_id); //身份证号
des2src(out_pack->sname,tCustomer.cut_name); //客户姓名
des2src(out_pack->sname2,tCustomer.lib_cardid); //图书证号
des2src(out_pack->sstatus0,tCustomer.sex); //性别
des2src(out_pack->sopen_emp,h_password); //卡密码
des2src(out_pack->sdate0,tCard.end_time); //有效截至日期
out_pack->damt2=tradeserial.out_balance; //出卡值=入卡值+发生额
out_pack->lserial1=tradeserial.serial_no; //流水号
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847104(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret =0;
int len = 0;
int i=0;
int hi_cutid=0;
char h_showcardid[11] = ""; //显示卡号
char h_password[7] = ""; //卡密码
double h_temp_Card_id = 0; //卡号
double dSerialNo=0;
char seed_key[17] = ""; //种子密钥
char card_endtime[8 + 1] = ""; //卡的有效截至日期
char logicdate[11]=""; //业务日期
char sysdate[11]="";
char systime[9]="";
char sEndDate[9]="";
char sMsg[256]="";
char sMaxCardBalance[20]="";
char lost_date[11]="";
char buf[64] = "";
int write_failed = 0;
double dMaxCardBalance=0;
int lost_card_id=0;
T_t_pif_card tCard;
T_t_pif_card tOldCard;
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
// T_t_pif_cardlossinfo tCardLossInfo;
T_t_tif_tradeserial tradeserial;
T_t_aif_account tAccount;
InAcc IA;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
ResetNormalCPack(&aPack,0,1);
SetCol(handle,0);
SetCol(handle,F_LVOL0,F_LVOL1,F_LVOL5,
F_SCUST_NO, F_SCUST_NO2,F_SCUST_AUTH,F_SCUST_AUTH2,
F_SDATE0,F_SNAME,F_SNAME2,
F_SOPEN_EMP,F_SSTATUS0,
F_DAMT2,F_LSERIAL1,F_VSMESS,0);
memset(&tCard,0,sizeof(tCard));
memset(&tOldCard,0,sizeof(tOldCard));
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tSpeFee,0,sizeof(tSpeFee));
// memset(&tCardLossInfo,0,sizeof(tCardLossInfo));
memset(&tAccount,0,sizeof(tAccount));
memset(&tradeserial,0,sizeof(tradeserial));
memset(&IA,0,sizeof(IA));
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
//检查客户信息，判断是否可以发行卡
hi_cutid=rPack->lvol0; //客户号
des2src(tCard.physical_no, rPack->sbank_acc); //物理卡号
trim(h_showcardid);
ret=IsExistFreezeCardByCustomId(hi_cutid);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
ret=IsExistNoLostCardByCustomId(hi_cutid);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
if(strlen(h_showcardid))
{
ret=IsExistShowCardNo(h_showcardid);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
}
ret=IsExistCardByPhyCardNo(tCard.physical_no);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
ret=GetLostCardIdByCustomId_TypeId(hi_cutid,CT_NORMAL,&lost_card_id);
if(ret)
{
writelog(LOG_ERR,"customer[%d]tCard type_id[%d]",hi_cutid,CT_NORMAL);
*pRetCode = ret;
goto L_RETU;
}
/*
ret=DB_t_pif_cardlossinfo_read_by_card_id_and_state_id(lost_card_id, STATE_VALID, &tCardLossInfo);
if(ret)
{
writelog(LOG_ERR,"lost_card_id[%d]",lost_card_id);
if(DB_NOTFOUND==ret)
*pRetCode = E_CARDNO_NOT_EXIST;
else
*pRetCode = E_DB_CARD_R;
goto L_RETU;
}
*/
ret=get_latest_lost_date_by_card_no(lost_card_id,lost_date);
if(ret)
{
writelog(LOG_ERR,"lost_card_id[%d]",lost_card_id);
*pRetCode =ret;
goto L_RETU;
}
//先检查客户的挂失的正式卡是否到了补办日期
ret=GetLostCardValiddate(lost_date,sEndDate);
if(ret)
{
*pRetCode =ret;
goto L_RETU;
}
if(strncmp(sEndDate,sysdate,8)>0)
{
writelog(LOG_ERR,"lost_normal_card_id[%d]lost_date[%s]end_date[%s]",lost_card_id,lost_date,sEndDate);
*pRetCode = E_NORMALCARD_NOT_REACH_ENDDATE;
goto L_RETU;
}
/*
//更新卡挂失日期表中该卡状态为无效
ret=UpdateCardLossInfoState(lost_card_id,STATE_VALID,STATE_INVALID);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
*/
//注销原卡
ret=DB_t_pif_card_read_lock_by_cur_and_card_id(lost_card_id,&tOldCard);
if(ret)
{
writelog(LOG_ERR,"lost_card_id[%d]",lost_card_id);
if(DB_NOTFOUND==ret)
*pRetCode = E_CARDNO_NOT_EXIST;
else
*pRetCode = E_DB_CARD_R;
goto L_RETU;
}
if(tOldCard.state_id[CARDSTAT_TYPE_WFAIL] == STATE_TRUE
&& tOldCard.is_managefee[0] == CARDWFAIL_WATER )
{
// 转账的时候写卡失败
write_failed = 1;
}
else
{
des2src(tCard.state_id,CARDSTAT_REG); //卡状态
}
des2src(tOldCard.state_id,CARDSTAT_LOGOUT); //注销
des2src(tOldCard.end_time,sysdate); //注销日期
ret=DB_t_pif_card_update_lock_by_cur(&tOldCard);
if(ret)
{
writelog(LOG_ERR,"lost_card_id[%d]",lost_card_id);
if(DB_NOTFOUND==ret)
*pRetCode = E_CARDNO_NOT_EXIST;
else
*pRetCode = E_DB_CARD_R;
goto L_RETU;
}
DB_t_pif_card_free_lock_by_cur();
if(write_failed)
{
ret = GetXmlValue(tOldCard.comments,sizeof buf,XML_KEY_SERIALNO2,buf);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
AddXmlItemStr(tCard.comments,XML_KEY_SERIALNO2,buf);
ret = GetXmlValue(tOldCard.comments,sizeof buf,XML_KEY_OPERATEDATE2,buf);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
AddXmlItemStr(tCard.comments,XML_KEY_OPERATEDATE2,buf);
ret = GetXmlValue(tOldCard.comments,sizeof buf,XML_KEY_TRADECODE2,buf);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
AddXmlItemStr(tCard.comments,XML_KEY_TRADECODE2,buf);
tCard.is_managefee[0] = CARDWFAIL_WATER;
}
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(hi_cutid, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",hi_cutid);
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_R;
goto L_RETU;
}
//得到收费类别
if(tCustomer.fee_type<1)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
*pRetCode=E_DB_SPEFEE_R;
goto L_RETU;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_U;
goto L_RETU;
}
}
DB_t_cif_customer_free_lock_cur();
tradeserial.trade_fee =D4U5(rPack->damt0,2);
// 准备数据插入卡信息表
memcpy(seed_key,STATIC_SEED_KEY,16); //读种子密钥
if(strlen(tCustomer.can_time)==8)
{
ret=IsInvalidDateTime(tCustomer.can_time,"YYYYMMDD");
if(ret)
{
*pRetCode=E_TB_CUSTOMER_ENDTIME;
goto L_RETU;
}
if(strncmp(tCustomer.can_time,sysdate,8)<=0)
{
*pRetCode=E_TB_CUSTOMER_ENDTIME;
goto L_RETU;
}
des2src(card_endtime,tCustomer.can_time);
}
else if(strlen(rPack->sdate0)==0)
{
*pRetCode=E_TB_CUSTOMER_NO_ENDTIME;
goto L_RETU;
}
else
{
ret=IsInvalidDateTime(rPack->sdate0,"YYYYMMDD");
if(ret)
{
*pRetCode = E_INPUT_DATE;
goto L_RETU;
}
if(strncmp(rPack->sdate0,sysdate,8)<=0)
{
*pRetCode=E_INPUT_DATE;
goto L_RETU;
}
des2src(card_endtime,rPack->sdate0);
}
tradeserial.trade_fee = rPack->damt0; //金额
tradeserial.other_seri_no = 0; //上传端流水号
tradeserial.serial_state = SERISTAT_DEBT; //流水状态
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.maindevice_id = rPack->lvol6; //上传工作站标识
tradeserial.device_id = rPack->lvol7; //采集设备标识
tradeserial.purse_id = PURSE_NO_ONE; //钱包号
tradeserial.customer_id = tCustomer.cut_id; //客户标识
tradeserial.sys_id = 0; //外部系统标识
des2src(tradeserial.oper_code, rPack->scust_limit); //操作员号
len=strlen(tCustomer.man_id) ;
if (len >= 6)
{
strncpy(h_password,&(tCustomer.man_id[len-6]),6);
if(h_password[5]>'9'||h_password[5]<'0')
h_password[5]='0';
}
else
{
strcpy(h_password,"666666");
}
ret = getNewUniqNo(KEYTYPE_CARD_ID,&h_temp_Card_id); //获取最大卡号
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
tCard.card_id = (int)h_temp_Card_id; //卡号
des2src(tCard.showid,h_showcardid); //显示卡号
des2src(tCard.is_main,TYPE_YES); //是否为主卡
tCard.type_id = CT_NORMAL; //卡类别
EncodePwd(seed_key,h_password,tCard.password,0); //卡密码
tCard.cosumer_id = hi_cutid; //客户标识
tCard.account_count = ACCOUNT_COUNT_ONE; //卡对应帐户个数
des2src(tCard.begin_time,sysdate); //注册时间
des2src(tCard.end_time, card_endtime); //截至时间
tCard.phytype = PHYTYPE_NO_ONE; //设备物理型号;默认为1
// 插入卡信息
ret = DB_t_pif_card_add(&tCard);
if (ret)
{
if(DB_REPEAT==ret)
*pRetCode = E_DB_CARD_E;
else
*pRetCode = E_DB_CARD_I;
goto L_RETU;
}
//修改帐户表中对应的卡号,类型,状态
ret=DB_t_aif_account_read_lock_by_c0_and_card_id_and_purse_id(lost_card_id,PURSE_NO_ONE,&tAccount);
if (ret)
{
writelog(LOG_ERR,"normalcard_account_id[%s]",lost_card_id);
if(DB_NOTFOUND==ret)
*pRetCode = E_ACTNO_NOT_EXIST;
else
*pRetCode = E_DB_ACCOUNT_R;
}
if(tAccount.current_state!=1)
{
*pRetCode=E_ACTNO_LOGOUT;
goto L_RETU;
}
tAccount.card_id=tCard.card_id;
tAccount.card_balance=tAccount.cur_freebala; //更新卡余额与库余额一致
tAccount.consume_count=0;
ret=DB_t_aif_account_update_lock_by_c0(&tAccount);
if (ret)
{
writelog(LOG_ERR,"DB_t_aif_account_update_lock_by_cur4 ret[%d]account_id[%s]",ret,tAccount.account_id);
if(DB_NOTFOUND==ret)
*pRetCode = E_ACTNO_EXIST;
else
*pRetCode = E_DB_ACCOUNT_U;
}
DB_t_aif_account_free_lock_c0();
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dSerialNo); //获得最大流水号
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
tradeserial.serial_no=(int)dSerialNo;
tradeserial.serial_type=TXCODE_CHANGE_CARD;
tradeserial.card_id=tCard.card_id; //新卡号
des2src(tradeserial.showid,tCard.showid); //显示卡号
strcpy(IA.sArrInActno[0],tAccount.account_id); //账号
IA.dArrInAmt[0]=tradeserial.trade_fee; //交易金额
IA.iUseCardFlag=USE_CARD_TYPE_ONLINE; //联机交易
IA.dInCardBala=tAccount.cur_freebala; //入卡值
IA.iTxCnt=1;
IA.iCardNo=tCard.card_id;
IA.iFeeType=tCustomer.fee_type;
IA.iArrInFeeSwitch[0]=rPack->lvol0;
IA.iArrInFeeSwitch[1]=rPack->lvol1;
IA.iArrInFeeSwitch[2]=rPack->lvol2;
IA.iArrInFeeSwitch[3]=rPack->lvol3;
IA.iArrInFeeSwitch[4]=rPack->lvol4;
IA.iArrInFeeSwitch[5]=rPack->lvol5;
IA.iArrInFeeSwitch[6]=rPack->lvol6;
IA.iArrInFeeSwitch[7]=rPack->lvol7;
IA.iArrInFeeSwitch[8]=rPack->lvol8;
IA.iArrInFeeSwitch[9]=rPack->lvol9;
IA.iArrInFeeSwitch[10]=rPack->lvol10;
ret=process(&IA,&tradeserial);
if(ret)
{
writelog(LOG_ERR,"process ret[%d]",ret);
*pRetCode=ret;
goto L_RETU;
}
sprintf(out_pack->vsmess,"流水号:%d 卡号:%d ",IA.iSerialNo,IA.iCardNo);
for(i=1;i<=IA.iOutTxTypeCnt;i++)
{
switch(IA.iArrOutTxType[i])
{
case TXTYPE_TOLL_DEPOSIT:
case TXTYPE_DEDUCT_DEPOSIT:
case TXTYPE_RETURN_DEPOSIT:
tradeserial.deposit_fee=IA.dArrOutAmt[i];
break;
case TXTYPE_PRE_TOLL_BOARD:
case TXTYPE_TOLL_BOARD:
case TXTYPE_DEDUCT_BOARD:
case TXTYPE_RETURN_BOARD:
tradeserial.boardfee=IA.dArrOutAmt[i];
break;
case TXTYPE_TOLL_CHARGE:
tradeserial.in_fee=IA.dArrOutAmt[i];
break;
case TXTYPE_TOLL_CARDCOST:
tradeserial.cost_fee=IA.dArrOutAmt[i];
break;
default:
break;
}
if(amtcmp(IA.dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA.sArrOutTxName[i],IA.dArrOutAmt[i]);
strcat(out_pack->vsmess,sMsg);
}
}
sprintf(sMsg,"卡当前余额:%.2lf元",tradeserial.out_balance);
strcat(out_pack->vsmess,sMsg);
writelog(LOG_DEBUG,out_pack->vsmess);
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
writelog(LOG_ERR,"ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
if(amtcmp(tradeserial.out_balance,0)<0)
{
*pRetCode=E_ENTER_ACCOUNT;
goto L_RETU;
}
//检查金额是否超过最大额度
ret=GetParameter(GLOBE_MAXCARDBALANCE,sMaxCardBalance);
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
dMaxCardBalance=atof(sMaxCardBalance);
if(amtcmp(tradeserial.out_balance,dMaxCardBalance)>0)
{
writelog(LOG_ERR,"tradeserial.out_balance[%lf]",tradeserial.out_balance);
*pRetCode=E_AMT_EXCEED_MAX;
goto L_RETU;
}
// 增加发行新卡时的门禁名单表检查
ret = CheckNewCardHook(&tCustomer, tCard.card_id);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
//返回卡号\密码\显示卡号\客户类型\图书证号\有效截至日期
out_pack->lvol0 = (int)h_temp_Card_id; //交易卡号
out_pack->lvol1 = tCustomer.cut_type; //客户类别
out_pack->lvol5 = tCustomer.fee_type; //收费类别
des2src(out_pack->scust_no,h_showcardid); //显示卡号
des2src(out_pack->scust_no2,tCustomer.classdept_no); //部门号
des2src(out_pack->scust_auth,tCustomer.stuemp_no); //学号
des2src(out_pack->scust_auth2,tCustomer.man_id); //身份证号
des2src(out_pack->sname,tCustomer.cut_name); //客户姓名
des2src(out_pack->sname2,tCustomer.lib_cardid); //图书证号
des2src(out_pack->sstatus0,tCustomer.sex); //性别
des2src(out_pack->sopen_emp,h_password); //卡密码
des2src(out_pack->sdate0,card_endtime); //有效截至日期
out_pack->damt2=tradeserial.out_balance; //出卡值
out_pack->lserial1=tradeserial.serial_no; //流水号
// add by 汤成 2005-8-8
// 增加向名单表写入记录
ret = InsertToBlkList((int)h_temp_Card_id,CHCARD_BLACKLIST);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847102(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret = 0;
// char logicdate[11] = "";
// char enddate[10 + 1] = "";
int card_id = 0;
char Operator[33+1] = "";
// int Cut_id = 0;
int maindevice_id = 0;
int device_id = 0;
char logicdate[11]="";
char sysdate[11]="";
char systime[9]="";
double dUniqno = 0;
T_t_pif_cardlossinfo cardlossinfo;
T_t_tif_black_sheet black_sheet;
T_t_tif_tradeserial tradeserial;
T_t_tif_meslist tMesList;
T_t_pif_card tCard;
memset(&tradeserial,0,sizeof(tradeserial));
memset(&cardlossinfo,0,sizeof(cardlossinfo));
memset(&black_sheet,0,sizeof(black_sheet));
memset(&tMesList,0,sizeof(tMesList));
memset(&tCard,0,sizeof(tCard));
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
card_id = rPack->lvol1; //卡标识
// Cut_id = rPack->lvol0; //客户号
des2src(Operator,rPack->scust_limit); //操作员号
maindevice_id = rPack->lvol6; //上传工作站标识
device_id = rPack->lvol7; //采集设备标识
// 检查客户信息，判断是否可以挂失
//修改卡标志，置为正常状态
ret=DB_t_pif_card_read_lock_by_cur_and_card_id(card_id, &tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CARDNO_NOT_EXIST;
else
*pRetCode= E_DB_CARD_R;
goto L_RETU;
}
if(card_id!=tCard.card_id)
{
DB_t_pif_card_free_lock_by_cur();
writelog(LOG_ERR,"card_id[%d] db card_id[%d]",card_id,tCard.card_id);
*pRetCode=E_DB_CARD_R;
goto L_RETU;
}
if('2'==tCard.state_id[CARDSTAT_TYPE_REG])
{
DB_t_pif_card_free_lock_by_cur();
*pRetCode = E_CARDNO_LOGOUT;
goto L_RETU;
}
if('3'==tCard.state_id[CARDSTAT_TYPE_REG])
{
DB_t_pif_card_free_lock_by_cur();
*pRetCode = E_CARDNO_WFAIL;
goto L_RETU;
}
if(STATE_TRUE==tCard.state_id[CARDSTAT_TYPE_LOST])
{
DB_t_pif_card_free_lock_by_cur();
*pRetCode = E_CARDNO_LOST;
goto L_RETU;
}
tCard.state_id[CARDSTAT_TYPE_LOST]=STATE_TRUE;
// 修改卡状态为挂失
ret=DB_t_pif_card_update_lock_by_cur(&tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CARDNO_NOT_EXIST;
else
*pRetCode= E_DB_CARD_U;
goto L_RETU;
}
DB_t_pif_card_free_lock_by_cur();
// 插入卡挂失有效期限表
/*
ret=GetLostCardValiddate(sysdate,enddate); //获得挂失有效期限
if (ret)
{
*pRetCode = ret;
goto L_RETU;
}
cardlossinfo.card_id = card_id; //卡号
des2src(cardlossinfo.begin_date,sysdate); //起始日期
des2src(cardlossinfo.end_date,enddate); //截至日期
des2src(cardlossinfo.operate_date,sysdate); //操作日期
des2src(cardlossinfo.operate_time,systime); //操作时间
cardlossinfo.state_id=STATE_VALID; //有效
ret = DB_t_pif_cardlossinfo_add(&cardlossinfo);
if (ret)
{
*pRetCode = E_DB_CARDLOSSINFO_I;
writelog(LOG_ERR,"errcode[%d] ",ret);
goto L_RETU;
}
*/
//如果该卡号被冻结,则挂失时对黑名单不处理
if(STATE_FALSE==tCard.state_id[CARDSTAT_TYPE_FREEZE])
{
// 插入黑名单表
ret=DB_t_tif_black_sheet_del_by_card_id_and_is_ad(tCard.card_id,DELETE_BLACKLIST);
if(ret)
{
if(ret!=DB_NOTFOUND)
{
*pRetCode=ret;
goto L_RETU;
}
}
ret=InsertToBlkList(tCard.card_id,ADD_BLACKLIST);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"InsertToBlkList err[%d]",ret);
goto L_RETU;
}
//广播黑名单
AddXmlItemInt(tMesList.incontent, XML_KEY_CARDID,card_id);
AddXmlItemInt(tMesList.incontent, XML_KEY_ADDDELSIGN,ADD_BLACKLIST); //增删标志
tMesList.funid = 930005;
tMesList.pfunid = 930003;
tMesList.max_send_cnt = 10;
tMesList.level = MESLIST_PRIORITY_REALTIME;
tMesList.msgtype = MESLIST_TYPE_ORDER;
ret=AddMsgLst(&tMesList);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"AddMsgLst err[%d]",ret);
goto L_RETU;
}
}
// 准备数据插入交易流水表
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dUniqno); //获得最大流水号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ERRCODE = [%d]",ret);
goto L_RETU;
}
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.serial_no = D2I(dUniqno); //流水号
tradeserial.serial_type = TXCODE_CARD_LOSS; //挂失
tradeserial.serial_state = SERISTAT_NONEEDDEBT; //流水状态
tradeserial.maindevice_id = maindevice_id; //上传工作站标识
tradeserial.device_id = device_id; //采集设备标识
tradeserial.card_id = card_id; //交易卡号
tradeserial.customer_id=tCard.cosumer_id; //客户号
des2src(tradeserial.oper_code,Operator);
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
writelog(LOG_ERR,"ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
return 0;
L_RETU:
return -1;
}
int F240157(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int i=0;
int ret =0;
char logicdate[11]=""; //业务日期
char sysdate[11]="";
char systime[9]="";
InAcc IA;
double dUniqno = 0;
int card_id=0;
int iSerialno=0;
char physical_no[41]="";
char sMaxCardBalance[20]="";
char sMsg[256]="";
double dMaxCardBalance=0;
T_t_pif_card tCard;
T_t_cif_customer tCustomer;
T_t_pif_spefee tSpeFee;
T_t_aif_account tAccount; //帐户表
T_t_tif_tradeserial tradeserial;
T_t_tif_diff_transfer tDiffTransfer;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
memset(&tCard,0,sizeof(tCard));
memset(&tCustomer,0,sizeof(tCustomer));
memset(&tSpeFee,0,sizeof(tSpeFee));
memset(&tAccount,0,sizeof(tAccount));
memset(&tDiffTransfer,0,sizeof(tDiffTransfer));
memset(&tradeserial,0,sizeof(tradeserial));
memset(&IA,0,sizeof(IA));
ResetNormalCPack(&aPack,0,1);
if(amtcmp(rPack->damt1,0)==0)
{
*pRetCode=E_INPUT_AMT;
goto L_RETU;
}
trim(rPack->scust_limit);
trim(rPack->scust_limit2);
trim(rPack->semp_pwd);
if(strlen(rPack->scust_limit)==0)
{
*pRetCode=E_OPER_NOT_EXIST;
goto L_RETU;
}
if(strlen(rPack->scust_limit2)==0)
{
*pRetCode=E_INPUT_AUTH_OPER_NULL;
goto L_RETU;
}
if(strcmp(rPack->scust_limit,rPack->scust_limit2)==0)
{
writelog(LOG_ERR,"oper[%s]auth_oper[%s]",rPack->scust_limit,rPack->scust_limit2);
*pRetCode=E_OPER_AND_AUTH_OPER_EQ;
goto L_RETU;
}
ret=chk_oper_pwd(rPack->scust_limit2,rPack->semp_pwd);
if(ret)
{
if(E_OPER_NOT_EXIST==ret)
*pRetCode=E_AUTH_OPER_NOT_EXIST;
else if(E_PASSWORD_WRONG==ret)
*pRetCode=E_AUTH_OPER_PWD;
else
*pRetCode=ret;
goto L_RETU;
}
card_id=rPack->lvol0;
des2src(physical_no, rPack->sbank_acc); //物理卡号
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
ret=DB_t_pif_card_read_by_card_id(card_id, &tCard);
if(ret)
{
writelog(LOG_ERR,"card_id[%d]",card_id);
if(DB_NOTFOUND==ret)
*pRetCode=E_CARDNO_NOT_EXIST;
else
*pRetCode=E_DB_CARD_R;
goto L_RETU;
}
if(card_id!=tCard.card_id)
{
writelog(LOG_ERR,"card_id[%d] db card_id[%d]",card_id,tCard.card_id);
*pRetCode=E_DB_CARD_R;
goto L_RETU;
}
if(strncmp(tCard.state_id,CARDSTAT_REG,4)!=0)
{
if('2'==tCard.state_id[CARDSTAT_TYPE_REG])
*pRetCode=E_CARDNO_LOGOUT;
else if('3'==tCard.state_id[CARDSTAT_TYPE_REG])
*pRetCode=E_CARD_CHANGE;
else if(STATE_TRUE==tCard.state_id[CARDSTAT_TYPE_LOST])
*pRetCode=E_CARDNO_LOST;
else if(STATE_TRUE==tCard.state_id[CARDSTAT_TYPE_FREEZE])
*pRetCode=E_CARDNO_FREEZE;
else if(STATE_TRUE==tCard.state_id[CARDSTAT_TYPE_WFAIL])
*pRetCode=E_CARDNO_WFAIL;
goto L_RETU;
}
trim(physical_no);
trim(tCard.physical_no);
if(strcmp(tCard.physical_no,physical_no)!=0)
{
writelog(LOG_ERR,"db physical_no[%s],input physical_no[%s]",tCard.physical_no,physical_no);
*pRetCode= E_CARD_PHYNO_DIFFER;
goto L_RETU;
}
iSerialno=rPack->lserial0;
ret=DB_t_tif_diff_transfer_read_lock_by_c0_and_op_date_and_local_sn(rPack->sdate0,iSerialno,&tDiffTransfer);
if(ret)
{
writelog(LOG_ERR,"operater_date[%s]Serialno[%d]",rPack->sdate0,iSerialno);
if(DB_NOTFOUND==ret)
*pRetCode=E_SERIALNO_NOT_EXIST;
else
*pRetCode=E_DB_TRADESERIAL_R;
goto L_RETU;
}
if(card_id!=tDiffTransfer.card_id)
{
writelog(LOG_ERR,"input card_id [%d],DiffTransfer card_id[%d]",card_id,tDiffTransfer.card_id);
DB_t_tif_diff_transfer_free_lock_by_c0();
*pRetCode=E_CARDNO_SERIAL_NE;
goto L_RETU;
}
if(SERISTAT_NODEBT!=tDiffTransfer.status)
{
DB_t_tif_diff_transfer_free_lock_by_c0();
*pRetCode=E_TX_SERIAL_CANNOT_CZ;
goto L_RETU;
}
if(amtcmp(tDiffTransfer.diff_amt,rPack->damt1)!=0)
{
DB_t_tif_diff_transfer_free_lock_by_c0();
*pRetCode=E_INPUT_AMT;
goto L_RETU;
}
tDiffTransfer.status=SERISTAT_DEBT;
ret=DB_t_tif_diff_transfer_update_lock_by_c0(&tDiffTransfer);
if(ret)
{
*pRetCode=E_DB_DIFF_TRANSFER_U;
goto L_RETU;
}
DB_t_tif_diff_transfer_free_lock_by_c0();
//根据卡号和钱包号得到消费者账号(借方)
ret=DB_t_aif_account_read_by_card_id_and_purse_id(card_id, PURSE_NO_ONE,&tAccount);
if(ret)
{
writelog(LOG_ERR,"DB_t_aif_account_read_by_card_id_and_purse_id ret[%d]card_id[%d]",ret,card_id);
if(DB_NOTFOUND==ret)
*pRetCode=E_ACTNO_NOT_EXIST;
else
*pRetCode=E_DB_ACCOUNT_R;
goto L_RETU;
}
ret=GetParameter(GLOBE_MAXCARDBALANCE,sMaxCardBalance);
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
dMaxCardBalance=atof(sMaxCardBalance);
tradeserial.trade_fee = rPack->damt1; //充值金额
if(amtcmp(tAccount.cur_bala+tradeserial.trade_fee,dMaxCardBalance)>0)
{
*pRetCode= E_AMT_EXCEED_MAX;
goto L_RETU;
}
ret=DB_t_cif_customer_read_lock_by_cur_and_cut_id(tCard.cosumer_id, &tCustomer);
if(ret)
{
writelog(LOG_ERR,"cut_id[%d]",tCard.cosumer_id);
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_R;
goto L_RETU;
}
//得到收费类别
if(tCustomer.fee_type<1)
{
ret=DB_t_pif_spefee_read_by_dept_code_and_cut_type(tCustomer.classdept_no, tCustomer.cut_type,&tSpeFee);
if(ret)
{
if(DB_NOTFOUND==ret)
{
tCustomer.fee_type=tCustomer.cut_type;
}
else
{
DB_t_cif_customer_free_lock_cur();
*pRetCode=E_DB_SPEFEE_R;
goto L_RETU;
}
}
else
{
tCustomer.fee_type=tSpeFee.fee_type;
}
//更新客户表的收费类别字段
ret=DB_t_cif_customer_update_lock_by_cur(&tCustomer);
if(ret)
{
if(DB_NOTFOUND==ret)
*pRetCode= E_CUSTOMER_NOT_EXIST;
else
*pRetCode= E_DB_CUSTOMER_U;
goto L_RETU;
}
}
DB_t_cif_customer_free_lock_cur();
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&dUniqno); //获得最大流水号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR," ERRCODE = [%d]",ret);
goto L_RETU;
}
tradeserial.serial_no = (int)dUniqno; //流水号
tradeserial.other_seri_no = 0; //上传端流水号
tradeserial.serial_type = TXCODE_MAKEUPSERIAL;
tradeserial.serial_state = SERISTAT_DEBT; //流水状态
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.maindevice_id = rPack->lvol6; //上传工作站标识
// tradeserial.device_id = rPack->lvol7; //采集设备标识
tradeserial.card_id =card_id; //卡号
tradeserial.purse_id = PURSE_NO_ONE; //钱包号
tradeserial.customer_id = tCard.cosumer_id; //客户标识
tradeserial.in_balance=rPack->damt0; //入卡值
tradeserial.trade_count=rPack->lvol1+1; //交易次数
des2src(tradeserial.oper_code,rPack->scust_limit); //操作员代码
tradeserial.sys_id = 0; //外部系统标识
des2src(IA.sArrInActno[0],tAccount.account_id); //帐户
IA.iCardNo=tCard.card_id;
IA.iFeeType=tCustomer.fee_type;
IA.dArrInAmt[0]=tradeserial.trade_fee;
IA.iArrInFeeSwitch[0]=rPack->lvol0;
IA.iArrInFeeSwitch[1]=rPack->lvol1;
IA.iArrInFeeSwitch[2]=rPack->lvol2;
IA.iArrInFeeSwitch[3]=rPack->lvol3;
IA.iArrInFeeSwitch[4]=rPack->lvol4;
IA.iArrInFeeSwitch[5]=rPack->lvol5;
ret=process(&IA,&tradeserial);
if(ret)
{
writelog(LOG_ERR,"process ret[%d]",ret);
*pRetCode=ret;
goto L_RETU;
}
sprintf(out_pack->vsmess,"流水号:%d ",IA.iSerialNo);
for(i=1;i<=IA.iOutTxTypeCnt;i++)
{
switch(IA.iArrOutTxType[i])
{
case TXTYPE_TOLL_DEPOSIT:
case TXTYPE_DEDUCT_DEPOSIT:
case TXTYPE_RETURN_DEPOSIT:
tradeserial.deposit_fee=IA.dArrOutAmt[i];
break;
case TXTYPE_PRE_TOLL_BOARD:
case TXTYPE_TOLL_BOARD:
case TXTYPE_DEDUCT_BOARD:
case TXTYPE_RETURN_BOARD:
tradeserial.boardfee=IA.dArrOutAmt[i];
break;
case TXTYPE_TOLL_CHARGE:
tradeserial.in_fee=IA.dArrOutAmt[i];
break;
default:
break;
}
if(amtcmp(IA.dArrOutAmt[i],0)!=0)
{
sprintf(sMsg,"%s:%.2lf元 ",IA.sArrOutTxName[i],IA.dArrOutAmt[i]);
strcat(out_pack->vsmess,sMsg);
}
}
writelog(LOG_DEBUG,out_pack->vsmess);
SetCol(handle,0);
SetCol(handle,F_LSERIAL1,F_DAMT2,F_DAMT3,F_DAMT4,F_VSMESS,0);
out_pack->lserial1=tradeserial.serial_no; //流水号
out_pack->damt2=tradeserial.trade_fee; //充值金额
out_pack->damt3=tradeserial.boardfee; //搭伙费
out_pack->damt4=tradeserial.out_balance; //出卡值
ret = DB_t_tif_tradeserial_add(&tradeserial);
if (ret)
{
writelog(LOG_ERR,"ret[%d]",ret);
if(DB_REPEAT==ret)
*pRetCode = E_DB_TRADESERIAL_E;
else
*pRetCode = E_DB_TRADESERIAL_I;
goto L_RETU;
}
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
int F847103(TRUSERID *handle,int iRequest,ST_PACK *rPack,int *pRetCode,char *szMsg)
{
int ret = 0;
int hi_cardid = 0;
char hi_Operator[33+1] = "";
int hi_Cut_id = 0;
int hi_maindevice_id = 0;
int hi_device_id = 0;
double h_temp_Serial_no = 0;
char logicdate[11]="";
char sysdate[11]="";
char systime[8]="";
char dbdate[9]="";
char dbtime[7]="";
char volume[13]="";
T_t_tif_tradeserial tradeserial;
T_t_pif_card tCard;
T_t_tif_meslist tMesList;
ST_CPACK aPack;
ST_PACK *out_pack = &(aPack.pack);
ResetNormalCPack(&aPack,0,1); //用于根据请求包整理本CPACK包的头清空包头位图和包体中的数据
memset(&tradeserial,0,sizeof(tradeserial));
memset(&tCard,0,sizeof(tCard));
memset(&tMesList,0,sizeof(tMesList));
hi_cardid = rPack->lvol1; //卡标识
hi_Cut_id = rPack->lvol2; //客户号
des2src(hi_Operator,rPack->scust_limit); //操作员号
hi_maindevice_id = rPack->lvol6; //上传工作站标识
hi_device_id = rPack->lvol7; //采集设备标识
getsysdate(sysdate);
getsystime(systime);
ret=GetLogicDate(logicdate); //业务日期
if(ret)
{
*pRetCode=ret;
goto L_RETU;
}
// 检查卡状态是否为挂失
ret = DB_t_pif_card_read_by_card_id(hi_cardid,&tCard);
if (ret)
{
writelog(LOG_ERR,"card_id[%d]",hi_cardid);
if(DB_NOTFOUND==ret)
*pRetCode = E_CARDNO_NOT_EXIST;
else
*pRetCode=E_DB_CARD_R;
goto L_RETU;
}
if(hi_cardid!=tCard.card_id)
{
writelog(LOG_ERR,"card_id[%d] db card_id[%d]",hi_cardid,tCard.card_id);
*pRetCode=E_DB_CARD_R;
goto L_RETU;
}
if('2'==tCard.state_id[CARDSTAT_TYPE_REG])
{
*pRetCode = E_CARDNO_LOGOUT;
goto L_RETU;
}
if(STATE_TRUE==tCard.state_id[CARDSTAT_TYPE_FREEZE])
{
*pRetCode = E_CARDNO_FREEZE;
goto L_RETU;
}
ret = getNewUniqNo(KEYTYPE_TRADESERIAL,&h_temp_Serial_no); //获得最大流水号
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ERRCODE = [%d]",ret);
goto L_RETU;
}
des2src(tradeserial.operate_date,sysdate); //发生日期
des2src(tradeserial.operate_time,systime); //发生时间
des2src(tradeserial.collect_date,sysdate); //采集日期
des2src(tradeserial.collect_time,systime); //采集时间
des2src(tradeserial.enteract_date,logicdate); //处理日期
des2src(tradeserial.enteract_time,systime); //处理时间
tradeserial.serial_no = (int)h_temp_Serial_no; //流水号
tradeserial.serial_type = TXCODE_CARD_COMEBACK_LOSS; //解挂
tradeserial.serial_state = SERISTAT_NONEEDDEBT; //流水状态
tradeserial.maindevice_id = hi_maindevice_id; //上传工作站标识
tradeserial.device_id = hi_device_id; //采集设备标识
tradeserial.card_id = hi_cardid; //交易卡号
tradeserial.customer_id = hi_Cut_id;
des2src(tradeserial.oper_code, hi_Operator);
if(STATE_FALSE==tCard.state_id[CARDSTAT_TYPE_LOST])
{
//允许重复解挂
//再下传白名单
// 插入黑名单表
ret=InsertToBlkList(hi_cardid,DELETE_BLACKLIST);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"InsertToBlkList err[%d]",ret);
goto L_RETU;
}
//广播黑名单
AddXmlItemInt(tMesList.incontent, XML_KEY_CARDID,hi_cardid);
AddXmlItemInt(tMesList.incontent, XML_KEY_ADDDELSIGN,DELETE_BLACKLIST); //增删标志
tMesList.pfunid=847103;
tMesList.funid = 930005;
tMesList.level = 1;
ret=AddMsgLst(&tMesList);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"AddMsgLst err[%d]",ret);
goto L_RETU;
}
ret=get_datetime_from_db(dbdate,dbtime);
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret [%d]",ret);
goto L_RETU;
}
ret = SaveCancelLossSerial(&tradeserial);
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ret [%d]",ret);
goto L_RETU;
}
SetCol(handle,0);
SetCol(handle,F_SSERIAL0,0);
memset(volume,0,sizeof(volume));
memcpy(volume,dbdate+2,6);
memcpy(volume+6,dbtime,6);
des2src(out_pack->sserial0,volume); //卡版本号
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
}
ret=IsExistNoLostCardByCustomId(hi_Cut_id);
if(ret)
{
if(E_NORMALCARD_NOLOST==ret)
{
*pRetCode = E_BACK_CARD_FOR_NORCARD2;
}
else if( E_TEMPCARD_NOLOST==ret)
{
//如果存在正常使用的临时卡，则提示请退掉此卡，不能解挂
if(tCard.type_id==CT_NORMAL)
*pRetCode =E_BACK_CARD_FOR_NORCARD;
else
*pRetCode =E_BACK_CARD_FOR_TMPCARD;
}
else
{
*pRetCode = ret;
}
goto L_RETU;
}
if(STATE_FALSE==tCard.state_id[CARDSTAT_TYPE_FREEZE])
{
//插入黑名单表
ret=InsertToBlkList(hi_cardid,DELETE_BLACKLIST);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"InsertToBlkList err[%d]",ret);
goto L_RETU;
}
//广播黑名单
AddXmlItemInt(tMesList.incontent, XML_KEY_CARDID,hi_cardid);
AddXmlItemInt(tMesList.incontent, XML_KEY_ADDDELSIGN,DELETE_BLACKLIST); //增删标志
tMesList.pfunid=847103;
tMesList.funid = 930005;
tMesList.level = 1;
ret=AddMsgLst(&tMesList);
if(ret)
{
*pRetCode=ret;
writelog(LOG_ERR,"AddMsgLst err[%d]",ret);
goto L_RETU;
}
}
// 修改卡状态为解挂状态
ret = UpdateCardState(hi_cardid,CARDSTAT_TYPE_LOST,STATE_FALSE);
if (ret)
{
*pRetCode = ret;
goto L_RETU;
}
// 准备数据插入交易流水表
/////////////////
ret = SaveCancelLossSerial(&tradeserial);
if(ret)
{
*pRetCode = ret;
goto L_RETU;
}
ret=get_datetime_from_db(dbdate,dbtime);
if(ret)
{
*pRetCode = ret;
writelog(LOG_ERR,"ERRCODE = [%d]",ret);
goto L_RETU;
}
SetCol(handle,0);
SetCol(handle,F_SSERIAL0,0);
memset(volume,0,sizeof(volume));
memcpy(volume,dbdate+2,6);
memcpy(volume+6,dbtime,6);
des2src(out_pack->sserial0,volume); //卡版本号
PutRow(handle,out_pack,pRetCode,szMsg);
return 0;
L_RETU:
return -1;
}
