GENERATE KOD PLU — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 14: | Строка 14: | ||
sql := [ Select [[MAX]]( KOD_PLU ) From [[R08]] ] | sql := [ Select [[MAX]]( KOD_PLU ) From [[R08]] ] | ||
| − | aa := SqlToArr( sql,, ReflisPath ) | + | aa := [[SqlToArr]]( sql,, ReflisPath ) |
| − | if !IsEmpty( aa ) | + | if ![[IsEmpty]]( aa ) |
i := aa | i := aa | ||
try | 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 | if KODED = 1 | ||
i := i + 1 | i := i + 1 | ||
| Строка 30: | Строка 30: | ||
endif | endif | ||
endif | endif | ||
| − | DbSkip() | + | [[DbSkip]]() |
end | end | ||
finally | finally | ||
| − | CloseKlsf( r08 ) | + | [[CloseKlsf]]( r08 ) |
[[HideMsg]]( msg ) | [[HideMsg]]( msg ) | ||
end | end | ||
Версия 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
