Просмотр исходного текста страницы ACTIVE REC

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]]

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