вставка новой записи в таблицу attrval из формы

[Den]

Да все там должно работать и с объектной вставкой и с прямой. Попробовал простенький код под 8 галактику(применительно к своим данным) все без проблем работает(и с getnextnrec-ом и 0-ликом) :

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

.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

Можно еще позырить что там генерит getnextnrec;

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

var next_nrec : comp;
...
.begin
.. next_nrec :=getnextnrec(Tvav.tnattrval,0)
// ну и смотрим что в next_nrec через лог или меssage
...

[Алексей]

Если есть объект - лучше использовать его, т.к. если разработчики в будущем что-то поменяют, не нужно будет лопатить отчеты, т.к. объект подхватит все изменения.