bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

VAT plugin

Browse source 
No hackerspace probably needs this, but I just realised that
implementing VAT support would be very easy, so why not.
This commit is contained in:
Juerd Waalboer 2023-09-18 05:09:29 +02:00
parent e6746afde5
commit ac519c05c8
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
plugins/vat Normal file
View file

@ -0,0 +1,27 @@
sub _read_vat {
my %vat;
for my $line (slurp "revbank.vat") {
my ($match, $vataccount, $pct) = split " ", $line;
$vat{$match} = { user => $vataccount, pct => $pct };
}
return \%vat;
}
sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my $vat = _read_vat;
for my $entry ($cart->entries) {
my @contras = $entry->contras;
for my $contra ($entry->contras) {
my $vat = $vat->{ $contra->{user} } or next;
my $amount = RevBank::Amount->new(
$contra->{amount}->cents * $vat->{pct} / (100 + $vat->{pct})
);
$entry->add_contra($contra->{user}, -$amount, "$vat->{pct}% VAT");
$entry->add_contra($vat->{user}, +$amount, "$vat->{pct}% VAT");
}
}
}