CHECKVALIDR264 - История изменений

Hisava в 13:31, 9 января 2020

2020-01-09T13:31:36Z

Hisava в 06:04, 21 июля 2017

2017-07-21T06:04:43Z

Hisava: /* Текст программы */

2016-12-28T09:27:42Z

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

Hisava: /* Текст программы */

2016-12-28T09:27:34Z

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

Hisava в 09:27, 28 декабря 2016

2016-12-28T09:27:29Z

Hisava: /* Текст программы */

2016-07-21T05:49:43Z

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

Hisava: Новая страница: «CHECKVALIDR264 - это программа из справочника R266 CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - т…»

2016-07-21T05:49:31Z

Новая страница: «CHECKVALIDR264 - это программа из справочника R266 CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - т…»

Новая страница

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

@@ Строка 2: / Строка 2: @@
   Проверка допустимости заданной рецептуры для заданного изделия
 [[CHECKVALIDR264]]( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-CHECKVALIDR264 - это программа из справочника [[R266]]
+[[CHECKVALIDR264]] - это программа из справочника [[R266]]
+ Проверка допустимости заданной рецептуры для заданного изделия
-CHECKVALIDR264( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
+[[CHECKVALIDR264]]( 1 код изделия, 2 N рецептуры, [3 дата - только для MEAT] )
 = Текст =
-REFLS Проверка допустимости заданной рецептуры для заданого изделия
-−
-= Текст программы =
-−
   Parameters  search_val, search_num, search_date
@@ Строка 31: / Строка 27: @@
              'для изделия '+AnyReflName('R11',search_val,.t.)})
   endif
 = Смотрите также =
 [[Функции Delphi]]

← Предыдущая		Версия 09:27, 28 декабря 2016
Строка 31:		Строка 31:
	'для изделия '+AnyReflName('R11',search_val,.t.)})		'для изделия '+AnyReflName('R11',search_val,.t.)})
	endif		endif
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]

@@ Строка 12: / Строка 12: @@
     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.))
       if  !result

@@ Строка 9: / Строка 9: @@
   Parameters  search_val, search_num, search_date
-  if !Empty( search_num )
+  if ![[Empty]]( search_num )
     if  Config='MEAT'