"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

FORM117_CALC

Входные параметры

Выходные параметры

Описание

Для расчета формы 117 - подгон параметров

Определение

CREATE PROCEDURE FORM117_CALC(
    PALL DOUBLE PRECISION,
    P0 DOUBLE PRECISION,
    P1 DOUBLE PRECISION,
    P2 DOUBLE PRECISION,
    P3 DOUBLE PRECISION,
    P4 DOUBLE PRECISION,
    P5 DOUBLE PRECISION,
    P6 DOUBLE PRECISION,
    P7 DOUBLE PRECISION,
    P8 DOUBLE PRECISION,
    P9 DOUBLE PRECISION,
    P10 DOUBLE PRECISION)
RETURNS (
    RESULT DOUBLE PRECISION)
AS
DECLARE VARIABLE PSUM DOUBLE PRECISION;
begin
  PSUM = :p0;
  if (:p1 is not null) then PSUM = :PSUM + :p1;
  if (:p2 is not null) then PSUM = :PSUM + :p2;
  if (:p3 is not null) then PSUM = :PSUM + :p3;
  if (:p4 is not null) then PSUM = :PSUM + :p4;
  if (:p5 is not null) then PSUM = :PSUM + :p5;
  if (:p6 is not null) then PSUM = :PSUM + :p6;
  if (:p7 is not null) then PSUM = :PSUM + :p7;
  if (:p8 is not null) then PSUM = :PSUM + :p8;
  if (:p9 is not null) then PSUM = :PSUM + :p9;
  if (:p10 is not null) then PSUM = :PSUM + :p10;
  RESULT = :p0 - :PSUM + :pAll;
  suspend;
END