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

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

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

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

@@ Строка 1: / Строка 1: @@
 [[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]]