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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «CHECKVALIDR264 - это программа из справочника R266 CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - т…»)
 
м (Текст программы)
Строка 7: Строка 7:
 
= Текст программы =
 
= Текст программы =
  
Parameters  search_val, search_num, search_date
+
Parameters  search_val, search_num, search_date
 
   
 
   
 
  if !Empty( search_num )
 
  if !Empty( search_num )

Версия 08:49, 21 июля 2016

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

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

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

Текст программы

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