LOB2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→CTRL+F6) |
||
| Строка 6: | Строка 6: | ||
изBLOB | из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]] | ||
Версия 09:58, 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
