|
@@ -634,13 +634,13 @@ end;
|
|
|
procedure TBillsMeasureData.ExpandXmjNode;
|
|
|
var
|
|
|
iIndex: Integer;
|
|
|
- stnNode: TsdIDTreeNode;
|
|
|
+ stnNode: TBillsIDTreeNode;
|
|
|
begin
|
|
|
for iIndex := 0 to BillsMeasureTree.Count - 1 do
|
|
|
begin
|
|
|
stnNode := BillsMeasureTree.Items[iIndex];
|
|
|
if (stnNode.ParentID <> -1) then
|
|
|
- stnNode.Parent.Expanded := stnNode.Rec.ValueByName('B_Code').AsString = '';
|
|
|
+ stnNode.Parent.Expanded := stnNode.Rec.B_Code.AsString = '';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
@@ -778,7 +778,7 @@ procedure TBillsMeasureData.ExpandCurPhase;
|
|
|
var
|
|
|
iIndex: Integer;
|
|
|
stnNode: TsdIDTreeNode;
|
|
|
- StageRec: TsdDataRecord;
|
|
|
+ StageRec: TStageRecord;
|
|
|
begin
|
|
|
for iIndex := 0 to BillsMeasureTree.Count - 1 do
|
|
|
begin
|
|
@@ -786,7 +786,7 @@ begin
|
|
|
StageRec := TBillsIDTreeNode(stnNode).StageRec;
|
|
|
if (stnNode.ParentID <> -1) then
|
|
|
if Assigned(StageRec) then
|
|
|
- stnNode.Expanded := StageRec.ValueByName('GatherTotalPrice').AsFloat <> 0
|
|
|
+ stnNode.Expanded := StageRec.GatherTotalPrice.AsFloat <> 0
|
|
|
else
|
|
|
stnNode.Expanded := False;
|
|
|
end;
|