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

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

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

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

@@ Строка 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