+sub extract_rule {
+ my $rule = shift;
+ my $part = $rule;
+ $part =~ s/:.*//;
+ if ($rule =~ /:/) {
+ $rule =~ s/[^:]*://;
+ }
+ else {
+ $rule = "";
+ }
+ $::lxdebug->message(5, "part=$part");
+ return ($part,$rule);
+}
+
+sub rule2sql {
+ $::lxdebug->enter_sub;
+
+ my $rule = shift;
+ my $year = shift;
+ $::lxdebug->message(5, "rule=$rule");
+
+ # a rule consists of key=value pairs seperated by colon. Possible keys are:
+ # - ACC: account number
+ # - VALUES=positive|negative: only positive or negative values are selected
+ # negative implies INVERT=true
+ # - INVERT=true: Result is multiplied by -1
+ # - START=YEAR: start year. Absolute ('2020') or relative ('YEAR/PY')
+ # - END=YEAR: end year. Default: $year
+
+ # supply defaults:
+ my $acc = "0000";
+ my $values = "";
+ my $invert = "";
+ my $start = "";
+ my $end = "AND (ac.transdate <= '31.12.$year')";
+ my $py = $year - 1;
+
+ # parse rule
+ (my $part,$rule) = extract_rule($rule);
+ $::lxdebug->message(5, "part=$part");
+ while ($part) {
+ $part =~ /(.*)=(.*)/;
+ if ($1 eq "ACC") {
+ $acc = $2;
+ }
+ elsif ($1 eq "VALUES") {
+ if ($2 eq "positive") {
+ $values = "AND (ac.amount > 0)";
+ }
+ elsif ($2 eq "negative") {
+ $values = "AND (ac.amount < 0)";
+ $invert = "* (-1)";
+ }
+ else {
+ die "invalid rule part: $part";
+ }
+ }
+ elsif ($1 eq "INVERT") {
+ $invert = "* (-1)";
+ }
+ elsif ($1 eq "START") {
+ $start = "AND (ac.transdate >= '01.01.$2')";
+ $start =~ s/YEAR/$year/;
+ $start =~ s/PY/$py/;
+ }
+ elsif ($1 eq "END") {
+ $end = "AND (ac.transdate <= '31.12.$2')";
+ $end =~ s/YEAR/$year/;
+ $end =~ s/PY/$py/;
+ }
+ else {
+ die "invalid rule part: $part";
+ }
+ ($part,$rule) = extract_rule($rule);
+ }
+
+ $::lxdebug->leave_sub;
+ return "SELECT SUM(ac.amount) $invert AS saldo
+ FROM acc_trans ac
+ JOIN chart c ON (c.id = ac.chart_id)
+ WHERE (c.accno = '$acc') $values $start $end";
+}
+