function.sql

This application i made for handle simple finance this project using VB 6.0, SQL Server 2000 wit

use Finance;
go


-- ### CurrencyString ##############################################################

if (exists (select name, type from sysobjects where (name = 'CurrencyString') and (type = 'FN')))
  drop function CurrencyString;
go

create function CurrencyString(@cur bit) returns varchar(15) as
begin

  declare @cs varchar(15);

  if (@cur = 0)
    set @cs = 'Rupiah (Rp)';
  else
    set @cs = 'Dollar ($)';

  return (@cs);

end
go


-- ### PayMethodString #############################################################

if (exists (select name, type from sysobjects where (name = 'PayMethodString') and (type = 'FN')))
  drop function PayMethodString;
go

create function PayMethodString(@paymethod tinyint) returns varchar(8) as
begin

  declare @pms varchar(8);

  if ((@paymethod >= 0) and (@paymethod <= 3))
  begin

    if (@paymethod = 0)
      set @pms = 'Tunai';
    else
      if (@paymethod = 1)
        set @pms = 'Transfer';
      else
        if (@paymethod = 2)
          set @pms = 'Cek';
        else
          if (@paymethod = 3)
            set @pms = 'BG';

  end
  else
  begin

    set @pms = 'Unknown';

  end

  return (@pms);

end
go


-- ### MutasiString ################################################################

if (exists (select name, type from sysobjects where (name = 'MutasiString') and (type = 'FN')))
  drop function MutasiString;
go

create function MutasiString(@mutasi char(1)) returns varchar(7) as
begin

  declare @ms varchar(7);

  if (@mutasi in ('D', 'K'))
  begin

    if (@mutasi = 'D')
      set @ms = 'Debet';
    else
      set @ms = 'Kredit';

  end
  else
  begin

    set @ms = 'Unknown';

  end

  return (@ms);

end
go