Странность в работе ТП под MSSQL

[m0p3e]

В примере проще некуда
Т.е. точная копия katorg-а.

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

cmInit :
{
  Delete All MyKatorg;
  _loop Katorg
    Insert current MyKatorg set MyKatorg.name := Katorg.name
                               ,MyKatorg.Nrec := Katorg.nrec;
}

[san]

должно работать по идее,хотя так вроде будет красивее
cminit:{
mtretrieve(#myKatorg,mfClear);
Insert into MyKatorg (name, nrec) Select name,nrec From katorg;
}
и в структуре атрибуты к индексу MyKatorg0:
Тable struct MyKatorg
(
nrec : comp
,name : string [ 80 ]
)
with index
(
MyKatorg0 = nrec ( Surrogate, Unique )
,MyKatorg1 = name
);