Revision 36761255
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
$form->{"AP_amount_chart_id_$i"});
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
|
||
|
if ($form->{"tax_$i"} != 0) {
|
||
|
if ($form->{"tax_$i"} != 0 && !$form->{"reverse_charge_$i"}) {
|
||
|
# insert detail records in acc_trans
|
||
|
$query =
|
||
|
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, | .
|
||
| SL/Form.pm | ||
|---|---|---|
|
|
||
|
my $selected_tax = SL::DB::Manager::Tax->find_by(id => "$tax_id");
|
||
|
|
||
|
if ( $selected_tax ) {
|
||
|
if ( $selected_tax && $selected_tax->taxkey ne '94') {
|
||
|
|
||
|
if ( $buysell eq 'sell' ) {
|
||
|
$self->{AR_amounts}{"tax_$i"} = $selected_tax->chart->accno if defined $selected_tax->chart;
|
||
| ... | ... | |
|
$self->{"taxrate_$i"} = $selected_tax->rate;
|
||
|
};
|
||
|
|
||
|
$self->{"taxkey_$i"} = $selected_tax->taxkey if $selected_tax->taxkey eq '94';
|
||
|
|
||
|
($self->{"amount_$i"}, $self->{"tax_$i"}) = $self->calculate_tax($self->{"amount_$i"},$self->{"taxrate_$i"},$taxincluded,$roundplaces);
|
||
|
|
||
|
$netamount += $self->{"amount_$i"};
|
||
| bin/mozilla/ap.pl | ||
|---|---|---|
|
# no taxincluded for reverse charge
|
||
|
my ($used_tax_id) = split(/--/, $form->{"taxchart_$i"});
|
||
|
my $tax = SL::DB::Manager::Tax->find_by(id => $used_tax_id);
|
||
|
if ($tax->reverse_charge_chart_id && $form->{taxincluded}) {
|
||
|
$form->error($locale->text('Cannot Post AP transaction with tax included!'));
|
||
|
# mark entry
|
||
|
if ($tax->reverse_charge_chart_id) {
|
||
|
$form->error($locale->text('Cannot Post AP transaction with tax included!')) if $form->{taxincluded};
|
||
|
$form->{"reverse_charge_$i"} = 1;
|
||
|
}
|
||
|
|
||
|
if ($form->parse_amount(\%myconfig, $form->{"amount_$i"})) {
|
||
Auch abrufbar als: Unified diff
reverse Charge Steuerschlüssel 94, keine Steuerbuchung in acc_trans
... dennoch Steuerschlüssel für den DATEV-Export korrekt setzen