GROSNALOG

GROSNALOG - это программа из справочника R266

Возвращает номер группы ОС в зависимости от срока полезного использования

Текст

Parameters InvN
local MnAmnt, old

MnAmnt := SeekRef( 'R143', InvN, 'BestBefore', 1, 1 )

old := SeekRef( 'R143', invn, 'OLD_BEFORE', 1 )
if !Empty( old )
 mnamnt := old
endif

result := SeekRef( 'R143', InvN, 'Group_SR', 1, 0 )
if result = 0
  if MnAmnt <= 24
    result := 1
  elseif MnAmnt <= 36
    result := 2
  elseif MnAmnt <= 60
    result := 3
  elseif MnAmnt <= 84
    result := 4
  elseif MnAmnt <= 120
    result := 5
  elseif MnAmnt <= 180
    result := 6
  elseif MnAmnt <= 240
    result := 7
  elseif MnAmnt <= 300
    result := 8
  elseif MnAmnt <= 360
    result := 9
  else
    result := 10
  endif
endif

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

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

Функции Delphi