文件夹信息，保留小数位数，应兼容导入导出

Units/ProjectCommands.pas

@@ -828,6 +828,8 @@ begin
   vInfo.Attributes['PhaseCount'] := InfoRec.ValueByName('PhaseCount').AsInteger;
   vInfo.Attributes['AuditStatus'] := InfoRec.ValueByName('AuditStatus').AsInteger;
   vInfo.Attributes['FileName'] := ExtractSimpleFileName(FResultFile);
+  vInfo.Attributes['CommonDigit'] := InfoRec.ValueByName('CommonDigit').AsInteger;
+  vInfo.Attributes['DealPayDigit'] := InfoRec.ValueByName('DealPayDigit').AsInteger;
 
   if G_IsCloud then
   begin
@@ -1099,6 +1101,8 @@ begin
   FNewNode.Rec.ValueByName('PhaseCount').AsInteger := AXmlNode.Attributes['PhaseCount'];
   FNewNode.Rec.ValueByName('AuditStatus').AsInteger := AXmlNode.Attributes['AuditStatus'];
   FNewNode.Rec.ValueByName('CreateDate').AsString := FormatDateTime('yyyy-mm-dd', Date);
+  FNewNode.Rec.ValueByName('CommonDigit').AsInteger := VarToIntDef(AXmlNode.Attributes['CommonDigit'], 0);
+  FNewNode.Rec.ValueByName('DealPayDigit').AsInteger := VarToIntDef(AXmlNode.Attributes['DealPayDigit'], 0);
 
   if G_IsCloud then
   begin