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);