Версия 13:06, 31 июля 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

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

LOB