From 0756bf12d10cf1b7f78c571de0a9ad69cbaeb7ca Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 14:24:17 +0800
Subject: [PATCH] fix: 更新內部引用方法參照

---
 scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv |  359 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 359 insertions(+), 0 deletions(-)

diff --git a/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv b/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv
new file mode 100644
index 0000000..588a75e
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv
@@ -0,0 +1,359 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"ReSortFileName_New","CB_IMGPSScanImp.pas.bk","726","ReSortFileName","","Procedure ReSortFileName_New(Path:String); //檔名重新排序"
+[V],"ReSortFileName","CB_IMGPSScanImp.pas.bk","727","ReSortFileName","","Procedure ReSortFileName(Path:String); //檔名重新排序"
+[V],"ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","728","ReSortFileName","","Procedure ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat"
+[V],"DeleteImageFile","CB_IMGPSScanImp.pas.bk","733","DeleteImageFile","","Procedure DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案"
+[V],"DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","735","DeleteDocNoFile","","Function DeleteDocNoFile(Path,DocNo:String):Boolean;  //刪除指定DocNo文件"
+[V],"DeleteShowFile","CB_IMGPSScanImp.pas.bk","736","DeleteShowFile","","Procedure DeleteShowFile(Path:String); //刪除顯示中的影像"
+[V],"GetNoNameCase","CB_IMGPSScanImp.pas.bk","756","GetNoNameCase","","Function GetNoNameCase(Path:string):String; //取未配號XXXX"
+[V],"_DelTreeForExistImg","CB_IMGPSScanImp.pas.bk","901","_DelTree","","procedure _DelTreeForExistImg(ASourceDir:String);   //2017 刪除前確認 有舊影像嗎"
+[V],"DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","904","DeleteDocNoFile","","function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean;     //2017 確認是否有未歸類文件"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1200","FileExists","","if FileExists(DisplayPath+'Scan_Memo.dat') then"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1202","LoadFromFile","","S.LoadFromFile(DisplayPath+'Scan_Memo.dat');"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1229","SaveToFile","","S.SaveToFile(DisplayPath+'Scan_Memo.dat');"
+[V],"TCB_IMGPSScanX.InitExistImgList","CB_IMGPSScanImp.pas.bk","1349","LoadFromFile","","ST1.LoadFromFile(casepath+'Download\Context.dat');"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseDown","CB_IMGPSScanImp.pas.bk","1458","LoadFromFile","","TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseUp","CB_IMGPSScanImp.pas.bk","1506","SaveToFile","","TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);"
+[V],"TCB_IMGPSScanX.DestroyEvent","CB_IMGPSScanImp.pas.bk","1750","_DelTree","","_Deltree(ImagePath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1945","GetNoNameCase","","CaseID := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1947","Str2Dir","","Str2Dir(NewPath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1954","RenameFile","","ReNameFile(DisplayPath+OldName,NewPath+NewName);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1956","SaveToFile","","S.SaveToFile(NewPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1964","FileExists","","if FileExists(DisplayPath+'CaseIndex.dat') then  //把原經辦代號取出來再寫入新件裡"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1966","LoadFromFile","","S.LoadFromFile(DisplayPath+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2159","FileExists","","if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2161","LoadFromFile","","ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2176","DirectoryExists","","if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2193","CopyFile","","CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2195","SaveToFile","","ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2197","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2198","RenameFile","","//RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2203","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2259","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2264","FileExists","","if FileExists(SavePath+'Context.dat') then"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2265","LoadFromFile","","FileList.LoadFromFile(SavePath+'Context.dat');"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2278","CopyFile","","CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2282","SaveToFile","","FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2283","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2289","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM604Click","CB_IMGPSScanImp.pas.bk","2317","SaveToFile","","iISB.SaveToFile(iISB.FileName);"
+[V],"TCB_IMGPSScanX.PM604Click","CB_IMGPSScanImp.pas.bk","2318","LoadFromFile","","DisplayISB.LoadFromFile(DisplayISB.FileName,1);"
+[V],"TCB_IMGPSScanX.PM605Click","CB_IMGPSScanImp.pas.bk","2350","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM605Click","CB_IMGPSScanImp.pas.bk","2354","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2585","_DelTree","","_DelTree(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2628","DirectoryExists","","if not DirectoryExists(ImageSavePath+FCaseID) then"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2645","DeleteDocNoFile","","//ShowMessage('DeleteDocNoFileForESCAN');"
+[V],"TCB_IMGPSScanX.DocNoIsExistImg","CB_IMGPSScanImp.pas.bk","2685","FileExists","","if FileExists(DocNopath+'\Context.dat') then   /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行"
+[V],"TCB_IMGPSScanX.DocNoIsExistImg","CB_IMGPSScanImp.pas.bk","2686","LoadFromFile","","ST.loadFromfile(DocNopath+'\Context.dat');"
+[V],"TCB_IMGPSScanX._DelTreeForExistImg","CB_IMGPSScanImp.pas.bk","2702","_DelTree","","procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);"
+[V],"TCB_IMGPSScanX.PM102Click","CB_IMGPSScanImp.pas.bk","2732","DirectoryExists","","if DirectoryExists(ImageSavePath+NewCaseID) then"
+[V],"TCB_IMGPSScanX.PM102Click","CB_IMGPSScanImp.pas.bk","2741","RenameFile","","RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2819","FindFirst","","FindFirst(FName, faAnyfile, FileRec);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2849","LoadFromFile","","ISB.LoadFromFile(FName, i);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2858","SaveToFile","","///ISB_BW.SaveToFile('KKKKKKKK.tif');"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2934","DirectoryExists","","If DirectoryExists(ImageSavePath + CaseID + '\') Then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2936","_DelTree","","_DelTree(ImageSavePath + CaseID + '\');"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2942","GetNoNameCase","","CaseID := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2947","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2979","FileExists","","If FileExists(SavePath + 'Context.dat') Then"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3190","CopyFile","","CopyFormID,Copy2Caseno,CopyFileName : String;"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3238","LoadFromFile","","S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3260","SaveToFile","","S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM109Click","CB_IMGPSScanImp.pas.bk","3400","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');"
+[V],"TCB_IMGPSScanX.PM110Click","CB_IMGPSScanImp.pas.bk","3433","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM507Click","CB_IMGPSScanImp.pas.bk","3588","RenameFile","","RenameFile(DisplayPath+OldName,DisplayPath+NewName);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3625","_DelTree","","_DelTree(DisplayPath);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3634","SaveToFile","","ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3638","ReSortFileName","","ReSortFileName(DisplayPath);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3639","LoadFromFile","","ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3641","FileExists","","if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.PM510Click","CB_IMGPSScanImp.pas.bk","3665","SaveToFile","","DisplayISB.SaveToFile(DisplayISB.FileName);"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4009","FileExists","","if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4014","LoadFromFile","","ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4016","SaveToFile","","ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');"
+[V],"TCB_IMGPSScanX.AddAttFileLBClick","CB_IMGPSScanImp.pas.bk","4179","FileExists","","if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then"
+[V],"TCB_IMGPSScanX.AddAttFileLBClick","CB_IMGPSScanImp.pas.bk","4187","CopyFile","","CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);"
+[V],"TCB_IMGPSScanX.AttListBoxDblClick","CB_IMGPSScanImp.pas.bk","4264","FileExists","","if FileExists(DisplayPath+AttFile) then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4466","LoadFromFile","","//DeleteStm.LoadFromFile(Path+'temp.tif');"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4640","FileExists","","if FileExists( PEFileName ) then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4661","SaveToFile","","JpgGr.SaveToFile(PEFileName);"
+[V],"TCB_IMGPSScanX.PageDone","CB_IMGPSScanImp.pas.bk","4697","LoadFromFile","","ISB.LoadFromFile(PEFileName,1);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4788","GetNoNameCase","","ScanCaseno := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4793","DirectoryExists","","if DirectoryExists(ImageSavePath + ScanCaseno+'\') then"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4795","_DelTree","","_DelTree(ImageSavePath + ScanCaseno+'\');"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4801","Str2Dir","","Str2Dir(ScanPath);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4859","SaveToFile","","//ContextList.SaveToFile(ScanPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","4995","SaveToFile","","S.SaveToFile(LngPath+'mps.dat');"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","5000","FileExists","","if FileExists(LngPath+'mps.zip') then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5036","Str2Dir","","str2dir(ZipPath);"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5039","FileExists","","if not FileExists(ZipPath+'mps.dat') then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5044","LoadFromFile","","S.LoadFromFile(ZipPath+'mps.dat');"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5054","RenameFile","","RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5085","_DelTree","","_DelTree(ZipPath);"
+[V],"TCB_IMGPSScanX.GetSiteOMR","CB_IMGPSScanImp.pas.bk","5185","LoadFromFile","","ImageScrollBox1.LoadFromFile(FileName,1);"
+[V],"TCB_IMGPSScanX.ReNameContext","CB_IMGPSScanImp.pas.bk","6020","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6028","DeleteImageFile","","Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案  (無法得到DocDir用)"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6042","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6043","LoadFromFile","","FileList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6049","SaveToFile","","FileList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6068","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6069","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6084","DeleteImageFile","","DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6090","ReSortFileName","","ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6111","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6115","DeleteDocNoFile","","Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean;  //刪除指定DocNo文件"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6132","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6134","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6135","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6137","FileExists","","if FileExists(Path+'CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6141","DeleteDocNoFile","","Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean;  //刪除指定DocNo文件"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6164","SaveToFile","","ContextList.SaveToFile(Path+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6165","LoadFromFile","","ContextList.LoadFromFile(Path+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6169","_DelTree","","_DelTree(Path);"
+[V],"TCB_IMGPSScanX.DeleteShowFile","CB_IMGPSScanImp.pas.bk","6175","DeleteShowFile","","Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //刪除顯示中的影像"
+[V],"TCB_IMGPSScanX.CheckCaseDocNoPage","CB_IMGPSScanImp.pas.bk","6219","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.FindFormCodePages","CB_IMGPSScanImp.pas.bk","6287","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.CaseReSize","CB_IMGPSScanImp.pas.bk","6326","FileExists","","{if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then"
+[V],"TCB_IMGPSScanX.CaseReSize","CB_IMGPSScanImp.pas.bk","6332","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6369","LoadFromFile","","ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6392","SaveToFile","","ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6399","FileExists","","if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6436","LoadFromFile","","ImageScrollBox1.LoadFromFile(FileName,1);"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6440","SaveToFile","","ImageScrollBox1.SaveToFile(FileName);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6486","FileExists","","if fileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6488","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6588","CopyFile","","CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6609","FindFirst","","FindFirst(FName, faAnyfile, FileRec);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6728","_DelTree","","//_DelTree(Path);  //會只刪TransPath"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6859","FileExists","","if FileExists(DPath+CaseID+'.zip') then"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6868","Str2Dir","","Str2Dir(AttPath);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6877","SaveToFile","","SC.SaveToFile(DPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6889","LoadFromFile","","SC.LoadFromFile(SPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6901","DeleteDocNoFile","","DeleteDocNoFile(DPath,DocNo);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6916","CopyFile","","CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6930","DirectoryExists","","if DirectoryExists(SPath+'AttFile\') then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","7011","FileExists","","if FileExists(Path+CaseID+'.zip') then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","7020","Str2Dir","","Str2Dir(AttPath);"
+[V],"TCB_IMGPSScanX.GetNoNameCase","CB_IMGPSScanImp.pas.bk","7033","GetNoNameCase","","Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX"
+[V],"TCB_IMGPSScanX.GetNoNameCase","CB_IMGPSScanImp.pas.bk","7039","DirectoryExists","","if Not DirectoryExists(Path+_Msg('未配號')+Add_Zoo(i,4)) then"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7057","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7171","FileExists","","if FileExists(Path+OldName) then"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7173","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7175","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7178","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7195","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7196","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7294","RenameFile","","//ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7296","SaveToFile","","S.SaveToFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7299","ReSortFileName","","ReSortFileName2Scanlist(Path);"
+[V],"TCB_IMGPSScanX.DistinctDocinCase","CB_IMGPSScanImp.pas.bk","7318","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DistinctDocNoinCase","CB_IMGPSScanImp.pas.bk","7362","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ClearErrini","CB_IMGPSScanImp.pas.bk","7392","FileExists","","if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7412","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7413","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7443","SaveToFile","","CaseList.SaveToFile(ImageSavePath+'CaseList.dat');"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7456","FileExists","","if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7457","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7507","SaveToFile","","CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7527","FileExists","","if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7528","LoadFromFile","","ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7562","SaveToFile","","ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7571","FileExists","","if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7572","LoadFromFile","","AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7605","SaveToFile","","AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.CreateEmptyCase","CB_IMGPSScanImp.pas.bk","7684","SaveToFile","","S.SaveToFile(Path+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7749","FileExists","","if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7751","LoadFromFile","","ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7795","DirectoryExists","","if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7811","CopyFile","","CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7827","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7831","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ShowFileReplace","CB_IMGPSScanImp.pas.bk","7852","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7867","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7891","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7899","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetCasePage","CB_IMGPSScanImp.pas.bk","7925","FileExists","","if FileExists(Path+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetCasePage","CB_IMGPSScanImp.pas.bk","7926","LoadFromFile","","DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetFile2Case","CB_IMGPSScanImp.pas.bk","8006","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetFile2Case","CB_IMGPSScanImp.pas.bk","8008","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8022","LoadFromFile","","ImageScrollBox1.LoadFromFile(ImgName,1);"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8045","FileExists","","if FileExists(TxtName) then"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8049","SaveToFile","","S.SaveToFile(TxtName);"
+[V],"TCB_IMGPSScanX.GetCase_PageCount","CB_IMGPSScanImp.pas.bk","8072","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.GetCase_PageCount","CB_IMGPSScanImp.pas.bk","8073","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.WriteCaseIndex","CB_IMGPSScanImp.pas.bk","8205","SaveToFile","","S.SaveToFile(Path+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.ReadCaseIndex","CB_IMGPSScanImp.pas.bk","8221","FileExists","","if FileExists(Path+'CaseIndex.dat') then"
+[V],"TCB_IMGPSScanX.ReadCaseIndex","CB_IMGPSScanImp.pas.bk","8223","LoadFromFile","","S.LoadFromFile(Path+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8249","FileExists","","if FileExists(LngPath+'IMGPSCheck.log') then"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8251","LoadFromFile","","ST1.LoadFromFile(LngPath+'IMGPSCheck.log');"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8258","SaveToFile","","ST1.SaveToFile(LngPath+'IMGPSCheck.log');"
+[V],"TCB_IMGPSScanX.GetDocNoDir","CB_IMGPSScanImp.pas.bk","8304","DirectoryExists","","until not DirectoryExists(Path+iDocNo);"
+[V],"TCB_IMGPSScanX.DocNo2DocNoDir","CB_IMGPSScanImp.pas.bk","8341","DirectoryExists","","until not DirectoryExists(Path+iDocNo);"
+[V],"TCB_IMGPSScanX.DocNoDir2Index","CB_IMGPSScanImp.pas.bk","8374","LoadFromFile","","CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.ZipMainFile","CB_IMGPSScanImp.pas.bk","8395","FileExists","","if fileExists(DePath+ZipName) then"
+[V],"TCB_IMGPSScanX.ZipMainFile","CB_IMGPSScanImp.pas.bk","8412","LoadFromFile","","AttContextList.LoadFromFile(SoPath+'ATTContext.dat');"
+[V],"TCB_IMGPSScanX.ZipMaskFile","CB_IMGPSScanImp.pas.bk","8468","FileExists","","if fileExists(DePath+ZipName) then"
+[V],"TCB_IMGPSScanX.GetFormatID","CB_IMGPSScanImp.pas.bk","8605","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then"
+[V],"TCB_IMGPSScanX.GetFormatID","CB_IMGPSScanImp.pas.bk","8607","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.CheckCaseBtnClick","CB_IMGPSScanImp.pas.bk","8952","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9012","FileExists","","if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9013","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9162","DirectoryExists","","if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then"
+[V],"TCB_IMGPSScanX.PrtLbClick","CB_IMGPSScanImp.pas.bk","9320","LoadFromFile","","//ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9441","FileExists","","if FileExists(NewPath+'CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9442","LoadFromFile","","iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9471","DirectoryExists","","if Not DirectoryExists(NewPath+NewDocDir) then"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9501","CopyFile","","CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9504","SaveToFile","","iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.LastInitFormidListCreate","CB_IMGPSScanImp.pas.bk","9538","LoadFromFile","","ST1.LoadFromFile(path+'FormCode_Name.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9604","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9605","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9617","SaveToFile","","CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9689","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9690","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9720","SaveToFile","","Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');"
+[V],"TCB_IMGPSScanX.LoadAttFile","CB_IMGPSScanImp.pas.bk","9779","FileExists","","if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then"
+[V],"TCB_IMGPSScanX.LoadAttFile","CB_IMGPSScanImp.pas.bk","9781","LoadFromFile","","AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.CheckAvailable","CB_IMGPSScanImp.pas.bk","9915","FileExists","","if FileExists(LngPath+'MPSLIC_SCAN.lic') then"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9946","DirectoryExists","","if DirectoryExists(DePath) then"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9947","_DelTree","","_DelTree(DePath);"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9948","Str2Dir","","Str2Dir(DePath);"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9954","LoadFromFile","","S.LoadFromFile(SoPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9964","FileExists","","if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then  //沒有Xml就不用遮罩"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10059","FileExists","","if FileExists(Path+'CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10062","LoadFromFile","","S.LoadFromFile(Path+'CustomDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10080","SaveToFile","","S.SaveToFile(Path+'CustomDocNo.dat');"
+[V],"PrintWithAutoPrintJob","CB_IMGPSScanImp.pas.bk","10285","LoadFromFile","","ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);"
+[V],"TCB_IMGPSScanX.FindLastestDocDir","CB_IMGPSScanImp.pas.bk","10307","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.FindLastestDocDir","CB_IMGPSScanImp.pas.bk","10308","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.FindLastestDocDirForPage","CB_IMGPSScanImp.pas.bk","10335","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.FindLastestDocDirForPage","CB_IMGPSScanImp.pas.bk","10336","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Create_Cust_DocDir","CB_IMGPSScanImp.pas.bk","10401","DirectoryExists","","if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then  //存在了"
+[V],"TCB_IMGPSScanX.OldCasetoNewCase","CB_IMGPSScanImp.pas.bk","10469","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.OldCasetoNewCase","CB_IMGPSScanImp.pas.bk","10494","SaveToFile","","DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10539","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10545","FileExists","","if FileExists(iPath+'Context.dat') then  //20140909漏加這個判斷造成自訂文件但沒影像會出錯誤訊息"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10555","RenameFile","","RenameFile(iPath+OldFile,iPath+NewFile);"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10556","SaveToFile","","FileList.SaveToFile(iPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10563","MoveFile","","MoveFile(PWideChar(iPath),PWideChar(iiPath));"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10583","FileExists","","if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10584","LoadFromFile","","EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10599","SaveToFile","","EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.GetDocDir_Page","CB_IMGPSScanImp.pas.bk","10630","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.GetDocDir_Page","CB_IMGPSScanImp.pas.bk","10632","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.Path2DocDir","CB_IMGPSScanImp.pas.bk","10648","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.Path2DocDir","CB_IMGPSScanImp.pas.bk","10649","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10692","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10694","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10733","RenameFile","","RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10744","SaveToFile","","FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10807","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10809","LoadFromFile","","FileList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10828","SaveToFile","","DocNoList.SaveToFile(Path+'DocDir.dat');"
+[V],"TCB_IMGPSScanX.TransOldCaseFile","CB_IMGPSScanImp.pas.bk","10902","FileExists","","if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then"
+[V],"TCB_IMGPSScanX.GetDocNoCount","CB_IMGPSScanImp.pas.bk","11148","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetDocNoCount","CB_IMGPSScanImp.pas.bk","11150","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetDocDirCopies","CB_IMGPSScanImp.pas.bk","11177","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetDocDirCopies","CB_IMGPSScanImp.pas.bk","11178","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11206","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11208","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11216","SaveToFile","","DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.CaseDelete_Enable","CB_IMGPSScanImp.pas.bk","11377","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.CaseDelete_Enable","CB_IMGPSScanImp.pas.bk","11378","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11398","LoadFromFile","","FList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11403","RenameFile","","Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11435","SaveToFile","","Flist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11438","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11456","LoadFromFile","","FList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11459","RenameFile","","Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11493","SaveToFile","","Flist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11496","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11566","DirectoryExists","","if DirectoryExists(NewPath) then"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11567","_DelTree","","_DelTree(NewPath);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11568","Str2Dir","","str2dir(NewPath);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11569","CopyFile","","CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11576","FileExists","","if FileExists(OldPath+'CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11578","LoadFromFile","","DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11582","SaveToFile","","DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11684","FileExists","","if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then   //截畫面會沒這些檔"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11690","CopyFile","","AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11708","LoadFromFile","","//iFileList.LoadFromFile(SoDir+'Context.dat');"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11738","DirectoryExists","","if not DirectoryExists(DeDir+DocDir) then"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11748","SaveToFile","","DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.DistinctFormCode","CB_IMGPSScanImp.pas.bk","12218","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12420","LoadFromFile","","List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12515","FileExists","","if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then  //沒有Xml就不用檢核"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12937","SaveToFile","","ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12981","FileExists","","if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12982","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12984","SaveToFile","","S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');"
+[V],"TCB_IMGPSScanX.OMRErrini2ListForLog","CB_IMGPSScanImp.pas.bk","13034","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');"
+[V],"TCB_IMGPSScanX.view_image_FormCode","CB_IMGPSScanImp.pas.bk","13106","LoadFromFile","","ISB.LoadFromFile(Path+ContextList.Strings[i],1);"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13230","FileExists","","if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13232","LoadFromFile","","ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13284","DirectoryExists","","//if DirectoryExists(Path+'Attach') then"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13406","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13411","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13427","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13432","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13448","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13453","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.ISBClick","CB_IMGPSScanImp.pas.bk","13727","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);"
+[V],"TCB_IMGPSScanX.ISBImageMouseDown","CB_IMGPSScanImp.pas.bk","13802","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);"
+[V],"TCB_IMGPSScanX.GetCaseFormID","CB_IMGPSScanImp.pas.bk","13895","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CreateFormID_FormName","CB_IMGPSScanImp.pas.bk","13926","SaveToFile","","S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);"
+[V],"TCB_IMGPSScanX.CreateDocNo_DocName","CB_IMGPSScanImp.pas.bk","13948","SaveToFile","","S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13963","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13964","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13977","SaveToFile","","In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');"
+[V],"TCB_IMGPSScanX.CreateDocNo_Info","CB_IMGPSScanImp.pas.bk","14000","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateDocNo_Info","CB_IMGPSScanImp.pas.bk","14002","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateCustDocNo_Info","CB_IMGPSScanImp.pas.bk","14082","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateCustDocNo_Info","CB_IMGPSScanImp.pas.bk","14083","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateDocnoFrom_Info","CB_IMGPSScanImp.pas.bk","14137","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateDocnoFrom_Info","CB_IMGPSScanImp.pas.bk","14138","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateCustDocNoFrom_Info","CB_IMGPSScanImp.pas.bk","14201","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateCustDocNoFrom_Info","CB_IMGPSScanImp.pas.bk","14202","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetDocNoEdit","CB_IMGPSScanImp.pas.bk","14263","FileExists","","if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.GetDocNoEdit","CB_IMGPSScanImp.pas.bk","14264","LoadFromFile","","EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.GetDocNo_Count","CB_IMGPSScanImp.pas.bk","14310","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetDocNo_Page","CB_IMGPSScanImp.pas.bk","14342","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.Case_DocNoExists","CB_IMGPSScanImp.pas.bk","14406","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14427","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //檔名重新排序"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14435","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14437","LoadFromFile","","Filelist.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14444","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14447","SaveToFile","","Filelist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14455","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //檔名重新排序"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14463","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14465","LoadFromFile","","Filelist.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14471","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14474","SaveToFile","","Filelist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14482","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14490","FileExists","","if FileExists(Path+'scanlist.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14491","LoadFromFile","","S.LoadFromFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14497","RenameFile","","//ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14500","SaveToFile","","S.SaveToFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14516","FileExists","","if FileExists(CheckXmlPath+'OMRSet.zip') then"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14522","LoadFromFile","","S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14538","SaveToFile","","S.SaveToFile(CheckXmlPath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14575","FileExists","","if FileExists(SitePath+'KeyinSet.zip') then"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14581","LoadFromFile","","S.LoadFromFile(SitePath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14596","SaveToFile","","S.SaveToFile(SitePath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.CaseComplete","CB_IMGPSScanImp.pas.bk","14695","FileExists","","if FileExists(Path+'Context.dat') then    //掃描頁數"
+[V],"TCB_IMGPSScanX.CaseComplete","CB_IMGPSScanImp.pas.bk","14697","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","14991","GetLocalAppDir","","LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","14992","Str2Dir","","Str2Dir(LngPath);"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","15202","_DelTree","","_Deltree(ImagePath);"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","15234","FileExists","","//if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then   //這個會在Download2Case時一律產生所以不能有這行 20141013"
+[V],"TCB_IMGPSScanX.TransBtnClick","CB_IMGPSScanImp.pas.bk","15415","LoadFromFile","","S.LoadFromFile(TransPath + 'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1Click","CB_IMGPSScanImp.pas.bk","15592","FileExists","","If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then"
+[V],"TCB_IMGPSScanX.TreeView1Click","CB_IMGPSScanImp.pas.bk","15596","LoadFromFile","","CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15806","RenameFile","","{ReNameFile(DisplayISB.FileName,NewPath+NewFileName);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15869","CopyFile","","CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15871","DeleteImageFile","","DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15881","LoadFromFile","","ContextList.LoadFromFile(DisplayPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15889","SaveToFile","","ContextList.SaveToFile(NewPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15901","_DelTree","","_DelTree(DisplayPath);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15910","ReSortFileName","","ReSortFileName(DisplayPath);"
+[V],"TCB_IMGPSScanX.Set_language","CB_IMGPSScanImp.pas.bk","16085","FileExists","","if FileExists(LngPath+'Language.lng') then"
\ No newline at end of file

--
Gitblit v1.8.0