|
|
| Строка 1: |
Строка 1: |
| | [[LOB2]] - это второй уровень документа [[LOB]] | | [[LOB2]] - это второй уровень документа [[LOB]] |
| − |
| |
| − | = LOB20001 =
| |
| − |
| |
| − | == CTRL+F6 ==
| |
| − |
| |
| − | изBLOB
| |
| − |
| |
| − | if ![[YesNo]]( "Вы хотите добавить информацию из файла 1SBLOB.DBF ?", false )
| |
| − | return
| |
| − | endif
| |
| − | local fld, _, sql, msg, aa
| |
| − | fld := ' _1,C,9; _2,N,5; _3,C,80; _4,C,80; '
| |
| − | try
| |
| − | _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
| |
| − | [[WaitMsg]]( 'Обработка', msg )
| |
| − | sql := [ Select TOP 2 OBJID, BLOCKNO, BLOCK From "1SBLOB.DBF" Where FIELDID = ' 2N' ]
| |
| − | [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1, _2, _3 ) ] + sql, ReflisPath )
| |
| − | ( _ )->( [[DbGoTop]]() )
| |
| − | while !( _ )->( [[eof]]() )
| |
| − | ( _ )->_4 := [[ANSITOOEM]]( ( _ )->_3 )
| |
| − | ( _ )->( [[DbSkip]]() )
| |
| − | end
| |
| − | fld := { 'CATTR1', 'KANAL1', 'BLOCK' }
| |
| − | sql := [ Select _1 CATTR1, _2 KANAL1, _4 BLOCK From ] + TmpFilePath( _ )
| |
| − | aa := [[SqlToArr]]( sql, fld )
| |
| − | finally
| |
| − | [[CloseTable]]( _ )
| |
| − | [[HideMsg]]( msg )
| |
| − | end
| |
| − |
| |
| − | if ![[IsEmpty]]( aa )
| |
| − | [[AddAll]]( 'LOB', '2', DOCS1->RGNUM,, fld, aa )
| |
| − | endif
| |
| − |
| |
| − | // _0
| |
| − | // _1 OBJID
| |
| − | // _2 BLOCKNO
| |
| − | // _3 BLOCK
| |
| − | // _4 BLOCK_2
| |
| − | // _5
| |
| − | // _6
| |
| − | // _7
| |
| − | // _8
| |
| − | // _9
| |
| | = Смотрите также = | | = Смотрите также = |
| | [[LOB]] | | [[LOB]] |
