ACTIVE REC — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 40: Строка 40:
 
   endif
 
   endif
 
  finally
 
  finally
   [[CloseKlsf]]( 'R264' )
+
   [[CloseKlsf]]( '[[R264]]' )
 
  end
 
  end
  

Версия 08:26, 20 января 2017

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

ACTIVE_REC( KodProd )

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

Пример

ACTIVE_REC( 10 )

20-01-2017 8-24-32.png

Текст

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

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