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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Пример)
 
(не показано 11 промежуточных версий этого же участника)
Строка 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