Revision 12fb1a28
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
2196 | 2196 |
my $transdate = quote_db_date($params->{transdate}); |
2197 | 2197 |
|
2198 | 2198 |
my $query = |
2199 |
qq|SELECT c.id, c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id | . |
|
2199 |
qq|SELECT c.id, c.accno, c.description, c.link, c.charttype, tk.taxkey_id, tk.tax_id | .
|
|
2200 | 2200 |
qq|FROM chart c | . |
2201 | 2201 |
qq|LEFT JOIN taxkeys tk ON | . |
2202 | 2202 |
qq|(tk.id = (SELECT id FROM taxkeys | . |
bin/mozilla/gl.pl | ||
---|---|---|
88 | 88 |
$form->{callback} = "gl.pl?action=add" unless $form->{callback}; |
89 | 89 |
|
90 | 90 |
# we use this only to set a default date |
91 |
# yep. aber er holt hier auch schon ALL_CHARTS. Aufwand / Nutzen? jb |
|
91 | 92 |
GL->transaction(\%myconfig, \%$form); |
92 | 93 |
|
93 | 94 |
map { |
... | ... | |
796 | 797 |
my %charts = (); |
797 | 798 |
my $taxchart_init; |
798 | 799 |
foreach my $item (@{ $form->{ALL_CHARTS} }) { |
800 |
if ($item->{charttype} eq 'H'){ #falls ?berschrift |
|
801 |
next; #?berspringen (Bug 1150) |
|
802 |
} |
|
799 | 803 |
my $key = $item->{accno} . "--" . $item->{tax_id}; |
800 | 804 |
$taxchart_init = $item->{tax_id} unless (@chart_values); |
801 | 805 |
push(@chart_values, $key); |
Auch abrufbar als: Unified diff
Fix für Bug 1150 - Dialogbuchen geht auf Überschriften. Entsprechend im Backend den chart.charttype zusätzlich geholt und die Liste ALL_CHARTS im Frontend gefiltert