GENERATE KOD PLU — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Полный текст функции) |
||
| Строка 36: | Строка 36: | ||
finally | finally | ||
CloseKlsf( r08 ) | CloseKlsf( r08 ) | ||
| − | HideMsg( msg ) | + | [[HideMsg]]( msg ) |
end | end | ||
endif | endif | ||
Версия 08:07, 2 сентября 2016
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
