Projekt

Allgemein

Profil

Herunterladen (54,1 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/bin/mozilla/ar.pl @ 7b31116b

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) 2001
#
# 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.
#======================================================================
#
# Accounts Receivables
#
#======================================================================

971c9727 Moritz Bunkus
use POSIX qw(strftime);
7a7f33b5 Moritz Bunkus
use List::Util qw(sum);
971c9727 Moritz Bunkus
d319704a Moritz Bunkus
use SL::AR;
7a7f33b5 Moritz Bunkus
use SL::FU;
d319704a Moritz Bunkus
use SL::IS;
use SL::PE;
971c9727 Moritz Bunkus
use SL::ReportGenerator;
d319704a Moritz Bunkus
d467f40d Moritz Bunkus
# use strict;
3a4e1d5e Sven Schöling
#use warnings;
1ae70a98 Sven Schöling
# imports
our ($cgi, $form, $lxdebug, $locale, %myconfig);

d629acd8 Sven Schöling
require "bin/mozilla/arap.pl";
a4b22a8f Moritz Bunkus
require "bin/mozilla/common.pl";
bde667c2 Moritz Bunkus
require "bin/mozilla/drafts.pl";
18da4a96 Moritz Bunkus
require "bin/mozilla/reportgenerator.pl";
d319704a Moritz Bunkus
1;

# end of main

# 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 {
$lxdebug->enter_sub();
bde667c2 Moritz Bunkus
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

bde667c2 Moritz Bunkus
return $lxdebug->leave_sub() if (load_draft_maybe());

590f737f Thomas Kasulke
# saving the history
if(!exists $form->{addition} && ($form->{id} ne "")) {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
590f737f Thomas Kasulke
$form->{addition} = "ADDED";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
d319704a Moritz Bunkus
$form->{title} = "Add";
8c7e4493 Moritz Bunkus
$form->{callback} = "ar.pl?action=add" unless $form->{callback};
d319704a Moritz Bunkus
2387a1fc Moritz Bunkus
AR->get_transdate(\%myconfig, $form);
f1c1921d Moritz Bunkus
$form->{initial_transdate} = $form->{transdate};
&create_links;
$form->{transdate} = $form->{initial_transdate};
d319704a Moritz Bunkus
&display_form;
$lxdebug->leave_sub();
}

sub edit {
$lxdebug->enter_sub();
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

590f737f Thomas Kasulke
# show history button
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
#/show hhistory button
be4e11d3 Thomas Kasulke
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
d319704a Moritz Bunkus
$form->{title} = "Edit";

&create_links;
&display_form;

$lxdebug->leave_sub();
}

sub display_form {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

d319704a Moritz Bunkus
&form_header;
&form_footer;

$lxdebug->leave_sub();
}

sub create_links {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
my ($duedate, $taxincluded, @curr);

d319704a Moritz Bunkus
$form->create_links("AR", \%myconfig, "customer");
$duedate = $form->{duedate};

$taxincluded = $form->{taxincluded};
53beea8b Philip Reetz
my $id = $form->{id};
d319704a Moritz Bunkus
IS->get_customer(\%myconfig, \%$form);
53beea8b Philip Reetz
$form->{taxincluded} = $taxincluded;
$form->{id} = $id;
d319704a Moritz Bunkus
$form->{duedate} = $duedate if $duedate;
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
f921dcbb Stephan Köhler
$form->{rowcount} = 1;

98662ad2 Sven Schöling
# notes
$form->{notes} = $form->{intnotes} unless $form->{notes};

d319704a Moritz Bunkus
# currencies
326d4c54 Moritz Bunkus
@curr = split(/:/, $form->{currencies});
d319704a Moritz Bunkus
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];

map { $form->{selectcurrency} .= "<option>$_\n" } @curr;

# customers
if (@{ $form->{all_customer} }) {
$form->{customer} = "$form->{customer}--$form->{customer_id}";
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
(@{ $form->{all_customer} });
}

# departments
if (@{ $form->{all_departments} }) {
$form->{selectdepartment} = "<option>\n";
$form->{department} = "$form->{department}--$form->{department_id}";

map {
$form->{selectdepartment} .=
"<option>$_->{description}--$_->{id}\n"
} (@{ $form->{all_departments} });
}

$form->{employee} = "$form->{employee}--$form->{employee_id}";

# sales staff
if (@{ $form->{all_employees} }) {
$form->{selectemployee} = "";
map { $form->{selectemployee} .= "<option>$_->{name}--$_->{id}\n" }
(@{ $form->{all_employees} });
}

# build the popup menus
$form->{taxincluded} = ($form->{id}) ? $form->{taxincluded} : "checked";

f36eb9fc Moritz Bunkus
AR->setup_form($form);
d319704a Moritz Bunkus
$form->{locked} =
($form->datetonum($form->{transdate}, \%myconfig) <=
$form->datetonum($form->{closedto}, \%myconfig));

$lxdebug->leave_sub();
}

sub form_header {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
my ($title, $readonly, $exchangerate, $rows);
my ($taxincluded, $notes, $department, $customer, $employee, $amount, $project);
my ($jsscript, $button1, $button2, $onload);
my ($selectAR_amount, $selectAR_paid, $korrektur_checked, $ARselected, $tax);
my (@column_index, %column_data);


d319704a Moritz Bunkus
$title = $form->{title};
$form->{title} = $locale->text("$title Accounts Receivables Transaction");

$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";

# $locale->text('Add Accounts Receivables Transaction')
# $locale->text('Edit Accounts Receivables Transaction')
de651621 Stephan Köhler
$form->{javascript} = qq|<script type="text/javascript">
<!--
function setTaxkey(accno, row) {
var taxkey = accno.options[accno.selectedIndex].value;
1182c721 Philip Reetz
var reg = /--([0-9]*)/;
de651621 Stephan Köhler
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>|;
590f737f Thomas Kasulke
# show history button js
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_history.js"></script>|;
#/show history button js
be4e11d3 Thomas Kasulke
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
d319704a Moritz Bunkus
$readonly = ($form->{id}) ? "readonly" : "";

$form->{radier} =
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
$readonly = ($form->{radier}) ? "" : $readonly;

# set option selected
1ae70a98 Sven Schöling
foreach my $item (qw(customer currency department employee)) {
d319704a Moritz Bunkus
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}

a53233e5 Sven Schöling
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'buy');
$form->{exchangerate} = $form->{forex} if $form->{forex};
fb37acdc Moritz Bunkus
d319704a Moritz Bunkus
# format amounts
$form->{exchangerate} =
$form->format_amount(\%myconfig, $form->{exchangerate});

fb37acdc Moritz Bunkus
if ($form->{exchangerate} == 0) {
$form->{exchangerate} = "";
}

d319704a Moritz Bunkus
$form->{creditlimit} =
$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
$form->{creditremaining} =
$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");

$exchangerate = qq|
<input type=hidden name=forex value=$form->{forex}>
|;
if ($form->{currency} ne $form->{defaultcurrency}) {
if ($form->{forex}) {
$exchangerate .= qq|
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
|;
} else {
$exchangerate .= qq|
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
<td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|;
}
}

$taxincluded = qq|
<tr>
<td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
<th align=left nowrap>| . $locale->text('Tax Included') . qq|</th>
</tr>
|;

if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) {
$rows = 2;
}
$notes =
qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;

