导入0号台账文件，新项目不报错（对不同的新项目数据可能不对）

DataModules/DealBillsDm.pas

@@ -101,7 +101,24 @@ begin
 end;
 
 procedure TDealBillsData.Save;
+
+  procedure CheckIndexCode;
+  var
+    i: Integer;
+    Rec: TsdDataRecord;
+    sIndexCode: string;
+  begin
+    for i := 0 to sddDealBills.RecordCount - 1 do
+    begin
+      Rec := sddDealBills.Records[i];
+      sIndexCode := B_CodeToIndexCode(Rec.ValueByName('B_Code').AsString);
+      if sIndexCode <> Rec.ValueByName('IndexCode').AsString then
+        Rec.ValueByName('IndexCode').AsString := sIndexCode;
+    end;
+  end;
+
 begin
+  CheckIndexCode;
   sddDealBills.Save;
 end;
 

Units/ProjectData.pas

@@ -1162,7 +1162,8 @@ procedure TProjectData.ImportCloudTenderFile(const AFileName: string);
                 '    Peg, DrawingCode, MemoStr, HasBookMark, MarkMemo'+
                 '  From Bills In ''%s''';
 
-    sDealBillsSql = 'Insert Into DealBills Select * From DealBills In ''%s''';
+    sDealBillsSql = 'Insert Into DealBills Select ID, B_Code, Name, Units, Price, Quantity, TotalPrice'+
+                    '  From DealBills In ''%s''';
 
     sDealPaymentSql = 'Insert Into DealPayment (ID, Name, CalcType, IsMinus,'+
                       '    Formula, StartedPrice, SFormula, RangePrice, RFormula)'+