rule.sql

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

use Finance;
go


-- ### PayMethod ###################################################################

if (exists (select name, type from sysobjects where (name = 'PayMethod') and (type = 'R')))
begin
  execute sp_unbindrule 'MainTransaction.SistemBayar';
  drop rule PayMethod;
end
go

create rule PayMethod as
(
  (@pm >= 0) and (@pm <= 3)
)
go

execute sp_bindrule 'PayMethod', 'MainTransaction.SistemBayar';
go


-- ### Mutasi ######################################################################

if (exists (select name, type from sysobjects where (name = 'Mutasi') and (type = 'R')))
begin
  execute sp_unbindrule 'Account.Mutasi';
  drop rule Mutasi;
end

go

create rule Mutasi as
(
  @mr in ('D', 'K')
)
go

execute sp_bindrule 'Mutasi', 'Account.Mutasi';
go