| | |
|---|
| | | Procedure PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID |
|---|
| | | Function ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核 |
|---|
| | | procedure WMMOUSEWHEEL(var message: TWMMouseWheel); message WM_MOUSEWHEEL; |
|---|
| | | Function GetInputMask:String; //取得輸入的保單號碼 |
|---|
| | | Function GetCasePage(Path,CaseID:String):Integer; |
|---|
| | | Function GetFormIDPage(FileList:TStringlist;FormID:String):Integer; |
|---|
| | | Procedure SetFile2Case(CaseID,FileName:String); |
|---|
| | |
|---|
| | | GoAtt := True; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if InputQuery('輸入其他文件名稱','文件名稱',CustomDocName) then |
|---|
| | | if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then |
|---|
| | | begin |
|---|
| | | if FindCustomDocName(DisplayPath,CustomDocName) then |
|---|
| | | begin |
|---|
| | | Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName])); |
|---|
| | | Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName])); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName); |
|---|
| | |
|---|
| | | iISBName,OldName : String; |
|---|
| | | iISB : TImageScrollBox; |
|---|
| | | begin |
|---|
| | | if MessageDlg('是否確定刪除??',mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; |
|---|
| | | if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; |
|---|
| | | |
|---|
| | | for i := 0 to ComponentCount -1 do |
|---|
| | | begin |
|---|
| | |
|---|
| | | //ShowMessage('iISB.FileName='+iISB.FileName); |
|---|
| | | ReSortFileName(ExtractFilePath(iISB.FileName)); |
|---|
| | | DrawDocItem2(MytreeNode1,NowCaseno); |
|---|
| | | MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); |
|---|
| | | MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); |
|---|
| | | NewTreeNodeRefresh; |
|---|
| | | ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 |
|---|
| | | TreeView1click(self); |
|---|
| | |
|---|
| | | var |
|---|
| | | mp:string; |
|---|
| | | begin |
|---|
| | | mp := InputBox('移動頁數','請輸入移入頁碼',''); |
|---|
| | | mp := InputBox(_Msg('移動頁數'),_Msg('請輸入移入頁碼'),''); |
|---|
| | | if (mp <> '') then |
|---|
| | | begin |
|---|
| | | MoveImage(DisplayPath+NowDocDir+'\',strtoint(mp)); |
|---|
| | |
|---|
| | | //ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024)); |
|---|
| | | If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小 |
|---|
| | | Begin |
|---|
| | | ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) + |
|---|
| | | '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB'); |
|---|
| | | ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024])); |
|---|
| | | {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) + |
|---|
| | | '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');} |
|---|
| | | FindClose(FileRec); |
|---|
| | | DataLoading(false, false); |
|---|
| | | Exit; |
|---|
| | |
|---|
| | | P := ISB.ImageCountFromFile(OpenDialog1.FileName); |
|---|
| | | For i := 1 To P Do |
|---|
| | | Begin |
|---|
| | | ShowText := _Msg('檔案加入中,請稍候(' + inttostr(i) + '/' + inttostr(P) + ')'); |
|---|
| | | ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]); |
|---|
| | | //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')'; |
|---|
| | | DataLoading(True, True); |
|---|
| | | ISB.LoadFromFile(FName, i); |
|---|
| | | DeskewImg(ISB.Graphic); |
|---|
| | |
|---|
| | | iRect.Bottom := ISB.Graphic.Height; |
|---|
| | | CropImg(iGraphic_sec, iRect); |
|---|
| | | End; |
|---|
| | | |
|---|
| | | ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用 |
|---|
| | | iGraphic := iGraphic_First; |
|---|
| | | |
|---|
| | | While Not iGraphic.IsEmpty Do |
|---|
| | |
|---|
| | | |
|---|
| | | DocNo := FormCode2DocNo(FormID); |
|---|
| | | DocDir := FindLastestDocDir(CaseID, DocNo); |
|---|
| | | if (FMode='ESCAN') and (FModeName='補件掃描') then |
|---|
| | | if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then |
|---|
| | | begin |
|---|
| | | DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID); |
|---|
| | | //ShowMessage('DocDir='+DocDir); |
|---|
| | |
|---|
| | | |
|---|
| | | finally |
|---|
| | | ISB.Free; |
|---|
| | | iGraphic_First.Free; |
|---|
| | | iGraphic_sec.Free; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | |
|---|
| | |
|---|
| | | |
|---|
| | | if Trim(DocListForm.Edit1.Text)='' then |
|---|
| | | begin |
|---|
| | | Showmessage('未輸入文件名稱'); |
|---|
| | | Showmessage(_Msg('未輸入文件名稱')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if FindCustomDocName(DisplayPath,NewFormID) then |
|---|
| | | begin |
|---|
| | | Showmessage(Format('文件名稱:"%s"己存在',[NewFormID])); |
|---|
| | | Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID])); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if NowFormCode <> AttName then |
|---|
| | |
|---|
| | | SavePath : String; |
|---|
| | | ST1:TStringList; |
|---|
| | | begin |
|---|
| | | if InputQuery('輸入其他文件名稱','文件名稱',CustomDocName) then |
|---|
| | | if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then |
|---|
| | | begin |
|---|
| | | if CustomDocName <> '' then |
|---|
| | | begin |
|---|
| | |
|---|
| | | begin |
|---|
| | | oldCopies := GetDocDirCopies(NowCaseno,NowDocDir); |
|---|
| | | try |
|---|
| | | NewCopies := Strtoint(inputBox('修改份數','請輸入修改後的份數',inttostr(oldCopies))); |
|---|
| | | NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies))); |
|---|
| | | except |
|---|
| | | Showmessage('輸入錯誤'); |
|---|
| | | Showmessage(_Msg('輸入錯誤')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if (NewCopies <= 0) and (NewCopies >= 10000) then |
|---|
| | | begin |
|---|
| | | Showmessage('輸入範圍錯誤'); |
|---|
| | | Showmessage(_Msg('輸入範圍錯誤')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then |
|---|
| | | begin |
|---|
| | | if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg('修改至1份後此文件將無法再進行份數修改,是否確定??',mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then |
|---|
| | | if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then |
|---|
| | | Exit; |
|---|
| | | |
|---|
| | | SetDocDirCopies(NowCaseno,NowDocDir,NewCopies); |
|---|
| | | SetRecordEditedDocDir('A',NowCaseNo,NowDocDir); |
|---|
| | | DrawDocItem2(MytreeNode1,NowCaseno); |
|---|
| | | Showmessage('修改完成'); |
|---|
| | | Showmessage(_Msg('修改完成')); |
|---|
| | | end; |
|---|
| | | |
|---|
| | | end; |
|---|
| | |
|---|
| | | if DisplayISB.FileName = '' then Exit; |
|---|
| | | if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then |
|---|
| | | begin |
|---|
| | | if Messagedlg(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit; |
|---|
| | | if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit; |
|---|
| | | _DelTree(DisplayPath); |
|---|
| | | SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),''); |
|---|
| | | LoadImgFile; |
|---|
| | |
|---|
| | | PM104.Visible := True; //檔案加入影像 |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if FModeName='異動件' then |
|---|
| | | if FModeName=_Msg('異動件') then |
|---|
| | | begin |
|---|
| | | PM101.Visible := True; |
|---|
| | | end; |
|---|
| | |
|---|
| | | if FMode='ESCAN' then |
|---|
| | | PM101.Visible:=false; |
|---|
| | | |
|---|
| | | if FModeName='異動件' then |
|---|
| | | if FModeName=_Msg('異動件') then |
|---|
| | | begin |
|---|
| | | PM101.Visible := True; |
|---|
| | | end; |
|---|
| | |
|---|
| | | PM101.Visible:=false; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if FModeName='異動件' then |
|---|
| | | if FModeName=_Msg('異動件') then |
|---|
| | | begin |
|---|
| | | PM101.Visible := True; |
|---|
| | | end; |
|---|
| | |
|---|
| | | PM101.Visible:=false; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if FModeName='異動件' then |
|---|
| | | if FModeName=_Msg('異動件') then |
|---|
| | | begin |
|---|
| | | PM101.Visible := True; |
|---|
| | | end; |
|---|
| | |
|---|
| | | PM605.Visible := True; //刪除 |
|---|
| | | end; |
|---|
| | | |
|---|
| | | if FModeName<>'異動件' then |
|---|
| | | if FModeName<>_Msg('異動件') then |
|---|
| | | begin |
|---|
| | | if (FImgDelete='Y') then |
|---|
| | | begin |
|---|
| | |
|---|
| | | if SampleFormIDList.IndexOf(SampleFormID)<>-1 then |
|---|
| | | begin |
|---|
| | | // Show a custom dialog |
|---|
| | | buttonSelected := messagedlg(SampleFormID+'已有範本,是否取代?',mtCustom, |
|---|
| | | buttonSelected := messagedlg(SampleFormID+_Msg('已有範本,是否取代?'),mtCustom, |
|---|
| | | [mbYes,mbCancel], 0); |
|---|
| | | if buttonSelected = mrCancel then |
|---|
| | | begin |
|---|
| | |
|---|
| | | AddFile := HTTPEncode(UTF8Encode(ExtractFileName(OpenDialog1.Files.Strings[i]))); |
|---|
| | | if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then |
|---|
| | | begin |
|---|
| | | if Messagedlg(Format(_msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then |
|---|
| | | if Messagedlg(Format(_Msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then |
|---|
| | | Continue; |
|---|
| | | SetAttContextList('D',-1,NowCaseno,AddFile); |
|---|
| | | end; |
|---|
| | |
|---|
| | | begin |
|---|
| | | IF not InitialOk Then |
|---|
| | | begin |
|---|
| | | Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入')); |
|---|
| | | Showmessage(_Msg('資訊尚未下載完成,請稍候或重新進入')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if MyTreeNode1 = nil then |
|---|
| | |
|---|
| | | DocNo := FormCode2DocNo(FormID); |
|---|
| | | ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo); |
|---|
| | | |
|---|
| | | if (FMode='ESCAN') and (FModeName='補件掃描') then //20180207 加入的特殊邏輯 |
|---|
| | | if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then //20180207 加入的特殊邏輯 |
|---|
| | | begin |
|---|
| | | ScanDocDir := FindLastestDocDirForPage(ScanCaseno, DocNo,FormID); |
|---|
| | | end; |
|---|
| | |
|---|
| | | DeleteFile(LngPath+'mps.dat'); |
|---|
| | | end; |
|---|
| | | ////壓zip////// |
|---|
| | | Showmessage('匯出完成,匯出檔案:'+LngPath+'mps.zip'); |
|---|
| | | Showmessage(_Msg('匯出完成,匯出檔案:')+LngPath+'mps.zip'); |
|---|
| | | end; |
|---|
| | | |
|---|
| | | procedure TCB_IMGPSScanX.ImportBtClick(Sender: TObject); |
|---|
| | |
|---|
| | | |
|---|
| | | str2dir(ZipPath); |
|---|
| | | if not ExecuteUnZip_Pwd(OpenDialog1.FileName,ZipPath,False,'9338430') then |
|---|
| | | Showmessage('無法解壓縮'); |
|---|
| | | Showmessage(_Msg('無法解壓縮')); |
|---|
| | | if not FileExists(ZipPath+'mps.dat') then |
|---|
| | | begin |
|---|
| | | Showmessage('格式不符,無法匯入'); |
|---|
| | | Showmessage(_Msg('格式不符,無法匯入')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | S.LoadFromFile(ZipPath+'mps.dat'); |
|---|
| | | if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then |
|---|
| | | begin |
|---|
| | | Showmessage('檔案過期,無法匯入'); |
|---|
| | | Showmessage(_Msg('檔案過期,無法匯入')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | |
|---|
| | |
|---|
| | | S.Free; |
|---|
| | | _DelTree(ZipPath); |
|---|
| | | end; |
|---|
| | | Showmessage('匯入完成'); |
|---|
| | | Showmessage(_Msg('匯入完成')); |
|---|
| | | end; |
|---|
| | | |
|---|
| | | procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage); |
|---|
| | |
|---|
| | | begin |
|---|
| | | if FileName2FormCode(FileList.Strings[i]) = FormID then |
|---|
| | | begin |
|---|
| | | if (FMode = 'ESCAN') and (FModeName<>'異動件') then |
|---|
| | | if (FMode = 'ESCAN') and (FModeName<>_Msg('異動件')) then |
|---|
| | | begin |
|---|
| | | if ISExistImg(ImageSavePath+CaseID+'\'+DocDir+'\'+FileList.Strings[i]) then |
|---|
| | | begin |
|---|
| | |
|---|
| | | //exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576] |
|---|
| | | If FileRec.Size > StrtoInt(FMaxUploadSize) * 1048576 Then // 檢查檔案大小 |
|---|
| | | Begin |
|---|
| | | ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) ); |
|---|
| | | ShowMessage(Format(_Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'),[caseid,FileRec.Size / 1048576,FMaxUploadSize])); |
|---|
| | | //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) ); |
|---|
| | | FindClose(FileRec); |
|---|
| | | Result := False; |
|---|
| | | Exit; |
|---|
| | |
|---|
| | | Result := True; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | Function TCB_IMGPSScanX.GetInputMask:String; //取得輸入的保單號碼 |
|---|
| | | var |
|---|
| | | InputMaskForm: TInputMaskForm; |
|---|
| | | begin |
|---|
| | | Result := ''; |
|---|
| | | ShowText := _msg('輸入保單號碼中'); |
|---|
| | | DataLoading(True,True); |
|---|
| | | InputMaskForm := TInputMaskForm.Create(self); |
|---|
| | | try |
|---|
| | | InputMaskForm.MaskEdit1.ClearSelection; |
|---|
| | | if InputMaskForm.ShowModal = mrOk then |
|---|
| | | begin |
|---|
| | | Result := Trim(InputMaskForm.MaskEdit1.Text)+Trim(InputMaskForm.MaskEdit2.Text)+Trim(InputMaskForm.MaskEdit3.Text); |
|---|
| | | end; |
|---|
| | | finally |
|---|
| | | InputMaskForm.Free; |
|---|
| | | DataLoading(False,False); |
|---|
| | | end; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | Function TCB_IMGPSScanX.GetCasePage(Path,CaseID:String):Integer; |
|---|
| | | var |
|---|
| | | DocDirList,FileList,ST1 :TStringlist; |
|---|
| | |
|---|
| | | begin |
|---|
| | | if Mode = 'ID' then |
|---|
| | | begin |
|---|
| | | Result := '自行輸入'; |
|---|
| | | Result := _Msg('自行輸入'); |
|---|
| | | for i := 0 to ID_S.Count - 1 do |
|---|
| | | begin |
|---|
| | | if Str = ID_S.Strings[i] then |
|---|
| | |
|---|
| | | //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('頁'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoPage])); |
|---|
| | | //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoCopies])); |
|---|
| | | //ShowMessage('iDocNo='+iDocNo); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies])); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies])); |
|---|
| | | |
|---|
| | | if GetUseCase('F',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then |
|---|
| | | begin |
|---|
| | |
|---|
| | | FormPage := GetFormIDPage(FileList,FormID); |
|---|
| | | FormName := FormCode2FormName(Caseno,FormID); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage])); |
|---|
| | | FormNode.ImageIndex := 4; |
|---|
| | | FormNode.SelectedIndex := 4; |
|---|
| | | DocNode.AlphaSort(True); |
|---|
| | |
|---|
| | | FormPage := GetFormIDPage(FileList,FormID); |
|---|
| | | FormName := FormCode2FormName(Caseno,FormID); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage])); |
|---|
| | | FormNode.ImageIndex := 4; |
|---|
| | | FormNode.SelectedIndex := 4; |
|---|
| | | DocNode.AlphaSort(True); |
|---|
| | |
|---|
| | | FormPage := GetFormIDPage(FileList,FormID); |
|---|
| | | FormName := FormCode2FormName(Caseno,FormID); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage])); |
|---|
| | | FormNode.ImageIndex := 4; |
|---|
| | | FormNode.SelectedIndex := 4; |
|---|
| | | DocNode.AlphaSort(True); |
|---|
| | |
|---|
| | | DocNoPage := FileList.Count; |
|---|
| | | iDocNo := DocNoDir2DocNo(AttName); |
|---|
| | | //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1])); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),AttName,1])); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),AttName,1])); |
|---|
| | | DocNode.ImageIndex := 2; |
|---|
| | | DocNode.SelectedIndex := 2; |
|---|
| | | for n := 0 to FileList.Count - 1 do |
|---|
| | |
|---|
| | | FormPage := GetFormIDPage(FileList,FormID); |
|---|
| | | FormName := FormCode2FormName(Caseno,FormID); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage])); |
|---|
| | | FormNode.ImageIndex := 4; |
|---|
| | | FormNode.SelectedIndex := 4; |
|---|
| | | end; |
|---|
| | |
|---|
| | | DocNoPage := FileList.Count; |
|---|
| | | iDocNo := DocNoDir2DocNo(AttName); |
|---|
| | | //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1])); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1])); |
|---|
| | | //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1])); |
|---|
| | | DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1])); |
|---|
| | | |
|---|
| | | DocNode.ImageIndex := 2; |
|---|
| | | DocNode.SelectedIndex := 2; |
|---|
| | | for n := 0 to FileList.Count - 1 do |
|---|
| | |
|---|
| | | FormPage := GetFormIDPage(FileList,FormID); |
|---|
| | | FormName := FormCode2FormName(Caseno,FormID); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁')); |
|---|
| | | FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage])); |
|---|
| | | |
|---|
| | | FormNode.ImageIndex := 4; |
|---|
| | | FormNode.SelectedIndex := 4; |
|---|
| | |
|---|
| | | PrtDialog : TPrintDialog; |
|---|
| | | S : String; |
|---|
| | | begin |
|---|
| | | ShowText := '列印中,請稍候'; |
|---|
| | | ShowText := _Msg('列印中,請稍候'); |
|---|
| | | DataLoading(True,True); |
|---|
| | | Case2upload(NowCaseNo); //產生原影像結構 |
|---|
| | | |
|---|
| | |
|---|
| | | OldCaseInfoForm.IN_WH_DocNoList := TStringlist.Create; |
|---|
| | | OldCaseInfoForm.OldCopiesList := TStringlist.Create; |
|---|
| | | try |
|---|
| | | InitialLanguage(OldCaseInfoForm); //載入多國語言 |
|---|
| | | OldCaseInfoForm.Notebook1.ActivePage := 'CaseInfo'; |
|---|
| | | OldCaseInfoForm.ImageSavePath := ImageSavePath; |
|---|
| | | OldCaseInfoForm.CaseID := NowCaseNo; |
|---|
| | |
|---|
| | | Year := Caseinfolist.Strings[1]; |
|---|
| | | BS_No := Caseinfolist.Strings[2]; |
|---|
| | | IS_Old := Caseinfolist.Strings[3]; |
|---|
| | | With OldCaseInfoForm.ListView1.Items.Add do |
|---|
| | | With OldCaseInfoForm.OldCaseLV.Items.Add do |
|---|
| | | begin |
|---|
| | | Caption := CaseID; |
|---|
| | | SubItems.Add(Year); |
|---|
| | |
|---|
| | | iDocNoList.SaveToFile(NewPath+'CaseDocNo.dat'); |
|---|
| | | iDocNo_CopiesList.SaveToFile(NewPath+'CaseDocNo_Copies.dat'); |
|---|
| | | DrawDocItem2(MyTreeNode1,NowCaseNo); |
|---|
| | | MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); |
|---|
| | | //MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); |
|---|
| | | MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); |
|---|
| | | NewTreeNodeRefresh; |
|---|
| | | ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 |
|---|
| | | end; |
|---|
| | |
|---|
| | | if FileExists(LngPath+'MPSLIC_SCAN.lic') then |
|---|
| | | DeleteFile(LngPath+'MPSLIC_SCAN.lic'); |
|---|
| | | if LegalDate = '' then |
|---|
| | | StatusBar1.Panels[4].Text := '註冊號:'+MacID+' 剩餘註冊數:'+inttostr(Totalcount-Nowcount); |
|---|
| | | StatusBar1.Panels[4].Text := Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID,inttostr(Totalcount-Nowcount)]); |
|---|
| | | if LegalDate <> '' then |
|---|
| | | StatusBar1.Panels[4].Text := '*註冊號:'+MacID+'('+inttostr(Lic_Idx)+')'+' 剩餘註冊數:'+inttostr(Totalcount-Nowcount); |
|---|
| | | StatusBar1.Panels[4].Text := '*'+Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID+'('+inttostr(Lic_Idx)+')',inttostr(Totalcount-Nowcount)]); |
|---|
| | | end; |
|---|
| | | |
|---|
| | | procedure TCB_IMGPSScanX.SmoothCBClick(Sender: TObject); |
|---|
| | |
|---|
| | | Printer object. Otherwise, if UsePrintJob is True, the Title |
|---|
| | | property of the TDibGraphicPrinter object is used to specify the |
|---|
| | | job name. } |
|---|
| | | Printer.Title := '影像列印'; |
|---|
| | | Printer.Title := _Msg('影像列印'); |
|---|
| | | end; |
|---|
| | | |
|---|
| | | IF (Page mod 2) = 1 Then |
|---|
| | |
|---|
| | | procedure PrintWithAutoPrintJob; |
|---|
| | | begin |
|---|
| | | GraphicPrinter.UsePrintJob := True; |
|---|
| | | GraphicPrinter.Title := '影像列印'; |
|---|
| | | GraphicPrinter.Title := _Msg('影像列印'); |
|---|
| | | GraphicPrinter.Print(ImageScrollBox1.Graphic); |
|---|
| | | end; |
|---|
| | | |
|---|
| | |
|---|
| | | //Showmessage(FUrl+'service/slic/SLIC02/useOther?'+senddata); |
|---|
| | | if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then |
|---|
| | | begin |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'+_Msg('錯誤代碼:')),[OldCaseID])+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason); |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason); |
|---|
| | | Result := False; |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if memo1.Lines.Strings[0] = '1' then |
|---|
| | | begin |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!')+_Msg('錯誤原因:'),[OldCaseID])+memo1.Lines.Strings[1]); |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+memo1.Lines.Strings[1]); |
|---|
| | | Result := False; |
|---|
| | | Exit; |
|---|
| | | end |
|---|
| | | Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then |
|---|
| | | begin |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'),[OldCaseID])); |
|---|
| | | Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入')); |
|---|
| | | Result := False; |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | |
|---|
| | | LogFile1.LogToFile(logTimeString+'最大頁數B段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text); |
|---|
| | | For i := 0 to OMRFileList.Count - 1 do |
|---|
| | | begin |
|---|
| | | if FModeName='異動件' then Continue; |
|---|
| | | if FModeName=_Msg('異動件') then Continue; |
|---|
| | | |
|---|
| | | if FWH_category='N' then |
|---|
| | | begin |
|---|
| | |
|---|
| | | begin |
|---|
| | | Result := True; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime |
|---|
| | | //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus) |
|---|
| | | If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,'') Then |
|---|
| | | If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then |
|---|
| | | begin |
|---|
| | | HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason; |
|---|
| | | Result := False; |
|---|
| | |
|---|
| | | List_FormCode,Err_FormCode: String; |
|---|
| | | iFormID : String; |
|---|
| | | begin |
|---|
| | | ShowText := '影像顯示中,請稍候'; |
|---|
| | | ShowText := _Msg('影像顯示中,請稍候'); |
|---|
| | | DataLoading(True,True); |
|---|
| | | |
|---|
| | | IF FormCode = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll) |
|---|
| | |
|---|
| | | iGroupNo,page,Ct,int1 : Integer; |
|---|
| | | ST1:TStringList; |
|---|
| | | begin |
|---|
| | | ShowText := '影像顯示中,請稍候'; |
|---|
| | | ShowText := _Msg('影像顯示中,請稍候'); |
|---|
| | | DataLoading(True,True); |
|---|
| | | ST1:=TStringList.Create; |
|---|
| | | //Display1.Lines.Clear; |
|---|
| | |
|---|
| | | DisplayMode(1,1,1,Panel9); |
|---|
| | | Application.ProcessMessages; |
|---|
| | | StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo; |
|---|
| | | StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName; |
|---|
| | | StatusBar1.Panels[1].Text := 'Login User:'+FUserName; |
|---|
| | | if FPrintyn = 'Y' then |
|---|
| | | PrtLB.Visible := True; |
|---|
| | | |
|---|
| | |
|---|
| | | InitScrollRec; |
|---|
| | | If FUrl = '' then |
|---|
| | | begin |
|---|
| | | Showmessage(_Msg('URL不能為空白,請洽詢程式人員')); |
|---|
| | | Showmessage(_Msg('URL cannot be empty,please contact system administrator')); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | if FUrl[length(FUrl)]<>'/' then |
|---|
| | | FUrl := FUrl + '/'; |
|---|
| | | //20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用 |
|---|
| | | LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\'; |
|---|
| | | Str2Dir(LngPath); |
|---|
| | | ////下載語言檔///// 20170218 先拿調以便測試 |
|---|
| | | If not DownLanguage Then |
|---|
| | | begin |
|---|
| | | Showmessage('Language File error!!'+HttpErrStr); |
|---|
| | | DataLoading(False,False); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | InitialLanguage(Self); //載入多國語言 |
|---|
| | | |
|---|
| | | |
|---|
| | | if FWork_no='' then |
|---|
| | | begin |
|---|
| | |
|---|
| | | //ShowMessage('CheckXmlPath='+CheckXmlPath); |
|---|
| | | //SitePath := ImagePath+'Site\'+FWork_No+'\'; |
|---|
| | | SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄 |
|---|
| | | LngPath := ImagePath; |
|---|
| | | //LngPath := ImagePath; //改放至上面取Local目錄 |
|---|
| | | SamplePath := ImagePath+'Sample\'+FWork_No+'\'; |
|---|
| | | ImagePath := ImagePath + 'Scantemp\'; |
|---|
| | | //ShowMessage('AA ImagePath='+ImagePath); |
|---|
| | |
|---|
| | | ShowText := _Msg('資料載入中,請稍候'); |
|---|
| | | DataLoading(True,True); |
|---|
| | | |
|---|
| | | ////下載語言檔///// 20170218 先拿調以便測試 |
|---|
| | | If not DownLanguage Then |
|---|
| | | begin |
|---|
| | | Showmessage('Language File error!!'+HttpErrStr); |
|---|
| | | DataLoading(False,False); |
|---|
| | | Exit; |
|---|
| | | end; |
|---|
| | | |
|---|
| | | InitialLanguage(Self); //載入多國語言 |
|---|
| | | StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName; |
|---|
| | | //FCaseID:='20150302180133';//測試用 |
|---|
| | | ////下載語言檔///// |
|---|
| | | //ShowMessage('OOOO'); |
|---|
| | |
|---|
| | | begin |
|---|
| | | uploadMsg:=NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程'); |
|---|
| | | end; |
|---|
| | | if (FMode='ESCAN') and (FModeName='補件掃描') and (SuccessCount = 1) then |
|---|
| | | if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) and (SuccessCount = 1) then |
|---|
| | | begin |
|---|
| | | uploadMsg:=NowCaseNo+_Msg('影像已補件完成'); |
|---|
| | | end; |
|---|
| | |
|---|
| | | DisplayPath := ImageSavePath+NowCaseNo+'\'; |
|---|
| | | |
|---|
| | | if GetUseCase('F',DisplayPath,NowDocDir) <> '' then |
|---|
| | | StatusBar1.Panels[2].Text := Format('從%s引用',[GetUseCase('F',DisplayPath,NowDocDir)]); |
|---|
| | | StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]); |
|---|
| | | if GetUseCase('T',DisplayPath,NowDocDir) <> '' then |
|---|
| | | StatusBar1.Panels[2].Text := Format('被%s引用',[GetUseCase('T',DisplayPath,NowDocDir)]); |
|---|
| | | StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]); |
|---|
| | | if FLoanDoc_Enable = 'Y' then |
|---|
| | | begin |
|---|
| | | AddCredit1RG.Enabled := True; |
|---|
| | |
|---|
| | | DisplayPath := ImageSavePath+NowCaseNo+'\'; |
|---|
| | | |
|---|
| | | if GetUseCase('F',DisplayPath,NowDocDir) <> '' then |
|---|
| | | StatusBar1.Panels[2].Text := Format('從%s引用',[GetUseCase('F',DisplayPath,NowDocDir)]); |
|---|
| | | StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]); |
|---|
| | | if GetUseCase('T',DisplayPath,NowDocDir) <> '' then |
|---|
| | | StatusBar1.Panels[2].Text := Format('被%s引用',[GetUseCase('T',DisplayPath,NowDocDir)]); |
|---|
| | | StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]); |
|---|
| | | |
|---|
| | | if FLoanDoc_Enable = 'Y' then |
|---|
| | | begin |
|---|
