GENERATE KOD PLU2 2
Материал из Фабиус wiki
Версия от 11:58, 29 марта 2018; Hisava (обсуждение | вклад) (Новая страница: «GENERATE_KOD_PLU2_2 - это программа из справочника R266 PLU > 4000 GENERATE_KOD_PLU2_2() = Текст = local r08, r08_1, a…»)
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
