/bin/mozilla/gl.pl - Annotieren - projekt kivitendo - wissen

| Zweig: | Markierung: | Revision:

kivitendo/bin/mozilla/gl.pl @ 0fdd4332

d319704a	Moritz Bunkus	#=====================================================================
		# LX-Office ERP
		# Copyright (C) 2004
		# Based on SQL-Ledger Version 2.1.9
		# Web http://www.lx-office.org
		#
		#=====================================================================
		# SQL-Ledger Accounting
		# Copyright (c) 1998-2002
		#
		# Author: Dieter Simader
		# Email: dsimader@sql-ledger.org
		# Web: http://www.sql-ledger.org
		#
		#
		# This program is free software; you can redistribute it and/or modify
		# it under the terms of the GNU General Public License as published by
		# the Free Software Foundation; either version 2 of the License, or
		# (at your option) any later version.
		#
		# This program is distributed in the hope that it will be useful,
		# but WITHOUT ANY WARRANTY; without even the implied warranty of
		# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		# GNU General Public License for more details.
		# You should have received a copy of the GNU General Public License
		# along with this program; if not, write to the Free Software
		# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
		#======================================================================
		#
		# Genereal Ledger
		#
		#======================================================================

		use SL::GL;
		use SL::PE;

		require "$form->{path}/arap.pl";

		1;

b1253e4f	Philip Reetz	# end of main
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	# this is for our long dates
		# $locale->text('January')
		# $locale->text('February')
		# $locale->text('March')
		# $locale->text('April')
		# $locale->text('May ')
		# $locale->text('June')
		# $locale->text('July')
		# $locale->text('August')
		# $locale->text('September')
		# $locale->text('October')
		# $locale->text('November')
		# $locale->text('December')

		# this is for our short month
		# $locale->text('Jan')
		# $locale->text('Feb')
		# $locale->text('Mar')
		# $locale->text('Apr')
		# $locale->text('May')
		# $locale->text('Jun')
		# $locale->text('Jul')
		# $locale->text('Aug')
		# $locale->text('Sep')
		# $locale->text('Oct')
		# $locale->text('Nov')
		# $locale->text('Dec')

		sub add {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		$form->{title} = "Add";
b1253e4f	Philip Reetz
		$form->{callback} =
		"$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
		unless $form->{callback};
d319704a	Moritz Bunkus
		# we use this only to set a default date
		GL->transaction(\%myconfig, \%$form);

b1253e4f	Philip Reetz	map {
		$chart .=
		"<option value=\"$_->{accno}--$_->{taxkey_id}\">$_->{accno}--$_->{description}</option>"
		} @{ $form->{chart} };
		map {
		$tax .=
		qq\|<option value="$_->{taxkey}--$_->{rate}">$_->{taxdescription} \|
		. ($_->{rate} * 100) . qq\| %\|
		} @{ $form->{TAX} };

		$form->{chart} = $chart;
c7f9bb36	Philip Reetz	$form->{chartinit} = $chart;
b1253e4f	Philip Reetz	$form->{rowcount} = 2;
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	$form->{debitchart} = $chart;
d319704a	Moritz Bunkus	$form->{creditchart} = $chart;
b1253e4f	Philip Reetz	$form->{taxchart} = $tax;

		$form->{debit} = 0;
d319704a	Moritz Bunkus	$form->{credit} = 0;
b1253e4f	Philip Reetz	$form->{tax} = 0;
d319704a	Moritz Bunkus
		# departments
		$form->all_departments(\%myconfig);
		if (@{ $form->{all_departments} }) {
		$form->{selectdepartment} = "<option>\n";

b1253e4f	Philip Reetz	map {
		$form->{selectdepartment} .=
		"<option>$_->{description}--$_->{id}\n"
		} (@{ $form->{all_departments} });
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	&display_form(1);
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub edit {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		GL->transaction(\%myconfig, \%$form);

b1253e4f	Philip Reetz	map {
		if ($form->{debitaccno} eq $_->{accno}) {
		$form->{debitchart} .=
		"<option value=\"$_->{accno}--$_->{taxkey_id}\">$_->{accno}--$_->{description}";
		}
		} @{ $form->{chart} };
		map {
		if ($form->{creditaccno} eq $_->{accno}) {
		$form->{creditchart} .=
		"<option value=\"$_->{accno}--$_->{taxkey_id}\">$_->{accno}--$_->{description}";
		}
		} @{ $form->{chart} };
		map {
		$tax .=
		qq\|<option value="$_->{taxkey}--$_->{rate}">$_->{taxdescription} \|
		. ($_->{rate} * 100) . qq\| %\|
		} @{ $form->{TAX} };

d319704a	Moritz Bunkus	$form->{chart} = $chart;

c7f9bb36	Philip Reetz	$form->{taxchart} = $tax;
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	if ($form->{tax} < 0) {
		$form->{tax} = $form->{tax} * (-1);
		}
b1253e4f	Philip Reetz
		$form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);

d319704a	Moritz Bunkus	# departments
		$form->all_departments(\%myconfig);
		if (@{ $form->{all_departments} }) {
		$form->{selectdepartment} = "<option>\n";

b1253e4f	Philip Reetz	map {
		$form->{selectdepartment} .=
		"<option>$_->{description}--$_->{id}\n"
		} (@{ $form->{all_departments} });
d319704a	Moritz Bunkus	}

b1253e4f	Philip Reetz	$i = 1;
c7f9bb36	Philip Reetz	foreach $ref (@{ $form->{GL} }) {
		$form->{"accno_$i"} = "$ref->{accno}--$ref->{description}";

		$form->{"projectnumber_$i"} = "$ref->{projectnumber}--$ref->{project_id}";
		for (qw(fx_transaction source memo)) { $form->{"${_}_$i"} = $ref->{$_} }
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	if ($ref->{amount} < 0) {
		$form->{totaldebit} -= $ref->{amount};
		$form->{"debit_$i"} = $ref->{amount} * -1;
		} else {
		$form->{totalcredit} += $ref->{amount};
		$form->{"credit_$i"} = $ref->{amount};
		}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	$i++;
		}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	$form->{rowcount} = $i;
b1253e4f	Philip Reetz	$form->{locked} =
		($form->datetonum($form->{transdate}, \%myconfig) <=
		$form->datetonum($form->{closedto}, \%myconfig));
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	$form->{title} = "Edit";
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	&form_header;
		&display_rows;
d319704a	Moritz Bunkus	&form_footer;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
c7f9bb36	Philip Reetz
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub search {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		$form->{title} = $locale->text('Buchungsjournal');
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$form->all_departments(\%myconfig);
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	# departments
		if (@{ $form->{all_departments} }) {
		$form->{selectdepartment} = "<option>\n";

b1253e4f	Philip Reetz	map {
		$form->{selectdepartment} .=
		"<option>$_->{description}--$_->{id}\n"
		} (@{ $form->{all_departments} });
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$department = qq\|
		<tr>
b1253e4f	Philip Reetz	<th align=right nowrap>\| . $locale->text('Department') . qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
		</tr>
		\| if $form->{selectdepartment};
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	# use JavaScript Calendar or not
		$form->{jsscript} = $jscalendar;
		$jsscript = "";
b1253e4f	Philip Reetz	if ($form->{jsscript}) {

d319704a	Moritz Bunkus	# with JavaScript Calendar
		$button1 = qq\|
		<td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}">
b1253e4f	Philip Reetz	<input type=button name=datefrom id="trigger1" value=\|
		. $locale->text('button')
		. qq\|></td>
d319704a	Moritz Bunkus	\|;
b1253e4f	Philip Reetz	$button2 = qq\|
d319704a	Moritz Bunkus	<td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}">
b1253e4f	Philip Reetz	<input type=button name=dateto id="trigger2" value=\|
		. $locale->text('button')
		. qq\|></td>
d319704a	Moritz Bunkus	\|;
b1253e4f	Philip Reetz
		#write Trigger
		$jsscript =
		Form->write_trigger(\%myconfig, "2", "datefrom", "BR", "trigger1",
		"dateto", "BL", "trigger2");
		} else {

		# without JavaScript Calendar
		$button1 =
		qq\|<td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}"></td>\|;
		$button2 =
		qq\|<td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}"></td>\|;
		}
