LOB2 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (CTRL+F6)
м (Содержимое страницы заменено на «LOB2 - это второй уровень документа LOB = Смотрите также = LOB»)
 
(не показаны 4 промежуточные версии этого же участника)
Строка 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]]

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

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

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

LOB