TAKE REFLIS SQL2 R09 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «TAKE_REFLIS_SQL2_R09 - это программа из справочника R266 Прием справочников SQL2 R09 = Смотрите так…») |
Hisava (обсуждение | вклад) м |
||
| (не показана одна промежуточная версия этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[TAKE_REFLIS_SQL2_R09]] - это программа из справочника [[R266]] | [[TAKE_REFLIS_SQL2_R09]] - это программа из справочника [[R266]] | ||
| − | Прием справочников SQL2 R09 | + | Прием справочников SQL2 [[R09]] |
| + | = Текст = | ||
| + | local sql, r09, fld, conn, path, t, _ | ||
| + | sql := [ DELETE FROM [[R09]] WHERE 'SYSTEM.' = 'SYSTEM.' ] | ||
| + | [[SimpleSql]]( sql, ReflisPath ) | ||
| + | try | ||
| + | r09 := [[OPENKLSF]]( 'R09',, true ) | ||
| + | finally | ||
| + | [[CLOSEKLSF]]( r09 ) | ||
| + | end | ||
| + | fld := ' _1,N,3; _2,C,10; _3,C,3; ' | ||
| + | try | ||
| + | _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true ) | ||
| + | path := [[GetPrm]]( 'SHP_PATH', '[[SHOPOPER]]' ) | ||
| + | conn := [[CreateConnection]]( path, 'admuser', "ora=1" ) | ||
| + | sql := [ Select KOD, PNAME, KOD_OKEI From [[R09]] ] | ||
| + | t := [[SelectSql]]( sql, conn ) | ||
| + | ( t )->( [[DbGoTop]]() ) | ||
| + | while !( t )->( eof() ) | ||
| + | ( _ )->( [[DbAppend]]() ) | ||
| + | ( _ )->_1 := ( t )->KOD | ||
| + | ( _ )->_2 := ( t )->PNAME | ||
| + | ( _ )->_3 := ( t )->KOD_OKEI | ||
| + | ( t )->( [[DbSkip]]() ) | ||
| + | end | ||
| + | sql := [ Select _1, _2, _3 From ] + [[TmpFilePath]]( _ ) | ||
| + | [[SimpleSql]]( [ Insert into [[R09]]( KOD, PNAME, KOD_OKEI ) ] + sql, ReflisPath ) | ||
| + | finally | ||
| + | [[FreeAndNil]]( conn ) | ||
| + | [[CloseTable]]( _ ) | ||
| + | [[CloseTable]]( t ) | ||
| + | end | ||
| + | // _1 KOD | ||
| + | // _2 PNAME | ||
| + | // _3 KOD_OKEI | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Текущая версия на 10:38, 11 сентября 2018
TAKE_REFLIS_SQL2_R09 - это программа из справочника R266
Прием справочников SQL2 R09
Текст
local sql, r09, fld, conn, path, t, _ sql := [ DELETE FROM R09 WHERE 'SYSTEM.' = 'SYSTEM.' ] SimpleSql( sql, ReflisPath ) try r09 := OPENKLSF( 'R09',, true ) finally CLOSEKLSF( r09 ) end fld := ' _1,N,3; _2,C,10; _3,C,3; ' try _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) path := GetPrm( 'SHP_PATH', 'SHOPOPER' ) conn := CreateConnection( path, 'admuser', "ora=1" ) sql := [ Select KOD, PNAME, KOD_OKEI From R09 ] t := SelectSql( sql, conn ) ( t )->( DbGoTop() ) while !( t )->( eof() ) ( _ )->( DbAppend() ) ( _ )->_1 := ( t )->KOD ( _ )->_2 := ( t )->PNAME ( _ )->_3 := ( t )->KOD_OKEI ( t )->( DbSkip() ) end sql := [ Select _1, _2, _3 From ] + TmpFilePath( _ ) SimpleSql( [ Insert into R09( KOD, PNAME, KOD_OKEI ) ] + sql, ReflisPath ) finally FreeAndNil( conn ) CloseTable( _ ) CloseTable( t ) end // _1 KOD // _2 PNAME // _3 KOD_OKEI
