還未解決第一次上傳未歸類造成的問題

doom4ster

2017-02-22 aac5dad3baf6dac48066f6be05e8ae158c35e563

還未解決第一次上傳未歸類造成的問題

 CB_IMGPSScan.dproj

@@ -94,10 +94,10 @@
                    <VersionInfo>
                        <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
                        <VersionInfo Name="AutoIncBuild">False</VersionInfo>
                        <VersionInfo Name="MajorVer">1</VersionInfo>
                        <VersionInfo Name="MajorVer">2</VersionInfo>
                        <VersionInfo Name="MinorVer">0</VersionInfo>
                        <VersionInfo Name="Release">0</VersionInfo>
                        <VersionInfo Name="Build">0</VersionInfo>
                        <VersionInfo Name="Build">3</VersionInfo>
                        <VersionInfo Name="Debug">False</VersionInfo>
                        <VersionInfo Name="PreRelease">False</VersionInfo>
                        <VersionInfo Name="Special">False</VersionInfo>
@@ -109,7 +109,7 @@
                    <VersionInfoKeys>
                        <VersionInfoKeys Name="CompanyName"/>
                        <VersionInfoKeys Name="FileDescription"/>
                        <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
                        <VersionInfoKeys Name="FileVersion">2.0.0.3</VersionInfoKeys>
                        <VersionInfoKeys Name="InternalName"/>
                        <VersionInfoKeys Name="LegalCopyright"/>
                        <VersionInfoKeys Name="LegalTrademarks"/>

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScan.res

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 CB_IMGPSScanImp.pas

@@ -3567,8 +3567,28 @@
end;

procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
var
  i:integer;
  str:String;
begin
  Showmessage(self.Doc_Inf_List.Text);
  //Showmessage(self.Doc_Inf_List.Text);
  //LoadImgFile;
  //LoadImgFile1;
  str:='';
  for I := 1 to 11 do // ¬Ý OMRErrInfo ªº¤º®e
  begin
  str:=str+BoolToStr(OMRErrInfo[i].Display)+','
          +BoolToStr(OMRErrInfo[i].Ignore)+','+OMRErrInfo[i].Info+','
          +OMRErrInfo[i].Mode+#10#13;
  end;
  ShowMessage('OMRErrInfo='+str);
  ShowMessage('Doc_Inf_List='+Doc_Inf_List.Text);
  ShowMessage('DM_FORM_INF_List='+DM_FORM_INF_List.Text) ;
  ShowMessage('FORM_INF_List='+FORM_INF_List.Text)       ;
  ShowMessage('CHECK_RULE_INF_List='+CHECK_RULE_INF_List.Text)  ;
  ShowMessage('MEMO_INF_List='+MEMO_INF_List.Text)         ;
  ShowMessage('WORK_INF_List='+WORK_INF_List.Text)          ;
  ShowMessage('LASTEST_FORM_INF_List='+LASTEST_FORM_INF_List.Text)   ;
end;

procedure TCB_IMGPSScanX.StatrTwainScan;
@@ -4296,7 +4316,7 @@
  IF (ImageScrollBox1.FileName <> FileName) and (FileName <> '') then
  begin
    ImageScrollBox1.LoadFromFile(FileName,1);
    FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
    FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'NONE');
    ClearLine(ISB_BW.Graphic,bt);
    ISB_BW.Redraw(True);
    Application.ProcessMessages;
