GENERATE KOD PLU - История изменений

Hisava в 06:37, 23 марта 2020

2020-03-23T06:37:08Z

Hisava в 05:18, 4 сентября 2017

2017-09-04T05:18:32Z

Hisava: /* Текст */

2017-05-10T06:12:56Z

‎Текст

Hisava: /* Текст */

2017-05-10T06:12:19Z

‎Текст

Hisava в 06:11, 10 мая 2017

2017-05-10T06:11:54Z

Hisava: /* Полный текст функции */

2016-09-02T05:07:42Z

‎Полный текст функции

Hisava в 09:26, 1 августа 2016

2016-08-01T09:26:53Z

Hisava: Новая страница: «Generate_Kod_Plu - это процедура из справочника R266 Генерировать код PLU = Полный текст функции =…»

2016-04-18T05:25:58Z

Новая страница: «Generate_Kod_Plu - это процедура из справочника R266 Генерировать код PLU = Полный текст функции =…»

Новая страница

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

@@ Строка 1: / Строка 1: @@
 [[GENERATE_KOD_PLU]] - это процедура из справочника [[R266]]
   Генерировать код PLU
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 37: / Строка 37: @@
     end
   endif
 = Смотрите также =
-[[Полезные функции]]
+[[Функции Delphi]]

@@ Строка 14: / Строка 14: @@
   sql := [ Select [[MAX]]( KOD_PLU ) From [[R08]] ]
-  aa := SqlToArr( sql,, ReflisPath )
+  aa := [[SqlToArr]]( sql,, ReflisPath )
-  if !IsEmpty( aa )
+  if ![[IsEmpty]]( aa )
     i := aa
     try
-      msg := WaitMsg( 'Выполнение требуемой операции' )
+      msg := [[WaitMsg]]( 'Выполнение требуемой операции' )
-       r08 := OpenKlsf( 'R08' )
+       r08 := [[OpenKlsf]]( '[[R08]]' )
-      Select( r08 )
+      [[Select]]( r08 )
-      DbGoTop()
+      [[DbGoTop]]()
-      while !eof()
+      while ![[eof]]()
-        if Empty( KOD_PLU )
+        if [[Empty]]( KOD_PLU )
           if KODED = 1
             i := i + 1
@@ Строка 30: / Строка 30: @@
           endif
         endif
-        DbSkip()
+        [[DbSkip]]()
       end
     finally
-      CloseKlsf( r08 )
+      [[CloseKlsf]]( r08 )
       [[HideMsg]]( msg )
     end

← Предыдущая		Версия 09:26, 1 августа 2016
Строка 39:		Строка 39:
	end		end
	endif		endif
		+
		+	= Смотрите также =
		+
		+	[[Полезные функции]]

@@ Строка 4: / Строка 4: @@
   local sql, aa
-   sql := [ Select KOD From R08 Where KODED = 1 and KOD_PLU = 0 ]
+   sql := [ Select KOD From [[R08]] Where KODED = 1 and KOD_PLU = 0 ]
-  aa := SqlToArr( sql, { 'KOD' }, ReflisPath )
+  aa := [[SqlToArr]]( sql, { 'KOD' }, ReflisPath )
-  if !YesNo( 'Присвоить код PLU новым товарам? ( количество товаров: ' + len( aa ) + ' )', false )
+  if ![[YesNo]]( 'Присвоить код PLU новым товарам? ( количество товаров: ' + [[len]]( aa ) + ' )', false )
     return
   endif
@@ Строка 13: / Строка 13: @@
   local r08, i, msg
-  sql := [ Select MAX( KOD_PLU ) From R08 ]
+  sql := [ Select [[MAX]]( KOD_PLU ) From [[R08]] ]
   aa := SqlToArr( sql,, ReflisPath )