GENERATE KOD PLU — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
Строка 37: Строка 37:
 
   end
 
   end
 
  endif
 
  endif
 
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
[[Полезные функции]]
+
[[Функции Delphi]]

Версия 08:18, 4 сентября 2017

GENERATE_KOD_PLU - это процедура из справочника R266

Генерировать код PLU

Текст

local sql, aa
 sql := [ Select KOD From R08 Where KODED = 1 and KOD_PLU = 0 ]
aa := SqlToArr( sql, { 'KOD' }, ReflisPath )

if !YesNo( 'Присвоить код PLU новым товарам? ( количество товаров: ' + len( aa ) + ' )', false )
  return
endif

local r08, i, msg

sql := [ Select MAX( KOD_PLU ) From R08 ]
aa := SqlToArr( sql,, ReflisPath )

if !IsEmpty( aa )
  i := aa
  try
    msg := WaitMsg( 'Выполнение требуемой операции' )
     r08 := OpenKlsf( 'R08' )
    Select( r08 )
    DbGoTop()
    while !eof()
      if Empty( KOD_PLU )
        if KODED = 1
          i := i + 1
          ( r08 )->KOD_PLU := i
        endif
      endif
      DbSkip()
    end
  finally
    CloseKlsf( r08 )
    HideMsg( msg )
  end
endif

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

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

Функции Delphi