From 12ffea9088758d789ad3317912863cf1e502f9bd Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期五, 17 三月 2017 16:09:09 +0800
Subject: [PATCH] OCX ver2.0.1.3
---
CB_IMGPSScanImp.pas | 57 +++++++++++++++++++++++++++++++++------------------------
1 files changed, 33 insertions(+), 24 deletions(-)
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index fa0a7d4..0393454 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -2146,7 +2146,7 @@
Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
Exit;
end;
- if (FMode = 'RSCAN') or (FMode = 'ESCAN') then
+ if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'DSCAN') then
begin
if NewTreeNode.Count > 0 then
begin
@@ -3613,29 +3613,37 @@
//Showmessage(self.CreateCustDocNoFrom_Info(NowCaseno));
- showmessage('FUrl='+FUrl);
- showmessage('FCaseID='+FCaseID);
- showmessage('FMode='+FMode);
- showmessage('FModeName='+FModeName);
- showmessage('FWork_no='+FWork_no);
- showmessage('FUserID='+FUserID);
- showmessage('FUserName='+FUserName);
- showmessage('FUserUnit='+FUserUnit);
- showmessage('FData='+FData);
- showmessage('FVerify='+FVerify);
- showmessage('FReWrite='+FReWrite);
- showmessage('FLanguage='+FLanguage);
- showmessage('FLoanDoc_Value='+FLoanDoc_Value);
- showmessage('FLoanDoc_Enable='+FLoanDoc_Enable);
- showmessage('FUseProxy='+FUseProxy);
- showmessage('FC_DocNoList='+FC_DocNoList);
- showmessage('FC_DocNameList='+FC_DocNameList);
- showmessage('FFixFileList='+FFixFileList);
- showmessage('FIs_In_Wh='+FIs_In_Wh);
- showmessage('FOldCaseInfo='+FOldCaseInfo);
- showmessage('FPrintyn='+FPrintyn);
- showmessage('FIs_OldCase='+FIs_OldCase);
- showmessage('FCustDocYN='+FCustDocYN);
+ showmessage('FUrl='+FUrl+#10#13+
+ 'FCaseID='+FCaseID+#10#13+
+ 'FMode='+FMode+#10#13+
+ 'FModeName='+FModeName+#10#13+
+ 'FWork_no='+FWork_no+#10#13+
+ 'FUserID='+FUserID+#10#13+
+ 'FUserName='+FUserName+#10#13+
+ 'FUserUnit='+FUserUnit+#10#13+
+ 'FData='+FData+#10#13+
+ 'FVerify='+FVerify+#10#13+
+ 'FReWrite='+FReWrite+#10#13+
+ 'FLanguage='+FLanguage+#10#13+
+ 'FLoanDoc_Value='+FLoanDoc_Value+#10#13+
+ 'FLoanDoc_Enable='+FLoanDoc_Enable+#10#13+
+ 'FUseProxy='+FUseProxy+#10#13+
+ 'FC_DocNoList='+FC_DocNoList+#10#13+
+ 'FC_DocNameList='+FC_DocNameList+#10#13+
+ 'FFixFileList='+FFixFileList+#10#13+
+ 'FIs_In_Wh='+FIs_In_Wh+#10#13+
+ 'FOldCaseInfo='+FOldCaseInfo+#10#13+
+ 'FPrintyn='+FPrintyn+#10#13+
+ 'FIs_OldCase='+FIs_OldCase+#10#13+
+ 'FCustDocYN='+FCustDocYN);
+ ShowMessage('FImgDPI='+IntToStr(FImgDPI)+#10#13+
+ 'FScanColor='+ IntToStr(FScanColor)+#10#13+
+ 'FFileSizeLimit='+ IntToStr(FFileSizeLimit) +#10#13+
+ 'FCaseNoLength='+ IntToStr(FCaseNoLength) +#10#13+
+ 'FImgDelete='+ FImgDelete+#10#13+
+ 'FIsExternal='+ FIsExternal+#10#13+
+ 'FCheck_main_form='+ FCheck_main_form);
+
end;
procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
@@ -13125,6 +13133,7 @@
ImagePath := ImagePath + 'Scantemp\';
ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
+//ShowMessage('ImagePath='+ImagePath);
ImageSavePath := ImagePath;
str2dir(CheckXmlPath);
str2dir(SitePath);
--
Gitblit v1.8.0