Revision f4a48b30
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
|
$ref->{debit}{$k} = $ref->{amount} * -1;
|
||
|
$ref->{debit_accno}{$k} = $ref->{accno};
|
||
|
$ref->{debit_taxkey}{$k} = $ref->{taxkey};
|
||
|
$ref->{transdate}{$k} = $ref->{transdate};
|
||
|
$ref->{ac_transdate}{$k} = $ref->{transdate};
|
||
|
|
||
|
} else {
|
||
|
$ref->{credit}{$l} = $ref->{amount} * 1;
|
||
|
$ref->{credit_accno}{$l} = $ref->{accno};
|
||
|
$ref->{credit_taxkey}{$l} = $ref->{taxkey};
|
||
|
$ref->{transdate}{$l} = $ref->{transdate};
|
||
|
$ref->{ac_transdate}{$l} = $ref->{transdate};
|
||
|
|
||
|
|
||
|
}
|
||
| ... | ... | |
|
$ref->{debit}{$k} = $ref2->{amount} * - 1;
|
||
|
$ref->{debit_accno}{$k} = $ref2->{accno};
|
||
|
$ref->{debit_taxkey}{$k} = $ref2->{taxkey};
|
||
|
$ref->{transdate}{$k} = $ref2->{transdate};
|
||
|
$ref->{ac_transdate}{$k} = $ref2->{transdate};
|
||
|
} else {
|
||
|
if ($ref->{credit_accno}{$l} ne "") {
|
||
|
$l++;
|
||
| ... | ... | |
|
$ref->{credit}{$l} = $ref2->{amount};
|
||
|
$ref->{credit_accno}{$l} = $ref2->{accno};
|
||
|
$ref->{credit_taxkey}{$l} = $ref2->{taxkey};
|
||
|
$ref->{transdate}{$l} = $ref2->{transdate};
|
||
|
$ref->{ac_transdate}{$l} = $ref2->{transdate};
|
||
|
}
|
||
|
}
|
||
|
}
|
||
| bin/mozilla/gl.pl | ||
|---|---|---|
|
}
|
||
|
|
||
|
$transdate = "";
|
||
|
foreach $key (sort keys(%{ $ref->{transdate} })) {
|
||
|
foreach $key (sort keys(%{ $ref->{ac_transdate} })) {
|
||
|
if ($key == 0) {
|
||
|
$transdate = "$ref->{transdate}{$key}";
|
||
|
$transdate = "$ref->{ac_transdate}{$key}";
|
||
|
} else {
|
||
|
$transdate .= "<br>$ref->{transdate}{$key}";
|
||
|
$transdate .= "<br>$ref->{ac_transdate}{$key}";
|
||
|
}
|
||
|
}
|
||
|
|
||
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.