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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 12: Строка 12:
 
   
 
   
 
   if  Config='MEAT'
 
   if  Config='MEAT'
     R264->(OrdSetFocus(2))
+
     [[R264]]->([[OrdSetFocus]](2))
 
     result:=R264->(DBSeek(str(search_val,5,0)+str(search_num,5,0)+DToS(search_date),.t.))
 
     result:=R264->(DBSeek(str(search_val,5,0)+str(search_num,5,0)+DToS(search_date),.t.))
 
     if  !result
 
     if  !result

Версия 12:27, 28 декабря 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

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

Функции Delphi

Полезные функции