OCX ver2.0.1.3

doom4ster

2017-03-17 12ffea9088758d789ad3317912863cf1e502f9bd

OCX ver2.0.1.3

v修正DSCAN 下用掃瞄器會產生新案件的問題

 CB_IMGPSScan.dproj

@@ -94,7 +94,7 @@
                        <VersionInfo Name="MajorVer">2</VersionInfo>
                        <VersionInfo Name="MinorVer">0</VersionInfo>
                        <VersionInfo Name="Release">1</VersionInfo>
                        <VersionInfo Name="Build">2</VersionInfo>
                        <VersionInfo Name="Build">3</VersionInfo>
                        <VersionInfo Name="Debug">False</VersionInfo>
                        <VersionInfo Name="PreRelease">False</VersionInfo>
                        <VersionInfo Name="Special">False</VersionInfo>
@@ -106,7 +106,7 @@
                    <VersionInfoKeys>
                        <VersionInfoKeys Name="CompanyName"/>
                        <VersionInfoKeys Name="FileDescription"/>
                        <VersionInfoKeys Name="FileVersion">2.0.1.2</VersionInfoKeys>
                        <VersionInfoKeys Name="FileVersion">2.0.1.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

@@ -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);