|
@@ -291,7 +291,9 @@ begin
|
|
|
with FProjectData.BillsCompileData.BillsCompileTree do
|
|
|
stnNode := FindNode(StageRec.ValueByName('BillsID').AsInteger);
|
|
|
// 非最底层工程量清单不添加数据
|
|
|
- if stnNode.HasChildren or (stnNode.Rec.ValueByName('B_Code').AsString = '') then Continue;
|
|
|
+ if not Assigned(stnNode) or stnNode.HasChildren or
|
|
|
+ (stnNode.Rec.ValueByName('B_Code').AsString = '') then
|
|
|
+ Continue;
|
|
|
GclNode := FindGclNode(stnNode.Rec);
|
|
|
if Assigned(GclNode) then
|
|
|
begin
|