if (!TEST_MODE) {
$resultgwp = myquery($strgwp, $link);
}
//=========NEC確認退款
function spas_idL($a)
{
//id補足10位後補空格
$idal = strlen($a);
if ($idal < 10) {
for ($u = $idal; $u < 10; $u++) {
$a .= ' ';
}
}
return $a;
}
$SendNEC = '005A*' . $ax['odnb'] . '*' . spas_idL($ax[goid]) . '*' . spas_nab($ax['gosn'], 6) . '*' . spas_idL($ax[bkid]) . '*' . spas_nab($ax['bksn'], 6) . '*' . spas_nab($NecPay, 5) . '*' . spas_nab($bspay, 4) . '*' . $pptime . '#';
$txtnb = strlen($SendNEC);
// 記錄 005A 電文
$sMasked_AAT_NEC_Stat = mask_nec_stat($SendNEC);
// 機敏資料隱碼
write_log('nec_trace_005', 'nec msg', array('SendNEC' => $sMasked_AAT_NEC_Stat));
if (TEST_MODE and $sTest_BK_NEC != '') {
// 測試資料
$bkNEC = $sTest_BK_NEC;
} else {
$fp = fsockopen($sockUrl, $sockPORT, $errno, $errstr, $iAAT_Timeout);
//網址IP,PORT,回應代碼,回應訊息,等待時間
if ($fp) {
$goNEC = fwrite($fp, $SendNEC, $txtnb);
$bkNEC = fread($fp, $FreadNB);
fclose($fp);
// 去程葷便當數量
$iGo_NV_Bento_Total = $a002B[77] + 0;
// 去程葷便當金額
$iGo_V_Bento_Num = $a002B[78] + 0;
// 去程素便當數量
$iGo_V_Bento_Total = $a002B[79] + 0;
// 去程素便當金額
$iBK_NV_Bento_Num = $a002B[80] + 0;
// 回程葷便當數量
$iBK_NV_Bento_Total = $a002B[81] + 0;
// 回程葷便當金額
$iBK_V_Bento_Num = $a002B[82] + 0;
// 回程素便當數量
$iBK_V_Bento_Total = $a002B[83] + 0;
// 回程素便當金額
$SendNECData = array('003A' => '003A', '交易號碼(9)' => $ax[odnb], '去程身份證字號(10)' => spas_nab($ax[goid], 10), '去程預約號(6)' => spas_nab($ax[gosn], 6), '回程身份證字號(10)' => spas_nab($ax[bkid], 10), '回程預約號(6)' => spas_nab($ax[bksn], 6), '去程成人票張數(2)' => spas_nab($aCPPP[0], 2), '去程孩童票張數(2)' => spas_nab($aCPPP[1], 2), '去程敬老票張數(2)' => spas_nab($aCPPP[2], 2), '去程殘障票張數(2)' => spas_nab($aCPPP[3], 2), '回程成人票張數(2)' => spas_nab($aCPPP[4], 2), '回程孩童票張數(2)' => spas_nab($aCPPP[5], 2), '回程敬老票張數(2)' => spas_nab($aCPPP[6], 2), '回程殘障票張數(2)' => spas_nab($aCPPP[7], 2), '總票價(5)' => sprintf('%05s', $iNEC_003A_Amount), '交易時間yyyy/mm/dd hh:mm(16)' => $sTrade_Time, '刷卡卡號前六後四碼(10)' => $card_L6_R4, '去程葷便當數量(1)' => spas_nab($iGo_NV_Bento_Num, 1), '去程葷便當金額(3)' => spas_nab($iGo_NV_Bento_Total, 3), '去程素便當數量(1)' => spas_nab($iGo_V_Bento_Num, 1), '去程素便當金額(3)' => spas_nab($iGo_V_Bento_Total, 3), '回程葷便當數量(1)' => spas_nab($iBK_NV_Bento_Num, 1), '回程葷便當金額(3)' => spas_nab($iBK_NV_Bento_Total, 3), '回程素便當數量(1)' => spas_nab($iBK_V_Bento_Num, 1), '回程素便當金額(3)' => spas_nab($iBK_V_Bento_Total, 3));
$SendNEC = CreateSendNEC($SendNECData);
$txtnb = strlen($SendNEC);
$fp = fsockopen($sockUrl, $sockPORT, $errno, $errstr, $iAAT_Timeout);
//網址IP,PORT,回應代碼,回應訊息,等待時間
if ($fp) {
$goNEC = @fwrite($fp, $SendNEC, $txtnb);
$bkNEC = @fread($fp, $FreadNB);
fclose($fp);
}
echo $bkNEC . '<br>';
$Sn = $bkNEC;
$bkNEC = str_replace('#', '', $bkNEC);
$Cxc = explode('*', $bkNEC);
echo $echoERRO = $trainMsg[$Cxc[1]] . '<p>';
$isASK = '<form action="root_noOK.php?D=ask&N=y3&aa=' . htmlspecialchars($aa) . '" method="post" onClick="return confirm(' . "'確定要補登資料嗎?'" . ');"><input type=hidden name=Sn value="' . htmlspecialchars($Sn) . '"><input type=hidden name=SendNEC value="' . htmlspecialchars($SendNEC) . '"><input type="submit" value="要補登" class=font09></form>';
echo $language['_Alert_txt_014'];
?>
');
location.href = "pay.php";
// -->
</script>
<?php
exit;
}
// 便當總金額
$bento_total = $Cxc[77] + $Cxc[79] + $Cxc[81] + $Cxc[83];
// 送給NEC成交資料
$necpay = $amount - $Cxc[72] - $bento_total;
// 總票價需扣掉便當總金額
// $SendNEC = '003A*' . $Cxcp[1] . '*' . spas_nab($Cxc[3], 10) . '*' . spas_nab($Cxc[4], 6) . '*' . spas_nab($Cxc[17], 10) . '*' . spas_nab($Cxc[18], 6) . '*' . spas_nab($Cppp[0], 2) . '*' . spas_nab($Cppp[1], 2) . '*' . spas_nab($Cppp[2], 2) . '*' . spas_nab($Cppp[3], 2) . '*' . spas_nab($Cppp[4], 2) . '*' . spas_nab($Cppp[5], 2) . '*' . spas_nab($Cppp[6], 2) . '*' . spas_nab($Cppp[7], 2) . '*' . sprintf("%05s", $necpay) . '*' . $pptime . '*' . spas_nab($cd8ok_nec, 10) . '#';
$SendNECData = array('003A' => '003A', '交易號碼(9)' => $Cxcp[1], '去程身份證字號(10)' => spas_nab($Cxc[3], 10), '去程預約號(6)' => spas_nab($Cxc[4], 6), '回程身份證字號(10)' => spas_nab($Cxc[17], 10), '回程預約號(6)' => spas_nab($Cxc[18], 6), '去程成人票張數(2)' => spas_nab($Cppp[0], 2), '去程孩童票張數(2)' => spas_nab($Cppp[1], 2), '去程敬老票張數(2)' => spas_nab($Cppp[2], 2), '去程殘障票張數(2)' => spas_nab($Cppp[3], 2), '回程成人票張數(2)' => spas_nab($Cppp[4], 2), '回程孩童票張數(2)' => spas_nab($Cppp[5], 2), '回程敬老票張數(2)' => spas_nab($Cppp[6], 2), '回程殘障票張數(2)' => spas_nab($Cppp[7], 2), '總票價(5)' => sprintf("%05s", $necpay), '交易時間yyyy/mm/dd hh:mm(16)' => $pptime, '刷卡卡號前六後四碼(10)' => spas_nab($cd8ok_nec, 10), '去程葷便當數量(1)' => spas_nab($go_nv_ben_num, 1), '去程葷便當金額(3)' => spas_nab($go_nv_ben_total, 3), '去程素便當數量(1)' => spas_nab($go_v_ben_num, 1), '去程素便當金額(3)' => spas_nab($go_v_ben_total, 3), '回程葷便當數量(1)' => spas_nab($bk_nv_ben_num, 1), '回程葷便當金額(3)' => spas_nab($bk_nv_ben_total, 3), '回程素便當數量(1)' => spas_nab($bk_v_ben_num, 1), '回程素便當金額(3)' => spas_nab($bk_v_ben_total, 3));
$SendNEC = CreateSendNEC($SendNECData);
$txtnb = strlen($SendNEC);
// 記錄 003A 電文
$sMasked_AAT_NEC_Stat = mask_nec_stat($SendNEC);
// 機敏資料隱碼
write_log('nec_trace_003', 'nec msg', array('SendNEC' => $sMasked_AAT_NEC_Stat));
if (TEST_MODE and $sTest_BK_NEC != '') {
// 測試資料
$bkNEC = $sTest_BK_NEC;
} else {
$fp = fsockopen($sockUrl, $sockPORT, $errno, $errstr, $iAAT_Timeout);
//網址IP,PORT,回應代碼,回應訊息,等待時間
if ($fp) {
$goNEC = @fwrite($fp, $SendNEC, $txtnb);
$bkNEC = @fread($fp, $FreadNB);
