Текущая версия на 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]]