Текущая версия на 16:31, 9 января 2020

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

Проверка допустимости заданной рецептуры для заданного изделия

CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )

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

@@ Строка 2: / Строка 2: @@
   Проверка допустимости заданной рецептуры для заданного изделия
 [[CHECKVALIDR264]]( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
-= Текст =
- Parameters  search_val, search_num, search_date
- if ![[Empty]]( search_num )
-   if  Config='MEAT'
-     [[R264]]->([[OrdSetFocus]](2))
-     result:=R264->(DBSeek(str(search_val,5,0)+str(search_num,5,0)+DToS(search_date),.t.))
-     if  !result
-       if  !R264->(eof());  R264->(DBSkip(-1));  endif
-       result:=R264->(KODPROD=search_val .and. VAR_NUM=search_num .and. DATE_FROM<search_date)
-     endif
-   else
-     result:=!(GetPrm('OnlyR264') .and. !Empty(search_num) .and.;
-             SeekRef('R264', str(search_val,5,0)+str(search_num,5,0), 'INUSE', 2, ' ')!='+')
-   endif
- else
-   result := false
- endif
- if  !result
-   Message({'Запрет на использование рецептуры '+a_s(search_num),;
-            'для изделия '+AnyReflName('R11',search_val,.t.)})
- endif
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]