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

| Zweig: | Markierung: | Revision:

kivitendo/bin/mozilla/gl.pl @ c7f9bb36

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
		#
		#======================================================================

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	use SL::GL;
		use SL::PE;

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

		1;
		# 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')

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub add {

		$form->{title} = "Add";
c7f9bb36	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);

c7f9bb36	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} };

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

		$form->{debit} = 0;
d319704a	Moritz Bunkus	$form->{credit} = 0;
c7f9bb36	Philip Reetz	$form->{tax} = 0;

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

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

d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub edit {

		GL->transaction(\%myconfig, \%$form);

c7f9bb36	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;

d319704a	Moritz Bunkus	if ($form->{tax} < 0) {
		$form->{tax} = $form->{tax} * (-1);
		}
c7f9bb36	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";

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

c7f9bb36	Philip Reetz	$i = 1;
		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->{$_} }

		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;
		$form->{locked} = ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	$form->{title} = "Edit";

		&form_header;
		&display_rows;
d319704a	Moritz Bunkus	&form_footer;
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz

d319704a	Moritz Bunkus	sub search {

		$form->{title} = $locale->text('Buchungsjournal');
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$form->all_departments(\%myconfig);
		# departments
		if (@{ $form->{all_departments} }) {
		$form->{selectdepartment} = "<option>\n";

c7f9bb36	Philip Reetz	map { $form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } (@{ $form->{all_departments} });
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$department = qq\|
		<tr>
c7f9bb36	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};
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	# use JavaScript Calendar or not
		$form->{jsscript} = $jscalendar;
		$jsscript = "";
c7f9bb36	Philip Reetz	if ($form->{jsscript})
		{
d319704a	Moritz Bunkus	# with JavaScript Calendar
		$button1 = qq\|
		<td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}">
c7f9bb36	Philip Reetz	<input type=button name=datefrom id="trigger1" value=\|.$locale->text('button').qq\|></td>
d319704a	Moritz Bunkus	\|;
c7f9bb36	Philip Reetz	$button2 = qq\|
d319704a	Moritz Bunkus	<td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}">
c7f9bb36	Philip Reetz	<input type=button name=dateto id="trigger2" value=\|.$locale->text('button').qq\|></td>
d319704a	Moritz Bunkus	\|;
c7f9bb36	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>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Reference').qq\|</th>
d319704a	Moritz Bunkus	<td><input name=reference size=20></td>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Source').qq\|</th>
d319704a	Moritz Bunkus	<td><input name=source size=20></td>
		</tr>
		$department
		<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Description').qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><input name=description size=40></td>
		</tr>
		<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Notes').qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3><input name=notes size=40></td>
		</tr>
		<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('From').qq\|</th>
d319704a	Moritz Bunkus	$button1
		$button2
		</tr>
		<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Include in Report').qq\|</th>
d319704a	Moritz Bunkus	<td colspan=3>
		<table>
		<tr>
		<td>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	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>
c7f9bb36	Philip Reetz	<input class=submit type=submit name=action value="\|.$locale->text('Continue').qq\|">
d319704a	Moritz Bunkus	</form>

		</body>
		</html>
		\|;
		}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub generate_report {

		$form->{sort} = "transdate" unless $form->{sort};

		GL->all_transactions(\%myconfig, \%$form);
c7f9bb36	Philip Reetz
		$callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}";
d319704a	Moritz Bunkus
		$href = $callback;
