MyGrid

Функция позволяет высветить произвольную таблицу на экране

MyGrid( 1.Таблица, 2.Описание таблицы, 3.Поля таблицы, 4.Клавиши таблицы )

Примеры

Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода

 fld := { ;
   { { 'Fldname', '_1'  }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_2'  }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false }, { 'Picture', '(c|40)' } }, ;
   { { 'Fldname', '_3'  }, { 'FldTitl', 'Количество' }, { 'AfterUpd', 'iif( Ascane( SelRows(), RecNo() ) = 0, DoAKeyF1()), "NOREST"' }, { 'Picture', '!999999999.9' } }, ;
   { { 'Fldname', '_5'  }, { 'FldTitl', 'ед.изм.' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_6'  }, { 'FldTitl', 'Цена' }, { 'PreBlk', false }, { 'Picture', '!9999999.99' } }, ;
   { { 'Fldname', '_8'  }, { 'FldTitl', 'Поставщик' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_10' }, { 'FldTitl', 'Склад' }, { 'PreBlk', false } } ;
 }
 key := { ;
   { { 'KeyName', 'F6' } }, ;
   { { 'KeyName', 'F7' }, { 'TEXT', 'Заказ' }, { 'BLK', 'CloseForm( GetForm(), false ), SetProperty( "ModalResult", 1, GetForm() )' } }, ;
   { { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ;
 }
 str_res := [ GrpRecord( ' { _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11 } ' ) ]
 tbl := { { 'Title', 'Заявка' }, { 'ShowType', 2 }, { 'ResultExpr', str_res } }
 aa := MyGrid( _, tbl, fld, key, ~Modal := true )