Пример использования локальных таблиц в памяти

Файл FileLocalTbl.vih

table struct local fileLocalTbl "Пример таблицы в памяти"
(
  code : word	 "Код",
  name : string[20] "Наименование"
);

Файл LocalMT1.vip

#include FileLocalTbl.vih

//============================================================
interface localMT1 'Локальные таблица в памяти' cyan;
create view memTbl

as select
  *

from
  fileLocalTbl
;

//------------------------------------------------------------
browse br1;
  show at(,,,15)
  table fileLocalTbl;

fields
  fileLocalTbl.name;
  fileLocalTbl.code;
end;

//------------------------------------------------------------
screen scr1;
  show at(,16)

buttons
  cmRunInt;

<<
			<. RunInt .>
>>
end;

//------------------------------------------------------------
handleEvent
cmRunInt:
  RunInterface(b222);

cmInsertRecord:
  insert current fileLocalTbl;
end;
end.

Файл LocalMT2.vip

#include FileLocalTbl.vih

//============================================================
interface localMT2 'Локальные таблица в памяти (пример 2)';

//------------------------------------------------------------
create view memTbl

as select
  *

from
  fileLocalTbl
;

//------------------------------------------------------------
browse br1;
  show at(,,,15)
  table fileLocalTbl;

fields
  fileLocalTbl.name;
  fileLocalTbl.code;
end;

//------------------------------------------------------------
handleEvent
cmInsertRecord:
   insert current fileLocalTbl;
end;
end.