瀏覽代碼

在线审批起止人算法,整数变量没有初始化。

Chenshilong 9 年之前
父節點
當前提交
36bf05b43b
共有 4 個文件被更改,包括 11 次插入10 次删除
  1. 1 1
      Dprs/CSL/Measure_Cloud.cfg
  2. 6 5
      Dprs/CSL/Measure_Cloud.dof
  3. 二進制
      Dprs/CSL/Measure_Cloud.res
  4. 4 4
      Frames/ProjectManagerFme.pas

+ 1 - 1
Dprs/CSL/Measure_Cloud.cfg

@@ -31,7 +31,7 @@
 -M
 -M
 -$M16384,1048576
 -$M16384,1048576
 -K$00400000
 -K$00400000
--E"C:\Program Files (x86)\李뷘흡숭\셕좆連마 (데샙경+暾경) 1"
+-E"C:\Program Files (x86)\李뷘흡숭\李뷘써炬엄炬셕좆寧竟뺏흡숭(暾경)"
 -N"D:\Work\DelphiTemp"
 -N"D:\Work\DelphiTemp"
 -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"

+ 6 - 5
Dprs/CSL/Measure_Cloud.dof

@@ -90,7 +90,7 @@ MaxStackSize=1048576
 ImageBase=4194304
 ImageBase=4194304
 ExeDescription=
 ExeDescription=
 [Directories]
 [Directories]
-OutputDir=C:\Program Files (x86)\纵横软件\计量支付 (单机版+云版) 1
+OutputDir=C:\Program Files (x86)\纵横软件\纵横结算决算计量一体化软件(云版)
 UnitOutputDir=D:\Work\DelphiTemp
 UnitOutputDir=D:\Work\DelphiTemp
 PackageDLLOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
 PackageDCPOutputDir=
@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MajorVer=3
 MinorVer=1
 MinorVer=1
 Release=3
 Release=3
-Build=1085
+Build=1086
 Debug=0
 Debug=0
 PreRelease=0
 PreRelease=0
 Special=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1085
+FileVersion=3.1.3.1086
 InternalName=
 InternalName=
 LegalCopyright=
 LegalCopyright=
 LegalTrademarks=
 LegalTrademarks=
@@ -144,5 +144,6 @@ Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 Count=1
 Count=1
 Item0=D:\Work\DelphiTemp
 Item0=D:\Work\DelphiTemp
 [HistoryLists\hlOutputDirectorry]
 [HistoryLists\hlOutputDirectorry]
-Count=1
-Item0=C:\Program Files (x86)\纵横软件\计量支付 (单机版+云版) 1
+Count=2
+Item0=C:\Program Files (x86)\纵横软件\纵横结算决算计量一体化软件(云版)
+Item1=C:\Program Files (x86)\纵横软件\计量支付 (单机版+云版) 1

二進制
Dprs/CSL/Measure_Cloud.res


+ 4 - 4
Frames/ProjectManagerFme.pas

@@ -1759,6 +1759,8 @@ procedure TProjectManagerFrame.OnLineChecker(AAr: TOVArr; var ABegin,
 var i, j: Integer;
 var i, j: Integer;
   vCS: TCheckStatus;
   vCS: TCheckStatus;
 begin
 begin
+  i := 0;
+  j := 0;
   ABegin := 0;
   ABegin := 0;
   AEnd := 0;
   AEnd := 0;
   AOnLineEndIsOwner := AAr[High(AAr), 7] = '1';       // 接口返回的第7列是线上审批标记
   AOnLineEndIsOwner := AAr[High(AAr), 7] = '1';       // 接口返回的第7列是线上审批标记
@@ -1789,15 +1791,13 @@ begin
   end;
   end;
 
 
   if AEnd = 0 then Exit;
   if AEnd = 0 then Exit;
-
-  i := i - 1;
-  if i < 0 then
+  if AEnd = 1 then
   begin
   begin
     ABegin := 1;
     ABegin := 1;
     Exit;
     Exit;
   end;
   end;
 
 
-
+  i := i - 1;
   for j := i downto 0 do
   for j := i downto 0 do
   begin
   begin
     if AAr[j, 7] = '0' then
     if AAr[j, 7] = '0' then