From 50444e00a1c2c9d97e23e87311a8440143ed6ef2 Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期二, 12 九月 2017 17:53:18 +0800
Subject: [PATCH] CB_IMGPSScan.cab ver2.0.1.41 修正 刪除問題
---
CB_IMGPSScanImp.pas | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index b2b13dd..1ecad48 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -2499,9 +2499,10 @@
else
begin
_DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
end;
SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'','');
- SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
+
if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir);
@@ -5616,6 +5617,7 @@
if ContextList.Count=0 then
begin
_DelTree(Path);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
end;
end;
--
Gitblit v1.8.0