"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