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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 27: Строка 27:
 
   ( r264 )->( [[OrdSetFocus]]( 2 ) )
 
   ( r264 )->( [[OrdSetFocus]]( 2 ) )
 
   if ( r264 )->( [[DBSeek]]( [[str]]( KodProd, 5 ) ) )
 
   if ( r264 )->( [[DBSeek]]( [[str]]( KodProd, 5 ) ) )
     while ( r264 )->KODPROD = KodProd and !( r264 )->( eof() )
+
     while ( r264 )->KODPROD = KodProd and !( r264 )->( [[eof]]() )
 
       if !( r264 )->SHADOW
 
       if !( r264 )->SHADOW
 
         if ( r264 )->ACTIVE_REC = '+'
 
         if ( r264 )->ACTIVE_REC = '+'

Версия 08:23, 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

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