f33a3a2df7
Co-authored-by: Michael Hoennig <michael@hoennig.de> Reviewed-on: https://dev.hostsharing.net/hostsharing/hs.hsadmin.ng/pulls/106 Reviewed-by: Marc Sandlus <marc.sandlus@hostsharing.net>
77 lines
3.3 KiB
PL/PgSQL
77 lines
3.3 KiB
PL/PgSQL
--liquibase formatted sql
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:hs-office-coopassets-MAIN-TABLE endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
CREATE TYPE hs_office.CoopAssetsTransactionType AS ENUM ('ADJUSTMENT',
|
|
'DEPOSIT',
|
|
'DISBURSAL',
|
|
'TRANSFER',
|
|
'ADOPTION',
|
|
'CLEARING',
|
|
'LOSS',
|
|
'LIMITATION');
|
|
|
|
CREATE CAST (character varying as hs_office.CoopAssetsTransactionType) WITH INOUT AS IMPLICIT;
|
|
|
|
create table if not exists hs_office.coopassettx
|
|
(
|
|
uuid uuid unique references rbac.object (uuid) initially deferred,
|
|
version int not null default 0,
|
|
membershipUuid uuid not null references hs_office.membership(uuid),
|
|
transactionType hs_office.CoopAssetsTransactionType not null,
|
|
valueDate date not null,
|
|
assetValue money not null,
|
|
reference varchar(48) not null,
|
|
adjustedAssetTxUuid uuid unique REFERENCES hs_office.coopassettx(uuid) DEFERRABLE INITIALLY DEFERRED,
|
|
comment varchar(512)
|
|
);
|
|
--//
|
|
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:hs-office-coopassets-BUSINESS-RULES endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
alter table hs_office.coopassettx
|
|
add constraint reverse_entry_missing
|
|
check ( transactionType = 'ADJUSTMENT' and adjustedAssetTxUuid is not null
|
|
or transactionType <> 'ADJUSTMENT' and adjustedAssetTxUuid is null);
|
|
--//
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:hs-office-coopassets-ASSET-VALUE-CONSTRAINT endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
create or replace function hs_office.coopassetstx_check_positive_total(forMembershipUuid UUID, newAssetValue money)
|
|
returns boolean
|
|
language plpgsql as $$
|
|
declare
|
|
currentAssetValue money;
|
|
totalAssetValue money;
|
|
begin
|
|
select sum(cat.assetValue)
|
|
from hs_office.coopassettx cat
|
|
where cat.membershipUuid = forMembershipUuid
|
|
into currentAssetValue;
|
|
totalAssetValue := currentAssetValue + newAssetValue;
|
|
if totalAssetValue::numeric < 0 then
|
|
raise exception '[400] coop assets transaction would result in a negative balance of assets';
|
|
end if;
|
|
return true;
|
|
end; $$;
|
|
|
|
alter table hs_office.coopassettx
|
|
add constraint check_positive_total
|
|
check ( hs_office.coopassetstx_check_positive_total(membershipUuid, assetValue) );
|
|
--//
|
|
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:hs-office-coopassets-MAIN-TABLE-JOURNAL endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
call base.create_journal('hs_office.coopassettx');
|
|
--//
|