Michael Hoennig
2022-10-28 64461fc4dae56b3e52a5120c5fca1952f6fd5ca2
commit | author | age
7f5b23 1 --liquibase formatted sql
MH 2
3
4 -- ============================================================================
5 --changeset hs-office-sepaMandate-TEST-DATA-GENERATOR:1 endDelimiter:--//
6 -- ----------------------------------------------------------------------------
7
8 /*
9     Creates a single sepaMandate test record.
10  */
11 create or replace procedure createHsOfficeSepaMandateTestData( tradeNameAndHolderName varchar )
12     language plpgsql as $$
13 declare
14     currentTask         varchar;
15     idName              varchar;
16     relatedDebitor      hs_office_debitor;
17     relatedBankAccount  hs_office_bankAccount;
18 begin
19     idName := cleanIdentifier( tradeNameAndHolderName);
20     currentTask := 'creating SEPA-mandate test-data ' || idName;
21     call defineContext(currentTask, null, 'superuser-alex@hostsharing.net', 'global#global.admin');
22     execute format('set local hsadminng.currentTask to %L', currentTask);
23
24     select debitor.* from hs_office_debitor debitor
25                       join hs_office_partner parter on parter.uuid = debitor.partnerUuid
26                       join hs_office_person person on person.uuid = parter.personUuid
27                      where person.tradeName = tradeNameAndHolderName into relatedDebitor;
28     select c.* from hs_office_bankAccount c where c.holder = tradeNameAndHolderName into relatedBankAccount;
29
30     raise notice 'creating test SEPA-mandate: %', idName;
31     raise notice '- using debitor (%): %', relatedDebitor.uuid, relatedDebitor;
32     raise notice '- using bankAccount (%): %', relatedBankAccount.uuid, relatedBankAccount;
33     insert
64461f 34         into hs_office_sepamandate (uuid, debitoruuid, bankAccountuuid, reference, agreement, validity)
MH 35         values (uuid_generate_v4(), relatedDebitor.uuid, relatedBankAccount.uuid, 'ref'||idName, '20220930', daterange('20221001' , '20261231', '[]'));
7f5b23 36 end; $$;
MH 37 --//
38
39
40 -- ============================================================================
41 --changeset hs-office-sepaMandate-TEST-DATA-GENERATION:1 â€“context=dev,tc endDelimiter:--//
42 -- ----------------------------------------------------------------------------
43
44 do language plpgsql $$
45     begin
46         call createHsOfficeSepaMandateTestData('First GmbH');
47         call createHsOfficeSepaMandateTestData('Second e.K.');
48         call createHsOfficeSepaMandateTestData('Third OHG');
49     end;
50 $$;
51 --//