LOB2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→CTRL+F6) |
Hisava (обсуждение | вклад) м (→CTRL+F6) |
||
| Строка 24: | Строка 24: | ||
fld := { 'CATTR1', 'KANAL1', 'BLOCK' } | fld := { 'CATTR1', 'KANAL1', 'BLOCK' } | ||
sql := [ Select _1 CATTR1, _2 KANAL1, _4 BLOCK From ] + TmpFilePath( _ ) | sql := [ Select _1 CATTR1, _2 KANAL1, _4 BLOCK From ] + TmpFilePath( _ ) | ||
| − | aa := SqlToArr( sql, fld ) | + | aa := [[SqlToArr]]( sql, fld ) |
finally | finally | ||
| − | CloseTable( _ ) | + | [[CloseTable]]( _ ) |
| − | HideMsg( msg ) | + | [[HideMsg]]( msg ) |
end | end | ||
| − | if !IsEmpty( aa ) | + | if ![[IsEmpty]]( aa ) |
| − | AddAll( 'LOB', '2', DOCS1->RGNUM,, fld, aa ) | + | [[AddAll]]( 'LOB', '2', DOCS1->RGNUM,, fld, aa ) |
endif | endif | ||
Версия 10:00, 20 марта 2017
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