$department = qq|
<tr>
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
<td colspan=3><select name=department>$form->{selectdepartment}</select>
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
</td>
</tr>
| if $form->{selectdepartment};

1ae70a98 Sven Schöling
my $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
d319704a Moritz Bunkus
1ae70a98 Sven Schöling
$customer = ($form->{selectcustomer})
? qq|<select name="customer" onchange="document.getElementById('update_button').click();">$form->{selectcustomer}</select>|
d319704a Moritz Bunkus
: qq|<input name=customer value="$form->{customer}" size=35>|;

$employee = qq|
<input type=hidden name=employee value="$form->{employee}">
|;

if ($form->{selectemployee}) {
$employee = qq|
<tr>
<th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
<td colspan=2><select name=employee>$form->{selectemployee}</select></td>
<input type=hidden name=selectemployee value="$form->{selectemployee}">
</tr>
|;
}

f01741e3 Moritz Bunkus
my @old_project_ids = ();
map({ push(@old_project_ids, $form->{"project_id_$_"})
if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));

$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
"all" => 0,
289ea7d7 Moritz Bunkus
"old_id" => \@old_project_ids },
3253777d Moritz Bunkus
"charts" => { "key" => "ALL_CHARTS",
"transdate" => $form->{transdate} },
289ea7d7 Moritz Bunkus
"taxcharts" => "ALL_TAXCHARTS");
f01741e3 Moritz Bunkus
3253777d Moritz Bunkus
map({ $_->{link_split} = [ split(/:/, $_->{link}) ]; }
@{ $form->{ALL_CHARTS} });

f01741e3 Moritz Bunkus
my %project_labels = ();
my @project_values = ("");
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
push(@project_values, $item->{"id"});
$project_labels{$item->{"id"}} = $item->{"projectnumber"};
}

3253777d Moritz Bunkus
my (%AR_amount_labels, @AR_amount_values);
my (%AR_labels, @AR_values);
my (%AR_paid_labels, @AR_paid_values);
6aefd19d Moritz Bunkus
my %charts;
3253777d Moritz Bunkus
my $taxchart_init;

foreach my $item (@{ $form->{ALL_CHARTS} }) {
if (grep({ $_ eq "AR_amount" } @{ $item->{link_split} })) {
$taxchart_init = $item->{tax_id} if ($taxchart_init eq "");
my $key = "$item->{accno}--$item->{tax_id}";
push(@AR_amount_values, $key);
$AR_amount_labels{$key} =
"$item->{accno}--$item->{description}";

} elsif (grep({ $_ eq "AR" } @{ $item->{link_split} })) {
push(@AR_values, $item->{accno});
$AR_labels{$item->{accno}} = "$item->{accno}--$item->{description}";

} elsif (grep({ $_ eq "AR_paid" } @{ $item->{link_split} })) {
push(@AR_paid_values, $item->{accno});
$AR_paid_labels{$item->{accno}} =
"$item->{accno}--$item->{description}";
}
6aefd19d Moritz Bunkus
$charts{$item->{accno}} = $item;
3253777d Moritz Bunkus
}

289ea7d7 Moritz Bunkus
my %taxchart_labels = ();
my @taxchart_values = ();
6aefd19d Moritz Bunkus
my %taxcharts = ();
289ea7d7 Moritz Bunkus
foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {
3253777d Moritz Bunkus
my $key = "$item->{id}--$item->{rate}";
$taxchart_init = $key if ($taxchart_init eq $item->{id});
289ea7d7 Moritz Bunkus
push(@taxchart_values, $key);
3253777d Moritz Bunkus
$taxchart_labels{$key} =
"$item->{taxdescription} " . ($item->{rate} * 100) . ' %';
6aefd19d Moritz Bunkus
$taxcharts{$item->{id}} = $item;
289ea7d7 Moritz Bunkus
}

d319704a Moritz Bunkus
$form->{fokus} = "arledger.customer";

# use JavaScript Calendar or not
d7f06042 Moritz Bunkus
$form->{jsscript} = 1;
d319704a Moritz Bunkus
$jsscript = "";
if ($form->{jsscript}) {

# with JavaScript Calendar
$button1 = qq|
637be9d4 Thomas Kasulke
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\"></td>
d319704a Moritz Bunkus
<td><input type=button name=transdate id="trigger1" value=|
f921dcbb Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;
$button2 = qq|
637be9d4 Thomas Kasulke
<td><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value="$form->{duedate}" onBlur=\"check_right_date_format(this)\"></td>
d319704a Moritz Bunkus
<td><input type=button name=duedate id="trigger2" value=|
f921dcbb Stephan Köhler
. $locale->text('button') . qq|></td></td>
d319704a Moritz Bunkus
|;

#write Trigger
$jsscript =
Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1",
"duedate", "BL", "trigger2");
} else {

# without JavaScript Calendar
$button1 =
637be9d4 Thomas Kasulke
qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\"></td>|;
d319704a Moritz Bunkus
$button2 =
637be9d4 Thomas Kasulke
qq|<td><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value="$form->{duedate}" onBlur=\"check_right_date_format(this)\"></td>|;
d319704a Moritz Bunkus
}

7a7f33b5 Moritz Bunkus
my $follow_up_vc = $form->{customer};
$follow_up_vc =~ s/--.*?//;
my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)";

fb4d2ffa Moritz Bunkus
$form->{javascript} .=
qq|<script type="text/javascript" src="js/common.js"></script>| .
7a7f33b5 Moritz Bunkus
qq|<script type="text/javascript" src="js/show_vc_details.js"></script>| .
qq|<script type="text/javascript" src="js/follow_up.js"></script>|;
fb4d2ffa Moritz Bunkus
d319704a Moritz Bunkus
$form->header;
be4e11d3 Thomas Kasulke
$onload = qq|focus()|;
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
d319704a Moritz Bunkus
print qq|
be4e11d3 Thomas Kasulke
<body onLoad="$onload">
d319704a Moritz Bunkus
<form method=post name="arledger" action=$form->{script}>

<input type=hidden name=id value=$form->{id}>
<input type=hidden name=sort value=$form->{sort}>
<input type=hidden name=closedto value=$form->{closedto}>
<input type=hidden name=locked value=$form->{locked}>
<input type=hidden name=title value="$title">
7a7f33b5 Moritz Bunkus
<input type="hidden" name="follow_up_trans_id_1" value="| . H($form->{id}) . qq|">
<input type="hidden" name="follow_up_trans_type_1" value="ar_transaction">
<input type="hidden" name="follow_up_trans_info_1" value="| . H($follow_up_trans_info) . qq|">
<input type="hidden" name="follow_up_rowcount" value="1">
d319704a Moritz Bunkus
bde667c2 Moritz Bunkus
| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|

