GENERATE KOD PLU — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 4: | Строка 4: | ||
local sql, aa | 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 | return | ||
endif | endif | ||
| Строка 13: | Строка 13: | ||
local r08, i, msg | local r08, i, msg | ||
| − | sql := [ Select MAX( KOD_PLU ) From R08 ] | + | sql := [ Select [[MAX]]( KOD_PLU ) From [[R08]] ] |
aa := SqlToArr( sql,, ReflisPath ) | aa := SqlToArr( sql,, ReflisPath ) | ||
Версия 09:12, 10 мая 2017
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
