Версия 09:04, 21 июля 2017

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

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

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