Revision 80ec19fe
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1570 | 1570 |
} |
| 1571 | 1571 |
delete($ref->{"part_inventory_accno_id"});
|
| 1572 | 1572 |
|
| 1573 |
#set expense_accno=inventory_accno if they are different => bilanz |
|
| 1574 |
|
|
| 1575 |
|
|
| 1576 | 1573 |
while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >=0)) {
|
| 1577 | 1574 |
my $query = qq| SELECT accno AS inventory_accno, new_chart_id AS inventory_new_chart, date($transdate) - valid_from AS inventory_valid FROM chart WHERE id = $ref->{inventory_new_chart}|;
|
| 1578 | 1575 |
my $stw = $dbh->prepare($query); |
| ... | ... | |
| 1597 | 1594 |
$stw->finish; |
| 1598 | 1595 |
} |
| 1599 | 1596 |
|
| 1600 |
$vendor_accno = |
|
| 1601 |
($ref->{expense_accno} != $ref->{inventory_accno})
|
|
| 1602 |
? $ref->{inventory_accno}
|
|
| 1603 |
: $ref->{expense_accno};
|
|
| 1604 |
|
|
| 1605 | 1597 |
# get tax rates and description |
| 1606 | 1598 |
$accno_id = |
| 1607 |
($form->{vc} eq "customer") ? $ref->{income_accno} : $vendor_accno;
|
|
| 1599 |
($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
|
|
| 1608 | 1600 |
$query = qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber |
| 1609 | 1601 |
FROM tax t LEFT join chart c ON (c.id=t.chart_id) |
| 1610 | 1602 |
WHERE t.taxkey in (SELECT taxkey_id from chart where accno = '$accno_id') |
| ... | ... | |
| 1961 | 1953 |
} |
| 1962 | 1954 |
} |
| 1963 | 1955 |
|
| 1964 |
|
|
| 1965 |
$vendor_accno = |
|
| 1966 |
($ref->{expense_accno} != $ref->{inventory_accno})
|
|
| 1967 |
? $ref->{inventory_accno}
|
|
| 1968 |
: $ref->{expense_accno};
|
|
| 1969 |
|
|
| 1970 | 1956 |
# get tax rates and description |
| 1971 | 1957 |
$accno_id = |
| 1972 |
($form->{vc} eq "customer") ? $ref->{income_accno} : $vendor_accno;
|
|
| 1958 |
($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
|
|
| 1973 | 1959 |
$query = qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber |
| 1974 | 1960 |
FROM tax t LEFT JOIN chart c on (c.id=t.chart_id) |
| 1975 | 1961 |
WHERE t.taxkey in (SELECT c2.taxkey_id from chart c2 where c2.accno = '$accno_id') |
Auch abrufbar als: Unified diff
Die Steuersätze richten sich nach dem Ertrags- bzw. dem Aufwands- und nicht nach dem Bestandskonto, weil beim Bestandskonto ja nicht danach unterschieden wird, woher man etwas bezogen hat.