d319704a	Moritz Bunkus
		$form->header;

		print qq\|
		<body>

		<form method=post action=$form->{script}>

		<input type=hidden name=sort value=transdate>

		<table width=100%>
		<tr>
		<th class=listtop>$form->{title}</th>
		</tr>
		<tr height="5"></tr>
		<tr>
		<td>
		<table>
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Reference') . qq\|</th>
d319704a	Moritz Bunkus	<td><input name=reference size=20></td>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Source') . qq\|</th>
d319704a	Moritz Bunkus	<td><input name=source size=20></td>
		</tr>
		$department
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Description') . qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><input name=description size=40></td>
		</tr>
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Notes') . qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><input name=notes size=40></td>
		</tr>
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('From') . qq\|</th>
d319704a	Moritz Bunkus	$button1
		$button2
		</tr>
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Include in Report') . qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3>
		<table>
		<tr>
		<td>
b1253e4f	Philip Reetz	<input name="category" class=radio type=radio value=X checked> \|
		. $locale->text('All') . qq\|
		<input name="category" class=radio type=radio value=A> \|
		. $locale->text('Asset') . qq\|
		<input name="category" class=radio type=radio value=C> \|
		. $locale->text('Contra') . qq\|
		<input name="category" class=radio type=radio value=L> \|
		. $locale->text('Liability') . qq\|
		<input name="category" class=radio type=radio value=Q> \|
		. $locale->text('Equity') . qq\|
		<input name="category" class=radio type=radio value=I> \|
		. $locale->text('Revenue') . qq\|
		<input name="category" class=radio type=radio value=E> \|
		. $locale->text('Expense') . qq\|
d319704a	Moritz Bunkus	</td>
		</tr>
		<tr>
		<table>
		<tr>
		<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('ID') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Date') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Reference') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Description') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Notes') . qq\|</td>
d319704a	Moritz Bunkus	</tr>
		<tr>
		<td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Debit') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Credit') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Source') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Account') . qq\|</td>
d319704a	Moritz Bunkus	<td align=right><input name="l_gifi_accno" class=checkbox type=checkbox value=Y></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('GIFI') . qq\|</td>
d319704a	Moritz Bunkus	</tr>
		<tr>
		<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
b1253e4f	Philip Reetz	<td>\| . $locale->text('Subtotal') . qq\|</td>
d319704a	Moritz Bunkus	</tr>
		</table>
		</tr>
		</table>
		</tr>
		</table>
		</td>
		</tr>
		<tr>
		<td><hr size=3 noshade></td>
		</tr>
		</table>

		$jsscript

		<input type=hidden name=nextsub value=generate_report>

		<input type=hidden name=path value=$form->{path}>
		<input type=hidden name=login value=$form->{login}>
		<input type=hidden name=password value=$form->{password}>

		<br>
b1253e4f	Philip Reetz	<input class=submit type=submit name=action value="\|
		. $locale->text('Continue') . qq\|">
