Ver código fonte

线上报表分类取值不正确。最新报表更新说明缺失问题。

Chenshilong 8 anos atrás
pai
commit
495669067f

+ 6 - 2
DataModules/ReportManagerDM.pas

@@ -253,7 +253,7 @@ begin
         vReport := TReport.Create;
         vReport.Owner := Self;
         vReport.ID := StrToInt(vSL.Values['报表ID']);
-        vReport.Category := vSL.Values['分类名称'];
+//        vReport.Category := vSL.Values['分类名称'];   // 分类不取本地文件,取线上的。
         vReport.FileName := SRec.Name;
         vReport.LocalVer := vSL.Values['版本'];
         FList.Add(vReport);
@@ -289,8 +289,12 @@ begin
             iID := StrToInt(VersArr[i, 0]);
             vReport := FindReprot(iID);
             if vReport <> nil then
+            begin
               vReport.NewestVer := VersArr[i, 1];
-            ChangeRec(cdsLocal, vReport, ctAdd);
+              vReport.NewestMemo := ReplaceChars(VersArr[i, 3]);
+              vReport.Category := VersArr[i, 2];
+              ChangeRec(cdsLocal, vReport, ctAdd);
+            end;
           end;
         end
         else

+ 2 - 2
Dprs/CSL/Measure_Cloud.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1139
+Build=1141
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1139
+FileVersion=3.1.3.1141
 InternalName=
 LegalCopyright=
 LegalTrademarks=

BIN
Dprs/CSL/Measure_Cloud.res