d319704a Moritz Bunkus
<table width=100%>
<tr class=listtop>
<th class=listtop>$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr valign=top>
<td>
<table width=100%>
<tr valign=top>
<td>
<table>
<tr>
<th align="right" nowrap>| . $locale->text('Customer') . qq|</th>
fb4d2ffa Moritz Bunkus
<td colspan=3>$customer <input type="button" value="?" onclick="show_vc_details('customer')"></td>
d319704a Moritz Bunkus
<input type=hidden name=selectcustomer value="$form->{selectcustomer}">
<input type=hidden name=oldcustomer value="$form->{oldcustomer}">
<input type=hidden name=customer_id value="$form->{customer_id}">
<input type=hidden name=terms value=$form->{terms}>
</tr>
<tr>
<td></td>
<td colspan=3>
<table width=100%>
<tr>
<th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
<td>$form->{creditlimit}</td>
<th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
<td class="plus$n">$form->{creditremaining}</td>
<input type=hidden name=creditlimit value=$form->{creditlimit}>
<input type=hidden name=creditremaining value=$form->{creditremaining}>
</tr>
</table>
</td>
</tr>
<tr>
<th align=right>| . $locale->text('Currency') . qq|</th>
<td><select name=currency>$form->{selectcurrency}</select></td>
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
$exchangerate
</tr>
$department
$taxincluded
</table>
</td>
<td align=right>
<table>
$employee
<tr>
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
$button1
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
$button2
</tr>
82c78486 Moritz Bunkus
</table>
d319704a Moritz Bunkus
</td>
</tr>
</table>
</td>
</tr>

$jsscript
<input type=hidden name=rowcount value=$form->{rowcount}>
de651621 Stephan Köhler
<tr>
<td>
<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('Amount') . 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:10%">|
. $locale->text('Project') . qq|</th>
</tr>
d319704a Moritz Bunkus
|;

$amount = $locale->text('Amount');
$project = $locale->text('Project');

1ae70a98 Sven Schöling
for my $i (1 .. $form->{rowcount}) {
d319704a Moritz Bunkus
# format amounts
f921dcbb Stephan Köhler
$form->{"amount_$i"} =
$form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
de651621 Stephan Köhler
$form->{"tax_$i"} = $form->format_amount(\%myconfig, $form->{"tax_$i"}, 2);
3253777d Moritz Bunkus
6aefd19d Moritz Bunkus
my $selected_accno_full;
my ($accno_row) = split(/--/, $form->{"AR_amount_$i"});
my $item = $charts{$accno_row};
$selected_accno_full = "$item->{accno}--$item->{tax_id}";

my $selected_taxchart = $form->{"taxchart_$i"};
my ($selected_accno, $selected_tax_id) = split(/--/, $selected_accno_full);
my ($previous_accno, $previous_tax_id) = split(/--/, $form->{"previous_AR_amount_$i"});

if ($previous_accno &&
($previous_accno eq $selected_accno) &&
($previous_tax_id ne $selected_tax_id)) {
my $item = $taxcharts{$selected_tax_id};
$selected_taxchart = "$item->{id}--$item->{rate}";
}

$selected_taxchart = $taxchart_init unless ($form->{"taxchart_$i"});

3253777d Moritz Bunkus
$selectAR_amount =
NTI($cgi->popup_menu('-name' => "AR_amount_$i",
'-id' => "AR_amount_$i",
'-style' => 'width:400px',
'-onChange' => "setTaxkey(this, $i)",
'-values' => \@AR_amount_values,
'-labels' => \%AR_amount_labels,
6aefd19d Moritz Bunkus
'-default' => $selected_accno_full))
. $cgi->hidden('-name' => "previous_AR_amount_$i",
'-default' => $selected_accno_full);
289ea7d7 Moritz Bunkus
$tax = qq|<td>| .
3253777d Moritz Bunkus
NTI($cgi->popup_menu('-name' => "taxchart_$i",
'-id' => "taxchart_$i",
'-style' => 'width:200px',
'-values' => \@taxchart_values,
'-labels' => \%taxchart_labels,
6aefd19d Moritz Bunkus
'-default' => $selected_taxchart))
289ea7d7 Moritz Bunkus
. qq|</td>|;

081a4f97 Moritz Bunkus
$korrektur_checked = ($form->{"korrektur_$i"} ? 'checked' : '');
d319704a Moritz Bunkus
f01741e3 Moritz Bunkus
my $projectnumber =
NTI($cgi->popup_menu('-name' => "project_id_$i",
'-values' => \@project_values,
'-labels' => \%project_labels,
'-default' => $form->{"project_id_$i"} ));

d319704a Moritz Bunkus
print qq|
<tr>
3253777d Moritz Bunkus
<td>$selectAR_amount</td>
fea08973 Stephan Köhler
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
de651621 Stephan Köhler
<td><input name="tax_$i" size=10 value=$form->{"tax_$i"}></td>
8e53eafd Stephan Köhler
<td><input type="checkbox" name="korrektur_$i" value="1" $korrektur_checked></td>
de651621 Stephan Köhler
$tax
f01741e3 Moritz Bunkus
<td>$projectnumber</td>
d319704a Moritz Bunkus
</tr>
|;
$amount = "";
$project = "";
}

4d20c181 Moritz Bunkus
$form->{invtotal_unformatted} = $form->{invtotal};
d319704a Moritz Bunkus
$form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);

3253777d Moritz Bunkus
$ARselected =
NTI($cgi->popup_menu('-name' => "ARselected", '-id' => "ARselected",
'-style' => 'width:400px',
'-values' => \@AR_values, '-labels' => \%AR_labels,
'-default' => $form->{ARselected}));

d319704a Moritz Bunkus
print qq|
<tr>
de651621 Stephan Köhler
<td colspan=6>
<hr noshade>
</td>
</tr>
<tr>
3253777d Moritz Bunkus
<td>${ARselected}</td>
d319704a Moritz Bunkus
<th align=left>$form->{invtotal}</th>

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

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

de651621 Stephan Köhler
<td colspan=4></td>

0576299f Moritz Bunkus
d319704a Moritz Bunkus
</tr>
de651621 Stephan Köhler
</table>
</td>
</tr>
<tr>
<td>
<table width=100%>
d319704a Moritz Bunkus
<tr>
de651621 Stephan Köhler
<th align=left width=1%>| . $locale->text('Notes') . qq|</th>
<td align=left>$notes</td>
d319704a Moritz Bunkus
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width=100%>
<tr class=listheading>
84da0ba2 Moritz Bunkus
<th colspan=7 class=listheading>|
f921dcbb Stephan Köhler
. $locale->text('Incoming Payments') . qq|</th>
d319704a Moritz Bunkus
</tr>
|;

if ($form->{currency} eq $form->{defaultcurrency}) {
84da0ba2 Moritz Bunkus
@column_index = qw(datepaid source memo paid AR_paid paid_project_id);
d319704a Moritz Bunkus
} else {
84da0ba2 Moritz Bunkus
@column_index = qw(datepaid source memo paid exchangerate AR_paid paid_project_id);
d319704a Moritz Bunkus
}

