if DataSetBroker1.DataSet.RecordCount>0 then
begin
DataSetBroker1.DataSet.First;
while not DataSetBroker1.DataSet.Eof do
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('PEJX_FB').AsInteger := 1;
DataSetBroker1.DataSet.Post;
DataSetBroker1.DataSet.Next;
end;
DataSetBroker1.DataSet.ApplyUpdates;
end;