Revision ce19982e
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 128 | 128 |
$form->{"all_$form->{vc}"} = selectall_hashref_query($form, $dbh, $query);
|
| 129 | 129 |
} |
| 130 | 130 |
|
| 131 |
if ($form->{ARAP} eq 'AR') {
|
|
| 132 |
$query = |
|
| 133 |
qq|SELECT d.id, d.description | . |
|
| 134 |
qq|FROM department d | . |
|
| 135 |
qq|WHERE d.role = 'P' | . |
|
| 136 |
qq|ORDER BY 2|; |
|
| 137 |
} else {
|
|
| 138 |
$query = |
|
| 139 |
qq|SELECT d.id, d.description | . |
|
| 140 |
qq|FROM department d | . |
|
| 141 |
qq|ORDER BY 2|; |
|
| 142 |
} |
|
| 143 |
$form->{all_departments} = selectall_hashref_query($form, $dbh, $query);
|
|
| 144 |
|
|
| 131 |
# aufruf für all_deparments rausgenommen, da die abteilungen nur |
|
| 132 |
# beim buchen der belege (rechnung, fibu) geändert werden und danach |
|
| 133 |
# NICHT mehr überschrieben werden |
|
| 145 | 134 |
$dbh->disconnect; |
| 146 | 135 |
|
| 147 | 136 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 241 | 230 |
} |
| 242 | 231 |
|
| 243 | 232 |
|
| 244 |
my $null; |
|
| 245 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
|
| 246 |
$form->{department_id} *= 1;
|
|
| 247 |
|
|
| 248 | 233 |
# query to retrieve paid amount |
| 249 | 234 |
$query = |
| 250 | 235 |
qq|SELECT a.paid FROM ar a | . |
Auch abrufbar als: Unified diff
Currencies nochmal besser kommentiert und fehlerhaften Array wieder rausgenommen. Die callback-Funktion um currency erweitert (@sven donath: muh=kuh hatte ich mal extra dringelassen ...). Ferner ist die Antwort zu department klar: Abteilungen werden bei Rechnungen oder FiBu-Buchungen angegeben und sollten nicht per Zahlungsein- oder -ausgang geändert werden. Entsprechend aus cp.pl und CP.pm entfernt.