$column_data{datepaid} = "<th>" . $locale->text('Date') . "</th>";
$column_data{paid} = "<th>" . $locale->text('Amount') . "</th>";
$column_data{exchangerate} = "<th>" . $locale->text('Exch') . "</th>";
$column_data{AR_paid} = "<th>" . $locale->text('Account') . "</th>";
$column_data{source} = "<th>" . $locale->text('Source') . "</th>";
84da0ba2 Moritz Bunkus
$column_data{memo} = "<th>" . $locale->text('Memo') . "</th>";
$column_data{paid_project_id} = "<th>" . $locale->text('Project Number') . "</th>";
d319704a Moritz Bunkus
print "
<tr>
";
map { print "$column_data{$_}\n" } @column_index;
print "
</tr>
";

4d20c181 Moritz Bunkus
my @triggers = ();
my $totalpaid = 0;

d319704a Moritz Bunkus
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
1ae70a98 Sven Schöling
for my $i (1 .. $form->{paidaccounts}) {
d319704a Moritz Bunkus
print "
<tr>
";

3253777d Moritz Bunkus
$selectAR_paid =
NTI($cgi->popup_menu('-name' => "AR_paid_$i",
'-id' => "AR_paid_$i",
'-values' => \@AR_paid_values,
'-labels' => \%AR_paid_labels,
'-default' => $form->{"AR_paid_$i"}));
d319704a Moritz Bunkus
4d20c181 Moritz Bunkus
$totalpaid += $form->{"paid_$i"};

d319704a Moritz Bunkus
# format amounts
53beea8b Philip Reetz
if ($form->{"paid_$i"}) {
$form->{"paid_$i"} =
$form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
}
d319704a Moritz Bunkus
$form->{"exchangerate_$i"} =
$form->format_amount(\%myconfig, $form->{"exchangerate_$i"});

fb37acdc Moritz Bunkus
if ($form->{"exchangerate_$i"} == 0) {
$form->{"exchangerate_$i"} = "";
}

d319704a Moritz Bunkus
$exchangerate = qq|&nbsp;|;
if ($form->{currency} ne $form->{defaultcurrency}) {
if ($form->{"forex_$i"}) {
$exchangerate =
qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
} else {
$exchangerate =
qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
}
}

$exchangerate .= qq|
<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
|;

$column_data{paid} =
637be9d4 Thomas Kasulke
qq|<td align=center><input name="paid_$i" size=11 value="$form->{"paid_$i"}" onBlur=\"check_right_number_format(this)\"></td>|;
d319704a Moritz Bunkus
$column_data{AR_paid} =
3253777d Moritz Bunkus
qq|<td align=center>${selectAR_paid}</td>|;
d319704a Moritz Bunkus
$column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|;
$column_data{datepaid} =
637be9d4 Thomas Kasulke
qq|<td align=center><input name="datepaid_$i" id="datepaid_$i" size=11 value="$form->{"datepaid_$i"}" onBlur=\"check_right_date_format(this)\">
a14a3ff5 Moritz Bunkus
<input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|;
d319704a Moritz Bunkus
$column_data{source} =
qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
$column_data{memo} =
qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;

84da0ba2 Moritz Bunkus
$column_data{paid_project_id} =
qq|<td>|
. NTI($cgi->popup_menu('-name' => "paid_project_id_$i",
'-values' => \@project_values,
'-labels' => \%project_labels,
'-default' => $form->{"paid_project_id_$i"} ))
. qq|</td>|;

d319704a Moritz Bunkus
map { print qq|$column_data{$_}\n| } @column_index;

print "
</tr>
";
a14a3ff5 Moritz Bunkus
push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i");
d319704a Moritz Bunkus
}
a14a3ff5 Moritz Bunkus
4d20c181 Moritz Bunkus
my $paid_missing = $form->{invtotal_unformatted} - $totalpaid;

print qq|
<tr>
<td></td>
<td></td>
<td align="center">| . $locale->text('Total') . qq|</td>
<td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td>
</tr>
<tr>
<td></td>
<td></td>
<td align="center">| . $locale->text('Missing amount') . qq|</td>
<td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td>
</tr>
| . $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) .
a14a3ff5 Moritz Bunkus
qq|
d319704a Moritz Bunkus
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>

</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;

$lxdebug->leave_sub();
}

sub form_footer {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
my ($transdate, $closedto);

7a7f33b5 Moritz Bunkus
my $follow_ups_block;
if ($form->{id}) {
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});

if (@{ $follow_ups} ) {
my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
$follow_ups_block = qq|<p>| . $locale->text("There are #1 unfinished follow-ups of which #2 are due.", scalar @{ $follow_ups }, $num_due) . qq|</p>|;
}
}

d319704a Moritz Bunkus
print qq|

7a7f33b5 Moritz Bunkus
$follow_ups_block

84da0ba2 Moritz Bunkus
<input name=gldate type=hidden value="| . Q($form->{gldate}) . qq|">

d319704a Moritz Bunkus
<input name=callback type=hidden value="$form->{callback}">
bde667c2 Moritz Bunkus
|
. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])
. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}])
. qq|
d319704a Moritz Bunkus
<br>
|;

29e31d6b Moritz Bunkus
if (!$form->{id} && $form->{draft_id}) {
print(NTI($cgi->checkbox('-name' => 'remove_draft', '-id' => 'remove_draft',
'-value' => 1, '-checked' => $form->{remove_draft},
'-label' => '')) .
qq|&nbsp;<label for="remove_draft">| .
$locale->text("Remove draft when posting") .
qq|</label><br>|);
}

d319704a Moritz Bunkus
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);

a4518c4d Sven Schöling
print qq|<input class="submit" type="submit" name="action" id="update_button" value="| . $locale->text('Update') . qq|">\n|;

2f23933d Sven Schöling
# ToDO: - insert a global check for stornos, so that a storno is only possible a limited time after saving it
0e04eb10 Sven Schöling
print qq| <input class=submit type=submit name=action value="| . $locale->text('Storno') . qq|"> |
23b02fbf Sven Schöling
if ($form->{id} && !IS->has_storno(\%myconfig, $form, 'ar') && !IS->is_storno(\%myconfig, $form, 'ar'));
102600f0 Sven Schöling
e9ae46a0 Philip Reetz
if ($form->{id}) {
if ($form->{radier}) {
84da0ba2 Moritz Bunkus
print qq|
102600f0 Sven Schöling
<input class=submit type=submit name=action value="| . $locale->text('Post') . qq|">
<input class=submit type=submit name=action value="| . $locale->text('Delete') . qq|"> |;
84da0ba2 Moritz Bunkus
}
if ($transdate > $closedto) {
print qq|
102600f0 Sven Schöling
<input class=submit type=submit name=action value="| . $locale->text('Use As Template') . qq|"> |;
84da0ba2 Moritz Bunkus
}
print qq|
7a7f33b5 Moritz Bunkus
<input class=submit type=submit name=action value="| . $locale->text('Post Payment') . qq|">
<input type="button" class="submit" onclick="follow_up_window()" value="|
. $locale->text('Follow-Up')
. qq|"> |;
84da0ba2 Moritz Bunkus
d319704a Moritz Bunkus
} else {
if ($transdate > $closedto) {
0e04eb10 Sven Schöling
print qq| <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|"> | .
102600f0 Sven Schöling
NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'), '-class' => 'submit'));
d319704a Moritz Bunkus
}
}

