GENERATE KOD 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

Смотрите также

Полезные функции

Функции Delphi