d319704a	Moritz Bunkus	</form>

		</body>
		</html>
		\|;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus	}

		sub generate_report {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		$form->{sort} = "transdate" unless $form->{sort};

		GL->all_transactions(\%myconfig, \%$form);
b1253e4f	Philip Reetz
		$callback =
		"$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}";
d319704a	Moritz Bunkus
		$href = $callback;
b1253e4f	Philip Reetz
		%acctype = ('A' => $locale->text('Asset'),
		'C' => $locale->text('Contra'),
		'L' => $locale->text('Liability'),
		'Q' => $locale->text('Equity'),
		'I' => $locale->text('Revenue'),
		'E' => $locale->text('Expense'),);

d319704a	Moritz Bunkus	$form->{title} = $locale->text('General Ledger');
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$ml = ($form->{ml} =~ /(A\|E)/) ? -1 : 1;

		unless ($form->{category} eq 'X') {
b1253e4f	Philip Reetz	$form->{title} .= " : " . $locale->text($acctype{ $form->{category} });
d319704a	Moritz Bunkus	}
		if ($form->{accno}) {
b1253e4f	Philip Reetz	$href .= "&accno=" . $form->escape($form->{accno});
		$callback .= "&accno=" . $form->escape($form->{accno}, 1);
		$option =
		$locale->text('Account')
		. " : $form->{accno} $form->{account_description}";
d319704a	Moritz Bunkus	}
		if ($form->{gifi_accno}) {
b1253e4f	Philip Reetz	$href .= "&gifi_accno=" . $form->escape($form->{gifi_accno});
		$callback .= "&gifi_accno=" . $form->escape($form->{gifi_accno}, 1);
		$option .= "\n<br>" if $option;
		$option .=
		$locale->text('GIFI')
		. " : $form->{gifi_accno} $form->{gifi_account_description}";
d319704a	Moritz Bunkus	}
		if ($form->{source}) {
b1253e4f	Philip Reetz	$href .= "&source=" . $form->escape($form->{source});
		$callback .= "&source=" . $form->escape($form->{source}, 1);
		$option .= "\n<br>" if $option;
		$option .= $locale->text('Source') . " : $form->{source}";
d319704a	Moritz Bunkus	}
		if ($form->{reference}) {
b1253e4f	Philip Reetz	$href .= "&reference=" . $form->escape($form->{reference});
		$callback .= "&reference=" . $form->escape($form->{reference}, 1);
		$option .= "\n<br>" if $option;
		$option .= $locale->text('Reference') . " : $form->{reference}";
d319704a	Moritz Bunkus	}
		if ($form->{department}) {
b1253e4f	Philip Reetz	$href .= "&department=" . $form->escape($form->{department});
		$callback .= "&department=" . $form->escape($form->{department}, 1);
d319704a	Moritz Bunkus	($department) = split /--/, $form->{department};
		$option .= "\n<br>" if $option;
b1253e4f	Philip Reetz	$option .= $locale->text('Department') . " : $department";
d319704a	Moritz Bunkus	}

		if ($form->{description}) {
b1253e4f	Philip Reetz	$href .= "&description=" . $form->escape($form->{description});
		$callback .= "&description=" . $form->escape($form->{description}, 1);
		$option .= "\n<br>" if $option;
		$option .= $locale->text('Description') . " : $form->{description}";
d319704a	Moritz Bunkus	}
		if ($form->{notes}) {
b1253e4f	Philip Reetz	$href .= "&notes=" . $form->escape($form->{notes});
		$callback .= "&notes=" . $form->escape($form->{notes}, 1);
		$option .= "\n<br>" if $option;
		$option .= $locale->text('Notes') . " : $form->{notes}";
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	if ($form->{datefrom}) {
b1253e4f	Philip Reetz	$href .= "&datefrom=$form->{datefrom}";
d319704a	Moritz Bunkus	$callback .= "&datefrom=$form->{datefrom}";
b1253e4f	Philip Reetz	$option .= "\n<br>" if $option;
		$option .=
		$locale->text('From') . " "
		. $locale->date(\%myconfig, $form->{datefrom}, 1);
d319704a	Moritz Bunkus	}
		if ($form->{dateto}) {
b1253e4f	Philip Reetz	$href .= "&dateto=$form->{dateto}";
d319704a	Moritz Bunkus	$callback .= "&dateto=$form->{dateto}";
		if ($form->{datefrom}) {
		$option .= " ";
		} else {
		$option .= "\n<br>" if $option;
		}
b1253e4f	Philip Reetz	$option .=
		$locale->text('Bis') . " "
		. $locale->date(\%myconfig, $form->{dateto}, 1);
d319704a	Moritz Bunkus	}

b1253e4f	Philip Reetz	@columns =
		$form->sort_columns(
		qw(transdate id reference description notes source debit debit_accno credit credit_accno debit_tax debit_tax_accno credit_tax credit_tax_accno accno gifi_accno)
		);
d319704a	Moritz Bunkus
		if ($form->{accno} \|\| $form->{gifi_accno}) {
		@columns = grep !/(accno\|gifi_accno)/, @columns;
		push @columns, "balance";
		$form->{l_balance} = "Y";
b1253e4f	Philip Reetz
		}

		$form->{l_credit_accno} = "Y";
		$form->{l_debit_accno} = "Y";
		$form->{l_credit_tax} = "Y";
		$form->{l_debit_tax} = "Y";
d319704a	Moritz Bunkus	$form->{l_credit_tax_accno} = "Y";
b1253e4f	Philip Reetz	$form->{l_debit_tax_accno} = "Y";
		$form->{l_accno} = "N";
d319704a	Moritz Bunkus	foreach $item (@columns) {
		if ($form->{"l_$item"} eq "Y") {
		push @column_index, $item;

		# add column to href and callback
		$callback .= "&l_$item=Y";
b1253e4f	Philip Reetz	$href .= "&l_$item=Y";
d319704a	Moritz Bunkus	}
		}

		if ($form->{l_subtotal} eq 'Y') {
		$callback .= "&l_subtotal=Y";
b1253e4f	Philip Reetz	$href .= "&l_subtotal=Y";
d319704a	Moritz Bunkus	}

		$callback .= "&category=$form->{category}";
b1253e4f	Philip Reetz	$href .= "&category=$form->{category}";

		$column_header{id} =
		"<th><a class=listheading href=$href&sort=id>"
		. $locale->text('ID')
		. "</a></th>";
		$column_header{transdate} =
		"<th><a class=listheading href=$href&sort=transdate>"
		. $locale->text('Date')
		. "</a></th>";
		$column_header{reference} =
		"<th><a class=listheading href=$href&sort=reference>"
		. $locale->text('Reference')
		. "</a></th>";
		$column_header{source} =
		"<th><a class=listheading href=$href&sort=source>"
		. $locale->text('Source')
		. "</a></th>";
		$column_header{description} =
		"<th><a class=listheading href=$href&sort=description>"
		. $locale->text('Description')
		. "</a></th>";
		$column_header{notes} =
		"<th class=listheading>" . $locale->text('Notes') . "</th>";
		$column_header{debit} =
		"<th class=listheading>" . $locale->text('Debit') . "</th>";
		$column_header{debit_accno} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Debit Account')
		. "</a></th>";
		$column_header{credit} =
		"<th class=listheading>" . $locale->text('Credit') . "</th>";
		$column_header{credit_accno} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Credit Account')
		. "</a></th>";
		$column_header{debit_tax} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Debit Tax')
		. "</a></th>";
		$column_header{debit_tax_accno} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Debit Tax Account')
		. "</a></th>";
		$column_header{credit_tax} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Credit Tax')
		. "</a></th>";
		$column_header{credit_tax_accno} =
		"<th><a class=listheading href=$href&sort=accno>"
		. $locale->text('Credit Tax Account')
		. "</a></th>";
		$column_header{gifi_accno} =
		"<th><a class=listheading href=$href&sort=gifi_accno>"
		. $locale->text('GIFI')
		. "</a></th>";
		$column_header{balance} = "<th>" . $locale->text('Balance') . "</th>";

d319704a	Moritz Bunkus	$form->{landscape} = 1;
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$form->header;

		print qq\|
		<body>

		<table width=100%>
		<tr>
		<th class=listtop>$form->{title}</th>
		</tr>
		<tr height="5"></tr>
		<tr>
		<td>$option</td>
		</tr>
		<tr>
		<td>
		<table width=100%>
		<thead>
		<tr class=listheading>
		\|;

b1253e4f	Philip Reetz	map { print "$column_header{$_}\n" } @column_index;
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	print "
d319704a	Moritz Bunkus	</tr>
		</thead>
		</tfoot>
		<tbody>
		";
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	# add sort to callback
		$form->{callback} = "$callback&sort=$form->{sort}";
		$callback = $form->escape($form->{callback});
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	# initial item for subtotals
		if (@{ $form->{GL} }) {
b1253e4f	Philip Reetz	$sameitem = $form->{GL}->[0]->{ $form->{sort} };
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	if (($form->{accno} \|\| $form->{gifi_accno}) && $form->{balance}) {

		map { $column_data{$_} = "<td> </td>" } @column_index;
b1253e4f	Philip Reetz	$column_data{balance} =
		"<td align=right>"
		. $form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)
		. "</td>";

		$i++;
		$i %= 2;
d319704a	Moritz Bunkus	print qq\|
		<tr class=listrow$i>
		\|;
		map { print "$column_data{$_}\n" } @column_index;
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	print qq\|
		</tr>
		\|;
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	foreach $ref (@{ $form->{GL} }) {

		# if item ne sort print subtotal
		if ($form->{l_subtotal} eq 'Y') {
b1253e4f	Philip Reetz	if ($sameitem ne $ref->{ $form->{sort} }) {
		&gl_subtotal;
d319704a	Moritz Bunkus	}
		}
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{amount} })) {
d319704a	Moritz Bunkus	$form->{balance} += $ref->{amount}{$key};
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$debit = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{debit} })) {
d319704a	Moritz Bunkus	$subtotaldebit += $ref->{debit}{$key};
b1253e4f	Philip Reetz	$totaldebit += $ref->{debit}{$key};
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$debit = $form->format_amount(\%myconfig, $ref->{debit}{$key}, 2, 0);
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$debit .=
		"<br>" . $form->format_amount(\%myconfig, $ref->{debit}{$key}, 2, 0);
d319704a	Moritz Bunkus	}
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$credit = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{credit} })) {
d319704a	Moritz Bunkus	$subtotalcredit += $ref->{credit}{$key};
b1253e4f	Philip Reetz	$totalcredit += $ref->{credit}{$key};
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$credit = $form->format_amount(\%myconfig, $ref->{credit}{$key}, 2, 0);
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$credit .= "<br>"
		. $form->format_amount(\%myconfig, $ref->{credit}{$key}, 2, 0);
		}
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$debittax = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{debit_tax} })) {
d319704a	Moritz Bunkus	$subtotaldebittax += $ref->{debit_tax}{$key};
b1253e4f	Philip Reetz	$totaldebittax += $ref->{debit_tax}{$key};
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$debittax =
		$form->format_amount(\%myconfig, $ref->{debit_tax}{$key}, 2, 0);
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$debittax .= "<br>"
		. $form->format_amount(\%myconfig, $ref->{debit_tax}{$key}, 2, 0);
d319704a	Moritz Bunkus	}
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$credittax = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{credit_tax} })) {
d319704a	Moritz Bunkus	$subtotalcredittax += $ref->{credit_tax}{$key};
b1253e4f	Philip Reetz	$totalcredittax += $ref->{credit_tax}{$key};
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$credittax =
		$form->format_amount(\%myconfig, $ref->{credit_tax}{$key}, 2, 0);
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$credittax .= "<br>"
		. $form->format_amount(\%myconfig, $ref->{credit_tax}{$key}, 2, 0);
d319704a	Moritz Bunkus	}
		}
