Revision d0b49f67
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 1083 | 1083 |
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 1084 | 1084 |
if ($ref->{category} eq 'E') {
|
| 1085 | 1085 |
$i++; |
| 1086 |
$form->{"AP_amount_$i"} = "$ref->{accno}--$ref->{description}";
|
|
| 1086 |
|
|
| 1087 |
if ($form->{initial_transdate}) {
|
|
| 1088 |
my $tax_query = |
|
| 1089 |
qq|SELECT tk.tax_id, t.rate FROM taxkeys tk | . |
|
| 1090 |
qq|LEFT JOIN tax t ON tk.tax_id = t.id | . |
|
| 1091 |
qq|WHERE tk.chart_id = ? AND startdate <= ? | . |
|
| 1092 |
qq|ORDER BY tk.startdate DESC LIMIT 1|; |
|
| 1093 |
my ($tax_id, $rate) = |
|
| 1094 |
selectrow_query($form, $dbh, $tax_query, $ref->{id},
|
|
| 1095 |
$form->{initial_transdate});
|
|
| 1096 |
$form->{"taxchart_$i"} = "${tax_id}--${rate}";
|
|
| 1097 |
} |
|
| 1098 |
|
|
| 1099 |
$form->{"AP_amount_$i"} = "$ref->{accno}--$tax_id";
|
|
| 1087 | 1100 |
} |
| 1088 | 1101 |
if ($ref->{category} eq 'L') {
|
| 1089 |
$form->{APselected} = $form->{AP_1} =
|
|
| 1090 |
"$ref->{accno}--$ref->{description}";
|
|
| 1102 |
$form->{APselected} = $form->{AP_1} = $ref->{accno};
|
|
| 1091 | 1103 |
} |
| 1092 | 1104 |
} |
| 1093 | 1105 |
$sth->finish; |
Auch abrufbar als: Unified diff
Kreditorenrechnungsmaske: Drop-Down-Boxen für Konten werden jetzt bei jedem Seitenaufbau richtig aufgebaut (kein Mitschleppen der HTML-gecodeten Drop-Down-Box im Formular) analog zu ar.pl. Behebt außerdem ein paar Bugs mit Auswahl der Steuerschlüssel.