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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «Generate_Kod_Plu - это процедура из справочника R266 Генерировать код PLU = Полный текст функции =…»)
 
м
 
(не показано 6 промежуточных версий этого же участника)
Строка 1: Строка 1:
Generate_Kod_Plu - это процедура из справочника [[R266]]
+
[[GENERATE_KOD_PLU]] - это процедура из справочника [[R266]]
 +
Генерировать код PLU
 +
= Смотрите также =
 +
[[Полезные функции]]
  
Генерировать код PLU
+
[[Функции Delphi]]
 
+
= Полный текст функции =
+
 
+
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
+

Текущая версия на 09:37, 23 марта 2020

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

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

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

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

Функции Delphi