TASK #1459 完善“导入算量软件0号台账接口数据”，导入图号数据至“图（册）号”列。

Units/DbTreeImport.pas

@@ -74,6 +74,7 @@ begin
     Result.OrgQuantity := ADbNode.Rec.ValueByName('Quantity').AsFloat;
     Result.DgnQuantity1 := ADbNode.Rec.ValueByName('DesignQuantity').AsFloat;
     Result.DgnQuantity2 := ADbNode.Rec.ValueByName('DesignQuantity2').AsFloat;
+    Result.DrawingCode := ADbNode.Rec.ValueByName('DrawingCode').AsString;
 
     for iChild := 0 to ADbNode.ChildCount - 1 do
       AddDbNode(ADbNode.ChildNodes[iChild], Result, nil);
@@ -222,6 +223,7 @@ begin
       Rec.OrgQuantity.AsFloat := vNode.OrgQuantity;
       Rec.DgnQuantity1.AsFloat := vNode.DgnQuantity1;
       Rec.DgnQuantity2.AsFloat := vNode.DgnQuantity2;
+      Rec.DrawingCode.AsString := vNode.DrawingCode;
     end;
   finally
     FProjectData.BillsData.sddBills.EndUpdate;