Revision de651621
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
1703 | 1703 |
LEFT Join tax t ON (a.taxkey = t.taxkey) |
1704 | 1704 |
WHERE a.trans_id = $self->{id} |
1705 | 1705 |
AND a.fx_transaction = '0' |
1706 |
ORDER BY a.transdate|; |
|
1706 |
ORDER BY a.oid,a.transdate|;
|
|
1707 | 1707 |
$sth = $dbh->prepare($query); |
1708 | 1708 |
$sth->execute || $self->dberror($query); |
1709 | 1709 |
|
... | ... | |
1713 | 1713 |
$self->{exchangerate} = |
1714 | 1714 |
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, |
1715 | 1715 |
$fld); |
1716 |
my $index=0; |
|
1716 | 1717 |
|
1717 | 1718 |
# store amounts in {acc_trans}{$key} for multiple accounts |
1718 | 1719 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { |
1719 | 1720 |
$ref->{exchangerate} = |
1720 | 1721 |
$self->get_exchangerate($dbh, $self->{currency}, $ref->{transdate}, |
1721 | 1722 |
$fld); |
1723 |
if ( !($xkeyref{ $ref->{accno} } =~ /tax/)) { |
|
1724 |
$index++; |
|
1725 |
} |
|
1726 |
$ref->{index} = $index; |
|
1722 | 1727 |
|
1723 | 1728 |
push @{ $self->{acc_trans}{ $xkeyref{ $ref->{accno} } } }, $ref; |
1724 | 1729 |
} |
Auch abrufbar als: Unified diff
Merge von 716 aus unstable: Splitbuchungen
Splittbuchungen fuer Debitorenbuchungen