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

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

Полезные функции

Функции Delphi