From cef7f26e88f223ae1e8451e6f53394cd142fb3f3 Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期三, 09 八月 2017 14:46:11 +0800
Subject: [PATCH] 修正補件問題 預設雙面掃瞄
---
CB_IMGPSScanImp.pas | 9 +++------
1 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index 181e9ad..1d2224d 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -4749,7 +4749,7 @@
Def_ScannerReverse := False;
Def_BoardClear := False;
Def_ScanDpi := 300;
- Def_ScanDuplex := False;
+ Def_ScanDuplex := True;
Def_ScanRotate := 0;
Def_ScanDeskew := False;
Def_ScanImgSetUse := False;
@@ -7840,7 +7840,7 @@
ErrlistForm.Timer1.Enabled := true;
if ErrlistForm.ShowModal = mrok then
begin
- TransPath := ImageSavePath+NowCaseNo+'\';
+ TransPath := ImageSavePath+NowCaseNo+'\upload\';
if FMode = 'ISCAN' then
TransPath := ImageSavePath + NowCaseNo+'\DownTemp\';
ShowText := NowCaseNo+_Msg('資料上傳中,請稍候');
@@ -8416,10 +8416,7 @@
if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-11) then
begin
str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
- if LastInitFormidList.IndexOf(str1) = -1 then
- begin
- LastInitFormidList.Add(str1);
- end;
+ LastInitFormidList.Add(str1);
end;
end;
--
Gitblit v1.8.0