Revision 2f6e7625
Von Jan Büren vor mehr als 11 Jahren hinzugefügt
| SL/Taxkeys.pm | ||
|---|---|---|
| 78 | 78 |
} |
| 79 | 79 |
|
| 80 | 80 |
my $sth = $self->{handles}->{get_tax_info};
|
| 81 |
do_statement($form, $sth, $self->{queries}->{get_tax_info}, $params{taxkey}, $params{transdate});
|
|
| 81 |
# Lieferdatum (deliverydate) ist entscheidend für den Steuersatz |
|
| 82 |
do_statement($form, $sth, $self->{queries}->{get_tax_info}, $params{taxkey}, $params{deliverydate} || $params{transdate});
|
|
| 82 | 83 |
|
| 83 | 84 |
my $ref = $sth->fetchrow_hashref() || { };
|
| 84 | 85 |
|
| ... | ... | |
| 106 | 107 |
my @all_taxkeys = map { $_->{taxkey} } (selectall_hashref_query($form, $form->get_standard_dbh(), qq|SELECT DISTINCT taxkey FROM tax WHERE taxkey IS NOT NULL|));
|
| 107 | 108 |
|
| 108 | 109 |
foreach my $taxkey (@all_taxkeys) {
|
| 109 |
my $ref = $self->get_tax_info('transdate' => $params{transdate}, 'taxkey' => $taxkey);
|
|
| 110 |
my $ref = $self->get_tax_info('transdate' => $params{transdate}, 'taxkey' => $taxkey, 'deliverydate' => $params{deliverydate});
|
|
| 110 | 111 |
|
| 111 | 112 |
$tax_info{taxkeys}->{$taxkey} = $ref;
|
| 112 | 113 |
$tax_info{accnos}->{$ref->{taxchart_id}} = $ref if ($ref->{taxchart_id});
|
Auch abrufbar als: Unified diff
Beim DATEV-Export Lieferdatum als entscheidenden Tag zur Bestimmung der Steuer berücksichtigen
Analog wie bei Einkaufs- und Verkaufsbelegen wird jetzt auch beim DATEV-Export
das Lieferdatum der Transaktion verwendet.