ACTIVE REC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Пример) |
||
| Строка 10: | Строка 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 | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:22, 20 января 2017
ACTIVE_REC - это программа из справочника R266
ACTIVE_REC( KodProd )
Возвращает номер действующей рецептуры ( R264->Active_Rec = '+' )
Пример
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
