Revision 8b7b226d
Von Philip Reetz vor fast 18 Jahren hinzugefügt
| SL/CA.pm | ||
|---|---|---|
| 144 | 144 |
$glwhere .= " AND ac.transdate <= '$form->{todate}'";
|
| 145 | 145 |
} |
| 146 | 146 |
|
| 147 |
if ($form->{eur}) {
|
|
| 148 |
$AR_PAID = qq|AND ac.trans_id IN |
|
| 149 |
( |
|
| 150 |
SELECT trans_id |
|
| 151 |
FROM acc_trans |
|
| 152 |
JOIN chart ON (chart_id = id) |
|
| 153 |
WHERE link LIKE '%AR_paid%' |
|
| 154 |
$subwhere |
|
| 155 |
)|; |
|
| 156 |
$AP_PAID = qq|AND ac.trans_id IN |
|
| 157 |
( |
|
| 158 |
SELECT trans_id |
|
| 159 |
FROM acc_trans |
|
| 160 |
JOIN chart ON (chart_id = id) |
|
| 161 |
WHERE link LIKE '%AP_paid%' |
|
| 162 |
$subwhere |
|
| 163 |
)|; |
|
| 164 |
} else {
|
|
| 165 |
$where .= $fromto; |
|
| 166 |
$AR_PAID = ""; |
|
| 167 |
$AP_PAID = ""; |
|
| 168 |
$glwhere = ""; # note! gl will be aliased as "a" later... |
|
| 169 |
} |
|
| 147 |
|
|
| 148 |
$where .= $fromto; |
|
| 149 |
$AR_PAID = ""; |
|
| 150 |
$AP_PAID = ""; |
|
| 151 |
$glwhere = ""; # note! gl will be aliased as "a" later... |
|
| 170 | 152 |
my $sortorder = join ', ', |
| 171 | 153 |
$form->sort_columns(qw(transdate reference description)); |
| 172 | 154 |
my $false = ($myconfig->{dbdriver} eq 'Pg') ? FALSE: q|'0'|;
|
Auch abrufbar als: Unified diff
Bei eur wurden in der Kontenliste keine unbezahlten Rechnungen angezeigt. Entfernt.