590f737f Thomas Kasulke
if ($form->{menubar}) {
d629acd8 Sven Schöling
require "bin/mozilla/menu.pl";
590f737f Thomas Kasulke
&menubar;
}
# button for saving history
if($form->{id} ne "") {
0e04eb10 Sven Schöling
print qq| <input type=button class=submit onclick=set_history_window($form->{id}); name=history id=history value=| . $locale->text('history') . qq|> |;
590f737f Thomas Kasulke
}
# /button for saving history
ce47a234 Thomas Kasulke
# mark_as_paid button
if($form->{id} ne "") {
print qq|<input type="submit" class="submit" name="action" value="|
. $locale->text('mark as paid') . qq|">|;
}
# /mark_as_paid button

d319704a Moritz Bunkus
print "
</form>

</body>
</html>
";

$lxdebug->leave_sub();
}

ce47a234 Thomas Kasulke
sub mark_as_paid {
$lxdebug->enter_sub();
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

2e07a0cd Thomas Kasulke
&mark_as_paid_common(\%myconfig,"ar");
8c7e4493 Moritz Bunkus
ce47a234 Thomas Kasulke
$lxdebug->leave_sub();
}

d319704a Moritz Bunkus
sub update {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

d319704a Moritz Bunkus
my $display = shift;

1ae70a98 Sven Schöling
my ($totaltax, $exchangerate, $totalpaid);

d319704a Moritz Bunkus
$form->{invtotal} = 0;

map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
qw(exchangerate creditlimit creditremaining);

1ae70a98 Sven Schöling
my @flds = qw(amount AR_amount projectnumber oldprojectnumber project_id);
my $count = 0;
my @a = ();
de651621 Stephan Köhler
1ae70a98 Sven Schöling
for my $i (1 .. $form->{rowcount}) {
$form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"});
f921dcbb Stephan Köhler
$form->{"tax_$i"} = $form->parse_amount(\%myconfig, $form->{"tax_$i"});
d319704a Moritz Bunkus
if ($form->{"amount_$i"}) {
push @a, {};
1ae70a98 Sven Schöling
my $j = $#a;
de651621 Stephan Köhler
if (!$form->{"korrektur_$i"}) {
1ae70a98 Sven Schöling
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
de651621 Stephan Köhler
if ($taxkey > 1) {
if ($form->{taxincluded}) {
$form->{"tax_$i"} = $form->{"amount_$i"} / ($rate + 1) * $rate;
} else {
$form->{"tax_$i"} = $form->{"amount_$i"} * $rate;
}
} else {
$form->{"tax_$i"} = 0;
}
}
$form->{"tax_$i"} = $form->round_amount($form->{"tax_$i"}, 2);
d319704a Moritz Bunkus
de651621 Stephan Köhler
$totaltax += $form->{"tax_$i"};
d319704a Moritz Bunkus
map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
$count++;
}
}

$form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
de651621 Stephan Köhler
$form->{rowcount} = $count + 1;
map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount});
d319704a Moritz Bunkus
a53233e5 Sven Schöling
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'buy');
$form->{exchangerate} = $form->{forex} if $form->{forex};
d319704a Moritz Bunkus
$form->{invdate} = $form->{transdate};
1ae70a98 Sven Schöling
my $save_AR = $form->{AR};
check_name("customer");
d319704a Moritz Bunkus
$form->{AR} = $save_AR;

$form->{invtotal} =
($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;

1ae70a98 Sven Schöling
for my $i (1 .. $form->{paidaccounts}) {
04a2f2e7 Moritz Bunkus
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
d319704a Moritz Bunkus
map {
$form->{"${_}_$i"} =
$form->parse_amount(\%myconfig, $form->{"${_}_$i"})
} qw(paid exchangerate);

$totalpaid += $form->{"paid_$i"};

a53233e5 Sven Schöling
$form->{"forex_$i"} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy');
$form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"};
d319704a Moritz Bunkus
}
}

$form->{creditremaining} -=
($form->{invtotal} - $totalpaid + $form->{oldtotalpaid} -
$form->{oldinvtotal});
$form->{oldinvtotal} = $form->{invtotal};
$form->{oldtotalpaid} = $totalpaid;

&display_form;

$lxdebug->leave_sub();
}

1ae70a98 Sven Schöling
#
# ToDO: fix $closedto and $invdate
#
bdaa8c2f Philip Reetz
sub post_payment {
$lxdebug->enter_sub();
a326f385 Moritz Bunkus
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

a326f385 Moritz Bunkus
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

1ae70a98 Sven Schöling
for my $i (1 .. $form->{paidaccounts}) {

eb8bed3f Moritz Bunkus
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
1ae70a98 Sven Schöling
my $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
bdaa8c2f Philip Reetz
$form->isblank("datepaid_$i", $locale->text('Payment date missing!'));

9e06d0e4 Philip Reetz
$form->error($locale->text('Cannot post payment for a closed period!')) if ($form->date_closed($form->{"datepaid_$i"}, \%myconfig));
bdaa8c2f Philip Reetz
if ($form->{currency} ne $form->{defaultcurrency}) {
1ae70a98 Sven Schöling
# $form->{"exchangerate_$i"} = $form->{exchangerate} if ($invdate == $datepaid);
$form->isblank("exchangerate_$i", $locale->text('Exchangerate for payment missing!'));
bdaa8c2f Philip Reetz
}
}
}

($form->{AR}) = split /--/, $form->{AR};
($form->{AR_paid}) = split /--/, $form->{AR_paid};
1ae70a98 Sven Schöling
$form->redirect($locale->text('Payment posted!')) if (AR->post_payment(\%myconfig, \%$form));
$form->error($locale->text('Cannot post payment!'));
bdaa8c2f Philip Reetz
$lxdebug->leave_sub();
}

1ae70a98 Sven Schöling
sub _post {
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
# inline post
post(1);
}

