#
#======================================================================
-
use SL::RC;
+require "bin/mozilla/common.pl";
+
+use strict;
1;
-# end of main
+# end of main
sub reconciliation {
- $lxdebug->enter_sub();
-
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('cash');
+
RC->paymentaccounts(\%myconfig, \%$form);
- $selection = "";
- map { $selection .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR} };
+ my $selection = "";
+ map { $selection .= "<option>$_->{accno}--$_->{description}\n" }
+ @{ $form->{PR} };
$form->{title} = $locale->text('Reconciliation');
-
+ $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
+ $form->{"jsscript"} = 1;
$form->header;
+ my $onload = qq|focus()|;
+ $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
print qq|
-<body>
+<body onLoad="$onload">
<form method=post action=$form->{script}>
<td>
<table>
<tr>
- <th align=right nowrap>|.$locale->text('Account').qq|</th>
+ <th align=right nowrap>| . $locale->text('Account') . qq|</th>
<td colspan=3><select name=accno>$selection</select>
</td>
</tr>
<tr>
- <th align=right>|.$locale->text('From').qq|</th>
- <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
- <th align=right>|.$locale->text('To').qq|</th>
- <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
+ <th align=right>| . $locale->text('From') . qq|</th>
+ <td><input name=fromdate id=fromdate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
+ <input type="button" name="fromdate" id="trigger_fromdate" value="?"></td>
+ <th align=right>| . $locale->text('Until') . qq|</th>
+ <td><input name=todate id=todate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
+ <input type="button" name="todate" id="trigger_todate" value="?"></td>
</tr>
</table>
</td>
</tr>
</table>
+| . $form->write_trigger(\%myconfig, 2,
+ "fromdate", "BL", "trigger_fromdate",
+ "todate", "BL", "trigger_todate") . qq|
+
<br>
<input type=hidden name=nextsub value=get_payments>
-<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 type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
+<input type=submit class=submit name=action value="|
+ . $locale->text('Continue') . qq|">
</form>
</html>
|;
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
+sub continue { call_sub($main::form->{"nextsub"}); }
-sub continue { &{ $form->{nextsub} } };
+sub get_payments {
+ $main::lxdebug->enter_sub();
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
-sub get_payments {
- $lxdebug->enter_sub();
+ $main::auth->assert('cash');
($form->{accno}, $form->{account}) = split /--/, $form->{accno};
RC->payment_transactions(\%myconfig, \%$form);
-
+
&display_form;
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
-
sub display_form {
- $lxdebug->enter_sub();
-
- @column_index = qw(cleared transdate source name credit debit balance);
-
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('cash');
+
+ my @column_index = qw(cleared transdate source name credit debit balance);
+ my %column_header;
$column_header{cleared} = "<th> </th>";
- $column_header{source} = "<th class=listheading>".$locale->text('Source')."</a></th>";
- $column_header{name} = "<th class=listheading>".$locale->text('Description')."</a></th>";
- $column_header{transdate} = "<th class=listheading>".$locale->text('Date')."</a></th>";
+ $column_header{source} =
+ "<th class=listheading>" . $locale->text('Source') . "</a></th>";
+ $column_header{name} =
+ "<th class=listheading>" . $locale->text('Description') . "</a></th>";
+ $column_header{transdate} =
+ "<th class=listheading>" . $locale->text('Date') . "</a></th>";
if ($form->{category} eq 'A') {
- $column_header{debit} = "<th class=listheading>".$locale->text('Deposit')."</a></th>";
- $column_header{credit} = "<th class=listheading>".$locale->text('Payment')."</a></th>";
+ $column_header{debit} =
+ "<th class=listheading>" . $locale->text('Deposit') . "</a></th>";
+ $column_header{credit} =
+ "<th class=listheading>" . $locale->text('Payment') . "</a></th>";
} else {
- $column_header{debit} = "<th class=listheading>".$locale->text('Decrease')."</a></th>";
- $column_header{credit} = "<th class=listheading>".$locale->text('Increase')."</a></th>";
+ $column_header{debit} =
+ "<th class=listheading>" . $locale->text('Decrease') . "</a></th>";
+ $column_header{credit} =
+ "<th class=listheading>" . $locale->text('Increase') . "</a></th>";
}
- $column_header{balance} = "<th class=listheading>".$locale->text('Balance')."</a></th>";
+ $column_header{balance} =
+ "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
+ my $option;
if ($form->{fromdate}) {
$option .= "\n<br>" if ($option);
- $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{fromdate}, 1);
+ $option .=
+ $locale->text('From') . " "
+ . $locale->date(\%myconfig, $form->{fromdate}, 0);
}
if ($form->{todate}) {
$option .= "\n<br>" if ($option);
- $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1);
+ $option .=
+ $locale->text('Until') . " "
+ . $locale->date(\%myconfig, $form->{todate}, 0);
}
$form->{title} = "$form->{accno}--$form->{account}";
-
+
$form->header;
print qq|
</tr>
|;
- $ml = ($form->{category} eq 'A') ? -1 : 1;
+ my $ml = ($form->{category} eq 'A') ? -1 : 1;
$form->{beginningbalance} *= $ml;
- $clearedbalance = $balance = $form->{beginningbalance};
- $i = 0;
- $id = 0;
-
- map { $column_data{$_} = "<td> </td>" } qw(cleared transdate source name debit credit);
- $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
- $j = 0;
+ my $balance = $form->{beginningbalance};
+ my $clearedbalance = $balance;
+ my $i = 0;
+ my $id = 0;
+
+ my %column_data;
+ map { $column_data{$_} = "<td> </td>" }
+ qw(cleared transdate source name debit credit);
+ $column_data{balance} =
+ "<td align=right>"
+ . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
+ my $j = 0;
print qq|
<tr class=listrow$j>
|;
</tr>
|;
-
- foreach $ref (@{ $form->{PR} }) {
+ my $cleared;
+ my $totaldebits;
+ my $totalcredits;
+ my $fx_transaction;
+ my $fx;
+ foreach my $ref (@{ $form->{PR} }) {
$balance += $ref->{amount} * $ml;
$cleared += $ref->{amount} * $ml if $ref->{cleared};
- $column_data{name} = "<td>$ref->{name} </td>";
+ $column_data{name} = "<td>$ref->{name} </td>";
$column_data{source} = qq|<td>$ref->{source} </a>
</td>|;
$column_data{transdate} = "<td>$ref->{transdate} </td>";
-
- $column_data{debit} = "<td> </td>";
+
+ $column_data{debit} = "<td> </td>";
$column_data{credit} = "<td> </td>";
-
+
if ($ref->{amount} < 0) {
$totaldebits += $ref->{amount} * -1;
- $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")."</td>";
+ $column_data{debit} =
+ "<td align=right>"
+ . $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")
+ . "</td>";
} else {
$totalcredits += $ref->{amount};
- $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>";
+ $column_data{credit} =
+ "<td align=right>"
+ . $form->format_amount(\%myconfig, $ref->{amount}, 2, " ")
+ . "</td>";
}
-
- $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
+
+ $column_data{balance} =
+ "<td align=right>"
+ . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
if ($ref->{fx_transaction}) {
$i++ unless $id == $ref->{id};
}
$id = $ref->{id};
- $j++; $j %= 2;
+ $j++;
+ $j %= 2;
print qq|
<tr class=listrow$j>
|;
# print totals
map { $column_data{$_} = "<td> </td>" } @column_index;
- $column_data{debit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldebits, 2, " ")."</th>";
- $column_data{credit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalcredits, 2, " ")."</th>";
-
+ $column_data{debit} =
+ "<th class=listtotal align=right>"
+ . $form->format_amount(\%myconfig, $totaldebits, 2, " ") . "</th>";
+ $column_data{credit} =
+ "<th class=listtotal align=right>"
+ . $form->format_amount(\%myconfig, $totalcredits, 2, " ") . "</th>";
+
print qq|
<tr class=listtotal>
|;
map { print "\n$column_data{$_}" } @column_index;
- $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance});
- $difference = $form->format_amount(\%myconfig, $form->{statementbalance} - $clearedbalance - $cleared, 2, 0);
-
- $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
+ $form->{statementbalance} =
+ $form->parse_amount(\%myconfig, $form->{statementbalance});
+ my $difference =
+ $form->format_amount(\%myconfig,
+ $form->{statementbalance} - $clearedbalance - $cleared,
+ 2, 0);
+
+ $form->{statementbalance} =
+ $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
$clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0);
-
+
+ my $exchdiff;
if ($fx) {
- $fx = $form->format_amount(\%myconfig, $fx, 2, 0);
+ $fx = $form->format_amount(\%myconfig, $fx, 2, 0);
$exchdiff = qq|
- <th align=right nowrap>|.$locale->text('Exchangerate Difference').qq|</th>
+ <th align=right nowrap>|
+ . $locale->text('Exchangerate Difference') . qq|</th>
<td width=10%></td>
<td align=right>$fx</td>
|;
<td>
<table>
<tr>
- <th align=right nowrap>|.$locale->text('Cleared Balance').qq|</th>
+ <th align=right nowrap>| . $locale->text('Cleared Balance') . qq|</th>
<td width=10%></td>
<td align=right>$clearedbalance</td>
</tr>
<td align=right>
<table>
<tr>
- <th align=right nowrap>|.$locale->text('Statement Balance').qq|</th>
+ <th align=right nowrap>| . $locale->text('Statement Balance') . qq|</th>
<td width=10%></td>
<td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Difference').qq|</th>
+ <th align=right nowrap>| . $locale->text('Difference') . qq|</th>
<td width=10%></td>
<td align=right><input name=null size=11 value=$difference></td>
<input type=hidden name=difference value=$difference>
<input type=hidden name=fromdate value=$form->{fromdate}>
<input type=hidden name=todate value=$form->{todate}>
-<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>
-<input type=submit class=submit name=action value="|.$locale->text('Update').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Select all').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Done').qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
+<input type=submit class=submit name=action value="|
+ . $locale->text('Update') . qq|">
+<input type=submit class=submit name=action value="|
+ . $locale->text('Select all') . qq|">
+<input type=submit class=submit name=action value="|
+ . $locale->text('Done') . qq|">
- print qq|
</form>
</body>
</html>
|;
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
-
sub update {
- $lxdebug->enter_sub();
-
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+
+ $main::auth->assert('cash');
+
RC->payment_transactions(\%myconfig, \%$form);
- foreach $ref (@{ $form->{PR} }) {
+ my $i;
+ foreach my $ref (@{ $form->{PR} }) {
if (!$ref->{fx_transaction}) {
$i++;
$ref->{cleared} = ($form->{"cleared_$i"}) ? "checked" : "";
}
&display_form;
-
- $lxdebug->leave_sub();
-}
+ $main::lxdebug->leave_sub();
+}
sub select_all {
- $lxdebug->enter_sub();
-
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+
+ $main::auth->assert('cash');
+
RC->payment_transactions(\%myconfig, \%$form);
- map { $_->{cleared} = "checked" unless $_->{fx_transaction} } @{ $form->{PR} };
+ map { $_->{cleared} = "checked" unless $_->{fx_transaction} }
+ @{ $form->{PR} };
&display_form;
-
- $lxdebug->leave_sub();
-}
+ $main::lxdebug->leave_sub();
+}
sub done {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('cash');
- $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&password=$form->{password}";
+ $form->{callback} = "$form->{script}?action=reconciliation";
$form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);
RC->reconcile(\%myconfig, \%$form);
$form->redirect;
-
- $lxdebug->leave_sub();
-}
+ $main::lxdebug->leave_sub();
+}
projects / kivitendo-erp.git / blobdiff