ACTIVE REC

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

Возвращает номер действующей рецептуры ( R264->ACTIVE_REC = '+' )

ACTIVE_REC( KodProd )

Пример

ACTIVE_REC( 10 )

Текст

parameters KodProd

result := 0

if Empty( KodProd )
  return
endif

local r264

try
  r264 := OpenKlsf( 'R264' )
  ( r264 )->( OrdSetFocus( 2 ) )
  if ( r264 )->( DBSeek( str( KodProd, 5 ) ) )
    while ( r264 )->KODPROD = KodProd and !( r264 )->( eof() )
      if !( r264 )->SHADOW
        if ( r264 )->ACTIVE_REC = '+'
          result := ( r264 )->VAR_NUM
          exit
        endif
      endif
      ( r264 )->( DbSkip() )
    end
  else
    result := 0
  endif
finally
  CloseKlsf( 'R264' )
end

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

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

Функции Delphi