Revision b390c388
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/rc.pl | ||
|---|---|---|
| 42 | 42 |
# end of main |
| 43 | 43 |
|
| 44 | 44 |
sub reconciliation {
|
| 45 |
$main::lxdebug->enter_sub(); |
|
| 46 |
|
|
| 47 |
my $form = $main::form; |
|
| 48 |
my %myconfig = %main::myconfig; |
|
| 49 |
my $locale = $main::locale; |
|
| 50 |
|
|
| 51 |
$main::auth->assert('cash');
|
|
| 52 |
|
|
| 53 |
RC->paymentaccounts(\%myconfig, \%$form); |
|
| 54 |
|
|
| 55 |
my $selection = ""; |
|
| 56 |
map { $selection .= "<option>$_->{accno}--$_->{description}\n" }
|
|
| 57 |
@{ $form->{PR} };
|
|
| 58 |
|
|
| 59 |
$form->{title} = $locale->text('Reconciliation');
|
|
| 60 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
|
|
| 61 |
$form->{"jsscript"} = 1;
|
|
| 62 |
$form->header; |
|
| 63 |
my $onload = qq|focus()|; |
|
| 64 |
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
|
|
| 65 |
|
|
| 66 |
print qq| |
|
| 67 |
<body onLoad="$onload"> |
|
| 68 |
|
|
| 69 |
<form method=post action=$form->{script}>
|
|
| 70 |
|
|
| 71 |
<table width=100%> |
|
| 72 |
<tr> |
|
| 73 |
<th class=listtop>$form->{title}</th>
|
|
| 74 |
</tr> |
|
| 75 |
<tr height="5"></tr> |
|
| 76 |
<tr> |
|
| 77 |
<td> |
|
| 78 |
<table> |
|
| 79 |
<tr> |
|
| 80 |
<th align=right nowrap>| . $locale->text('Account') . qq|</th>
|
|
| 81 |
<td colspan=3><select name=accno>$selection</select> |
|
| 82 |
</td> |
|
| 83 |
</tr> |
|
| 84 |
<tr> |
|
| 85 |
<th align=right>| . $locale->text('From') . qq|</th>
|
|
| 86 |
<td><input name=fromdate id=fromdate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
|
|
| 87 |
<input type="button" name="fromdate" id="trigger_fromdate" value="?"></td> |
|
| 88 |
<th align=right>| . $locale->text('Until') . qq|</th>
|
|
| 89 |
<td><input name=todate id=todate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
|
|
| 90 |
<input type="button" name="todate" id="trigger_todate" value="?"></td> |
|
| 91 |
</tr> |
|
| 92 |
</table> |
|
| 93 |
</td> |
|
| 94 |
</tr> |
|
| 95 |
<tr> |
|
| 96 |
<td><hr size=3 noshade></td> |
|
| 97 |
</tr> |
|
| 98 |
</table> |
|
| 99 |
|
|
| 100 |
| . $form->write_trigger(\%myconfig, 2, |
|
| 101 |
"fromdate", "BL", "trigger_fromdate", |
|
| 102 |
"todate", "BL", "trigger_todate") . qq| |
|
| 103 |
|
|
| 104 |
<br> |
|
| 105 |
<input type=hidden name=nextsub value=get_payments> |
|
| 45 |
$::lxdebug->enter_sub; |
|
| 46 |
$::auth->assert('cash');
|
|
| 106 | 47 |
|
| 107 |
<input type=submit class=submit name=action value="| |
|
| 108 |
. $locale->text('Continue') . qq|">
|
|
| 48 |
RC->paymentaccounts(\%::myconfig, $::form); |
|
| 109 | 49 |
|
| 110 |
</form> |
|
| 50 |
$::form->header; |
|
| 51 |
print $::form->parse_html_template('rc/step1', {
|
|
| 52 |
selection_sub => sub { ("$_[0]{accno}--$_[0]{description}")x2 },
|
|
| 53 |
}); |
|
| 111 | 54 |
|
| 112 |
</body> |
|
| 113 |
</html> |
|
| 114 |
|; |
|
| 115 |
|
|
| 116 |
$main::lxdebug->leave_sub(); |
|
| 55 |
$::lxdebug->leave_sub; |
|
| 117 | 56 |
} |
| 118 | 57 |
|
| 119 | 58 |
sub continue { call_sub($main::form->{"nextsub"}); }
|
Auch abrufbar als: Unified diff
rc.pl: reconciliation in template ausgelagert