MyGrid — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Примеры) |
Hisava (обсуждение | вклад) м (→Примеры) |
||
| Строка 7: | Строка 7: | ||
[[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]] | [[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]] | ||
| + | str_res := [ GrpRecord( ' { _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11 } ' ) ] | ||
| + | tbl := { { 'Title', 'Заявка' }, { 'ShowType', 2 }, { 'ResultExpr', str_res } } | ||
fld := { ; | fld := { ; | ||
{ { 'Fldname', '_1' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ; | { { 'Fldname', '_1' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ; | ||
| Строка 21: | Строка 23: | ||
{ { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ; | { { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ; | ||
} | } | ||
| − | |||
| − | |||
aa := MyGrid( _, tbl, fld, key, ~Modal := true ) | aa := MyGrid( _, tbl, fld, key, ~Modal := true ) | ||
Версия 10:39, 26 октября 2015
Функция позволяет высветить произвольную таблицу на экране
MyGrid( 1.Таблица, 2.Описание таблицы, 3.Поля таблицы, 4.Клавиши таблицы )
Примеры
str_res := [ GrpRecord( ' { _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11 } ' ) ]
tbl := { { 'Title', 'Заявка' }, { 'ShowType', 2 }, { 'ResultExpr', str_res } }
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 )' } } ;
}
aa := MyGrid( _, tbl, fld, key, ~Modal := true )