b1253e4f	Philip Reetz
		$debitaccno = "";
d319704a	Moritz Bunkus	$debittaxkey = "";
b1253e4f	Philip Reetz	$taxaccno = "";
		foreach $key (sort keys(%{ $ref->{debit_accno} })) {
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$debitaccno =
		"<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$debitaccno .=
		"<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
		if ($ref->{debit_taxkey}{$key} eq $debittaxkey) {
		$ref->{debit_tax_accno}{$key} = $taxaccno;
b1253e4f	Philip Reetz	}
		$taxaccno = $ref->{debit_tax_accno}{$key};
d319704a	Moritz Bunkus	$debittaxkey = $ref->{debit_taxkey}{$key};
		}
b1253e4f	Philip Reetz
		$creditaccno = "";
d319704a	Moritz Bunkus	$credittaxkey = "";
b1253e4f	Philip Reetz	$taxaccno = "";
		foreach $key (sort keys(%{ $ref->{credit_accno} })) {
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$creditaccno =
		"<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$creditaccno .=
		"<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
		if ($ref->{credit_taxkey}{$key} eq $credittaxkey) {
		$ref->{credit_tax_accno}{$key} = $taxaccno;
		}
b1253e4f	Philip Reetz	$taxaccno = $ref->{credit_tax_accno}{$key};
d319704a	Moritz Bunkus	$credittaxkey = $ref->{credit_taxkey}{$key};
b1253e4f	Philip Reetz	}

