Bug #1544 内存表30，无明细数据

DataModules/ReportMemoryDm/rmGclBillsBGDm.pas

@@ -461,7 +461,7 @@ var
 begin
   PhaseData := TPhaseData.Create(FProjectData);
   try
-    PhaseData.SimpleOpen(Format('%s\Phase%d.dat', [FProjectData.TempPath, APhaseIndex]));
+    PhaseData.SimpleOpen2(Format('%s\Phase%d.dat', [FProjectData.TempPath, APhaseIndex]));
     cdsBills.Append;
     cdsBillsName.AsString := Format('µÚ %d ÆÚ', [APhaseIndex]);
     cdsBillsSerialNo.AsInteger := APhaseIndex;