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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «CHECKVALIDR264 - это программа из справочника R266 CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - т…»)
 
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
CHECKVALIDR264 - это программа из справочника [[R266]]
+
[[CHECKVALIDR264]] - это программа из справочника [[R266]]
 +
Проверка допустимости заданной рецептуры для заданного изделия
 +
[[CHECKVALIDR264]]( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
 +
= Смотрите также =
 +
[[Полезные функции]]
  
CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
+
[[Функции Delphi]]
 
+
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
+

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

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

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

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

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

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

Функции Delphi