IF (not EXISTS(Select * from systable where LCase(table_name) = LCase('PolAgeType'))) then

Create table PolAgeType
(
  ID            integer  NOT NULL,
  Sex           integer  NOT NULL,
  FromAge       integer  NOT NULL,
  ToAge         integer  NOT NULL,
  PRIMARY KEY ("ID")
);

COMMENT ON COLUMN "DBA"."PolAgeType"."ID" IS
	'Unikalen nomer';
COMMENT ON COLUMN "DBA"."PolAgeType"."Sex" IS
	'1- maz,2 zena';
COMMENT ON COLUMN "DBA"."PolAgeType"."FromAge" IS
	'Ot vazrast';
COMMENT ON COLUMN "DBA"."PolAgeType"."FromAge" IS
	'Do vazrast';

insert into  PolAgeType(ID,Sex,FromAge,ToAge)
                values (1,1,18,60);

insert into  PolAgeType(ID,Sex,FromAge,ToAge)
                values (2,2,18,55);
end if;

GO

IF (EXISTS (select proc_name from sysprocedure where LCase(proc_name)=LCase('IsResortTaxed'))) THEN
Drop function IsResortTaxed
END IF


GO

CREATE FUNCTION "DBA"."IsResortTaxed"(in @BirthCountry varchar(40),in @BirthDate date,in @Sex char)
returns decimal(12,2)
// Says whether there must be a resort tax (returns "1") or not (returns "0").
begin
  declare @R        decimal(12,2);
  declare @Age      integer;
  declare @LFromAge integer;
  declare @MToAge   integer;
  declare @FToAge   integer;

  set @LFromAge=(select FromAge from PolAgeType where Sex=1);
  set @MToAge=(select ToAge from PolAgeType where Sex=1);
  set @FToAge=(select ToAge from PolAgeType where Sex=2);
  set @Age=Years(@BirthDate,current date);
  set @R=if @Age<@LFromAge then 0
  else
    if(@Sex='M' and @Age>@MToAge) or(@Sex='F' and @Age>@FToAge) or(@Sex='C') then 0
    else 1
    endif
  endif;
  return(@R)
end
//[v 00.12.30]