| line |
true |
false |
branch |
|
36
|
0 |
0 |
unless $self->adm_open |
|
46
|
0 |
0 |
if (defined $totaal) |
|
48
|
0 |
0 |
unless defined $t |
|
53
|
0 |
0 |
if (defined $saldo) |
|
55
|
0 |
0 |
unless defined $t |
|
60
|
0 |
0 |
if (defined $beginsaldo) |
|
62
|
0 |
0 |
unless defined $t |
|
70
|
0 |
0 |
unless ($begin, $end) = $self->begindate |
|
73
|
0 |
0 |
if ($date = parse_date($args->[0], substr($begin, 0, 4))) { } |
|
77
|
0 |
0 |
if ($args->[0] || '') =~ /^[[:digit:]]+-/ |
|
83
|
0 |
0 |
unless @$args |
|
86
|
0 |
0 |
unless $self->in_bky($date, $begin, $end) |
|
91
|
0 |
0 |
unless defined $bsk_nr |
|
98
|
0 |
0 |
if ($gacct) |
|
100
|
0 |
0 |
if (defined $beginsaldo) { } |
|
|
0 |
0 |
elsif (defined $vsaldo) { } |
|
101
|
0 |
0 |
if defined $vsaldo and $vsaldo != $beginsaldo |
|
104
|
0 |
0 |
if $verbose |
|
109
|
0 |
0 |
if $verbose |
|
114
|
0 |
0 |
if $verbose |
|
133
|
0 |
0 |
if ($type eq 'std') { } |
|
|
0 |
0 |
elsif ($type eq 'deb' or $type eq 'crd') { } |
|
134
|
0 |
0 |
unless @$args >= 3 |
|
137
|
0 |
0 |
if ($dd) { } |
|
139
|
0 |
0 |
unless $self->in_bky($dd, $begin, $end) |
|
140
|
0 |
0 |
if ($does_btw and $main::dbh->adm('btwbegin') and $dd lt $main::dbh->adm('btwbegin')) |
|
146
|
0 |
0 |
if ($args->[0] || '') =~ /^[[:digit:]]+-/ |
|
151
|
0 |
0 |
unless @$args >= 3 |
|
155
|
0 |
0 |
if ($opts->{'verbose'}) |
|
157
|
0 |
0 |
if $t =~ /\s/ |
|
161
|
0 |
0 |
unless ($acct =~ /^\d+$/) |
|
162
|
0 |
0 |
if ($acct =~ /^(\d+)([cd])/i) { } |
|
175
|
0 |
0 |
unless ($rr) |
|
183
|
0 |
0 |
if ($balres and $dagboek_type != 5) |
|
187
|
0 |
0 |
if ($btw_id and not $does_btw) |
|
196
|
0 |
0 |
$does_btw ? : |
|
198
|
0 |
0 |
unless (defined $amt) |
|
203
|
0 |
0 |
if defined $bid and not $bid |
|
206
|
0 |
0 |
if ($btw_id and not defined $bid and $dagboek_type == 5) |
|
213
|
0 |
0 |
if (defined $bid) |
|
216
|
0 |
0 |
unless (defined $btw_id) |
|
222
|
0 |
0 |
if (not defined $kstomz and $btw_id) |
|
228
|
0 |
0 |
if ($btw_id) |
|
236
|
0 |
0 |
unless (defined $res and defined($tg = $res->[0])) |
|
240
|
0 |
0 |
unless $tg |
|
242
|
0 |
0 |
if (defined $res->[1] and $res->[1] gt $dd) |
|
244
|
0 |
0 |
if ($btw_adapt and not $btw_explicit) |
|
245
|
0 |
0 |
$incl ? : |
|
252
|
0 |
0 |
if ($rr and $rr->[0]) |
|
261
|
0 |
0 |
unless ($ok) |
|
266
|
0 |
0 |
if (defined $res->[2] and $res->[2] lt $dd) |
|
268
|
0 |
0 |
if ($btw_adapt and not $btw_explicit) |
|
269
|
0 |
0 |
$incl ? : |
|
276
|
0 |
0 |
if ($rr and $rr->[0]) |
|
285
|
0 |
0 |
unless ($ok) |
|
299
|
0 |
0 |
if ($btw_id) |
|
306
|
0 |
0 |
$does_btw ? : |
|
319
|
0 |
0 |
if ($btw) |
|
330
|
0 |
0 |
$type eq 'deb' ? : |
|
331
|
0 |
0 |
unless @$args >= 2 |
|
334
|
0 |
0 |
if ($dd) { } |
|
336
|
0 |
0 |
unless $self->in_bky($dd, $begin, $end) |
|
337
|
0 |
0 |
if ($does_btw and $main::dbh->adm('btwbegin') and $dd lt $main::dbh->adm('btwbegin')) |
|
343
|
0 |
0 |
if ($args->[0] || '') =~ /^[[:digit:]]+-/ |
|
348
|
0 |
0 |
unless @$args >= 2 |
|
352
|
0 |
0 |
if $verbose |
|
357
|
0 |
0 |
unless (defined $amt) |
|
364
|
0 |
0 |
if ($rel =~ /:/) { } |
|
367
|
0 |
0 |
unless (defined $id) |
|
379
|
0 |
0 |
$debcrd ? : |
|
381
|
0 |
0 |
unless (defined $rr) |
|
391
|
0 |
0 |
$debcrd ? : |
|
395
|
0 |
0 |
unless (defined $rr) |
|
396
|
0 |
0 |
$type eq 'deb' ? : |
|
409
|
0 |
0 |
if $delta |
|
410
|
0 |
0 |
$delta ? : |
|
420
|
0 |
0 |
$debcrd ? : |
|
|
0 |
0 |
$delta ? : |
|
427
|
0 |
0 |
if ($rr->[0] == $amt) { } |
|
439
|
0 |
0 |
if (@$res == 0) { } |
|
|
0 |
0 |
elsif (@$res == 1 and $res->[0][0] == $amt) { } |
|
|
0 |
0 |
elsif (@$res <= $main::cfg->val(('strategy', 'bkm_multi_max'), 15)) { } |
|
451
|
0 |
0 |
if (my(@k) = partition($amt, \@amts)) { } |
|
453
|
0 |
0 |
if ($main::cfg->val(('strategy', 'bkm_multi'), 0)) { } |
|
478
|
0 |
0 |
if $wmsg |
|
504
|
0 |
0 |
unless (defined $rr) |
|
508
|
0 |
0 |
if ($wmsg) { } |
|
|
0 |
0 |
elsif (@$res) { } |
|
572
|
0 |
0 |
$type eq 'deb' ? : |
|
595
|
0 |
0 |
if ($gacct) { } |
|
|
0 |
0 |
elsif ($tot) { } |
|
596
|
0 |
0 |
if $trace_updates |
|
600
|
0 |
0 |
if $verbose |
|
606
|
0 |
0 |
if (defined $saldo) |
|
607
|
0 |
0 |
unless ($saldo == $new) |
|
613
|
0 |
0 |
if (defined $totaal and $tot != $totaal) |
|
619
|
0 |
0 |
if (defined $isaldo and $isaldo != $new) |
|
635
|
0 |
0 |
if ($opts->{'journal'}) |
|
636
|
0 |
0 |
if $fail |
|
643
|
0 |
0 |
if ($fail) |
|
653
|
0 |
0 |
$verbose || 1 ? : |
|
666
|
0 |
0 |
if ($rr and defined $rr->[0]) |
|
677
|
0 |
0 |
if $target == 0 |
|
679
|
0 |
0 |
unless defined $ix |
|
680
|
0 |
0 |
if @$ix == 0 |