GENERATE KOD PLU2 2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «GENERATE_KOD_PLU2_2 - это программа из справочника R266 PLU > 4000 GENERATE_KOD_PLU2_2() = Текст = local r08, r08_1, a…») |
(нет различий)
|
Текущая версия на 11:58, 29 марта 2018
GENERATE_KOD_PLU2_2 - это программа из справочника R266
PLU > 4000
GENERATE_KOD_PLU2_2()
Текст
local r08, r08_1, aa, bb try r08 := OpenKlsf( 'R08', 'r08' ) r08_1 := OpenKlsf( 'R08', 'r08_1' ) ( r08 )->( SetFilter( [ KOD_PLU > 4000 and EXTRAKOD = 0 ] ) ) ( r08_1 )->( SetFilter( [ KOD_PLU < 4000 and EXTRAKOD = 1 and KOD_PLU > 0] ) ) while !( r08 )->( eof() ) aa := ( r08 )->KOD_PLU bb := ( r08_1 )->KOD_PLU ( r08_1 )->KOD_PLU := aa ( r08 )->KOD_PLU := bb ( r08 )->( DbGoTop() ) ( r08_1 )->( DbGoTop() ) end finally CloseTable( r08_1 ) CloseTable( r08 ) end