d319704a	Moritz Bunkus	$debittaxaccno = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{debit_tax_accno} })) {
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$debittaxaccno =
		"<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$debittaxaccno .=
		"<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$credittaxaccno = "";
b1253e4f	Philip Reetz	foreach $key (sort keys(%{ $ref->{credit_tax_accno} })) {
d319704a	Moritz Bunkus	if ($key == 0) {
b1253e4f	Philip Reetz	$credittaxaccno =
		"<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$credittaxaccno .=
		"<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz	}

		# $ref->{debit} = $form->format_amount(\%myconfig, $ref->{debit}, 2, " ");
		# $ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, " ");

		$column_data{id} = "<td align=right> $ref->{id} </td>";
		$column_data{transdate} =
		"<td align=center> $ref->{transdate} </td>";
		$column_data{reference} =
		"<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>";
		$column_data{description} =
		"<td align=center>$ref->{description} </td>";
		$column_data{source} = "<td align=center>$ref->{source} </td>";
		$column_data{notes} = "<td align=center>$ref->{notes} </td>";
		$column_data{debit} = "<td align=right>$debit</td>";
		$column_data{debit_accno} = "<td align=center>$debitaccno</td>";
		$column_data{credit} = "<td align=right>$credit</td>";
d319704a	Moritz Bunkus	$column_data{credit_accno} = "<td align=center>$creditaccno</td>";
b1253e4f	Philip Reetz	$column_data{debit_tax} =
		($ref->{debit_tax_accno} ne "")
		? "<td align=right>$debittax</td>"
		: "<td></td>";
d319704a	Moritz Bunkus	$column_data{debit_tax_accno} = "<td align=center>$debittaxaccno</td>";
b1253e4f	Philip Reetz	$column_data{gifi_accno} =
		"<td><a href=$href&gifi_accno=$ref->{gifi_accno}&callback=$callback>$ref->{gifi_accno}</a> </td>";
		$column_data{credit_tax} =
		($ref->{credit_tax_accno} ne "")
		? "<td align=right>$credittax</td>"
		: "<td></td>";
d319704a	Moritz Bunkus	$column_data{credit_tax_accno} = "<td align=center>$credittaxaccno</td>";
b1253e4f	Philip Reetz	$column_data{gifi_accno} =
		"<td><a href=$href&gifi_accno=$ref->{gifi_accno}&callback=$callback>$ref->{gifi_accno}</a> </td>";
		$column_data{balance} =
		"<td align=right>"
		. $form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)
		. "</td>";
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	$i++;
		$i %= 2;
d319704a	Moritz Bunkus	print "
		<tr class=listrow$i>";
		map { print "$column_data{$_}\n" } @column_index;
		print "</tr>";

b1253e4f	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	&gl_subtotal if ($form->{l_subtotal} eq 'Y');
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	map { $column_data{$_} = "<td> </td>" } @column_index;
b1253e4f	Philip Reetz
		$column_data{debit} =
		"<th align=right class=listtotal>"
		. $form->format_amount(\%myconfig, $totaldebit, 2, " ") . "</th>";
		$column_data{credit} =
		"<th align=right class=listtotal>"
		. $form->format_amount(\%myconfig, $totalcredit, 2, " ") . "</th>";
		$column_data{debit_tax} =
		"<th align=right class=listtotal>"
		. $form->format_amount(\%myconfig, $totaldebittax, 2, " ") . "</th>";
		$column_data{credit_tax} =
		"<th align=right class=listtotal>"
		. $form->format_amount(\%myconfig, $totalcredittax, 2, " ") . "</th>";
		$column_data{balance} =
		"<th align=right class=listtotal>"
		. $form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0) . "</th>";

d319704a	Moritz Bunkus	print qq\|
		<tr class=listtotal>
		\|;

		map { print "$column_data{$_}\n" } @column_index;

		print qq\|
		</tr>
		</tbody>
		</table>
		</td>
		</tr>
		<tr>
		<td><hr size=3 noshade></td>
		</tr>
		</table>

		<br>

		<form method=post action=$form->{script}>

		<input name=callback type=hidden value="$form->{callback}">

		<input type=hidden name=path value=$form->{path}>
		<input type=hidden name=login value=$form->{login}>
		<input type=hidden name=password value=$form->{password}>

b1253e4f	Philip Reetz	<input class=submit type=submit name=action value="\|
		. $locale->text('GL Transaction') . qq\|">
		<input class=submit type=submit name=action value="\|
		. $locale->text('AR Transaction') . qq\|">
		<input class=submit type=submit name=action value="\|
		. $locale->text('AP Transaction') . qq\|">
		<input class=submit type=submit name=action value="\|
		. $locale->text('Sales Invoice') . qq\|">
		<input class=submit type=submit name=action value="\|
		. $locale->text('Vendor Invoice') . qq\|">\|;
d319704a	Moritz Bunkus
		if ($form->{menubar}) {
		require "$form->{path}/menu.pl";
		&menubar;
		}

		print qq\|

		</form>

		</body>
		</html>
		\|;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

c7f9bb36	Philip Reetz	sub gl_subtotal {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();

		$subtotaldebit =
		$form->format_amount(\%myconfig, $subtotaldebit, 2, " ");
		$subtotalcredit =
		$form->format_amount(\%myconfig, $subtotalcredit, 2, " ");

		map { $column_data{$_} = "<td> </td>" }
		qw(transdate id reference source description accno);
		$column_data{debit} = "<th align=right>$subtotaldebit</td>";
d319704a	Moritz Bunkus	$column_data{credit} = "<th align=right>$subtotalcredit</td>";

		print "<tr class=listsubtotal>";
		map { print "$column_data{$_}\n" } @column_index;
		print "</tr>";

b1253e4f	Philip Reetz	$subtotaldebit = 0;
d319704a	Moritz Bunkus	$subtotalcredit = 0;

b1253e4f	Philip Reetz	$sameitem = $ref->{ $form->{sort} };
		$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

		sub update {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	if ($form->{transdate} ne $form->{oldtransdate}) {
		if ($form->{selectprojectnumber}) {
		$form->all_projects(\%myconfig, undef, $form->{transdate});
		if (@{ $form->{all_project} }) {
b1253e4f	Philip Reetz	$form->{selectprojectnumber} = "<option>\n";
		for (@{ $form->{all_project} }) {
		$form->{selectprojectnumber} .=
		qq\|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n\|;
		}
		$form->{selectprojectnumber} =
		$form->escape($form->{selectprojectnumber}, 1);
c7f9bb36	Philip Reetz	}
		}
		$form->{oldtransdate} = $form->{transdate};
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
		my @a = ();
		my $count = 0;
		my $debittax = 0;
c7f9bb36	Philip Reetz	my $credittax = 0;
b1253e4f	Philip Reetz	my @flds =
		qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
c7f9bb36	Philip Reetz
		for my $i (1 .. $form->{rowcount}) {

		unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) {
b1253e4f	Philip Reetz	for (qw(debit credit tax)) {
		$form->{"${_}_$i"} =
		$form->parse_amount(\%myconfig, $form->{"${_}_$i"});
		}

c7f9bb36	Philip Reetz	push @a, {};
		$debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
b1253e4f	Philip Reetz	$amount =
		($form->{"debit_$i"} == 0)
		? $form->{"credit_$i"}
		: $form->{"debit_$i"};
c7f9bb36	Philip Reetz	$j = $#a;
		if (($debitcredit && $credittax) \|\| (!$debitcredit && $debittax)) {
		$form->{"taxchart_$i"} = "0--";
b1253e4f	Philip Reetz	$form->{"tax_$i"} = 0;
c7f9bb36	Philip Reetz	}
		if (!$form->{"korrektur_$i"}) {
		($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
		if ($taxkey > 1) {
		if ($debitcredit) {
		$debittax = 1;
		} else {
		$credittax = 1;
		}
		if ($form->{taxincluded}) {
		$form->{"tax_$i"} = $amount / ($rate + 1) * $rate;
		} else {
		$form->{"tax_$i"} = $amount * $rate;
		}
		} else {
		$form->{"tax_$i"} = 0;
		}
		}
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
		$count++;
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	for $i (1 .. $count) {
		$j = $i - 1;
		for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz
		for $i ($count + 1 .. $form->{rowcount}) {
		for (@flds) { delete $form->{"${_}_$i"} }
d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz	$form->{rowcount} = $count + 1;
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	&display_form;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub display_form {
c7f9bb36	Philip Reetz	my ($init) = @_;
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
c7f9bb36	Philip Reetz
		&form_header($init);
b1253e4f	Philip Reetz
		# for $i (1 .. $form->{rowcount}) {
		# $form->{totaldebit} += $form->parse_amount(\%myconfig, $form->{"debit_$i"});
		# $form->{totalcredit} += $form->parse_amount(\%myconfig, $form->{"credit_$i"});
		#
		# &form_row($i);
		# }
c7f9bb36	Philip Reetz	&display_rows($init);
		&form_footer;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	sub display_rows {
		my ($init) = @_;
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
c7f9bb36	Philip Reetz
b1253e4f	Philip Reetz	$form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber})
		if $form->{selectprojectnumber};

		$form->{totaldebit} = 0;
c7f9bb36	Philip Reetz	$form->{totalcredit} = 0;
b1253e4f	Philip Reetz	my $chart = $form->{chart};
		$chart = $form->unquote($chart);
c7f9bb36	Philip Reetz	$form->{taxchart} = $form->unquote($form->{taxchart});
b1253e4f	Philip Reetz	$taxchart = $form->{taxchart};
c7f9bb36	Philip Reetz	for $i (1 .. $form->{rowcount}) {

		$source = qq\|
b1253e4f	Philip Reetz	<td><input name="source_$i" value="$form->{"source_$i"}" tabindex=\|
		. ($i + 11 + (($i - 1) * 8))
		. qq\|></td>\|;
c7f9bb36	Philip Reetz	$memo = qq\|
b1253e4f	Philip Reetz	<td><input name="memo_$i" value="$form->{"memo_$i"}" tabindex=\|
		. ($i + 12 + (($i - 1) * 8))
		. qq\|></td>\|;
c7f9bb36	Philip Reetz
		if ($init) {
		$accno = qq\|
b1253e4f	Philip Reetz	<td><select name="accno_$i" onChange="setTaxkey(this, $i)" style="width:300px" tabindex=\|
		. ($i + 5 + (($i - 1) * 8))
		. qq\|>$form->{chartinit}</select></td>\|;
		$tax =
		qq\|<td><select id="taxchart_$i" name="taxchart_$i" tabindex=\|
		. ($i + 10 + (($i - 1) * 8))
		. qq\|>$form->{taxchart}</select></td>\|;
c7f9bb36	Philip Reetz	if ($form->{selectprojectnumber}) {
b1253e4f	Philip Reetz	$project = qq\|
c7f9bb36	Philip Reetz	<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>\|;
		}
b1253e4f	Philip Reetz	$korrektur =
		qq\|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=\|
		. ($i + 9 + (($i - 1) * 8))
		. qq\|></td>\|;
c7f9bb36	Philip Reetz	if ($form->{transfer}) {
b1253e4f	Philip Reetz	$fx_transaction = qq\|
c7f9bb36	Philip Reetz	<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
		\|;
b1253e4f	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	} else {
b1253e4f	Philip Reetz
		$form->{totaldebit} += $form->{"debit_$i"};
c7f9bb36	Philip Reetz	$form->{totalcredit} += $form->{"credit_$i"};

b1253e4f	Philip Reetz	for (qw(debit credit tax)) {
		$form->{"${_}_$i"} =
		($form->{"${_}_$i"})
		? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
		: "";
		}
c7f9bb36	Philip Reetz
		if ($i < $form->{rowcount}) {
b1253e4f	Philip Reetz
		$accno = $chart;
c7f9bb36	Philip Reetz	$chart_selected = $form->{"accno_$i"};
b1253e4f	Philip Reetz	$accno =~
		s/value=\"$chart_selected\"/value=\"$chart_selected\" selected/;
		$accno =
		qq\|<td><select name="accno_$i" onChange="setTaxkey(this, $i)" style="width:300px" tabindex=\|
		. ($i + 5 + (($i - 1) * 8))
		. qq\|>$accno</select></td>\|;
		$tax = $taxchart;
c7f9bb36	Philip Reetz	$tax_selected = $form->{"taxchart_$i"};
b1253e4f	Philip Reetz	$tax =~ s/value=\"$tax_selected\"/value=\"$tax_selected\" selected/;
		$tax =
		qq\|<td><select id="taxchart_$i" name="taxchart_$i" tabindex=\|
		. ($i + 10 + (($i - 1) * 8))
		. qq\|>$tax</select></td>\|;

		if ($form->{selectprojectnumber}) {
		$form->{"projectnumber_$i"} = ""
		if $form->{selectprojectnumber} !~ /$form->{"projectnumber_$i"}/;

		$project = $form->{"projectnumber_$i"};
		$project =~ s/--.*//;
		$project = qq\|<td>$project</td>\|;
		}

		if ($form->{transfer}) {
		$checked = ($form->{"fx_transaction_$i"}) ? "1" : "";
		$x = ($checked) ? "x" : "";
		$fx_transaction = qq\|
c7f9bb36	Philip Reetz	<td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td>
		\|;
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz	$checked = ($form->{"korrektur_$i"}) ? "checked" : "";
b1253e4f	Philip Reetz	$korrektur =
		qq\|<td><input type="checkbox" name="korrektur_$i" value="1" $checked tabindex=\|
		. ($i + 9 + (($i - 1) * 8))
		. qq\|></td>\|;
		$form->hide_form("accno_$i", "projectnumber_$i");

c7f9bb36	Philip Reetz	} else {
b1253e4f	Philip Reetz
		$accno = qq\|
		<td><select name="accno_$i" onChange="setTaxkey(this, $i)" style="width:300px" tabindex=\|
		. ($i + 5 + (($i - 1) * 8))
		. qq\|>$chart</select></td>\|;
		$tax = qq\|
		<td><select id="taxchart_$i" name="taxchart_$i" tabindex=\|
		. ($i + 10 + (($i - 1) * 8))
		. qq\|>$taxchart</select></td>\|;
		if ($form->{selectprojectnumber}) {
		$project = qq\|
c7f9bb36	Philip Reetz	<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>\|;
b1253e4f	Philip Reetz	}
		$korrektur =
		qq\|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=\|
		. ($i + 9 + (($i - 1) * 8))
		. qq\|></td>\|;
		if ($form->{transfer}) {
		$fx_transaction = qq\|
c7f9bb36	Philip Reetz	<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
		\|;
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz	}
		}
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	print qq\|<tr valign=top>
		$accno
		$fx_transaction
b1253e4f	Philip Reetz	<td><input name="debit_$i" size=10 value="$form->{"debit_$i"}" accesskey=$i tabindex=\|
		. ($i + 6 + (($i - 1) * 8))
		. qq\|></td>
		<td><input name="credit_$i" size=10 value="$form->{"credit_$i"}" tabindex=\|
		. ($i + 7 + (($i - 1) * 8))
		. qq\|></td>
		<td><input name="tax_$i" size=8 value="$form->{"tax_$i"}" tabindex=\|
		. ($i + 8 + (($i - 1) * 8))
		. qq\|></td>
c7f9bb36	Philip Reetz	$korrektur
		$tax
		$source
		$memo
		$project
		</tr>
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	\|;
		}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	$form->hide_form(qw(rowcount selectaccno));
		print qq\|
b1253e4f	Philip Reetz	<input type=hidden name=selectprojectnumber value="\|
		. $form->escape($form->{selectprojectnumber}, 1) . qq\|">\|;
		$lxdebug->leave_sub();
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	sub form_header {
		my ($init) = @_;
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
		$title = $form->{title};
c7f9bb36	Philip Reetz	$form->{title} = $locale->text("$title General Ledger Transaction");
b1253e4f	Philip Reetz	$readonly = ($form->{id}) ? "readonly" : "";

		# $locale->text('Add General Ledger Transaction')
		# $locale->text('Edit General Ledger Transaction')
c7f9bb36	Philip Reetz
b1253e4f	Philip Reetz	map { $form->{$_} =~ s/\"/"/g }
		qw(reference description chart taxchart);
c7f9bb36	Philip Reetz	$form->{javascript} = qq\|<script type="text/javascript">
		<!--
		function setTaxkey(accno, row) {
		var taxkey = accno.options[accno.selectedIndex].value;
		var reg = /--([0-9])*/;
		var found = reg.exec(taxkey);
		var index = found[1];
		index = parseInt(index);
		var tax = 'taxchart_' + row;
		for (var i = 0; i < document.getElementById(tax).options.length; ++i) {
		var reg2 = new RegExp("^"+ index, "");
		if (reg2.exec(document.getElementById(tax).options[i].value)) {
		document.getElementById(tax).options[i].selected = true;
		break;
		}
		}
		};
		//-->
		</script>\|;
d319704a	Moritz Bunkus
		$form->{selectdepartment} =~ s/ selected//;
b1253e4f	Philip Reetz	$form->{selectdepartment} =~
		s/option>\Q$form->{department}\E/option selected>$form->{department}/;
d319704a	Moritz Bunkus
		if (($rows = $form->numtextrows($form->{description}, 50)) > 1) {
b1253e4f	Philip Reetz	$description =
		qq\|<textarea name=description rows=$rows cols=50 wrap=soft $readonly >$form->{description}</textarea>\|;
d319704a	Moritz Bunkus	} else {
b1253e4f	Philip Reetz	$description =
		qq\|<input name=description size=50 value="$form->{description}" tabindex="3" $readonly>\|;
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$taxincluded = ($form->{taxincluded}) ? "checked" : "";
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	if ($init) {
b1253e4f	Philip Reetz	$taxincluded = "checked";
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
		$amount =
		qq\|<input name=amount size=20 value="$form->{amount}" tabindex="4" $readonly>\|;

d319704a	Moritz Bunkus	$department = qq\|
		<tr>
b1253e4f	Philip Reetz	<th align=right nowrap>\| . $locale->text('Department') . qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
		<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
		</tr>
		\| if $form->{selectdepartment};
c7f9bb36	Philip Reetz	if ($init) {
		$form->{fokus} = "gl.reference";
		} else {
		$form->{fokus} = qq\|gl.accno_$form->{rowcount}\|;
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	# use JavaScript Calendar or not
		$form->{jsscript} = $jscalendar;
		$jsscript = "";
b1253e4f	Philip Reetz	if ($form->{jsscript}) {

d319704a	Moritz Bunkus	# with JavaScript Calendar
		$button1 = qq\|
c7f9bb36	Philip Reetz	<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} tabindex="2" $readonly>
b1253e4f	Philip Reetz	<input type=button name=transdate id="trigger1" value=\|
		. $locale->text('button')
		. qq\|></td>
d319704a	Moritz Bunkus	\|;
b1253e4f	Philip Reetz
		#write Trigger
		$jsscript =
		Form->write_trigger(\%myconfig, "1", "transdate", "BL", "trigger1", "",
		"", "");
		} else {

		# without JavaScript Calendar
		$button1 =
		qq\|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} tabindex="2" $readonly></td>\|;
		}

d319704a	Moritz Bunkus	$form->header;

		print qq\|
		<body onLoad="fokus()">

		<form method=post name="gl" action=$form->{script}>

		<input name=id type=hidden value=$form->{id}>

		<input type=hidden name=closedto value=$form->{closedto}>
		<input type=hidden name=locked value=$form->{locked}>
		<input type=hidden name=title value="$title">
c7f9bb36	Philip Reetz	<input type=hidden name=taxchart value="$form->{taxchart}">
d319704a	Moritz Bunkus	<input type=hidden name=chart value="$form->{chart}">


		<table width=100%>
		<tr>
		<th class=listtop>$form->{title}</th>
		</tr>
		<tr height="5"></tr>
		<tr>
		<td>
		<table width=100%>
		<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Reference') . qq\|</th>
d319704a	Moritz Bunkus	<td><input name=reference size=20 value="$form->{reference}" tabindex="1" $readonly></td>
		<td align=left>
		<table width=100%>
		<tr>
b1253e4f	Philip Reetz	<th align=right nowrap>\| . $locale->text('Date') . qq\|</th>
d319704a	Moritz Bunkus	$button1
		</tr>
		</table>
		</td>
		</tr>\|;
b1253e4f	Philip Reetz	if ($form->{id}) {
		print qq\|
d319704a	Moritz Bunkus	<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Belegnummer') . qq\|</th>
d319704a	Moritz Bunkus	<td><input name=id size=20 value="$form->{id}" $readonly></td>
		<td align=left>
		<table width=100%>
		<tr>
b1253e4f	Philip Reetz	<th align=right width=50%>\| . $locale->text('Buchungsdatum') . qq\|</th>
d319704a	Moritz Bunkus	<td align=left><input name=gldate size=11 title="$myconfig{dateformat}" value=$form->{gldate} $readonly></td>
		</tr>
		</table>
		</td>
		</tr>\|;
b1253e4f	Philip Reetz	}
		print qq\|
d319704a	Moritz Bunkus	$department\|;
b1253e4f	Philip Reetz	if ($form->{id}) {
		print qq\|
d319704a	Moritz Bunkus	<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Description') . qq\|</th>
d319704a	Moritz Bunkus	<td>$description</td>
		<td align=left>
		<table width=100%>
		<tr>
b1253e4f	Philip Reetz	<th align=right width=50%>\| . $locale->text('Mitarbeiter') . qq\|</th>
d319704a	Moritz Bunkus	<td align=left><input name=employee size=11 value=$form->{employee} $readonly></td>
		</tr>
		</table>
		</td>
b1253e4f	Philip Reetz	</tr>\|;
		} else {
		print qq\|
d319704a	Moritz Bunkus	<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Description') . qq\|</th>
c7f9bb36	Philip Reetz	<td colspan=2>$description</td>
d319704a	Moritz Bunkus	</tr>\|;
b1253e4f	Philip Reetz	}
		print qq\|
d319704a	Moritz Bunkus	<tr>
b1253e4f	Philip Reetz	<th align=right>\| . $locale->text('Betrag') . qq\|</th>
d319704a	Moritz Bunkus	<td>$amount</td>
c7f9bb36	Philip Reetz	<td align=left>
d319704a	Moritz Bunkus	<table>
		<tr>
b1253e4f	Philip Reetz	<th align=left>\| . $locale->text('MwSt. inkl.') . qq\|</th>
c7f9bb36	Philip Reetz	<td><input type=checkbox name=taxincluded value=1 tabindex="5" $taxincluded></td>
d319704a	Moritz Bunkus	</tr>
		</table>
		</td>
c7f9bb36	Philip Reetz	</tr>
		<tr>
		<table width=100%>
		<tr class=listheading>
b1253e4f	Philip Reetz	<th class=listheading style="width:15%">\|
		. $locale->text('Account')
		. qq\|</th>
		<th class=listheading style="width:10%">\|
		. $locale->text('Debit')
		. qq\|</th>
		<th class=listheading style="width:10%">\|
		. $locale->text('Credit')
		. qq\|</th>
		<th class=listheading style="width:10%">\|
		. $locale->text('Tax')
		. qq\|</th>
		<th class=listheading style="width:5%">\|
		. $locale->text('Korrektur')
		. qq\|</th>
		<th class=listheading style="width:10%">\|
		. $locale->text('Taxkey')
		. qq\|</th>
		<th class=listheading style="width:20%">\|
		. $locale->text('Source')
		. qq\|</th>
		<th class=listheading style="width:20%">\| . $locale->text('Memo') . qq\|</th>
c7f9bb36	Philip Reetz	$project
d319704a	Moritz Bunkus	</tr>
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$jsscript
		\|;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

		sub form_footer {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus	($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
c7f9bb36	Philip Reetz	$dec = length $dec;
d319704a	Moritz Bunkus	$decimalplaces = ($dec > 2) ? $dec : 2;
b1253e4f	Philip Reetz	$radieren = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;

		map {
		$form->{$_} =
		$form->format_amount(\%myconfig, $form->{$_}, $decimalplaces, " ")
		} qw(totaldebit totalcredit);
d319704a	Moritz Bunkus
		print qq\|
c7f9bb36	Philip Reetz	</table>
d319704a	Moritz Bunkus	</table>
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	<input type=hidden name=path value=$form->{path}>
		<input type=hidden name=login value=$form->{login}>
		<input type=hidden name=password value=$form->{password}>

		<input name=callback type=hidden value="$form->{callback}">
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	<br>
		\|;

		$transdate = $form->datetonum($form->{transdate}, \%myconfig);
b1253e4f	Philip Reetz	$closedto = $form->datetonum($form->{closedto}, \%myconfig);
d319704a	Moritz Bunkus
		if ($form->{id}) {
b1253e4f	Philip Reetz
		print qq\|<input class=submit type=submit name=action value="\|
		. $locale->text('Storno') . qq\|">\|;

		# L?schen und ?ndern von Buchungen nicht mehr m?glich (GoB) nur am selben Tag m?glich

		if (!$form->{locked} && $radieren) {
		print qq\|
		<input class=submit type=submit name=action value="\|
		. $locale->text('Post')
		. qq\|" accesskey="b">
		<input class=submit type=submit name=action value="\|
		. $locale->text('Delete') . qq\|">\|;
		}

		# if ($transdate > $closedto) {
		# print qq\|
		# <input class=submit type=submit name=action value="\|.$locale->text('Post as new').qq\|">\|;
		# }
		} else {
		if ($transdate > $closedto) {
		print qq\|<input class=submit type=submit name=action value="\|
		. $locale->text('Update') . qq\|">
		<input class=submit type=submit name=action value="\|
		. $locale->text('Post') . qq\|">\|;
		}
		}
d319704a	Moritz Bunkus
		if ($form->{menubar}) {
		require "$form->{path}/menu.pl";
		&menubar;
		}
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	print "
		</form>

		</body>
		</html>
		";
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub delete {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		$form->header;

		print qq\|
		<body>

		<form method=post action=$form->{script}>
		\|;

		map { $form->{$_} =~ s/\"/"/g } qw(reference description chart);

		delete $form->{header};

		foreach $key (keys %$form) {
		print qq\|<input type=hidden name=$key value="$form->{$key}">\n\|;
		}

		print qq\|
b1253e4f	Philip Reetz	<h2 class=confirm>\| . $locale->text('Confirm!') . qq\|</h2>
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	<h4>\|
		. $locale->text('Are you sure you want to delete Transaction')
		. qq\| $form->{reference}</h4>
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	<input name=action class=submit type=submit value="\|
		. $locale->text('Yes') . qq\|">
d319704a	Moritz Bunkus	</form>
		\|;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

		sub yes {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	$form->redirect($locale->text('Transaction deleted!'))
		if (GL->delete_transaction(\%myconfig, \%$form));
d319704a	Moritz Bunkus	$form->error($locale->text('Cannot delete transaction!'));
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	sub post {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();

d319704a	Moritz Bunkus	# check if there is something in reference and date
b1253e4f	Philip Reetz	$form->isblank("reference", $locale->text('Reference missing!'));
		$form->isblank("transdate", $locale->text('Transaction Date missing!'));
d319704a	Moritz Bunkus	$form->isblank("description", $locale->text('Description missing!'));

b1253e4f	Philip Reetz	$transdate = $form->datetonum($form->{transdate}, \%myconfig);
		$closedto = $form->datetonum($form->{closedto}, \%myconfig);
d319704a	Moritz Bunkus
		# check project
		&check_project;

b1253e4f	Philip Reetz	my @a = ();
		my $count = 0;
		my $debittax = 0;
c7f9bb36	Philip Reetz	my $credittax = 0;
b1253e4f	Philip Reetz	my @flds =
		qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
c7f9bb36	Philip Reetz
		for my $i (1 .. $form->{rowcount}) {

		unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) {
b1253e4f	Philip Reetz	for (qw(debit credit tax)) {
		$form->{"${_}_$i"} =
		$form->parse_amount(\%myconfig, $form->{"${_}_$i"});
		}

c7f9bb36	Philip Reetz	push @a, {};
		$debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
b1253e4f	Philip Reetz	$amount =
		($form->{"debit_$i"} == 0)
		? $form->{"credit_$i"}
		: $form->{"debit_$i"};
c7f9bb36	Philip Reetz	$j = $#a;
		if (($debitcredit && $credittax) \|\| (!$debitcredit && $debittax)) {
		$form->{"taxchart_$i"} = "0--";
b1253e4f	Philip Reetz	$form->{"tax_$i"} = 0;
c7f9bb36	Philip Reetz	}
		if (!$form->{"korrektur_$i"}) {
		($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
		if ($taxkey > 1) {
		if ($debitcredit) {
		$debittax = 1;
		} else {
		$credittax = 1;
		}
		if ($form->{taxincluded}) {
		$form->{"tax_$i"} = $amount / ($rate + 1) * $rate;
		} else {
		$form->{"tax_$i"} = $amount * $rate;
		}
		} else {
		$form->{"tax_$i"} = 0;
		}
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz
c7f9bb36	Philip Reetz	for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
		$count++;
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	for $i (1 .. $count) {
		$j = $i - 1;
		for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
		}

		for $i ($count + 1 .. $form->{rowcount}) {
		for (@flds) { delete $form->{"${_}_$i"} }
		}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	for $i (1 .. $form->{rowcount}) {
b1253e4f	Philip Reetz	$dr = $form->{"debit_$i"};
		$cr = $form->{"credit_$i"};
c7f9bb36	Philip Reetz	$tax = $form->{"tax_$i"};
		if ($dr && $cr) {
b1253e4f	Philip Reetz	$form->error(
		$locale->text(
		'Cannot post transaction with a debit and credit entry for the same account!'
		));
c7f9bb36	Philip Reetz	}
		if ($form->{taxincluded}) {
b1253e4f	Philip Reetz	$debit += $dr;
		$credit += $cr;
c7f9bb36	Philip Reetz	$taxtotal += $tax;
d319704a	Moritz Bunkus	} else {
c7f9bb36	Philip Reetz	if ($dr) {
		$debit += $dr + $tax;
		}
		if ($cr) {
		$credit += $cr + $tax;
d319704a	Moritz Bunkus	}
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz	}
		if (!$taxtotal) {
b1253e4f	Philip Reetz	$form->{taxincluded} = 0;
d319704a	Moritz Bunkus	}

		# this is just for the wise guys
b1253e4f	Philip Reetz	$form->error($locale->text('Cannot post transaction for a closed period!'))
		if ($transdate <= $closedto);
c7f9bb36	Philip Reetz	if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) {
		$form->error($locale->text('Out of balance transaction!'));
		}
d319704a	Moritz Bunkus	if (($errno = GL->post_transaction(\%myconfig, \%$form)) <= -1) {
		$errno *= -1;
		$err[1] = $locale->text('Cannot have a value in both Debit and Credit!');
		$err[2] = $locale->text('Debit and credit out of balance!');
		$err[3] = $locale->text('Cannot post a transaction without a value!');
b1253e4f	Philip Reetz
d319704a	Moritz Bunkus	$form->error($err[$errno]);
		}
		undef($form->{callback});
b1253e4f	Philip Reetz	$form->redirect("Buchung gespeichert. Buchungsnummer = " . $form->{id});
		$lxdebug->leave_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub post_as_new {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
		$form->{id} = 0;
		&add;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

		sub storno {
b1253e4f	Philip Reetz	$lxdebug->enter_sub();
d319704a	Moritz Bunkus
b1253e4f	Philip Reetz	$form->{id} = 0;
		$form->{storno} = 1;
d319704a	Moritz Bunkus	&post;
b1253e4f	Philip Reetz	$lxdebug->leave_sub();
d319704a	Moritz Bunkus
		}

Projekt

Allgemein

Profil

projekt kivitendo