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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (→‎Пример)
 
(не показано 12 промежуточных версий этого же участника)
Строка 1: Строка 1:
−
R11Wght - это функция, описанная в файле QrAddFn.pas
+
[[R11WGHT]] - это функция, описанная в файле [[QrAddFn.pas]]
 +
Вес по справочнику [изделий]
 +
[[R11WGHT]]( Code, [< REFL / "[[R11]]" >] )
 +
= Пример =
 +
r11wght( 1 )
  
−
R11Wght( <Code>, [<Refl/"[[R11]]"] )
+
[[Файл:05-09-2016 14-33-07.png]]
  
−
Вес по справочнику [изделий]
+
= Смотрите также =
 +
[[Полезные функции]]
  
−
= Полный текст функции =
+
[[Функции Delphi]]
−
 
+
−
type
+
−
  TQREvR11Wght = class(TQREvDbFunction)
+
−
  public
+
−
    function Calculate: TQREvResult; override;
+
−
  end;
+
−
 
+
−
function TQREvR11Wght.Calculate: TQREvResult;
+
−
var
+
−
  ProdCode: integer;
+
−
  Refl: string;
+
−
begin
+
−
  ProdCode := 0;
+
−
  Refl := 'R11 ';
+
−
  Result.Kind := ResDouble;
+
−
  if (ArgList.Count > 0) then
+
−
    ProdCode := ConvQREvToInt(Argument(0));
+
−
  if (ArgList.Count > 1) and (Argument(1).Kind = ResString) then
+
−
    Refl := Argument(1).StrResult;
+
−
  if (GetWorkArea is TAdsTable) and
+
−
    (UpperCase(TAdsTable(GetWorkArea).Name) = UpperCase(TrimRight(Refl))) and
+
−
    (TAdsTable(GetWorkArea).FindField('WEIGHT') <> nil) and
+
−
    (TAdsTable(GetWorkArea).FindField('KOD') <> nil) and
+
−
    (TAdsTable(GetWorkArea).FindField('FREE_PRICE') <> nil) and
+
−
    (TAdsTable(GetWorkArea).FieldByName('KOD').AsInteger = ProdCode) then
+
−
    Result.dblResult := TAdsTable(GetWorkArea).FieldByName('WEIGHT').AsFloat
+
−
  else
+
−
    Result.DblResult := R11Wght(ProdCode, Refl);
+
−
end;
+
−
 
+
−
= ProdCost =
+
−
 
+
−
function R11Wght(ProdCode: integer; Refl: string = 'R11 '): double;
+
−
begin
+
−
  Result := SeekRef(Refl, ProdCode, 'WEIGHT', 1, 0);
+
−
end;
+

Текущая версия на 12:20, 3 декабря 2019

R11WGHT - это функция, описанная в файле QrAddFn.pas 

Вес по справочнику [изделий]

R11WGHT( Code, [< REFL / "R11" >] )

Пример

r11wght( 1 )

05-09-2016 14-33-07.png

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

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

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=R11WGHT&oldid=36683»