67版

Hong

2018-10-11 a2d1a029bb51e76e0136adafd475aba99a2c9a5c

67版

1.修正案件編號條碼是最後一個條碼時不會辨識的問題
2.修正補件掃描出現檔名為空白的錯誤訊息的問題

 AxCtrls.dcu

Binary files differ

 CB_IMGPSScan.dproj

@@ -95,7 +95,7 @@
                        <VersionInfo Name="MajorVer">2</VersionInfo>
                        <VersionInfo Name="MinorVer">0</VersionInfo>
                        <VersionInfo Name="Release">1</VersionInfo>
                        <VersionInfo Name="Build">66</VersionInfo>
                        <VersionInfo Name="Build">67</VersionInfo>
                        <VersionInfo Name="Debug">False</VersionInfo>
                        <VersionInfo Name="PreRelease">False</VersionInfo>
                        <VersionInfo Name="Special">False</VersionInfo>
@@ -107,7 +107,7 @@
                    <VersionInfoKeys>
                        <VersionInfoKeys Name="CompanyName"/>
                        <VersionInfoKeys Name="FileDescription"/>
                        <VersionInfoKeys Name="FileVersion">2.0.1.66</VersionInfoKeys>
                        <VersionInfoKeys Name="FileVersion">2.0.1.67</VersionInfoKeys>
                        <VersionInfoKeys Name="InternalName"/>
                        <VersionInfoKeys Name="LegalCopyright"/>
                        <VersionInfoKeys Name="LegalTrademarks"/>

 CB_IMGPSScan.identcache

Binary files differ

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScan.res

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 CB_IMGPSScanImp.pas

@@ -7654,7 +7654,9 @@
              FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
            end;
          end;
        end;
        end
        Else
          if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該要加這段
      end;


@@ -7851,7 +7853,7 @@
begin
  Result := ''; //沒找到
  iCaseID := '';
  for i := 1 to MpsBarcodeinf.Count-1  do
  for i := 1 to MpsBarcodeinf.Count  do    //20180920 拿掉-1
  begin
    if (Length(MpsBarcodeinf.text[i]) = CaseIDLength) then
    begin
@@ -8713,7 +8715,6 @@
            ST1.Add(FileList.Strings[n]);
          end;
        end;

        for n := 0 to ST1.Count - 1 do
        begin
          if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
@@ -8721,7 +8722,11 @@
            FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
          end;
        end;
      end;
      end
      Else
        if not DocNoAppear(iDocNo) then Continue;  //20180925 Hong覺得應該加這段



LogFile1.LogToFile(logTimeString+'WH_category='+FWH_category+',Is_In_Wh='+FIs_In_Wh+',FileList.Text='+FileList.CommaText);
      if FileList.Count=0 then Continue;
@@ -9687,7 +9692,7 @@
    if FIs_In_Wh <> 'Y' then //不是入庫文件
      DocNo := 'YYYYY'+Add_Zoo(Ct,3);

    if (FMode='ESCAN') and (FWH_category='N') then //20170914 補件下改成非入庫的自定文件
    if (FMode='ESCAN') and (FWH_category='N')  then //20170914 補件下改成非入庫的自定文件
    begin
      DocNo := 'YYYYY'+Add_Zoo(Ct,3);
    end;

 CB_IMGPSScan_TLB.dcu

Binary files differ

 CB_IMGPSScan_TLB.pas

@@ -12,10 +12,10 @@
// ************************************************************************ //

// $Rev: 17252 $
// File generated on 2017/8/18 ¤U¤È 03:12:38 from Type Library described below.
// File generated on 2018/9/20 ¤U¤È 02:08:58 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Users\Hong\Desktop\Delphi2009_project\work_project\°ê®õ±M®×\°ê®õ©Ð¶U\±½´y¤¸¥óCB_IMGPSScan\20170208_³]¸mgit\CB_IMGPSScan (1)
// Type Lib: D:\¤u§@°Ï\±M®×\°ê®õ¥@µØ\©Ð¶U\CUB_IMGPSSCAN\CUB_IMGPSSCAN\CB_IMGPSScan (1)
// LIBID: {F7D1C429-BE85-4FAD-A058-36A41C2AAA89}
// LCID: 0
// Helpfile:

 DocCopy.dcu

Binary files differ

 DocList.dcu

Binary files differ

 DocPrt.dcu

Binary files differ

 ErrList.dcu

Binary files differ

 InputMask.dcu

Binary files differ

 OldCaseInfo.dcu

Binary files differ

 PatchFom.dcu

Binary files differ

 ScanMemo.dcu

Binary files differ

 SortMemo.dcu

Binary files differ