d319704a Moritz Bunkus
sub post {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
my ($inline) = @_;

my ($datepaid);

d319704a Moritz Bunkus
# check if there is an invoice number, invoice and due date
$form->isblank("transdate", $locale->text('Invoice Date missing!'));
$form->isblank("duedate", $locale->text('Due Date missing!'));
$form->isblank("customer", $locale->text('Customer missing!'));

1ae70a98 Sven Schöling
my $closedto = $form->datetonum($form->{closedto}, \%myconfig);
my $transdate = $form->datetonum($form->{transdate}, \%myconfig);
9e06d0e4 Philip Reetz
$form->error($locale->text('Cannot post transaction for a closed period!')) if ($form->date_closed($form->{"transdate"}, \%myconfig));
eb8bed3f Moritz Bunkus
102600f0 Sven Schöling
$form->error($locale->text('Zero amount posting!'))
unless grep $_*1, map $form->parse_amount(\%myconfig, $form->{"amount_$_"}), 1..$form->{rowcount};
d319704a Moritz Bunkus
$form->isblank("exchangerate", $locale->text('Exchangerate missing!'))
if ($form->{currency} ne $form->{defaultcurrency});

delete($form->{AR});

1ae70a98 Sven Schöling
for my $i (1 .. $form->{paidaccounts}) {
04a2f2e7 Moritz Bunkus
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
d319704a Moritz Bunkus
$datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);

$form->isblank("datepaid_$i", $locale->text('Payment date missing!'));

$form->error($locale->text('Cannot post payment for a closed period!'))
9e06d0e4 Philip Reetz
if ($form->date_closed($form->{"datepaid_$i"}, \%myconfig));
d319704a Moritz Bunkus
if ($form->{currency} ne $form->{defaultcurrency}) {
102600f0 Sven Schöling
$form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid);
$form->isblank("exchangerate_$i", $locale->text('Exchangerate for payment missing!'));
d319704a Moritz Bunkus
}
}
}

# if oldcustomer ne customer redo form
1ae70a98 Sven Schöling
my ($customer) = split /--/, $form->{customer};
d319704a Moritz Bunkus
if ($form->{oldcustomer} ne "$customer--$form->{customer_id}") {
1ae70a98 Sven Schöling
update();
d319704a Moritz Bunkus
exit;
}

3253777d Moritz Bunkus
$form->{AR}{receivables} = $form->{ARselected};
91ea86b4 Moritz Bunkus
$form->{storno} = 0;
d319704a Moritz Bunkus
1ae70a98 Sven Schöling
$lxdebug->message(0, $form->{amount});
d319704a Moritz Bunkus
$form->{id} = 0 if $form->{postasnew};
1ae70a98 Sven Schöling
$form->error($locale->text('Cannot post transaction!')) unless AR->post_transaction(\%myconfig, \%$form);
91ea86b4 Moritz Bunkus
1ae70a98 Sven Schöling
# saving the history
if(!exists $form->{addition} && $form->{id} ne "") {
$form->{snumbers} = "invnumber_$form->{invnumber}";
$form->{addition} = "POSTED";
$form->save_history($form->dbconnect(\%myconfig));
590f737f Thomas Kasulke
}
1ae70a98 Sven Schöling
# /saving the history
remove_draft() if $form->{remove_draft};

$form->redirect($locale->text('Transaction posted!')) unless $inline;
d319704a Moritz Bunkus
$lxdebug->leave_sub();
}

sub post_as_new {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

d319704a Moritz Bunkus
$form->{postasnew} = 1;
590f737f Thomas Kasulke
# saving the history
if(!exists $form->{addition} && $form->{id} ne "") {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
590f737f Thomas Kasulke
$form->{addition} = "POSTED AS NEW";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
d319704a Moritz Bunkus
&post;

$lxdebug->leave_sub();
}

98764afa Philip Reetz
sub use_as_template {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

9419dfc9 Philip Reetz
map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
98764afa Philip Reetz
$form->{paidaccounts} = 1;
$form->{rowcount}--;
$form->{invdate} = $form->current_date(\%myconfig);
&update;

$lxdebug->leave_sub();
}

d319704a Moritz Bunkus
sub delete {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

d319704a Moritz Bunkus
$form->{title} = $locale->text('Confirm!');

$form->header;

delete $form->{header};

print qq|
<body>

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

1ae70a98 Sven Schöling
foreach my $key (keys %$form) {
8c7e4493 Moritz Bunkus
next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
d319704a Moritz Bunkus
$form->{$key} =~ s/\"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}

print qq|
<h2 class=confirm>$form->{title}</h2>

<h4>|
. $locale->text('Are you sure you want to delete Transaction')
. qq| $form->{invnumber}</h4>

<input name=action class=submit type=submit value="|
. $locale->text('Yes') . qq|">
</form>

</body>
</html>
|;

$lxdebug->leave_sub();
}

sub yes {
$lxdebug->enter_sub();
8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
if (AR->delete_transaction(\%myconfig, \%$form)) {
590f737f Thomas Kasulke
# saving the history
if(!exists $form->{addition}) {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
590f737f Thomas Kasulke
$form->{addition} = "DELETED";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
$form->redirect($locale->text('Transaction deleted!'));
}
d319704a Moritz Bunkus
$form->error($locale->text('Cannot delete transaction!'));

$lxdebug->leave_sub();
}

sub search {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger | invoice_edit');

1ae70a98 Sven Schöling
my ($customer, $department);
my ($jsscript, $button1, $button2, $onload);

d319704a Moritz Bunkus
# setup customer selection
$form->all_vc(\%myconfig, "customer", "AR");

if (@{ $form->{all_customer} }) {
map { $customer .= "<option>$_->{name}--$_->{id}\n" }
@{ $form->{all_customer} };
$customer = qq|<select name=customer><option>\n$customer</select>|;
} else {
$customer = qq|<input name=customer size=35>|;
}

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

map {
$form->{selectdepartment} .=
"<option>$_->{description}--$_->{id}\n"
} (@{ $form->{all_departments} });
}

0576299f Moritz Bunkus
$department = qq|
<tr>
d319704a Moritz Bunkus
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
</tr>
| if $form->{selectdepartment};

$form->{title} = $locale->text('AR Transactions');
be4e11d3 Thomas Kasulke
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
d319704a Moritz Bunkus
# use JavaScript Calendar or not
d7f06042 Moritz Bunkus
$form->{jsscript} = 1;
d319704a Moritz Bunkus
$jsscript = "";
if ($form->{jsscript}) {

# with JavaScript Calendar
$button1 = qq|
be4e11d3 Thomas Kasulke
<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
d319704a Moritz Bunkus
<input type=button name=transdatefrom id="trigger1" value=|
f921dcbb Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;
$button2 = qq|
be4e11d3 Thomas Kasulke
<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
d319704a Moritz Bunkus
<input type=button name=transdateto name=transdateto id="trigger2" value=|
f921dcbb Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;

#write Trigger
$jsscript =
Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger1",
"transdateto", "BL", "trigger2");
} else {

# without JavaScript Calendar
$button1 = qq|
be4e11d3 Thomas Kasulke
<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
d319704a Moritz Bunkus
$button2 = qq|
be4e11d3 Thomas Kasulke
<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
d319704a Moritz Bunkus
}

a4b22a8f Moritz Bunkus
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
"all" => 1 });

my %labels = ();
my @values = ("");
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
push(@values, $item->{"id"});
$labels{$item->{"id"}} = $item->{"projectnumber"};
}
my $projectnumber =
NTI($cgi->popup_menu('-name' => 'project_id', '-values' => \@values,
'-labels' => \%labels));

