|
|
| (не показано 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 )
Смотрите также
Полезные функции
Функции Delphi
