Текущая версия на 08:04, 21 октября 2019

LOB2 - это второй уровень документа LOB

Смотрите также

@@ Строка 1: / Строка 1: @@
 [[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]]