ACTIVE REC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | ACTIVE_REC - это программа из справочника [[R266]] | + | [[ACTIVE_REC]] - это программа из справочника [[R266]] |
| − | + | Возвращает номер действующей рецептуры ( R264->[[ACTIVE_REC]] = '+' ) | |
| − | + | [[ACTIVE_REC]]( KodProd ) | |
| − | + | ||
| − | Возвращает номер действующей рецептуры ( R264-> | + | |
| − | + | ||
= Пример = | = Пример = | ||
| − | + | [[ACTIVE_REC]]( 10 ) | |
| − | ACTIVE_REC( 10 ) | + | |
| − | + | ||
[[Файл:20-01-2017 8-24-32.png]] | [[Файл:20-01-2017 8-24-32.png]] | ||
| − | |||
= Текст = | = Текст = | ||
| − | |||
parameters KodProd | parameters KodProd | ||
| Строка 42: | Строка 35: | ||
[[CloseKlsf]]( '[[R264]]' ) | [[CloseKlsf]]( '[[R264]]' ) | ||
end | end | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 16:45, 21 июля 2017
ACTIVE_REC - это программа из справочника R266
Возвращает номер действующей рецептуры ( R264->ACTIVE_REC = '+' )
ACTIVE_REC( KodProd )
Пример
ACTIVE_REC( 10 )
Текст
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
