Revision d333f237
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/AM.pm | ||
---|---|---|
48 | 48 |
# connect to database |
49 | 49 |
my $dbh = $form->dbconnect($myconfig); |
50 | 50 |
my $query = |
51 |
qq!SELECT c.accno, c.description, c.charttype, c.gifi_accno, c.category,! .
|
|
51 |
qq!SELECT c.accno, c.description, c.charttype, c.category,! . |
|
52 | 52 |
qq! c.link, c.pos_bilanz, c.pos_eur, c.new_chart_id, c.valid_from, ! . |
53 | 53 |
qq! c.pos_bwa, ! . |
54 | 54 |
qq! tk.taxkey_id, tk.pos_ustva, tk.tax_id, ! . |
... | ... | |
183 | 183 |
if ($form->{id}) { |
184 | 184 |
$query = qq|UPDATE chart SET |
185 | 185 |
accno = ?, description = ?, charttype = ?, |
186 |
gifi_accno = ?, category = ?, link = ?,
|
|
186 |
category = ?, link = ?, |
|
187 | 187 |
taxkey_id = ?, |
188 | 188 |
pos_ustva = ?, pos_bwa = ?, pos_bilanz = ?, |
189 | 189 |
pos_eur = ?, new_chart_id = ?, valid_from = ? |
190 | 190 |
WHERE id = ?|; |
191 | 191 |
@values = ($form->{accno}, $form->{description}, $form->{charttype}, |
192 |
$form->{gifi_accno}, $form->{category}, $form->{link},
|
|
192 |
$form->{category}, $form->{link}, |
|
193 | 193 |
conv_i($taxkey), |
194 | 194 |
conv_i($form->{pos_ustva}), conv_i($form->{pos_bwa}), |
195 | 195 |
conv_i($form->{pos_bilanz}), conv_i($form->{pos_eur}), |
... | ... | |
205 | 205 |
} else { |
206 | 206 |
$query = qq|INSERT INTO chart |
207 | 207 |
(accno, description, charttype, |
208 |
gifi_accno, category, link, |
|
209 |
taxkey_id, |
|
208 |
category, link, taxkey_id, |
|
210 | 209 |
pos_ustva, pos_bwa, pos_bilanz, pos_eur, |
211 | 210 |
new_chart_id, valid_from) |
212 | 211 |
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|; |
213 | 212 |
@values = ($form->{accno}, $form->{description}, $form->{charttype}, |
214 |
$form->{gifi_accno}, $form->{category}, $form->{link}, |
|
215 |
conv_i($taxkey), |
|
213 |
$form->{category}, $form->{link}, conv_i($taxkey), |
|
216 | 214 |
conv_i($form->{pos_ustva}), conv_i($form->{pos_bwa}), |
217 | 215 |
conv_i($form->{pos_bilanz}), conv_i($form->{pos_eur}), |
218 | 216 |
conv_i($form->{new_chart_id}), |
Auch abrufbar als: Unified diff
Weitere Vorkommen von GIFI entfernt. GIFI müsste bis auf Spalte chart.gifi_accno und Tabelle chart komplett entfernt sein.