Текущая версия на 11:57, 22 ноября 2019

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

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

ACTIVE_REC( KodProd )

Пример

ACTIVE_REC( 10 )

@@ Строка 5: / Строка 5: @@
   [[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]]