CB_IMGPSScan.cab ver2.0.1.41 修正 刪除問題

doom4ster

2017-09-12 50444e00a1c2c9d97e23e87311a8440143ed6ef2

 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;