1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (c) 1998-2002
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
32 #======================================================================
34 use POSIX qw(strftime);
39 use SL::ReportGenerator;
41 require "bin/mozilla/common.pl";
42 require "bin/mozilla/reportgenerator.pl";
48 # this is for our long dates
49 # $locale->text('January')
50 # $locale->text('February')
51 # $locale->text('March')
52 # $locale->text('April')
53 # $locale->text('May ')
54 # $locale->text('June')
55 # $locale->text('July')
56 # $locale->text('August')
57 # $locale->text('September')
58 # $locale->text('October')
59 # $locale->text('November')
60 # $locale->text('December')
62 # this is for our short month
63 # $locale->text('Jan')
64 # $locale->text('Feb')
65 # $locale->text('Mar')
66 # $locale->text('Apr')
67 # $locale->text('May')
68 # $locale->text('Jun')
69 # $locale->text('Jul')
70 # $locale->text('Aug')
71 # $locale->text('Sep')
72 # $locale->text('Oct')
73 # $locale->text('Nov')
74 # $locale->text('Dec')
77 $lxdebug->enter_sub();
79 $auth->assert('general_ledger');
81 $form->{title} = "Add";
83 $form->{callback} = "gl.pl?action=add" unless $form->{callback};
85 # we use this only to set a default date
86 GL->transaction(\%myconfig, \%$form);
90 qq|<option value="$_->{id}--$_->{rate}">$_->{taxdescription} |
91 . ($_->{rate} * 100) . qq| %|
94 $form->{rowcount} = 2;
101 $form->all_departments(\%myconfig);
102 if (@{ $form->{all_departments} }) {
103 $form->{selectdepartment} = "<option>\n";
106 $form->{selectdepartment} .=
107 "<option>$_->{description}--$_->{id}\n"
108 } (@{ $form->{all_departments} });
111 $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
114 $lxdebug->leave_sub();
118 sub prepare_transaction {
119 $lxdebug->enter_sub();
121 $auth->assert('general_ledger');
123 GL->transaction(\%myconfig, \%$form);
127 qq|<option value="$_->{id}--$_->{rate}">$_->{taxdescription} |
128 . ($_->{rate} * 100) . qq| %|
131 $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
134 $form->all_departments(\%myconfig);
135 if (@{ $form->{all_departments} }) {
136 $form->{selectdepartment} = "<option>\n";
139 $form->{selectdepartment} .=
140 "<option>$_->{description}--$_->{id}\n"
141 } (@{ $form->{all_departments} });
147 foreach $ref (@{ $form->{GL} }) {
149 if ($tax && ($ref->{accno} eq $taxaccno)) {
150 $form->{"tax_$j"} = abs($ref->{amount});
151 $form->{"taxchart_$j"} = $ref->{id} . "--" . $ref->{taxrate};
152 if ($form->{taxincluded}) {
153 if ($ref->{amount} < 0) {
154 $form->{"debit_$j"} += $form->{"tax_$j"};
156 $form->{"credit_$j"} += $form->{"tax_$j"};
159 $form->{"project_id_$j"} = $ref->{project_id};
162 $form->{"accno_$i"} = "$ref->{accno}--$ref->{tax_id}";
163 for (qw(fx_transaction source memo)) { $form->{"${_}_$i"} = $ref->{$_} }
164 if ($ref->{amount} < 0) {
165 $form->{totaldebit} -= $ref->{amount};
166 $form->{"debit_$i"} = $ref->{amount} * -1;
168 $form->{totalcredit} += $ref->{amount};
169 $form->{"credit_$i"} = $ref->{amount};
171 $form->{"taxchart_$i"} = "0--0.00";
172 $form->{"project_id_$i"} = $ref->{project_id};
175 if ($ref->{taxaccno} && !$tax) {
176 $taxaccno = $ref->{taxaccno};
184 $form->{rowcount} = $i;
186 ($form->datetonum($form->{transdate}, \%myconfig) <=
187 $form->datetonum($form->{closedto}, \%myconfig));
189 $lxdebug->leave_sub();
193 $lxdebug->enter_sub();
195 $auth->assert('general_ledger');
197 prepare_transaction();
199 $form->{title} = "Edit";
201 $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
207 $lxdebug->leave_sub();
212 $lxdebug->enter_sub();
214 $auth->assert('general_ledger');
216 $form->{title} = $locale->text('Journal');
218 $form->all_departments(\%myconfig);
221 if (@{ $form->{all_departments} }) {
222 $form->{selectdepartment} = "<option>\n";
225 $form->{selectdepartment} .=
226 "<option>$_->{description}--$_->{id}\n"
227 } (@{ $form->{all_departments} });
232 <th align=right nowrap>| . $locale->text('Department') . qq|</th>
233 <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
235 | if $form->{selectdepartment};
237 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
240 my %project_labels = ();
241 my @project_values = ("");
242 foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
243 push(@project_values, $item->{"id"});
244 $project_labels{$item->{"id"}} = $item->{"projectnumber"};
248 NTI($cgi->popup_menu('-name' => "project_id",
249 '-values' => \@project_values,
250 '-labels' => \%project_labels));
252 # use JavaScript Calendar or not
253 $form->{jsscript} = 1;
255 if ($form->{jsscript}) {
257 # with JavaScript Calendar
259 <td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
260 <input type=button name=datefrom id="trigger1" value=|
261 . $locale->text('button') . qq|></td>
264 <td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
265 <input type=button name=dateto id="trigger2" value=|
266 . $locale->text('button') . qq|></td>
271 Form->write_trigger(\%myconfig, "2", "datefrom", "BR", "trigger1",
272 "dateto", "BL", "trigger2");
275 # without JavaScript Calendar
277 qq|<td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
279 qq|<td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
281 $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
283 $onload = qq|focus()|;
284 $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
285 $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
287 <body onLoad="$onload">
289 <form method=post action=gl.pl>
291 <input type=hidden name=sort value=transdate>
295 <th class=listtop>$form->{title}</th>
302 <th align=right>| . $locale->text('Reference') . qq|</th>
303 <td><input name=reference size=20></td>
304 <th align=right>| . $locale->text('Source') . qq|</th>
305 <td><input name=source size=20></td>
309 <th align=right>| . $locale->text('Description') . qq|</th>
310 <td colspan=3><input name=description size=40></td>
313 <th align=right>| . $locale->text('Notes') . qq|</th>
314 <td colspan=3><input name=notes size=40></td>
317 <th align=right>| . $locale->text('Project Number') . qq|</th>
318 <td colspan=3>$projectnumber</td>
321 <th align=right>| . $locale->text('From') . qq|</th>
323 <th align=right>| . $locale->text('To (time)') . qq|</th>
327 <th align=right>| . $locale->text('Include in Report') . qq|</th>
332 <input name="category" class=radio type=radio value=X checked> |
333 . $locale->text('All') . qq|
334 <input name="category" class=radio type=radio value=A> |
335 . $locale->text('Asset') . qq|
336 <input name="category" class=radio type=radio value=L> |
337 . $locale->text('Liability') . qq|
338 <input name="category" class=radio type=radio value=I> |
339 . $locale->text('Revenue') . qq|
340 <input name="category" class=radio type=radio value=E> |
341 . $locale->text('Expense') . qq|
347 <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
348 <td>| . $locale->text('ID') . qq|</td>
349 <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
350 <td>| . $locale->text('Date') . qq|</td>
351 <td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>
352 <td>| . $locale->text('Reference') . qq|</td>
353 <td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
354 <td>| . $locale->text('Description') . qq|</td>
355 <td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
356 <td>| . $locale->text('Notes') . qq|</td>
359 <td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td>
360 <td>| . $locale->text('Debit') . qq|</td>
361 <td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td>
362 <td>| . $locale->text('Credit') . qq|</td>
363 <td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td>
364 <td>| . $locale->text('Source') . qq|</td>
365 <td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td>
366 <td>| . $locale->text('Account') . qq|</td>
369 <td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
370 <td>| . $locale->text('Subtotal') . qq|</td>
371 <td align=right><input name="l_projectnumbers" class=checkbox type=checkbox value=Y></td>
372 <td>| . $locale->text('Project Number') . qq|</td>
382 <td><hr size=3 noshade></td>
388 <input type=hidden name=nextsub value=generate_report>
391 <input class=submit type=submit name=action value="|
392 . $locale->text('Continue') . qq|">
398 $lxdebug->leave_sub();
401 sub create_subtotal_row {
402 $lxdebug->enter_sub();
404 my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;
406 my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };
408 map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };
410 map { $totals->{$_} = 0 } @{ $subtotal_columns };
412 $lxdebug->leave_sub();
417 sub generate_report {
418 $lxdebug->enter_sub();
420 $auth->assert('general_ledger');
422 $form->{sort} ||= "transdate";
424 GL->all_transactions(\%myconfig, \%$form);
426 my %acctype = ('A' => $locale->text('Asset'),
427 'C' => $locale->text('Contra'),
428 'L' => $locale->text('Liability'),
429 'Q' => $locale->text('Equity'),
430 'I' => $locale->text('Revenue'),
431 'E' => $locale->text('Expense'),);
433 $form->{title} = $locale->text('Journal');
434 if ($form->{category} ne 'X') {
435 $form->{title} .= " : " . $locale->text($acctype{ $form->{category} });
438 $form->{landscape} = 1;
440 my $ml = ($form->{ml} =~ /(A|E|Q)/) ? -1 : 1;
443 transdate id reference description
444 notes source debit debit_accno
445 credit credit_accno debit_tax debit_tax_accno
446 credit_tax credit_tax_accno projectnumbers balance
449 my @hidden_variables = qw(accno source reference department description notes project_id datefrom dateto category l_subtotal);
450 push @hidden_variables, map { "l_${_}" } @columns;
452 my (@options, $date_option);
453 if ($form->{accno}) {
454 push @options, $locale->text('Account') . " : $form->{accno} $form->{account_description}";
456 if ($form->{source}) {
457 push @options, $locale->text('Source') . " : $form->{source}";
459 if ($form->{reference}) {
460 push @options, $locale->text('Reference') . " : $form->{reference}";
462 if ($form->{department}) {
463 my ($department) = split /--/, $form->{department};
464 push @options, $locale->text('Department') . " : $department";
466 if ($form->{description}) {
467 push @options, $locale->text('Description') . " : $form->{description}";
469 if ($form->{notes}) {
470 push @options, $locale->text('Notes') . " : $form->{notes}";
472 if ($form->{datefrom}) {
473 $date_option = $locale->text('From') . " " . $locale->date(\%myconfig, $form->{datefrom}, 1);
475 if ($form->{dateto}) {
476 if ($form->{datefrom}) {
479 $date_option .= $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{dateto}, 1);
481 push @options, $date_option if $date_option;
483 my $callback = build_std_url('action=generate_report', @hidden_variables);
485 $form->{l_credit_accno} = 'Y';
486 $form->{l_debit_accno} = 'Y';
487 $form->{l_credit_tax} = 'Y';
488 $form->{l_debit_tax} = 'Y';
489 $form->{l_credit_tax_accno} = 'Y';
490 $form->{l_debit_tax_accno} = 'Y';
491 $form->{l_balance} = $form->{accno} ? 'Y' : '';
494 'id' => { 'text' => $locale->text('ID'), },
495 'transdate' => { 'text' => $locale->text('Date'), },
496 'reference' => { 'text' => $locale->text('Reference'), },
497 'source' => { 'text' => $locale->text('Source'), },
498 'description' => { 'text' => $locale->text('Description'), },
499 'notes' => { 'text' => $locale->text('Notes'), },
500 'debit' => { 'text' => $locale->text('Debit'), },
501 'debit_accno' => { 'text' => $locale->text('Debit Account'), },
502 'credit' => { 'text' => $locale->text('Credit'), },
503 'credit_accno' => { 'text' => $locale->text('Credit Account'), },
504 'debit_tax' => { 'text' => $locale->text('Debit Tax'), },
505 'debit_tax_accno' => { 'text' => $locale->text('Debit Tax Account'), },
506 'credit_tax' => { 'text' => $locale->text('Credit Tax'), },
507 'credit_tax_accno' => { 'text' => $locale->text('Credit Tax Account'), },
508 'balance' => { 'text' => $locale->text('Balance'), },
509 'projectnumbers' => { 'text' => $locale->text('Project Numbers'), },
512 map { $column_defs{$_}->{link} = $callback . "&sort=${_}" } qw(id transdate reference source description);
513 map { $column_defs{$_}->{link} = $callback . "&sort=accno" } qw(debit_accno credit_accno debit_tax_accno credit_tax_accno debit_tax credit_tax);
514 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
515 map { $column_defs{$_}->{visible} = 0 } qw(debit_accno credit_accno debit_tax_accno credit_tax_accno) if $form->{accno};
517 my %column_alignment;
518 map { $column_alignment{$_} = 'right' } qw(balance id debit credit debit_tax credit_tax);
519 map { $column_alignment{$_} = 'center' } qw(transdate reference description source notes debit_accno credit_accno debit_tax_accno credit_tax_accno);
521 my $report = SL::ReportGenerator->new(\%myconfig, $form);
523 $report->set_columns(%column_defs);
524 $report->set_column_order(@columns);
526 $report->set_export_options('generate_report', @hidden_variables);
528 $report->set_sort_indicator($form->{sort}, 1);
530 $report->set_options('top_info_text' => join("\n", @options),
531 'output_format' => 'HTML',
532 'title' => $form->{title},
533 'attachment_basename' => $locale->text('general_ledger_list') . strftime('_%Y%m%d', localtime time),
535 $report->set_options_from_form();
537 # add sort to callback
538 $form->{callback} = "$callback&sort=" . E($form->{sort});
540 $form->{balance} *= $ml;
542 if ($form->{accno} && $form->{balance}) {
545 'data' => $form->format_amount(\%myconfig, $form->{balance}, 2),
550 $report->add_data($row);
553 my @totals_columns = qw(debit credit debit_tax credit_tax);
554 my %subtotals = map { $_ => 0 } @totals_columns;
555 my %totals = map { $_ => 0 } @totals_columns;
558 foreach $ref (@{ $form->{GL} }) {
559 $form->{balance} *= $ml;
563 foreach my $key (qw(debit credit debit_tax credit_tax)) {
565 foreach my $idx (sort keys(%{ $ref->{$key} })) {
566 my $value = $ref->{$key}->{$idx};
567 $subtotals{$key} += $value;
568 $totals{$key} += $value;
569 $form->{balance} = abs($form->{balance}) - abs($value);
570 push @{ $rows{$key} }, $form->format_amount(\%myconfig, $value, 2);
574 foreach my $key (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno ac_transdate)) {
575 my $col = $key eq 'ac_transdate' ? 'transdate' : $key;
576 $rows{$col} = [ map { $ref->{$key}->{$_} } sort keys(%{ $ref->{$key} }) ];
580 map { $row->{$_} = { 'data' => '', 'align' => $column_alignment{$_} } } @columns;
582 $row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance}, 2);
583 $row->{projectnumbers}->{data} = join ", ", sort { lc($a) cmp lc($b) } keys %{ $ref->{projectnumbers} };
585 map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description source notes);
587 map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno);
589 foreach my $col (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
590 $row->{$col}->{link} = [ map { "${callback}&accno=" . E($_) } @{ $rows{$col} } ];
593 map { $row->{$_}->{data} = \@{ $rows{$_} } if ($ref->{"${_}_accno"} ne "") } qw(debit_tax credit_tax);
595 $row->{reference}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'id=' . E($ref->{id}), 'callback');
597 my $row_set = [ $row ];
599 if (($form->{l_subtotal} eq 'Y')
600 && (($idx == (scalar @{ $form->{GL} } - 1))
601 || ($ref->{ $form->{sort} } ne $form->{GL}->[$idx + 1]->{ $form->{sort} }))) {
602 push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, [ qw(debit credit) ], 'listsubtotal');
605 $report->add_data($row_set);
610 $report->add_separator();
612 # = 0 for balanced ledger
613 my $balanced_ledger = $totals{debit} + $totals{debit_tax} - $totals{credit} - $totals{credit_tax};
615 my $row = create_subtotal_row(\%totals, \@columns, \%column_alignment, [ qw(debit credit debit_tax credit_tax) ], 'listtotal');
617 'data' => $form->format_amount(\%myconfig, $form->{balance} * $ml, 2),
619 'class' => 'listtotal',
621 $report->add_data($row);
623 my $raw_bottom_info_text;
625 if (!$form->{accno} && (abs($balanced_ledger) > 0.001)) {
626 $raw_bottom_info_text .=
627 '<p><span class="unbalanced_ledger">'
628 . $locale->text('Unbalanced Ledger')
630 . $form->format_amount(\%myconfig, $balanced_ledger, 3)
634 $raw_bottom_info_text .= $form->parse_html_template('gl/generate_report_bottom');
636 $report->set_options('raw_bottom_info_text' => $raw_bottom_info_text);
638 $report->generate_with_headers();
640 $lxdebug->leave_sub();
644 $lxdebug->enter_sub();
646 $auth->assert('general_ledger');
648 $form->{oldtransdate} = $form->{transdate};
660 qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
662 for my $i (1 .. $form->{rowcount}) {
664 unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) {
665 for (qw(debit credit tax)) {
667 $form->parse_amount(\%myconfig, $form->{"${_}_$i"});
671 $debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
678 if (($debitcount >= 2) && ($creditcount == 2)) {
679 $form->{"credit_$i"} = 0;
680 $form->{"tax_$i"} = 0;
684 if (($creditcount >= 2) && ($debitcount == 2)) {
685 $form->{"debit_$i"} = 0;
686 $form->{"tax_$i"} = 0;
690 if (($creditcount == 1) && ($debitcount == 2)) {
693 if (($creditcount == 2) && ($debitcount == 1)) {
696 if ($debitcredit && $credittax) {
697 $form->{"taxchart_$i"} = "0--0.00";
699 if (!$debitcredit && $debittax) {
700 $form->{"taxchart_$i"} = "0--0.00";
703 ($form->{"debit_$i"} == 0)
704 ? $form->{"credit_$i"}
705 : $form->{"debit_$i"};
707 if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) {
708 $form->{"taxchart_$i"} = "0--0.00";
709 $form->{"tax_$i"} = 0;
711 if (!$form->{"korrektur_$i"}) {
712 ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
719 if ($form->{taxincluded}) {
720 $form->{"tax_$i"} = $amount / ($rate + 1) * $rate;
722 $form->{"tax_$i"} = $amount * $rate;
725 $form->{"tax_$i"} = 0;
729 for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
734 for $i (1 .. $count) {
736 for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
739 for $i ($count + 1 .. $form->{rowcount}) {
740 for (@flds) { delete $form->{"${_}_$i"} }
743 $form->{rowcount} = $count + 1;
746 $lxdebug->leave_sub();
752 $lxdebug->enter_sub();
754 $auth->assert('general_ledger');
758 # for $i (1 .. $form->{rowcount}) {
759 # $form->{totaldebit} += $form->parse_amount(\%myconfig, $form->{"debit_$i"});
760 # $form->{totalcredit} += $form->parse_amount(\%myconfig, $form->{"credit_$i"});
764 &display_rows($init);
766 $lxdebug->leave_sub();
772 $lxdebug->enter_sub();
774 $auth->assert('general_ledger');
776 $form->{debit_1} = 0 if !$form->{"debit_1"};
777 $form->{totaldebit} = 0;
778 $form->{totalcredit} = 0;
780 my @old_project_ids = ();
781 map({ push(@old_project_ids, $form->{"project_id_$_"})
782 if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
784 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
786 "old_id" => \@old_project_ids },
787 "charts" => { "key" => "ALL_CHARTS",
788 "transdate" => $form->{transdate} },
789 "taxcharts" => "ALL_TAXCHARTS");
791 my %project_labels = ();
792 my @project_values = ("");
793 foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
794 push(@project_values, $item->{"id"});
795 $project_labels{$item->{"id"}} = $item->{"projectnumber"};
798 my %chart_labels = ();
799 my @chart_values = ();
802 foreach my $item (@{ $form->{ALL_CHARTS} }) {
803 my $key = Q($item->{accno}) . "--" . Q($item->{tax_id});
804 $taxchart_init = $item->{taxkey_id} unless (@chart_values);
805 push(@chart_values, $key);
806 $chart_labels{$key} = H($item->{accno}) . "--" . H($item->{description});
807 $charts{$item->{accno}} = $item;
810 my %taxchart_labels = ();
811 my @taxchart_values = ();
813 foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {
814 my $key = Q($item->{id}) . "--" . Q($item->{rate});
815 $taxchart_init = $key if ($taxchart_init eq $item->{taxkey});
816 push(@taxchart_values, $key);
817 $taxchart_labels{$key} = H($item->{taxdescription}) . " " .
818 H($item->{rate} * 100) . ' %';
819 $taxcharts{$item->{id}} = $item;
822 for $i (1 .. $form->{rowcount}) {
825 <td><input name="source_$i" value="$form->{"source_$i"}" size="16"></td>|;
827 <td><input name="memo_$i" value="$form->{"memo_$i"}" size="16"></td>|;
829 my $selected_accno_full;
830 my ($accno_row) = split(/--/, $form->{"accno_$i"});
831 my $item = $charts{$accno_row};
832 $selected_accno_full = "$item->{accno}--$item->{tax_id}";
834 my $selected_taxchart = $form->{"taxchart_$i"};
835 my ($selected_accno, $selected_tax_id) = split(/--/, $selected_accno_full);
836 my ($previous_accno, $previous_tax_id) = split(/--/, $form->{"previous_accno_$i"});
838 if ($previous_accno &&
839 ($previous_accno eq $selected_accno) &&
840 ($previous_tax_id ne $selected_tax_id)) {
841 my $item = $taxcharts{$selected_tax_id};
842 $selected_taxchart = "$item->{id}--$item->{rate}";
845 $selected_accno = '' if ($init);
846 $selected_taxchart = $taxchart_init unless ($selected_taxchart ne "");
849 NTI($cgi->popup_menu('-name' => "accno_$i",
851 '-onChange' => "setTaxkey(this, $i)",
852 '-style' => 'width:200px',
853 '-values' => \@chart_values,
854 '-labels' => \%chart_labels,
855 '-default' => $selected_accno_full))
856 . $cgi->hidden('-name' => "previous_accno_$i",
857 '-default' => $selected_accno_full)
860 NTI($cgi->popup_menu('-name' => "taxchart_$i",
861 '-id' => "taxchart_$i",
862 '-style' => 'width:200px',
863 '-values' => \@taxchart_values,
864 '-labels' => \%taxchart_labels,
865 '-default' => $selected_taxchart))
870 qq|<td><input type="checkbox" name="korrektur_$i" value="1"></td>|;
871 if ($form->{transfer}) {
872 $fx_transaction = qq|
873 <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
878 if ($form->{"debit_$i"} != 0) {
879 $form->{totaldebit} += $form->{"debit_$i"};
880 if (!$form->{taxincluded}) {
881 $form->{totaldebit} += $form->{"tax_$i"};
884 $form->{totalcredit} += $form->{"credit_$i"};
885 if (!$form->{taxincluded}) {
886 $form->{totalcredit} += $form->{"tax_$i"};
890 for (qw(debit credit tax)) {
893 ? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
897 if ($i < $form->{rowcount}) {
898 if ($form->{transfer}) {
899 $checked = ($form->{"fx_transaction_$i"}) ? "1" : "";
900 $x = ($checked) ? "x" : "";
901 $fx_transaction = qq|
902 <td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td>
905 $checked = ($form->{"korrektur_$i"}) ? "checked" : "";
907 qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked></td>|;
908 $form->hide_form("accno_$i");
912 qq|<td><input type="checkbox" name="korrektur_$i" value="1"></td>|;
913 if ($form->{transfer}) {
914 $fx_transaction = qq|
915 <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
920 my $debitreadonly = "";
921 my $creditreadonly = "";
922 if ($i == $form->{rowcount}) {
924 $debitreadonly = "readonly";
925 } elsif ($creditlock) {
926 $creditreadonly = "readonly";
931 NTI($cgi->popup_menu('-name' => "project_id_$i",
932 '-values' => \@project_values,
933 '-labels' => \%project_labels,
934 '-default' => $form->{"project_id_$i"} ));
936 my $copy2credit = 'onkeyup="copy_debit_to_credit()"' if $i == 1;
938 print qq|<tr valign=top>
941 <td><input name="debit_$i" size="8" value="$form->{"debit_$i"}" accesskey=$i $copy2credit $debitreadonly></td>
942 <td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" $creditreadonly></td>
943 <td><input name="tax_$i" size=6 value="$form->{"tax_$i"}"></td>
947 if ($form->{show_details}) {
951 <td>$projectnumber</td>
959 $form->hide_form(qw(rowcount selectaccno));
961 $lxdebug->leave_sub();
967 $lxdebug->enter_sub();
969 $auth->assert('general_ledger');
971 $title = $form->{title};
972 $form->{title} = $locale->text("$title General Ledger Transaction");
973 $readonly = ($form->{id}) ? "readonly" : "";
975 $show_details_checked = "checked" if $form->{show_details};
977 # $locale->text('Add General Ledger Transaction')
978 # $locale->text('Edit General Ledger Transaction')
980 map { $form->{$_} =~ s/\"/"/g }
981 qw(reference description chart taxchart);
983 $form->{javascript} = qq|<script type="text/javascript">
985 function setTaxkey(accno, row) {
986 var taxkey = accno.options[accno.selectedIndex].value;
987 var reg = /--([0-9]*)/;
988 var found = reg.exec(taxkey);
989 var index = found[1];
990 index = parseInt(index);
991 var tax = 'taxchart_' + row;
992 for (var i = 0; i < document.getElementById(tax).options.length; ++i) {
993 var reg2 = new RegExp("^"+ index, "");
994 if (reg2.exec(document.getElementById(tax).options[i].value)) {
995 document.getElementById(tax).options[i].selected = true;
1001 function copy_debit_to_credit() {
1002 var txt = document.getElementsByName('debit_1')[0].value;
1003 document.getElementsByName('credit_2')[0].value = txt;
1008 $form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
1010 $form->{selectdepartment} =~ s/ selected//;
1011 $form->{selectdepartment} =~
1012 s/option>\Q$form->{department}\E/option selected>$form->{department}/;
1014 if (($rows = $form->numtextrows($form->{description}, 50)) > 1) {
1016 qq|<textarea name=description rows=$rows cols=50 wrap=soft $readonly >$form->{description}</textarea>|;
1019 qq|<input name=description size=50 value="$form->{description}" $readonly>|;
1022 $taxincluded = ($form->{taxincluded}) ? "checked" : "";
1025 $taxincluded = "checked";
1030 <th align=right nowrap>| . $locale->text('Department') . qq|</th>
1031 <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
1032 <input type=hidden name=selectdepartment value="$form->{selectdepartment}">
1034 | if $form->{selectdepartment};
1036 $form->{fokus} = "gl.reference";
1038 $form->{fokus} = qq|gl.accno_$form->{rowcount}|;
1041 # use JavaScript Calendar or not
1042 $form->{jsscript} = 1;
1044 if ($form->{jsscript}) {
1046 # with JavaScript Calendar
1048 <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly onBlur=\"check_right_date_format(this)\">
1049 <input type=button name=transdate id="trigger1" value=|
1050 . $locale->text('button') . qq|></td>
1055 Form->write_trigger(\%myconfig, "1", "transdate", "BL", "trigger1");
1058 # without JavaScript Calendar
1060 qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly onBlur=\"check_right_date_format(this)\"></td>|;
1063 $form->{previous_id} ||= "--";
1064 $form->{previous_gldate} ||= "--";
1069 <body onLoad="fokus()">
1071 <form method=post name="gl" action=gl.pl>
1074 $form->hide_form(qw(id closedto locked storno storno_id previous_id previous_gldate));
1077 <input type=hidden name=title value="$title">
1082 <th class=listtop>$form->{title}</th>
1084 <tr height="5"></tr>
1089 <td colspan="6" align="left">|
1090 . $locale->text("Previous transnumber text")
1091 . " $form->{previous_id} "
1092 . $locale->text("Previous transdate text")
1093 . " $form->{previous_gldate}"
1097 <th align=right>| . $locale->text('Reference') . qq|</th>
1098 <td><input name=reference size=20 value="$form->{reference}" $readonly></td>
1102 <th align=right nowrap>| . $locale->text('Date') . qq|</th>
1111 <th align=right>| . $locale->text('Belegnummer') . qq|</th>
1112 <td><input name=id size=20 value="$form->{id}" $readonly></td>
1116 <th align=right width=50%>| . $locale->text('Buchungsdatum') . qq|</th>
1117 <td align=left><input name=gldate size=11 title="$myconfig{dateformat}" value=$form->{gldate} $readonly onBlur=\"check_right_date_format(this)\"></td>
1128 <th align=right width=1%>| . $locale->text('Description') . qq|</th>
1129 <td width=1%>$description</td>
1133 <th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
1134 <td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
1141 <th align=right width=50%>| . $locale->text('Mitarbeiter') . qq|</th>
1142 <td align=left><input name=employee size=20 value="| . H($form->{employee}) . qq|" readonly></td>
1150 <th align=left width=1%>| . $locale->text('Description') . qq|</th>
1151 <td width=1%>$description</td>
1155 <th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
1156 <td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
1164 <td width="1%" align="right" nowrap>| . $locale->text('Show details') . qq|</td>
1165 <td width="1%"><input type="checkbox" onclick="show_form_details();" name="show_details" value="1" $show_details_checked></td>
1172 <tr class=listheading>
1173 <th class=listheading style="width:15%">|
1174 . $locale->text('Account') . qq|</th>
1175 <th class=listheading style="width:10%">|
1176 . $locale->text('Debit') . qq|</th>
1177 <th class=listheading style="width:10%">|
1178 . $locale->text('Credit') . qq|</th>
1179 <th class=listheading style="width:10%">|
1180 . $locale->text('Tax') . qq|</th>
1181 <th class=listheading style="width:5%">|
1182 . $locale->text('Korrektur') . qq|</th>
1183 <th class=listheading style="width:10%">|
1184 . $locale->text('Taxkey') . qq|</th>|;
1186 if ($form->{show_details}) {
1188 <th class=listheading style="width:20%">| . $locale->text('Source') . qq|</th>
1189 <th class=listheading style="width:20%">| . $locale->text('Memo') . qq|</th>
1190 <th class=listheading style="width:20%">| . $locale->text('Project Number') . qq|</th>
1199 $lxdebug->leave_sub();
1204 $lxdebug->enter_sub();
1206 $auth->assert('general_ledger');
1208 ($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
1210 $decimalplaces = ($dec > 2) ? $dec : 2;
1211 $radieren = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
1214 $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2, " ")
1215 } qw(totaldebit totalcredit);
1218 <tr class=listtotal>
1220 <th align=right class=listtotal> $form->{totaldebit}</th>
1221 <th align=right class=listtotal> $form->{totalcredit}</th>
1229 <input name=callback type=hidden value="$form->{callback}">
1234 $transdate = $form->datetonum($form->{transdate}, \%myconfig);
1235 $closedto = $form->datetonum($form->{closedto}, \%myconfig);
1239 if (!$form->{storno}) {
1240 print qq|<input class=submit type=submit name=action value="| . $locale->text('Storno') . qq|">|;
1243 # Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
1244 if (!$form->{locked} && $radieren) {
1246 <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|" accesskey="b">
1247 <input class=submit type=submit name=action value="| . $locale->text('Delete') . qq|">|;
1251 if ($transdate > $closedto) {
1253 <input class=submit type=submit name=action id=update_button value="| . $locale->text('Update') . qq|">
1254 <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|">|;
1264 $lxdebug->leave_sub();
1269 $lxdebug->enter_sub();
1276 <form method=post action=gl.pl>
1279 map { $form->{$_} =~ s/\"/"/g } qw(reference description);
1281 delete $form->{header};
1283 foreach $key (keys %$form) {
1284 next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
1285 print qq|<input type="hidden" name="$key" value="$form->{$key}">\n|;
1289 <h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
1292 . $locale->text('Are you sure you want to delete Transaction')
1293 . qq| $form->{reference}</h4>
1295 <input name=action class=submit type=submit value="|
1296 . $locale->text('Yes') . qq|">
1299 $lxdebug->leave_sub();
1304 $lxdebug->enter_sub();
1305 if (GL->delete_transaction(\%myconfig, \%$form)){
1306 # saving the history
1307 if(!exists $form->{addition} && $form->{id} ne "") {
1308 $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1309 $form->{addition} = "DELETED";
1310 $form->save_history($form->dbconnect(\%myconfig));
1312 # /saving the history
1313 $form->redirect($locale->text('Transaction deleted!'))
1315 $form->error($locale->text('Cannot delete transaction!'));
1316 $lxdebug->leave_sub();
1320 sub post_transaction {
1321 $lxdebug->enter_sub();
1323 # check if there is something in reference and date
1324 $form->isblank("reference", $locale->text('Reference missing!'));
1325 $form->isblank("transdate", $locale->text('Transaction Date missing!'));
1326 $form->isblank("description", $locale->text('Description missing!'));
1328 $transdate = $form->datetonum($form->{transdate}, \%myconfig);
1329 $closedto = $form->datetonum($form->{closedto}, \%myconfig);
1336 my $creditcount = 0;
1340 my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
1342 for my $i (1 .. $form->{rowcount}) {
1343 next if $form->{"debit_$i"} eq "" && $form->{"credit_$i"} eq "";
1345 for (qw(debit credit tax)) {
1346 $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"});
1350 $debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
1358 if (($debitcount >= 2) && ($creditcount == 2)) {
1359 $form->{"credit_$i"} = 0;
1360 $form->{"tax_$i"} = 0;
1364 if (($creditcount >= 2) && ($debitcount == 2)) {
1365 $form->{"debit_$i"} = 0;
1366 $form->{"tax_$i"} = 0;
1370 if (($creditcount == 1) && ($debitcount == 2)) {
1373 if (($creditcount == 2) && ($debitcount == 1)) {
1376 if ($debitcredit && $credittax) {
1377 $form->{"taxchart_$i"} = "0--0.00";
1379 if (!$debitcredit && $debittax) {
1380 $form->{"taxchart_$i"} = "0--0.00";
1382 $amount = ($form->{"debit_$i"} == 0)
1383 ? $form->{"credit_$i"}
1384 : $form->{"debit_$i"};
1386 if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) {
1387 $form->{"taxchart_$i"} = "0--0.00";
1388 $form->{"tax_$i"} = 0;
1390 if (!$form->{"korrektur_$i"}) {
1391 ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
1398 if ($form->{taxincluded}) {
1399 $form->{"tax_$i"} = $amount / ($rate + 1) * $rate;
1401 $form->{"debit_$i"} = $form->{"debit_$i"} - $form->{"tax_$i"};
1403 $form->{"credit_$i"} = $form->{"credit_$i"} - $form->{"tax_$i"};
1406 $form->{"tax_$i"} = $amount * $rate;
1409 $form->{"tax_$i"} = 0;
1411 } elsif ($form->{taxincluded}) {
1413 $form->{"debit_$i"} = $form->{"debit_$i"} - $form->{"tax_$i"};
1415 $form->{"credit_$i"} = $form->{"credit_$i"} - $form->{"tax_$i"};
1419 for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
1423 for $i (1 .. $count) {
1425 for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
1428 for $i ($count + 1 .. $form->{rowcount}) {
1429 for (@flds) { delete $form->{"${_}_$i"} }
1432 for $i (1 .. $form->{rowcount}) {
1433 $dr = $form->{"debit_$i"};
1434 $cr = $form->{"credit_$i"};
1435 $tax = $form->{"tax_$i"};
1437 $form->error($locale->text('Cannot post transaction with a debit and credit entry for the same account!'));
1439 $debit += $dr + $tax if $dr;
1440 $credit += $cr + $tax if $cr;
1441 $taxtotal += $tax if $form->{taxincluded}
1444 $form->{taxincluded} = 0 if !$taxtotal;
1446 # this is just for the wise guys
1447 $form->error($locale->text('Cannot post transaction for a closed period!'))
1448 if ($transdate <= $closedto);
1449 if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) {
1450 $form->error($locale->text('Out of balance transaction!'));
1453 if ($form->round_amount($debit, 2) + $form->round_amount($credit, 2) == 0) {
1454 $form->error($locale->text('Empty transaction!'));
1457 if (($errno = GL->post_transaction(\%myconfig, \%$form)) <= -1) {
1459 $err[1] = $locale->text('Cannot have a value in both Debit and Credit!');
1460 $err[2] = $locale->text('Debit and credit out of balance!');
1461 $err[3] = $locale->text('Cannot post a transaction without a value!');
1463 $form->error($err[$errno]);
1465 undef($form->{callback});
1466 # saving the history
1467 if(!exists $form->{addition} && $form->{id} ne "") {
1468 $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1469 $form->{addition} = "SAVED";
1470 $form->{what_done} = $locale->text("Buchungsnummer") . " = " . $form->{id};
1471 $form->save_history($form->dbconnect(\%myconfig));
1473 # /saving the history
1475 $lxdebug->leave_sub();
1479 $lxdebug->enter_sub();
1481 $auth->assert('general_ledger');
1483 $form->{title} = $locale->text("$form->{title} General Ledger Transaction");
1484 $form->{storno} = 0;
1488 $form->{callback} = build_std_url("action=add", "show_details");
1489 $form->redirect($form->{callback});
1491 $lxdebug->leave_sub();
1495 $lxdebug->enter_sub();
1497 $auth->assert('general_ledger');
1501 $lxdebug->leave_sub();
1506 $lxdebug->enter_sub();
1508 $auth->assert('general_ledger');
1510 # don't cancel cancelled transactions
1511 if (IS->has_storno(\%myconfig, $form, 'gl')) {
1512 $form->{title} = $locale->text("Cancel Accounts Receivables Transaction");
1513 $form->error($locale->text("Transaction has already been cancelled!"));
1516 GL->storno($form, \%myconfig, $form->{id});
1518 # saving the history
1519 if(!exists $form->{addition} && $form->{id} ne "") {
1520 $form->{snumbers} = "ordnumber_$form->{ordnumber}";
1521 $form->{addition} = "STORNO";
1522 $form->save_history($form->dbconnect(\%myconfig));
1524 # /saving the history
1526 $form->redirect(sprintf $locale->text("Transaction %d cancelled."), $form->{storno_id});
1528 $lxdebug->leave_sub();
1532 call_sub($form->{nextsub});