c7f9bb36	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');
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$ml = ($form->{ml} =~ /(A\|E)/) ? -1 : 1;

		unless ($form->{category} eq 'X') {
c7f9bb36	Philip Reetz	$form->{title} .= " : ".$locale->text($acctype{$form->{category}});
d319704a	Moritz Bunkus	}
		if ($form->{accno}) {
c7f9bb36	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}) {
c7f9bb36	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}) {
c7f9bb36	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}) {
c7f9bb36	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}) {
c7f9bb36	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;
c7f9bb36	Philip Reetz	$option .= $locale->text('Department')." : $department";
d319704a	Moritz Bunkus	}

		if ($form->{description}) {
c7f9bb36	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}) {
c7f9bb36	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	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	if ($form->{datefrom}) {
c7f9bb36	Philip Reetz	$href .= "&datefrom=$form->{datefrom}";
d319704a	Moritz Bunkus	$callback .= "&datefrom=$form->{datefrom}";
c7f9bb36	Philip Reetz	$option .= "\n<br>" if $option;
		$option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{datefrom}, 1);
d319704a	Moritz Bunkus	}
		if ($form->{dateto}) {
c7f9bb36	Philip Reetz	$href .= "&dateto=$form->{dateto}";
d319704a	Moritz Bunkus	$callback .= "&dateto=$form->{dateto}";
		if ($form->{datefrom}) {
		$option .= " ";
		} else {
		$option .= "\n<br>" if $option;
		}
c7f9bb36	Philip Reetz	$option .= $locale->text('Bis')." ".$locale->date(\%myconfig, $form->{dateto}, 1);
d319704a	Moritz Bunkus	}

c7f9bb36	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";
c7f9bb36	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";
c7f9bb36	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";
c7f9bb36	Philip Reetz	$href .= "&l_$item=Y";
d319704a	Moritz Bunkus	}
		}

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

		$callback .= "&category=$form->{category}";
c7f9bb36	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;
c7f9bb36	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>
		\|;

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

		map { $column_data{$_} = "<td> </td>" } @column_index;
