Revision 044c3707
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 51 | 51 |
use SL::IC; |
| 52 | 52 |
use SL::IO; |
| 53 | 53 |
use SL::TransNumber; |
| 54 |
use SL::DB::Chart; |
|
| 54 | 55 |
use SL::DB::Default; |
| 55 | 56 |
use SL::DB::Draft; |
| 56 | 57 |
use SL::DB::Tax; |
| ... | ... | |
| 776 | 777 |
my $basefactor; |
| 777 | 778 |
my $baseqty; |
| 778 | 779 |
|
| 780 |
if ($form->{type} eq 'invoice_for_advance_payment') {
|
|
| 781 |
$form->{"income_accno_$i"} = SL::DB::Chart->new(id => $::instance_conf->get_advance_payment_clearing_chart_id)->load->accno;
|
|
| 782 |
} |
|
| 783 |
|
|
| 779 | 784 |
$form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;
|
| 780 | 785 |
$form->{"marge_absolut_$i"} = $form->parse_amount($myconfig, $form->{"marge_absolut_$i"}) * 1;
|
| 781 | 786 |
$form->{"lastcost_$i"} = $form->parse_amount($myconfig, $form->{"lastcost_$i"}) * 1;
|
| ... | ... | |
| 1010 | 1015 |
} |
| 1011 | 1016 |
} |
| 1012 | 1017 |
|
| 1018 |
if ($form->{type} eq 'invoice_for_advance_payment') {
|
|
| 1019 |
# invoice for advance payment show tax but does not account it. |
|
| 1020 |
# tax has to be accounted on payment |
|
| 1021 |
foreach my $item (split(/ /, $form->{taxaccounts})) {
|
|
| 1022 |
delete $form->{amount}{ $form->{id} }{$item};
|
|
| 1023 |
} |
|
| 1024 |
|
|
| 1025 |
$tax = 0; |
|
| 1026 |
} |
|
| 1027 |
|
|
| 1013 | 1028 |
# Invoice Summary includes Rounding |
| 1014 | 1029 |
my $grossamount = $netamount + $tax; |
| 1015 | 1030 |
my $rounding = $form->round_amount( |
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Buchen auf Verrechnungskonto ohne Steuer