Revision d623e974
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2529 | 2529 |
# Hotfix f?r Bug 1837 - Besser w?re es alte Buchungsbelege |
| 2530 | 2530 |
# OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch |
| 2531 | 2531 |
# nicht f?r ver?nderbare Belege (oe, do, ...) |
| 2532 |
my $obsolete = "WHERE NOT obsolete" unless $self->{id};
|
|
| 2532 |
my $obsolete = $self->{id} ? '' : "WHERE NOT obsolete";
|
|
| 2533 | 2533 |
my $query = qq|SELECT count(*) FROM $table $obsolete|; |
| 2534 | 2534 |
my ($count) = selectrow_query($self, $dbh, $query); |
| 2535 | 2535 |
|
| ... | ... | |
| 2730 | 2730 |
} |
| 2731 | 2731 |
|
| 2732 | 2732 |
my $extra_columns = ''; |
| 2733 |
$extra_columns .= 'a.direct_debit, ' if $module eq 'AR';
|
|
| 2733 |
$extra_columns .= 'a.direct_debit, ' if ($module eq 'AR') || ($module eq 'AP');
|
|
| 2734 | 2734 |
|
| 2735 | 2735 |
if ($self->{id}) {
|
| 2736 | 2736 |
$query = |
Auch abrufbar als: Unified diff
Kreditorenbuchungen: Checkbox für "Lastschrifteinzug"; Vorbelegung aus Stammdaten