c7f9bb36	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;
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	print qq\|
		</tr>
		\|;
		}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	foreach $ref (@{ $form->{GL} }) {

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

d319704a	Moritz Bunkus	$debittaxaccno = "";
c7f9bb36	Philip Reetz	foreach $key (sort keys (%{$ref->{debit_tax_accno}})) {
d319704a	Moritz Bunkus	if ($key == 0) {
c7f9bb36	Philip Reetz	$debittaxaccno = "<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
c7f9bb36	Philip Reetz	$debittaxaccno .= "<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{debit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
		}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$credittaxaccno = "";
c7f9bb36	Philip Reetz	foreach $key (sort keys (%{$ref->{credit_tax_accno}})) {
d319704a	Moritz Bunkus	if ($key == 0) {
c7f9bb36	Philip Reetz	$credittaxaccno = "<a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	} else {
c7f9bb36	Philip Reetz	$credittaxaccno .= "<br><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{credit_tax_accno}{$key}</a>";
d319704a	Moritz Bunkus	}
c7f9bb36	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>";
c7f9bb36	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>";
c7f9bb36	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>";
c7f9bb36	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
c7f9bb36	Philip Reetz	$i++; $i %= 2;
d319704a	Moritz Bunkus	print "
		<tr class=listrow$i>";
		map { print "$column_data{$_}\n" } @column_index;
		print "</tr>";
c7f9bb36	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;

		$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}>

c7f9bb36	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>
		\|;

		}


c7f9bb36	Philip Reetz	sub gl_subtotal {

		$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>";

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	print "<tr class=listsubtotal>";
		map { print "$column_data{$_}\n" } @column_index;
		print "</tr>";

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

c7f9bb36	Philip Reetz	$sameitem = $ref->{$form->{sort}};
d319704a	Moritz Bunkus
		}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub update {

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

		for my $i (1 .. $form->{rowcount}) {

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

		push @a, {};
		$debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
		$amount = ($form->{"debit_$i"} == 0) ? $form->{"credit_$i"} : $form->{"debit_$i"};
		$j = $#a;
		if (($debitcredit && $credittax) \|\| (!$debitcredit && $debittax)) {
		$form->{"taxchart_$i"} = "0--";
		$form->{"tax_$i"} = 0;
		}
		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;
		}
		}

		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;

d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub display_form {
c7f9bb36	Philip Reetz	my ($init) = @_;

		&form_header($init);
		# 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);
		# }
		&display_rows($init);
		&form_footer;
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus

c7f9bb36	Philip Reetz	sub display_rows {
		my ($init) = @_;

		$form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber}) if $form->{selectprojectnumber};

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

		$source = qq\|
		<td><input name="source_$i" value="$form->{"source_$i"}" tabindex=\|.($i+11+(($i-1)*8)).qq\|></td>\|;
		$memo = qq\|
		<td><input name="memo_$i" value="$form->{"memo_$i"}" tabindex=\|.($i+12+(($i-1)*8)).qq\|></td>\|;

		if ($init) {
		$accno = qq\|
		<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>\|;
		if ($form->{selectprojectnumber}) {
		$project = qq\|
		<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>\|;
		}
		$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\|
		<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
		\|;
		}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	} else {

		$form->{totaldebit} += $form->{"debit_$i"};
		$form->{totalcredit} += $form->{"credit_$i"};

		for (qw(debit credit tax)) { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) : "" }

		if ($i < $form->{rowcount}) {

		$accno = $chart;
		$chart_selected = $form->{"accno_$i"};
		$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;
		$tax_selected = $form->{"taxchart_$i"};
		$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\|
		<td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td>
		\|;
		}
		$checked = ($form->{"korrektur_$i"}) ? "checked" : "";
		$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");

		} else {

		$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\|
		<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>\|;
		}
		$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\|
		<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td>
		\|;
		}
		}
		}

		print qq\|<tr valign=top>
		$accno
		$fx_transaction
		<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>
		$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\|
		<input type=hidden name=selectprojectnumber value="\|.$form->escape($form->{selectprojectnumber},1).qq\|">\|;
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	}
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	sub form_header {
		my ($init) = @_;
		$title = $form->{title};
		$form->{title} = $locale->text("$title General Ledger Transaction");
		$readonly = ($form->{id}) ? "readonly" : "";


		# $locale->text('Add General Ledger Transaction')
		# $locale->text('Edit General Ledger Transaction')

		map { $form->{$_} =~ s/\"/"/g } qw(reference description chart taxchart);
		$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//;
c7f9bb36	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) {
c7f9bb36	Philip Reetz	$description = qq\|<textarea name=description rows=$rows cols=50 wrap=soft $readonly >$form->{description}</textarea>\|;
d319704a	Moritz Bunkus	} else {
c7f9bb36	Philip Reetz	$description = qq\|<input name=description size=50 value="$form->{description}" tabindex="3" $readonly>\|;
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$taxincluded = ($form->{taxincluded}) ? "checked" : "";
c7f9bb36	Philip Reetz
		if ($init) {
		$taxincluded = "checked";
d319704a	Moritz Bunkus	}
c7f9bb36	Philip Reetz
		$amount = qq\|<input name=amount size=20 value="$form->{amount}" tabindex="4" $readonly>\|;


d319704a	Moritz Bunkus	$department = qq\|
		<tr>
c7f9bb36	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}\|;
		}

d319704a	Moritz Bunkus	# use JavaScript Calendar or not
		$form->{jsscript} = $jscalendar;
		$jsscript = "";
c7f9bb36	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>
		<input type=button name=transdate id="trigger1" value=\|.$locale->text('button').qq\|></td>
d319704a	Moritz Bunkus	\|;
c7f9bb36	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;

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	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>
c7f9bb36	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>
c7f9bb36	Philip Reetz	<th align=right nowrap>\|.$locale->text('Date').qq\|</th>
d319704a	Moritz Bunkus	$button1
		</tr>
		</table>
		</td>
		</tr>\|;
c7f9bb36	Philip Reetz	if ($form->{id}) {
		print qq\|
d319704a	Moritz Bunkus	<tr>
c7f9bb36	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>
c7f9bb36	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>\|;
c7f9bb36	Philip Reetz	}
		print qq\|
d319704a	Moritz Bunkus	$department\|;
c7f9bb36	Philip Reetz	if ($form->{id}) {
		print qq\|
d319704a	Moritz Bunkus	<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Description').qq\|</th>
d319704a	Moritz Bunkus	<td>$description</td>
		<td align=left>
		<table width=100%>
		<tr>
c7f9bb36	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>
c7f9bb36	Philip Reetz	</tr>\|;
		} else {
		print qq\|
d319704a	Moritz Bunkus	<tr>
c7f9bb36	Philip Reetz	<th align=right>\|.$locale->text('Description').qq\|</th>
		<td colspan=2>$description</td>
d319704a	Moritz Bunkus	</tr>\|;
c7f9bb36	Philip Reetz	}
		print qq\|
