CHECKVALIDR264 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 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
