Re: вставка новой записи в таблицу attrval из формы
Добавлено: 07 окт 2015, 10:58
Да все там должно работать и с объектной вставкой и с прямой. Попробовал простенький код под 8 галактику(применительно к своим данным) все без проблем работает(и с getnextnrec-ом и 0-ликом) :
Можно еще позырить что там генерит getnextnrec;
Код: Выделить всё
.form insert_any_fcom
.ard
.var
nrec_attrInitAFD,nrec_lstab : comp;
.endvar
.create view tvav as select * from attrval;
.begin
nrec_attrInitAFD:=comp(281474976712301);
nrec_lstab:=comp(281474976712111);
Tvav.Clearbuffer(Tvav.tnattrval);
Tvav.attrval.nrec:=0;//getnextnrec(Tvav.tnattrval,0);
Tvav.attrval.wtable:=1418;
Tvav.attrval.crec:=nrec_lstab;
Tvav.attrval.cattrnam:=nrec_attrInitAFD;
Tvav.attrval.vstring:='one';
Tvav.Insert current attrval;
nrec_lstab:=comp(281474976712112);
Tvav.Clearbuffer(Tvav.tnattrval);
Tvav.attrval.nrec:=0;//getnextnrec(Tvav.tnattrval,0);
Tvav.attrval.wtable:=1418;
Tvav.attrval.crec:=nrec_lstab;
Tvav.attrval.cattrnam:=nrec_attrInitAFD;
Tvav.attrval.vstring:='two';
Tvav.Insert current attrval;
end.
.endform
Код: Выделить всё
var next_nrec : comp;
...
.begin
.. next_nrec :=getnextnrec(Tvav.tnattrval,0)
// ну и смотрим что в next_nrec через лог или меssage
...