d319704a Moritz Bunkus
$form->{fokus} = "search.customer";
$form->header;
be4e11d3 Thomas Kasulke
$onload = qq|focus()|;
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
d319704a Moritz Bunkus
print qq|
be4e11d3 Thomas Kasulke
<body onLoad="$onload">
d319704a Moritz Bunkus
<form method=post name="search" action=$form->{script}>

<table width=100%>
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
<th align=right>| . $locale->text('Customer') . qq|</th>
<td colspan=3>$customer</td>
</tr>
$department
<tr>
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
<td colspan=3><input name=invnumber size=20></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
<td colspan=3><input name=ordnumber size=20></td>
</tr>
c63316e6 Moritz Bunkus
<tr>
<th align=right nowrap>| . $locale->text('Transaction description') . qq|</th>
<td colspan=3><input name=transaction_description size=40></td>
</tr>
d319704a Moritz Bunkus
<tr>
<th align=right nowrap>| . $locale->text('Notes') . qq|</th>
<td colspan=3><input name=notes size=40></td>
</tr>
a4b22a8f Moritz Bunkus
<tr>
<th align="right">| . $locale->text("Project Number") . qq|</th>
<td colspan="3">$projectnumber</td>
</tr>
d319704a Moritz Bunkus
<tr>
<th align=right nowrap>| . $locale->text('From') . qq|</th>
$button1
<th align=right>| . $locale->text('Bis') . qq|</th>
$button2
</tr>
<input type=hidden name=sort value=transdate>
</table>
</td>
</tr>
<tr>
<td>
<table>
<tr>
<th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
<td>
<table width=100%>
<tr>
<td align=right><input name=open class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Open') . qq|</td>
<td align=right><input name=closed class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Closed') . qq|</td>
</tr>
<tr>
<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('ID') . qq|</td>
<td align=right><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Invoice Number') . qq|</td>
<td align=right><input name="l_ordnumber" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Order Number') . qq|</td>
<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Invoice Date') . qq|</td>
</tr>
<tr>
<td align=right><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Customer') . qq|</td>
<td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Amount') . qq|</td>
<td align=right><input name="l_tax" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Tax') . qq|</td>
<td align=right><input name="l_amount" class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Total') . qq|</td>
</tr>
<tr>
<td align=right><input name="l_datepaid" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Date Paid') . qq|</td>
<td align=right><input name="l_paid" class=checkbox type=checkbox value=Y checked></td>
<td nowrap>| . $locale->text('Paid') . qq|</td>
<td align=right><input name="l_duedate" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Due Date') . qq|</td>
<td align=right><input name="l_due" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Amount Due') . qq|</td>
</tr>
<tr>
<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Notes') . qq|</td>
5e984449 Sven Schöling
<td align=right><input name="l_salesman" class=checkbox type=checkbox value=Y></td>
d319704a Moritz Bunkus
<td nowrap>| . $locale->text('Salesperson') . qq|</td>
<td align=right><input name="l_shippingpoint" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Shipping Point') . qq|</td>
<td align=right><input name="l_shipvia" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Ship via') . qq|</td>
</tr>
4d8a6515 Philip Reetz
<tr>
5e984449 Sven Schöling
<td align=right><input name="l_marge_total" class=checkbox type=checkbox value=Y></td>
<td nowrap> | . $locale->text('Ertrag') . qq|</td>
<td align=right><input name="l_marge_percent" class=checkbox type=checkbox value=Y></td>
<td nowrap> | . $locale->text('Ertrag prozentual') . qq|</td>
<td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Employee') . qq|</td>
4d8a6515 Philip Reetz
</tr>
d319704a Moritz Bunkus
<tr>
<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Subtotal') . qq|</td>
a4b22a8f Moritz Bunkus
<td align=right><input name="l_globalprojectnumber" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Project Number') . qq|</td>
c63316e6 Moritz Bunkus
<td align=right><input name="l_transaction_description" class=checkbox type=checkbox value=Y></td>
<td nowrap>| . $locale->text('Transaction description') . qq|</td>
d319704a Moritz Bunkus
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>

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

<br>
<input class=submit type=submit name=action value="|
. $locale->text('Continue') . qq|">

</form>

</body>

$jsscript

</html>
|;

$lxdebug->leave_sub();
}

971c9727 Moritz Bunkus
sub create_subtotal_row {
$lxdebug->enter_sub();

my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;

my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };

map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };

$row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2);

map { $totals->{$_} = 0 } @{ $subtotal_columns };

$lxdebug->leave_sub();

return $row;
}

