Цитата:
Сообщение от
yes
PurchHeader.SETFILTER(PurchHeader.Posted,'ДА');
PurchHeader.FINDFIRST;
REPEAT
PurchHeader.DELETE(TRUE);
COMMIT;
UNTIL PurchHeader.NEXT = 0;
И почему используется для REPEAT-UNTIL-цикла FINDFIRSТ вместо FINDSET?
Оптимальнее было бы:
IF NOT PurchHeader.ISEMPTY THEN BEGIN
PurchHeader.FINDSET;
REPEAT
// CODE...
UNTIL PurchHeader.NEXT = 0;
END;
Судя по PurchHeader.SETFILTER то Posted - это текстовое поле а не BOOLEAN?