Revision f4a48b30
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 500 | 500 |
$ref->{debit}{$k} = $ref->{amount} * -1;
|
| 501 | 501 |
$ref->{debit_accno}{$k} = $ref->{accno};
|
| 502 | 502 |
$ref->{debit_taxkey}{$k} = $ref->{taxkey};
|
| 503 |
$ref->{transdate}{$k} = $ref->{transdate};
|
|
| 503 |
$ref->{ac_transdate}{$k} = $ref->{transdate};
|
|
| 504 | 504 |
|
| 505 | 505 |
} else {
|
| 506 | 506 |
$ref->{credit}{$l} = $ref->{amount} * 1;
|
| 507 | 507 |
$ref->{credit_accno}{$l} = $ref->{accno};
|
| 508 | 508 |
$ref->{credit_taxkey}{$l} = $ref->{taxkey};
|
| 509 |
$ref->{transdate}{$l} = $ref->{transdate};
|
|
| 509 |
$ref->{ac_transdate}{$l} = $ref->{transdate};
|
|
| 510 | 510 |
|
| 511 | 511 |
|
| 512 | 512 |
} |
| ... | ... | |
| 563 | 563 |
$ref->{debit}{$k} = $ref2->{amount} * - 1;
|
| 564 | 564 |
$ref->{debit_accno}{$k} = $ref2->{accno};
|
| 565 | 565 |
$ref->{debit_taxkey}{$k} = $ref2->{taxkey};
|
| 566 |
$ref->{transdate}{$k} = $ref2->{transdate};
|
|
| 566 |
$ref->{ac_transdate}{$k} = $ref2->{transdate};
|
|
| 567 | 567 |
} else {
|
| 568 | 568 |
if ($ref->{credit_accno}{$l} ne "") {
|
| 569 | 569 |
$l++; |
| ... | ... | |
| 571 | 571 |
$ref->{credit}{$l} = $ref2->{amount};
|
| 572 | 572 |
$ref->{credit_accno}{$l} = $ref2->{accno};
|
| 573 | 573 |
$ref->{credit_taxkey}{$l} = $ref2->{taxkey};
|
| 574 |
$ref->{transdate}{$l} = $ref2->{transdate};
|
|
| 574 |
$ref->{ac_transdate}{$l} = $ref2->{transdate};
|
|
| 575 | 575 |
} |
| 576 | 576 |
} |
| 577 | 577 |
} |
| bin/mozilla/gl.pl | ||
|---|---|---|
| 766 | 766 |
} |
| 767 | 767 |
|
| 768 | 768 |
$transdate = ""; |
| 769 |
foreach $key (sort keys(%{ $ref->{transdate} })) {
|
|
| 769 |
foreach $key (sort keys(%{ $ref->{ac_transdate} })) {
|
|
| 770 | 770 |
if ($key == 0) {
|
| 771 |
$transdate = "$ref->{transdate}{$key}";
|
|
| 771 |
$transdate = "$ref->{ac_transdate}{$key}";
|
|
| 772 | 772 |
} else {
|
| 773 |
$transdate .= "<br>$ref->{transdate}{$key}";
|
|
| 773 |
$transdate .= "<br>$ref->{ac_transdate}{$key}";
|
|
| 774 | 774 |
} |
| 775 | 775 |
} |
| 776 | 776 |
|
Auch abrufbar als: Unified diff
Nicht Hashfelder sowohl als Skalar als auch als Hash benutzen. Führt zu merkwürdigem Verhalten, z.B. dass zu viele Keys herauskommen etc.