Удаление записи по условию

[Александр В.]

Имеем С5.5 EE. Всё просто...Нужно через EMBEDS удалить записи в файле, у которых определенное поле равно 0.
Заранее спасибо. Я не программер...

[Apron63]

Удобнее всего создать новую одноразовую процедуру Process, установить Action=Delete Record и фильтр для записей. Так быстрее и проще. Или нужен "чистый" код?

[Admin]

Код: Выделить всё

Access:TPSFiles.ClearKey(TPF:NameKey)
SET(TPF:NameKey, TPF:NameKey)
LOOP
  IF Access:TPSFiles.Next() <> LEVEL:Benign THEN BREAK END
  IF TPSFiles.Flag = 0
    IF Access:TPSFiles.DeleteRecord(FALSE) = LEVEL:Benign
      ! запись удалена
    ELSE
      ! запись не удалена
    END
  END
END

[Igor]

Но знай . Записи в одном файле удалятся но если в словарике(расширение NameApp.dct) есть связи с этим файлом то лучше не спеши .Посмотри может надо делать Relate:TPSFiles.Delete.

[Александр В.]

спасибо. Помогло через Process. Пришлось повозиться, т.к. у пустого (нулевого) поля был ключ уникальный. Принципиально Клара не хотела фильтровать.