Revision 5ca651f0
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 487 | 487 |
$ref->{debit}{$k} = $ref->{amount} * -1;
|
| 488 | 488 |
$ref->{debit_accno}{$k} = $ref->{accno};
|
| 489 | 489 |
$ref->{debit_taxkey}{$k} = $ref->{taxkey};
|
| 490 |
$ref->{transdate}{$k} = $ref->{transdate};
|
|
| 490 | 491 |
|
| 491 | 492 |
} else {
|
| 492 | 493 |
$ref->{credit}{$l} = $ref->{amount} * 1;
|
| 493 | 494 |
$ref->{credit_accno}{$l} = $ref->{accno};
|
| 494 | 495 |
$ref->{credit_taxkey}{$l} = $ref->{taxkey};
|
| 496 |
$ref->{transdate}{$l} = $ref->{transdate};
|
|
| 495 | 497 |
|
| 496 | 498 |
|
| 497 | 499 |
} |
| ... | ... | |
| 547 | 549 |
$ref->{debit}{$k} = $ref2->{amount} * - 1;
|
| 548 | 550 |
$ref->{debit_accno}{$k} = $ref2->{accno};
|
| 549 | 551 |
$ref->{debit_taxkey}{$k} = $ref2->{taxkey};
|
| 552 |
$ref->{transdate}{$k} = $ref2->{transdate};
|
|
| 550 | 553 |
} else {
|
| 551 | 554 |
if ($ref->{credit_accno}{$l} ne "") {
|
| 552 | 555 |
$l++; |
| ... | ... | |
| 554 | 557 |
$ref->{credit}{$l} = $ref2->{amount};
|
| 555 | 558 |
$ref->{credit_accno}{$l} = $ref2->{accno};
|
| 556 | 559 |
$ref->{credit_taxkey}{$l} = $ref2->{taxkey};
|
| 560 |
$ref->{transdate}{$l} = $ref2->{transdate};
|
|
| 557 | 561 |
} |
| 558 | 562 |
} |
| 559 | 563 |
} |
| bin/mozilla/gl.pl | ||
|---|---|---|
| 750 | 750 |
} |
| 751 | 751 |
} |
| 752 | 752 |
|
| 753 |
$transdate = ""; |
|
| 754 |
foreach $key (sort keys(%{ $ref->{transdate} })) {
|
|
| 755 |
if ($key == 0) {
|
|
| 756 |
$transdate = "$ref->{transdate}{$key}";
|
|
| 757 |
} else {
|
|
| 758 |
$transdate .= "<br>$ref->{transdate}{$key}";
|
|
| 759 |
} |
|
| 760 |
} |
|
| 761 |
|
|
| 753 | 762 |
# $ref->{debit} = $form->format_amount(\%myconfig, $ref->{debit}, 2, " ");
|
| 754 | 763 |
# $ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, " ");
|
| 755 | 764 |
|
| 756 | 765 |
$column_data{id} = "<td align=right> $ref->{id} </td>";
|
| 757 |
$column_data{transdate} =
|
|
| 758 |
"<td align=center> $ref->{transdate} </td>";
|
|
| 766 |
$column_data{transdate} = "<td align=center>$transdate</td>";
|
|
| 759 | 767 |
$column_data{reference} =
|
| 760 | 768 |
"<td align=center><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{reference}</td>";
|
| 761 |
$column_data{description} =
|
|
| 762 |
"<td align=center>$ref->{description} </td>";
|
|
| 769 |
$column_data{description} = "<td align=center>$ref->{description} </td>";
|
|
| 763 | 770 |
$column_data{source} = "<td align=center>$ref->{source} </td>";
|
| 764 | 771 |
$column_data{notes} = "<td align=center>$ref->{notes} </td>";
|
| 765 | 772 |
$column_data{debit} = "<td align=right>$debit</td>";
|
Auch abrufbar als: Unified diff
Fix zu Bug 455, jetzt werden einfach beide Daten angezeigt.