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

Hisava: /* Смотрите также */

2017-04-26T13:06:47Z

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

Hisava в 13:06, 26 апреля 2017

2017-04-26T13:06:30Z

Hisava в 12:39, 5 сентября 2016

2016-09-05T12:39:21Z

Hisava в 12:38, 5 сентября 2016

2016-09-05T12:38:49Z

Hisava: /* Полный текст функции */

2016-09-05T12:37:18Z

‎Полный текст функции

Hisava в 12:37, 5 сентября 2016

2016-09-05T12:37:10Z

Hisava: Новая страница: «RetIssue - это функция, описанная в файле QrAddFn.pas Выход по R11, R191 или R71 RetIssue( `, [, …»`


2016-04-15T06:34:31Z
Новая страница: «RetIssue - это функция, описанная в файле QrAddFn.pas  Выход по R11, R191 или R71  RetIssue( <Code>, [<Refl/"R11 ">, <VarNum/0>…»
Новая страница
RetIssue - это функция, описанная в файле QrAddFn.pas



Выход по R11, R191 или R71



RetIssue( <Code>, [<Refl/"R11 ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )



= Полный текст функции =



 (* Определить выход изделия ProdCode [при средневзвешанной влажности AverWetn]

   Порядок поиска выхода:

   1) не пустая Dt и есть подходящая запись (дата записи не пуста и <= искомой Dt)

      на этаже хронологий в R191

   2) R264->ISSUE

   3) R11->ISSUE

   4) Для заданной рецептуры VarNum подсчитываем итого муки - по ней - выход

 **********************************************************************************)

 type

   TQREvRetIssue = class(TQREvDbFunction)

   public

     function Calculate: TQREvResult; override;

   end;



 function TQREvRetIssue.Calculate: TQREvResult;

 var

   ProdCode, VarNum: integer;

   Refl, DtShift: string;

   AverWetn: double;

 begin

   Result.Kind := ResDouble;

   ProdCode := 0;

   Refl := 'R11 ';

   VarNum := 0;

   AverWetn := 0.00;

   DtShift := StringOfChar(' ', 9);

   if ArgList.Count > 0 then

     ProdCode := ConvQREvToInt(Argument(0));

   if (ArgList.Count > 1) and (Argument(1).Kind = ResString) then

     Refl := Argument(1).StrResult;

   if (ArgList.Count > 2) then

     VarNum := ConvQREvToInt(Argument(2));

   if (ArgList.Count > 3) and (Argument(3).Kind = ResDouble) then

     AverWetn := Argument(3).DblResult;

   if (ArgList.Count > 4) and (Argument(4).Kind = ResString) then

     DtShift := Argument(4).StrResult;

   Result.DblResult := RetIssue(ProdCode, Refl, VarNum, AverWetn, DtShift);

 end;

← Предыдущая		Версия 13:06, 26 апреля 2017
Строка 48:		Строка 48:

	= Смотрите также =		= Смотрите также =
		+	[[Полезные функции]]

	[[Функции Delphi]]		[[Функции Delphi]]
−
−	~~[[Полезные функции]]~~

@@ Строка 1: / Строка 1: @@
-RetIssue - это функция, описанная в файле [[QrAddFn.pas]]
+[[RetIssue]] - это функция, описанная в файле [[QrAddFn.pas]]
+ Выход по [[R11]], [[R191]] или [[R71]]
-Выход по [[R11]], [[R191]] или [[R71]]
+[[RetIssue]]( Code, [<Refl/"[[R11]] ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )
-−
 RetIssue( Code, [<Refl/"[[R11]] ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )
-−
 = Пример =
   RetIssue( 25 )
 [[Файл:05-09-2016 15-41-45.png]]

@@ Строка 1: / Строка 1: @@
-RetIssue - это функция, описанная в файле QrAddFn.pas
+RetIssue - это функция, описанная в файле [[QrAddFn.pas]]
-Выход по R11, R191 или R71
+Выход по [[R11]], [[R191]] или [[R71]]
-RetIssue( Code, [<Refl/"R11 ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )
+RetIssue( Code, [<Refl/"[[R11]] ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )
 = Пример =

← Предыдущая		Версия 12:38, 5 сентября 2016
Строка 4:		Строка 4:

	RetIssue( Code, [<Refl/"R11 ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )		RetIssue( Code, [<Refl/"R11 ">, <VarNum/0>, <AverWetn/0.00>, <DtShift/space(9)>] )
		+
		+	= Пример =
		+
		+	RetIssue( 25 )
		+
		+	[[Файл:05-09-2016 15-41-45.png]]

	= Полный текст функции =		= Полный текст функции =

← Предыдущая		Версия 12:37, 5 сентября 2016
Строка 45:		Строка 45:
	Result.DblResult := RetIssue(ProdCode, Refl, VarNum, AverWetn, DtShift);		Result.DblResult := RetIssue(ProdCode, Refl, VarNum, AverWetn, DtShift);
	end;		end;
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]

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

Hisava: /* Смотрите также */

Hisava в 13:06, 26 апреля 2017

Hisava в 12:39, 5 сентября 2016

Hisava в 12:38, 5 сентября 2016

Hisava: /* Полный текст функции */

Hisava в 12:37, 5 сентября 2016

Hisava: Новая страница: «RetIssue - это функция, описанная в файле QrAddFn.pas Выход по R11, R191 или R71 RetIssue( , [, …»

Hisava: Новая страница: «RetIssue - это функция, описанная в файле QrAddFn.pas Выход по R11, R191 или R71 RetIssue( `, [, …»`