d319704a Moritz Bunkus
sub ar_transactions {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger | invoice_edit');

1ae70a98 Sven Schöling
my ($callback, $href, @columns);

$form->{customer} = $form->unescape($form->{customer});
d319704a Moritz Bunkus
($form->{customer}, $form->{customer_id}) = split(/--/, $form->{customer});

679db39f Moritz Bunkus
report_generator_set_default_sort('transdate', 1);
971c9727 Moritz Bunkus
d319704a Moritz Bunkus
AR->ar_transactions(\%myconfig, \%$form);

971c9727 Moritz Bunkus
$form->{title} = $locale->text('AR Transactions');

my $report = SL::ReportGenerator->new(\%myconfig, $form);

1ae70a98 Sven Schöling
@columns =
971c9727 Moritz Bunkus
qw(transdate id type invnumber ordnumber name netamount tax amount paid
5e984449 Sven Schöling
datepaid due duedate transaction_description notes salesman employee shippingpoint shipvia
4d8a6515 Philip Reetz
marge_total marge_percent globalprojectnumber);
971c9727 Moritz Bunkus
my @hidden_variables = map { "l_${_}" } @columns;
89dd4ca8 Moritz Bunkus
push @hidden_variables, "l_subtotal", qw(open closed customer invnumber ordnumber transaction_description notes project_id transdatefrom transdateto);
971c9727 Moritz Bunkus
1ae70a98 Sven Schöling
$href = build_std_url('action=ar_transactions', grep { $form->{$_} } @hidden_variables);
971c9727 Moritz Bunkus
my %column_defs = (
'transdate' => { 'text' => $locale->text('Date'), },
'id' => { 'text' => $locale->text('ID'), },
'type' => { 'text' => $locale->text('Type'), },
'invnumber' => { 'text' => $locale->text('Invoice'), },
'ordnumber' => { 'text' => $locale->text('Order'), },
'name' => { 'text' => $locale->text('Customer'), },
'netamount' => { 'text' => $locale->text('Amount'), },
'tax' => { 'text' => $locale->text('Tax'), },
'amount' => { 'text' => $locale->text('Total'), },
'paid' => { 'text' => $locale->text('Paid'), },
'datepaid' => { 'text' => $locale->text('Date Paid'), },
'due' => { 'text' => $locale->text('Amount Due'), },
'duedate' => { 'text' => $locale->text('Due Date'), },
'transaction_description' => { 'text' => $locale->text('Transaction description'), },
'notes' => { 'text' => $locale->text('Notes'), },
5e984449 Sven Schöling
'salesman' => { 'text' => $locale->text('Salesperson'), },
'employee' => { 'text' => $locale->text('Employee'), },
971c9727 Moritz Bunkus
'shippingpoint' => { 'text' => $locale->text('Shipping Point'), },
'shipvia' => { 'text' => $locale->text('Ship via'), },
'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
4d8a6515 Philip Reetz
'marge_total' => { 'text' => $locale->text('Ertrag'), },
'marge_percent' => { 'text' => $locale->text('Ertrag prozentual'), },
971c9727 Moritz Bunkus
);

2dc09cf5 Moritz Bunkus
foreach my $name (qw(id transdate duedate invnumber ordnumber name datepaid employee shippingpoint shipvia transaction_description)) {
679db39f Moritz Bunkus
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
$column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
971c9727 Moritz Bunkus
}

my %column_alignment = map { $_ => 'right' } qw(netamount tax amount paid due);

$form->{"l_type"} = "Y";
map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$report->set_columns(%column_defs);
$report->set_column_order(@columns);

$report->set_export_options('ar_transactions', @hidden_variables);

679db39f Moritz Bunkus
$report->set_sort_indicator($form->{sort}, $form->{sortdir});
f5e4c22b Moritz Bunkus
971c9727 Moritz Bunkus
my @options;
d319704a Moritz Bunkus
if ($form->{customer}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Customer') . " : $form->{customer}";
d319704a Moritz Bunkus
}
if ($form->{department}) {
1ae70a98 Sven Schöling
my ($department) = split /--/, $form->{department};
971c9727 Moritz Bunkus
push @options, $locale->text('Department') . " : $department";
d319704a Moritz Bunkus
}
if ($form->{invnumber}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Invoice Number') . " : $form->{invnumber}";
d319704a Moritz Bunkus
}
if ($form->{ordnumber}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
d319704a Moritz Bunkus
}
if ($form->{notes}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Notes') . " : $form->{notes}";
d319704a Moritz Bunkus
}
c63316e6 Moritz Bunkus
if ($form->{transaction_description}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
c63316e6 Moritz Bunkus
}
d319704a Moritz Bunkus
if ($form->{transdatefrom}) {
64c4e3c6 Moritz Bunkus
push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
d319704a Moritz Bunkus
}
if ($form->{transdateto}) {
64c4e3c6 Moritz Bunkus
push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1);
d319704a Moritz Bunkus
}
if ($form->{open}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Open');
d319704a Moritz Bunkus
}
if ($form->{closed}) {
971c9727 Moritz Bunkus
push @options, $locale->text('Closed');
a4b22a8f Moritz Bunkus
}
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$report->set_options('top_info_text' => join("\n", @options),
9aaca433 Moritz Bunkus
'raw_bottom_info_text' => $form->parse_html_template('ar/ar_transactions_bottom'),
971c9727 Moritz Bunkus
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $locale->text('invoice_list') . strftime('_%Y%m%d', localtime time),
);
$report->set_options_from_form();
d319704a Moritz Bunkus
# add sort and escape callback, this one we use for the add sub
971c9727 Moritz Bunkus
$form->{callback} = $href .= "&sort=$form->{sort}";
d319704a Moritz Bunkus
# escape callback for href
971c9727 Moritz Bunkus
$callback = $form->escape($href);
d319704a Moritz Bunkus
5a9d765f Philip Reetz
my @subtotal_columns = qw(netamount amount paid due marge_total marge_percent);
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
my %totals = map { $_ => 0 } @subtotal_columns;
my %subtotals = map { $_ => 0 } @subtotal_columns;
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
my $idx = 0;
d319704a Moritz Bunkus
1ae70a98 Sven Schöling
foreach my $ar (@{ $form->{AR} }) {
971c9727 Moritz Bunkus
$ar->{tax} = $ar->{amount} - $ar->{netamount};
$ar->{due} = $ar->{amount} - $ar->{paid};
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
map { $subtotals{$_} += $ar->{$_};
$totals{$_} += $ar->{$_} } @subtotal_columns;
d319704a Moritz Bunkus
3505ff1b Moritz Bunkus
$subtotals{marge_percent} = $subtotals{netamount} ? ($subtotals{marge_total} * 100 / $subtotals{netamount}) : 0;
$totals{marge_percent} = $totals{netamount} ? ($totals{marge_total} * 100 / $totals{netamount} ) : 0;
5a9d765f Philip Reetz
4d8a6515 Philip Reetz
map { $ar->{$_} = $form->format_amount(\%myconfig, $ar->{$_}, 2) } qw(netamount tax amount paid due marge_total marge_percent);
54740168 Moritz Bunkus
3915f5c6 Moritz Bunkus
my $is_storno = $ar->{storno} && !$ar->{storno_id};
my $has_storno = $ar->{storno} && $ar->{storno_id};
54740168 Moritz Bunkus
971c9727 Moritz Bunkus
$ar->{type} =
$has_storno ? $locale->text("Invoice with Storno (abbreviation)") :
$is_storno ? $locale->text("Storno (one letter abbreviation)") :
$ar->{amount} < 0 ? $locale->text("Credit note (one letter abbreviation)") :
$ar->{invoice} ? $locale->text("Invoice (one letter abbreviation)") :
$locale->text("AR Transaction (abbreviation)");
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
my $row = { };
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
foreach my $column (@columns) {
$row->{$column} = {
'data' => $ar->{$column},
'align' => $column_alignment{$column},
};
}
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$row->{invnumber}->{link} = build_std_url("script=" . ($ar->{invoice} ? 'is.pl' : 'ar.pl'), 'action=edit')
. "&id=" . E($ar->{id}) . "&callback=${callback}";
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
my $row_set = [ $row ];
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
if (($form->{l_subtotal} eq 'Y')
&& (($idx == (scalar @{ $form->{AR} } - 1))
|| ($ar->{ $form->{sort} } ne $form->{AR}->[$idx + 1]->{ $form->{sort} }))) {
push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal');
}
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$report->add_data($row_set);
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$idx++;
}
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$report->add_separator();
$report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));
d319704a Moritz Bunkus
971c9727 Moritz Bunkus
$report->generate_with_headers();
d319704a Moritz Bunkus
$lxdebug->leave_sub();
}
102600f0 Sven Schöling
sub storno {
$lxdebug->enter_sub();

8c7e4493 Moritz Bunkus
$auth->assert('general_ledger');

1ae70a98 Sven Schöling
# don't cancel cancelled transactions
102600f0 Sven Schöling
if (IS->has_storno(\%myconfig, $form, 'ar')) {
$form->{title} = $locale->text("Cancel Accounts Receivables Transaction");
$form->error($locale->text("Transaction has already been cancelled!"));
}

1ae70a98 Sven Schöling
AR->storno($form, \%myconfig, $form->{id});
102600f0 Sven Schöling
# saving the history
if(!exists $form->{addition} && $form->{id} ne "") {
$form->{snumbers} = "ordnumber_$form->{ordnumber}";
$form->{addition} = "STORNO";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history

1ae70a98 Sven Schöling
$form->redirect(sprintf $locale->text("Transaction %d cancelled."), $form->{storno_id});

102600f0 Sven Schöling
$lxdebug->leave_sub();
}