Page 160 - 捷運技術 第32期

150 楊忠憲 打造捷運工程數位神經－捷運工程訊息通報 e 點靈

1. 立即報告填寫傳真：使用者可透過此功能就事故發生現況進行「緊急及意外事故立即報
告單」填寫及相片傳送，並利用所提供傳真及郵件發送功能將報告單及相片傳送出去，
事故報告單傳真操作畫面及傳真機接收事故報告照片詳附圖七及附圖八，事故報告傳真
操作流程詳附圖九，文件檔案傳真程式片段詳附表二。
2. 後續報告填寫傳真：使用者可透過此功能就事故處理現況進行「緊急及意外事故後續報
告單」填寫及相片傳送，並利用所提供傳真及郵件發送功能將報告單及相片傳送出去。

3. 報告傳真紀錄查詢：查詢系統各項傳真記錄，包括作業人員、傳真時間、傳真內容及收
件單位。
4. 報告傳真號碼維護：維護本局各單位可能被通報單位之傳真機號碼。

ਗ ᙇ խဎሽॾጻሁ
໴ܫ࿆ᙕ ໴ܫுࡳ ࠉਗᙇኙွၞ۩໴ܫႚట
ႚటኙွ ֮ٙႚటࣚ೭
ՠ೭ࢬԳ୉ ՠ೭ࢬ׌ጥ ՠ೭ࢬԳ୉ ໴ܫᚾข፹ ᠏ངႚటᚾ
ຘመߓอ྽ ຘመ۞ྥԳ Գ୉ຘመߓ (Excel) (TIF) ໴ܫ࿇ಬ
૿ၞ۩ࠃਚ ᖇᢞאሽ՗ อ྽૿ਗᙇ ຘመߓอ࿓ ຘመဠᚵٱ ຘመցٙ࿓
໴ܫ࿆ᙕ ( ᡽ີֱڤၞ ႚటኙွ ( ڤ۞೯ၞ۩ ।ᖲߓอ۞ ڤ۞೯ലႚ
࿆ᙕழຝٝ ۩໴ܫுࡳ ႚటኙွᇷ Excel ໴। ೯ല Excel టኙွᇷಛ
ᇷறױऴ൷ ಛ׼ڶറԳ ᚾூข፹ ໴।ᚾ᠏ང ֗ࢬ඿ႚಬ
֧ش۞ࠡ، ᙟழޓᄅ)
੡ TIF ᐙ TIF ᚾூಬ
MIS ߓอ) ቝᚾூ ۟խဎሽॾ
ႚటࣚ೭ۻ

ࣚᕴ

ΓΓٵழಖᙕႚటԳ୉ࡩټ Ε Εႚటழၴ ႚ
టփ୲ Εႚటኙွ֗ႚట࿨࣠(ګפࢨ؈ඓ)

圖九、事故報告傳真操作流程
<%
Q_FullFaxFname=Server.Mappath(".\class.tif") ‘取得文件檔案

Set ofax = Server.CreateObject("FControl.FClient")
Result = ofax.PrintFile(Q_FullFaxFname)

If Result >= 0 and Result <= 32 then
response.write("傳真失敗，檔案錯誤")
Else
If ofax.FClientRunning Then
ofax.CancelSend
End If

While ofax.FClientRunning <> True
Wend
ofax.ShowFClient = False
ofax.SetDefaultPrinter
ofax.AddReceiver "25218369","","","","" ‘指定傳送對象
ofax.StartSend() ‘傳真文件送出
loopflag=true
varStarTime=timer()
Do While ofax.SendStatus=3 And loopflag
If Timer()-varStarTime>60 Then
Loopflag=false
End If
Loop
Select Case ofax.SendStatus
Case 1
Response.Write("傳真成功 !!!")
Case 2
Response.Write("傳真失敗，傳送錯誤")
Case 3
Response.Write("傳真失敗，傳真逾時")
Case 4