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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
(не показано 6 промежуточных версий этого же участника)
Строка 1: Строка 1:
ACTIVE_REC - это программа из справочника [[R266]]
+
[[ACTIVE_REC]] - это программа из справочника [[R266]]
 
+
Возвращает номер действующей рецептуры ( R264->[[ACTIVE_REC]] = '+' )
ACTIVE_REC( KodProd )
+
[[ACTIVE_REC]]( KodProd )
 
+
Возвращает номер действующей рецептуры ( R264->Active_Rec = '+' )
+
 
+
 
= Пример =
 
= Пример =
 
+
  [[ACTIVE_REC]]( 10 )
  ACTIVE_REC( 10 )
+
 
+
 
[[Файл:20-01-2017 8-24-32.png]]
 
[[Файл: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]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

ACTIVE_REC( KodProd )

Пример

ACTIVE_REC( 10 )

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

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

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

Функции Delphi