projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
print_form: Extension war vor -r3314 standard auf "html", wurde dann durch anderen...
[kivitendo-erp.git]
/
bin
/
mozilla
/
ca.pl
diff --git
a/bin/mozilla/ca.pl
b/bin/mozilla/ca.pl
index
eae6131
..
0558ae6
100644
(file)
--- a/
bin/mozilla/ca.pl
+++ b/
bin/mozilla/ca.pl
@@
-78,6
+78,10
@@
sub chart_of_accounts {
$form->{title} = $locale->text('Chart of Accounts');
$form->{title} = $locale->text('Chart of Accounts');
+ if ($eur) {
+ $form->{method} = "cash";
+ }
+
CA->all_accounts(\%myconfig, \%$form);
my @columns = qw(accno description debit credit);
CA->all_accounts(\%myconfig, \%$form);
my @columns = qw(accno description debit credit);
@@
-107,6
+111,7
@@
sub chart_of_accounts {
my %totals = ('debit' => 0, 'credit' => 0);
foreach my $ca (@{ $form->{CA} }) {
my %totals = ('debit' => 0, 'credit' => 0);
foreach my $ca (@{ $form->{CA} }) {
+ next unless defined $ca->{amount};
my $row = { };
foreach (qw(debit credit)) {
my $row = { };
foreach (qw(debit credit)) {
@@
-163,7
+168,7
@@
sub list {
| if $form->{selectdepartment};
$accrual = ($eur) ? "" : "checked";
$cash = ($eur) ? "checked" : "";
| if $form->{selectdepartment};
$accrual = ($eur) ? "" : "checked";
$cash = ($eur) ? "checked" : "";
-
+
$name_1 = "fromdate";
$id_1 = "fromdate";
$value_1 = "$form->{fromdate}";
$name_1 = "fromdate";
$id_1 = "fromdate";
$value_1 = "$form->{fromdate}";
@@
-352,7
+357,7
@@
$checked></td>
<tr>
<td><input name="subtotal" class=checkbox type=checkbox value=1> | . $locale->text('Subtotal') . qq|</td>
</tr>
<tr>
<td><input name="subtotal" class=checkbox type=checkbox value=1> | . $locale->text('Subtotal') . qq|</td>
</tr>
-
+
$jsscript
<tr><td colspan=5 ><hr size=3 noshade></td></tr>
</table>
$jsscript
<tr><td colspan=5 ><hr size=3 noshade></td></tr>
</table>
@@
-644,7
+649,7
@@
sub list_transactions {
$ca->{description} .= " \n " . $ca->{memo};
}
$ca->{description} .= " \n " . $ca->{memo};
}
-
+
foreach my $gegenkonto (@{ $ca->{GEGENKONTO} }) {
if ($ca->{gegenkonto} eq "") {
foreach my $gegenkonto (@{ $ca->{GEGENKONTO} }) {
if ($ca->{gegenkonto} eq "") {