Revision 92e904d1
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 811 | 811 |
} |
| 812 | 812 |
|
| 813 | 813 |
$form->{"${_}_accno_$index"} = $accounts{"${_}_accno"} for qw(inventory income expense);
|
| 814 |
$form->{"${_}_accno_id_$index"} = $accounts{"${_}_accno_id"} for qw(inventory expense); # only for purchase_invoice
|
|
| 814 | 815 |
|
| 815 | 816 |
$sth_tax->execute($accounts{$inc_exp}, quote_db_date($transdate)) || $::form->dberror($query_tax);
|
| 816 |
$ref = $sth_tax->fetchrow_hashref or next; |
|
| 817 |
my $tax_ref; |
|
| 818 |
$tax_ref = $sth_tax->fetchrow_hashref or next; |
|
| 817 | 819 |
|
| 818 |
$form->{"taxaccounts_$index"} = $ref->{"accno"};
|
|
| 819 |
$form->{"taxaccounts"} .= "$ref->{accno} "if $form->{"taxaccounts"} !~ /$ref->{accno}/;
|
|
| 820 |
$form->{"expense_accno_tax_id_$index"} = $tax_ref->{tax_id}; # only for purchase_invoice
|
|
| 820 | 821 |
|
| 821 |
$form->{"$ref->{accno}_${_}"} = $ref->{$_} for qw(rate description taxnumber tax_id);
|
|
| 822 |
$form->{"taxaccounts_$index"} = $tax_ref->{"accno"};
|
|
| 823 |
$form->{"taxaccounts"} .= "$tax_ref->{accno} "if $form->{"taxaccounts"} !~ /$ref->{accno}/;
|
|
| 824 |
|
|
| 825 |
$form->{"$tax_ref->{accno}_${_}"} = $tax_ref->{$_} for qw(rate description taxnumber tax_id);
|
|
| 822 | 826 |
} |
| 823 | 827 |
|
| 824 | 828 |
$sth_tax->finish; |
Auch abrufbar als: Unified diff
InvoiceItem: Hinzufügen der Felder für Konten und Steuer
Es werden die Wert von relink_accounts als Default genommen und der
Nutzer kann dies ändern. Es werden alle nötigen Steuerdaten in die Form
geschrieben.