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

Версия 15:37, 5 февраля 2015

// пример кода написан для того, чтобы не искать его в фабиусе

// задача - для модернизации основного средства необходимо выбрать его из оборотной ведомости

local fld, _, sql, sr, tbl, keys, blk

fld := ' _1,C,12; _2,N,5; _3,C,40; _4,N,14,4; _5,N,14,4; '

try

 _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
 sql := [ Select BKACNT, KOD, EAMNT, EDSUM ;
   From MTUN] + Ret_f_ext() + [ ;
   Where Left( BKACNT, 2 ) = '01' and REFL = 'R143' and KOD > 0 and EAMNT > 0 ]
 SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4, _5 ) ] + sql, OpdataPath )

 // r143
 sql := [ Update _ ;
   Set _3 = Left( PNAME, 40 ) ;
   From ] + TmpFilePath( _ ) + [ _ ;
     left outer join R143 ON _2 = KOD ]
 SimpleSql( sql, ReflisPath )

 ( _ )->( DbGoTop() )

 tbl := { ;
   { 'Title', 'Выберите основное средство' }, { 'ShowType', 2 }, { 'ResultExpr', "GrpRecord( '_2' )" } ;
 }

 fld := { ;
   { { 'FldName', '_1' }, { 'FldTitl', 'Счет' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_2' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_3' }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_4' }, { 'FldTitl', 'Количество' }, { 'PreBlk', false } }, ;
   { { 'Fldname', '_5' }, { 'FldTitl', 'Сумма' }, { 'PreBlk', false } } ;
 }

 blk := 'CloseForm( GetForm(), false ), SetProperty( "ModalResult", 1, GetForm() ) '

 keys := { { { 'KeyName', 'F6' } }, ;
   { { 'KeyName', 'Enter' }, { 'Text', 'Нажатие на кнопку ENTER' }, { 'BLK', blk } } }

 sr := MyGrid( _, tbl, fld, keys, ~Modal := true )

finally

 CloseTable( _ )

end

// _1 - счет

// _2 - основное средство, код

// _3 - основное средство, наименование

// _4 - количество

// _5 - сумма

// нужно показать таблицу

// Счет учета

// Основное средство

// Количество

// Сумма