Revision 0576299f
Von Moritz Bunkus vor etwa 19 Jahren hinzugefügt
SL/IR.pm | ||
---|---|---|
235 | 235 |
|
236 | 236 |
# add entry for inventory, this one is for the sold item |
237 | 237 |
if ($linetotal != 0) { |
238 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
|
|
238 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, |
|
239 | 239 |
transdate) |
240 | 240 |
VALUES ($ref->{trans_id}, $ref->{inventory_accno_id}, |
241 | 241 |
$linetotal, '$ref->{transdate}')|; |
242 | 242 |
$dbh->do($query) || $form->dberror($query); |
243 | 243 |
|
244 | 244 |
# add expense |
245 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
|
|
245 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, |
|
246 | 246 |
transdate, taxkey) |
247 | 247 |
VALUES ($ref->{trans_id}, $ref->{expense_accno_id}, |
248 |
| . ($linetotal * -1) . qq|, '$ref->{transdate}',
|
|
248 |
| . ($linetotal * -1) . qq|, '$ref->{transdate}', |
|
249 | 249 |
(SELECT taxkey from tax WHERE chart_id = $ref->{expense_accno_id}))|; |
250 | 250 |
$dbh->do($query) || $form->dberror($query); |
251 | 251 |
} |
... | ... | |
443 | 443 |
$form->round_amount($form->{amount}{$trans_id}{$accno}, 2) |
444 | 444 |
) != 0 |
445 | 445 |
) { |
446 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
|
|
446 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, |
|
447 | 447 |
transdate, taxkey) |
448 | 448 |
VALUES ($trans_id, (SELECT c.id FROM chart c |
449 | 449 |
WHERE c.accno = '$accno'), |
... | ... | |
1220 | 1220 |
} |
1221 | 1221 |
|
1222 | 1222 |
1; |
1223 |
|
Auch abrufbar als: Unified diff
Whitespace an den Zeilenenden entfernt.