Запись в мемо поле

[Тамара]

Помогите, пожалуйста, разобраться, почему не работает интерфейс на запись в мемо поле:

Interface UpdMemoKat AlwaysReturn;
var
c1:comp;
s1:string;
parameters c1,s1;
view AS select allmemo.*
WHERE ((3000==allmemo.wtable and c1==allmemo.crec and 0==allmemo.tip));

File docmemo;

HandleEvent
cmInit:
{
Docmemo.OpenMemo(allmemo.mem);
DocMemo.seek(0);
DocMemo.WriteLn(s1);
DocMemo.Close();
Abort;
}
End;
End.

Этот же интерфейс на чтение из мемо поля работает.

[san]

if getfirst allmemo<>tsOK
{
clearbuffer(#allmemo);
allmemo.wtable := 3000 ;
allmemo. crec := c1;
ClearMemoField(allmemo.mem);
insert current allmemo;
}
Docmemo.OpenMemo(allmemo.mem);
DocMemo.seek(0);
DocMemo.WriteLn(s1);
DocMemo.Close();
update current allmemo;

[Тамара]

Спасибо!

[ecasoft]

Можно упростить немного.. пару операторов лишние тут

clearbuffer(#allmemo);
allmemo.wtable := 3000 ;
allmemo. crec := c1;
и
просто

clearbuffer(#allmemo); - при данной подцепки одно и тоже




, т.к.
функция Clear.. заполняет буфер записи таким образом, чтобы он подходил под текущую подцепку и следовательно все поля , которые связаны (стоят слева) заполняются соответсвующими значениями автоматичеки.