@@ -5428,6 +5448,7 @@
  /////À£ÀÉ////
  ////¤W¶Ç/////
  SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&form_id='+UpformID+'&loan_doc='+Case_loandoc+'&case_no='+TransName+'&doc_data='+HTTPEncode(UTF8Encode(Doc_Data))+'&doc_data1='+HTTPEncode(UTF8Encode(Doc_Data1))+'&attach='+AttachYN+'&in_doc1='+HTTPEncode(UTF8Encode(In_Doc1))+'&in_doc2='+HTTPEncode(UTF8Encode(In_Doc2));

  if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
  begin
    Showmessage(Format(_Msg('¶Ç°e®×¥ó½s¸¹(%s)ÀÉ®×®É,ºô¸ôµo¥Í¿ù»~!!'+_Msg('¿ù»~¥N½X:')),[CaseID])+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
@@ -5471,6 +5492,7 @@

  ////§RÀÉ////
  //_DelTree(Path);  //·|¥u§RTransPath
//ShowMessage('STOP');
  _DelTree(ImageSavePath+CaseID);
  SetCaseList('D',-1,CaseID);
  ////§RÀÉ////
@@ -5685,6 +5707,7 @@
  EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
  ///service/slic/SLIC04/case?data=&verify=&case_no=&file=
  SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';
//ShowMessage(SendData);
  if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
  begin
    HttpErrStr := _Msg('¿ù»~¥N½X:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
@@ -8956,6 +8979,7 @@
      for i := 0 to FileList.Count - 1 do
      begin
        Docno := FormCode2DocNo(FileName2FormCode(FileList.Strings[i]));
ShowMessage('Docno='+Docno);
        DocNoList.Add(DocNo);
        Exists := False;
        for n := 0 to CaseDocNoList.Count - 1 do
@@ -8969,6 +8993,7 @@
          CaseDocNo_CopiesList.Add('1');
        end;
      end;
ShowMessage('CreateCaseNeedData  DocNoList='+DocNoList.Text);
      DocNoList.SaveToFile(Path+'DocDir.dat');
      CaseDocNoList.SaveToFile(Path+'CaseDocNo.dat');
      CaseDocNo_CopiesList.SaveToFile(Path+'CaseDocNo_Copies.dat')
@@ -9617,13 +9642,35 @@
  OldFile,NewFile:String;
  DocNoList,FileList : TStringlist;
  iFileList,iFile_DocDirList :TStringlist;
  AA,AA2,AA3,AA4:Boolean;
begin
ShowMessage('aaaaaaaa');
  if not FileExists(SoDir+'CaseDocNo.dat') then
  begin
ShowMessage('1111111111');
  end;
  if not FileExists(SoDir+'DocDir.dat') then
  begin
ShowMessage('222222222');
  end;

  if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then   //ºIµe­±·|¨S³o¨ÇÀÉ
  begin
ShowMessage('²£¥Í¥²­nªº¤å¦rÀÉ');
    CreateCaseNeedData(SoDir);   //²£¥Í¥²­nªº¤å¦rÀÉ
  CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
  CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
  CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
  CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
  end;

  AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
  AA2:=CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
  AA3:=CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
  AA4:=CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
//ShowMessage(BoolToStr(AA)+#10#13+BoolToStr(AA2)+#10#13+BoolToStr(AA3)+#10#13+BoolToStr(AA4));
  if FileExists(SoDir+'DocDir.dat') then
  begin
    CopyFile(PWideChar(SoDir+'DocDir.dat'),PWideChar(DeDir+'DocDir.dat'),False);
  end;


  DocNoList := TStringlist.Create;
  FileList := TStringlist.Create;
  iFileList := TStringlist.Create;
@@ -9655,6 +9702,7 @@
      DocDir := DocNoList.Strings[i];
      MkDir(DeDir+DocDir);
    end;}
ShowMessage('DocNoList='+DocNoList.Text);

    for i := DocNoList.Count - 1 downto 0 do
    begin
@@ -9667,16 +9715,18 @@
      end
      else
      begin
ShowMessage('GGG');
        DocNoList.Delete(i);
        DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
        if i <= CaseDocNo_CopiesList.Count-1  then
        begin
ShowMessage('KKKK');
          CaseDocNo_CopiesList.Delete(i);
          CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
        end;
      end;
    end;

  //20170221 ¥ýµù¸Ñ°_¨Ó  ¦]¬°¥L¦b¸É¥R±½ºË®É¦n¹³·|¦³Åã¥Üªº°ÝÃD

    for i := 0 to iFileList.Count - 1 do
    begin
@@ -10825,7 +10875,7 @@
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(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,'') Then
  begin
    HttpErrStr := _Msg('¿ù»~¥N½X:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
    Result := False;
@@ -10842,11 +10892,8 @@
    HttpErrStr := _Msg('¿ù»~­ì¦]:')+_Msg('¶¢¸m¹L¤[©Î³Qµn¥X,½Ð­«·sµn¤J');
    Result := False;
    Exit;
  end
  Else {if Trim(memo1.Lines.Strings[0]) = SBUtils.StrToUTF8('MultiLanguage') Then}
  begin
    memo1.Lines.SaveToFile(LngPath+'Language.lng',TEncoding.UTF8);
  end;
  
end;

procedure TCB_IMGPSScanX.view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //¥ÎFormCode¨Ó§ä¼v¹³
@@ -12330,7 +12377,7 @@
var
  SendData : String;
begin
  SendData := 'data='+FData+'&verify='+FVerify+'&case_no='+CaseID;
  SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&work_no='+FWork_no;
  if (FMode = 'NSCAN') then
  begin
    If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
@@ -12340,6 +12387,7 @@
      Exit;
    end;
  end;

  IF memo1.Lines.Strings[0] <> '0' Then
  begin
    HttpErrStr := _Msg('¿ù»~­ì¦]:')+memo1.Lines.Strings[1];
@@ -12708,7 +12756,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetServerDate  '+ServerDate+' , '+ServerTime);
//ShowMessage('GetServerDate  '+ServerDate+' , '+ServerTime);
  ////¤U¸ü¨t²Î¸ê°T////
  IF not GetSetInf1 Then  //¨úDOC_INF  ¤å¥ó¸ê°T
  begin
@@ -12716,7 +12764,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf1');
//ShowMessage('GetSetInf1');
  //showmessage(self.Doc_Inf_List.Text);
  IF not GetSetInf2 Then  //¨úDM_FORM_INF     ¬Û¨Ì¤¬¥¸¸ê°T
  begin
@@ -12724,7 +12772,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf2');
//ShowMessage('GetSetInf2');
  //Showmessage(self.Doc_Inf_List.Text);
  IF not GetSetInf3 Then   //¨úFORM_INF  ªí³æ¸ê°T
  begin
@@ -12732,7 +12780,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf3');
//ShowMessage('GetSetInf3');
  IF not GetSetInf4 Then   //¨úCHECK_RULE_INF   ÀˮֳW«h¸ê°T
  begin
    Showmessage(_Msg('¨úÀˮֳW«h¸ê°T®É,ºô¸ôµo¥Í¿ù»~!!')+HttpErrStr);
@@ -12740,14 +12788,14 @@
    Exit;
  end;
  //showmessage(self.CHECK_RULE_INF_List.Text);
ShowMessage('GetSetInf4');
//ShowMessage('GetSetInf4');
  IF not GetSetInf5 Then   //¨úMEMO_INF   ±`¥Î¤ù»y¸ê°T
  begin
    Showmessage(_Msg('¨ú±`¥Î¤ù»y¸ê°T®É,ºô¸ôµo¥Í¿ù»~!!')+HttpErrStr);
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf5');
//ShowMessage('GetSetInf5');
  //showmessage(self.MEMO_INF_List.Text);
  IF not GetSetInf6 Then   //¨úWORK_INF   ¨t²Î°Ñ¼Æ¸ê°T
  begin
@@ -12755,7 +12803,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf6');
//ShowMessage('GetSetInf6');
  //showmessage(FORM_INF_List.Text);
  IF not GetSetInf7 Then   //¨úLASTES_FORM_INF   ¨t²Î°Ñ¼Æ¸ê°T
  begin
@@ -12763,7 +12811,7 @@
    DataLoading(False,False);
    Exit;
  end;
ShowMessage('GetSetInf7');
//ShowMessage('GetSetInf7');
  //Showmessage(LASTEST_FORM_INF_List.Text);
  SetFormID_DocNo;  //±NFormID¤ÎDocno©â¥X¶ë¤JList¸Ì  20130403¼W¥[
  SetIn_WH_DocNo; //±N­n¤J®wªºDocNo©â¥X¨Ó¥t¦s¤Jlist¸Ì
@@ -12811,14 +12859,14 @@
  DataLoading(True,True);

   ////¤U¸ü»y¨¥ÀÉ/////  20170218 ¥ý®³½Õ¥H«K´ú¸Õ
//  If not DownLanguage Then
//  begin
//    Showmessage('Language File error!!'+HttpErrStr);
//    DataLoading(False,False);
//    Exit;
//  end;
  If not DownLanguage Then
  begin
    Showmessage('Language File error!!'+HttpErrStr);
    DataLoading(False,False);
    Exit;
  end;

  //InitialLanguage(Self);  //¸ü¤J¦h°ê»y¨¥
  InitialLanguage(Self);  //¸ü¤J¦h°ê»y¨¥
  ////¤U¸ü»y¨¥ÀÉ/////
  if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //­«±½¥ó¤Î²§°Ê¥ó­n¥u¯à±½«ü©w½s¸¹ªº¥ó
  begin
@@ -12839,9 +12887,9 @@
        DataLoading(False,False);
        Exit;
      end;

//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
      Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
      //Showmessage('aaa');
//Showmessage('aaa');
      //Download2Case('C:\Users\Hong\Downloads\¨S¦³¬A¸¹\',ImageSavePath+FCaseID+'\');
      if (FIs_OldCase = 'Y') then
      begin
@@ -12863,7 +12911,7 @@
      Create_Cust_DocDir(FCaseID); //²£¥Í¥~­±¶Ç¤Jªº¤å¥ó
    end;
  end;
ShowMessage('GetOMRCheckSet«e');
//ShowMessage('GetOMRCheckSet«e');
  ////¤U¸üÀË®ÖXML//////
  IF not GetOMRCheckSet Then
  begin
@@ -12872,7 +12920,7 @@
    Exit;
  end;
  ////¤U¸üÀË®ÖXML/////
ShowMessage('GetOMRCheckSet«á¨Ó');
//ShowMessage('GetOMRCheckSet«á¨Ó');
  ////¤U¸üµn¥´³]©w/////
  IF not GetKeyinSet Then
  begin
@@ -12881,7 +12929,7 @@
    Exit;
  end;
  ////¤U¸üµn¥´³]©w/////
ShowMessage('GetKeyinSet');
//ShowMessage('GetKeyinSet');
  if ScanDenialHint <> '' then   //¦³³]©w´£¥Ü¦r¦ê´N¨q¦b¥k¤W¨¤
  begin
    DenialTimeLb.Visible := True;
@@ -12908,7 +12956,7 @@
  Splitter2.Visible := False; }

  DataLoading(False,False);
ShowMessage('ªì©l¸Ü°õ¦æ§¹¦¨');
//ShowMessage('ªì©l¸Ü°õ¦æ§¹¦¨');
end;

procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);