добавление записи со стартовым значением в поле

[лорд преисподней]

у меня есть таблица в ней есть поле признак прихода или расхода я спомощью фильтра отфильтровываю показывать только приход или только расход мне надо чтобы после того как я отфильтровал например по приходу при добавлении записи в поле где признак прихода или расхода добовлялась значение автоматически указывающее что это приход в данном примере у меня это буква "п" или если я фильтрую по расходу добавлялась "р".

[maLoy*508]

можно вытянуть этот признак из фильтра...
т.е. перед занесением записи в таблицу, проверь что в фильтре, и соответственно этому ставим признак который нужен.

[лорд преисподней]

а как это можно прописать на языке FoxPro я понемаю так "Если фильтр =такомуто то вставить это, иначе другое" а вот как это прописать непредстовляю в Delphi понемаю а на FoxPro незнаю

[лорд преисподней]

я написал так:
код

PUBLIC s as Character
APPEND BLANK 
s=thisform.grid1.column6.text1.Value
IF s="п" then
thisform.grid1.column6.text1.Value="п"
ELSE
thisform.grid1.column6.text1.Value="р"
ENDIF 
thisform.Refresh

но мне приходиться указывать запись со значением которое должно вставиться в добавленое поле и при фильтрации последнее добавленое поле показываеться не в том фильтре что надо