var
i:integer;
begin
DataSetBroker1.DataSet.open;
DataSetBroker1.DataSet.First;
for i:=0 to DataSetBroker1.DataSet.RecordCount-1 do
begin
DataSetBroker1.DataSet.edit;
DataSetBroker1.DataSet.FieldByName('ZD3').AsString := '1';
DataSetBroker1.DataSet.next;
end;
DataSetBroker1.DataSet.ApplyUpdates;
DecisionBroker1.DataSet.Close;
DecisionBroker1.DataSet.open;
end;