d319704a	Moritz Bunkus	<tr>
c7f9bb36	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>
c7f9bb36	Philip Reetz	<th align=left>\|.$locale->text('MwSt. inkl.').qq\|</th>
		<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>
		<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>
		$project
d319704a	Moritz Bunkus	</tr>
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$jsscript
		\|;

		}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub form_footer {
		($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
c7f9bb36	Philip Reetz	$dec = length $dec;
d319704a	Moritz Bunkus	$decimalplaces = ($dec > 2) ? $dec : 2;
c7f9bb36	Philip Reetz	$radieren = ($form->current_date(\%myconfig) eq $form->{gldate})? 1 : 0;
d319704a	Moritz Bunkus
c7f9bb36	Philip Reetz	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);
c7f9bb36	Philip Reetz	$closedto = $form->datetonum($form->{closedto}, \%myconfig);
d319704a	Moritz Bunkus
		if ($form->{id}) {
c7f9bb36	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;
		}
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	print "
		</form>

		</body>
		</html>
		";
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub delete {

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

		}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub yes {

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


c7f9bb36	Philip Reetz	sub post {
d319704a	Moritz Bunkus	# check if there is something in reference and date
c7f9bb36	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!'));
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$transdate = $form->datetonum($form->{transdate}, \%myconfig);
c7f9bb36	Philip Reetz	$closedto = $form->datetonum($form->{closedto}, \%myconfig);
d319704a	Moritz Bunkus

		# check project
		&check_project;

c7f9bb36	Philip Reetz	my @a = ();
		my $count = 0;
		my $debittax = 0;
		my $credittax = 0;
		my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);

		for my $i (1 .. $form->{rowcount}) {

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

		push @a, {};
		$debitcredit = ($form->{"debit_$i"} == 0) ? "0" : "1";
		$amount = ($form->{"debit_$i"} == 0) ? $form->{"credit_$i"} : $form->{"debit_$i"};
		$j = $#a;
		if (($debitcredit && $credittax) \|\| (!$debitcredit && $debittax)) {
		$form->{"taxchart_$i"} = "0--";
		$form->{"tax_$i"} = 0;
		}
		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	}
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}) {
		$dr = $form->{"debit_$i"};
		$cr = $form->{"credit_$i"};
		$tax = $form->{"tax_$i"};
		if ($dr && $cr) {
		$form->error($locale->text('Cannot post transaction with a debit and credit entry for the same account!'));
		}
		if ($form->{taxincluded}) {
		$debit += $dr;
		$credit += $cr;
		$taxtotal += $tax;
d319704a	Moritz Bunkus	} else {
c7f9bb36	Philip Reetz	if ($dr) {
		$debit += $dr + $tax;
		}
		if ($cr) {
		$credit += $cr + $tax;
d319704a	Moritz Bunkus	}
		}
c7f9bb36	Philip Reetz	}
		if (!$taxtotal) {
		$form->{taxincluded} = 0;
d319704a	Moritz Bunkus	}

		# this is just for the wise guys
c7f9bb36	Philip Reetz	$form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto);
		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!');
c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	$form->error($err[$errno]);
		}
		undef($form->{callback});
c7f9bb36	Philip Reetz	$form->redirect("Buchung gespeichert. Buchungsnummer = ".$form->{id});

d319704a	Moritz Bunkus	}

c7f9bb36	Philip Reetz
d319704a	Moritz Bunkus	sub post_as_new {

		$form->{id} = 0;
		&add;

		}

		sub storno {

c7f9bb36	Philip Reetz	$form->{id} = 0;
		$form->{storno} =1;
d319704a	Moritz Bunkus	&post;

		}

Projekt

Allgemein

Profil

projekt kivitendo