Revision 750ac970
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub form_footer {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('general_ledger');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
my $cgi = $::request->{cgi};
|
||
|
|
||
|
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>|;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
my ($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
|
||
|
$dec = length $dec;
|
||
|
my $decimalplaces = ($dec > 2) ? $dec : 2;
|
||
|
my $radieren = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
||
|
|
||
|
map {
|
||
|
$form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2, " ")
|
||
|
} qw(totaldebit totalcredit);
|
||
|
|
||
|
print qq|
|
||
|
<tr class=listtotal>
|
||
|
<th colspan="3" align=right class=listtotal> $form->{totaldebit}</th>
|
||
|
<th align=right class=listtotal> $form->{totalcredit}</th>
|
||
|
<td colspan=6></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
|
|
||
|
$follow_ups_block
|
||
|
|
||
|
<br>
|
||
|
|;
|
||
|
|
||
|
my $transdate = $form->datetonum($form->{transdate}, \%myconfig);
|
||
|
my $closedto = $form->datetonum($form->{closedto}, \%myconfig);
|
||
|
|
||
|
if ($form->{id}) {
|
||
|
|
||
|
if (!$form->{storno}) {
|
||
|
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|">|;
|
||
|
}
|
||
|
|
||
|
print qq|
|
||
|
<input class=submit type=submit name=action id=update_button value="| . $locale->text('Update') . qq|">
|
||
|
<input type="button" class="submit" onclick="follow_up_window()" value="|
|
||
|
. $locale->text('Follow-Up')
|
||
|
. qq|"> |;
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('general_ledger');
|
||
|
|
||
|
} else {
|
||
|
if ($form->{draft_id}) {
|
||
|
my $remove_draft_checked = $form->{remove_draft} ? 'checked' : '';
|
||
|
print qq|<p>\n|
|
||
|
. qq| <input name="remove_draft" id="remove_draft" type="checkbox" class="checkbox" ${remove_draft_checked}>|
|
||
|
. qq| <label for="remove_draft">| . $locale->text('Remove Draft') . qq|</label>\n|
|
||
|
. qq|</p>\n|;
|
||
|
}
|
||
|
my ($follow_ups, $follow_ups_due);
|
||
|
|
||
|
print qq|
|
||
|
<input class=submit type=submit name=action id=update_button value="| . $locale->text('Update') . qq|">
|
||
|
<input class=submit type=submit name=action value="| . $locale->text('Post') . qq|"> |
|
||
|
. NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'), '-class' => 'submit'))
|
||
|
. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])
|
||
|
. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}]);
|
||
|
if ($::form->{id}) {
|
||
|
$follow_ups = FU->follow_ups('trans_id' => $::form->{id});
|
||
|
$follow_ups_due = sum map { $_->{due} * 1 } @{ $follow_ups || [] };
|
||
|
}
|
||
|
|
||
|
print "
|
||
|
</form>
|
||
|
my $radieren = $::form->current_date(\%::myconfig) eq $::form->{gldate};
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
";
|
||
|
$main::lxdebug->leave_sub();
|
||
|
print $::form->parse_html_template('gl/form_footer', {
|
||
|
radieren => $radieren,
|
||
|
follow_ups => $follow_ups,
|
||
|
follow_ups_due => $follow_ups_due,
|
||
|
});
|
||
|
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub delete {
|
||
| templates/webpages/gl/form_footer.html | ||
|---|---|---|
|
[%- USE HTML %]
|
||
|
[%- USE LxERP %]
|
||
|
[%- USE T8 %]
|
||
|
[%- USE L %]
|
||
|
<tr class=listtotal>
|
||
|
<th colspan="3" align=right class=listtotal> [% LxERP.format_amount(totaldebit, 2) | html %]</th>
|
||
|
<th align=right class=listtotal> [% LxERP.format_amount(totalcredit, 2) | html %]</th>
|
||
|
<td colspan=6></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<input name=callback type=hidden value="[% callback %]">
|
||
|
|
||
|
[%- IF id && follow_ups.size %]
|
||
|
<p>[% LxERP.t8('There are #1 unfinished follow-ups of which #2 are due.', follow_ups.size , follow_ups_due) %]</p>
|
||
|
[%- END %]
|
||
|
|
||
|
<br>
|
||
|
|
||
|
[%- IF id %]
|
||
|
|
||
|
[%- IF !storno %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Storno')) %]
|
||
|
[%- END %]
|
||
|
|
||
|
[% IF !locked && radieren %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Post'), accesskey='b') %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Delete')) %]
|
||
|
[%- END %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Update'), id='update_button') %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Follow-Up'), onclick='follow_up_window()') %]
|
||
|
|
||
|
[%- ELSE %]
|
||
|
|
||
|
[%- IF draft_id %]
|
||
|
<p>[% L.checkbox_tag('remove_draft', checked=remove_draft, label=LxERP.t8('Remove Draft')) %]</p>
|
||
|
[%- END %]
|
||
|
|
||
|
[% L.submit_tag('action', LxERP.t8('Update'), id='update_button') %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Post')) %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Save Draft')) %]
|
||
|
[% L.hidden_tag('draft_id', draft_id) %]
|
||
|
[% L.hidden_tag('draft_description', draft_description) %]
|
||
|
[%- END %]
|
||
|
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
Auch abrufbar als: Unified diff
gl::form_footer auf template umgeschrieben.