Revision 7a7f33b5
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 32 | 32 |
#====================================================================== |
| 33 | 33 |
|
| 34 | 34 |
use POSIX qw(strftime); |
| 35 |
use List::Util qw(sum); |
|
| 35 | 36 |
|
| 37 |
use SL::FU; |
|
| 36 | 38 |
use SL::GL; |
| 37 | 39 |
use SL::IS; |
| 38 | 40 |
use SL::PE; |
| ... | ... | |
| 1068 | 1070 |
print qq| |
| 1069 | 1071 |
<body onLoad="fokus()"> |
| 1070 | 1072 |
|
| 1073 |
<script type="text/javascript" src="js/common.js"></script> |
|
| 1074 |
<script type="text/javascript" src="js/follow_up.js"></script> |
|
| 1075 |
|
|
| 1071 | 1076 |
<form method=post name="gl" action=gl.pl> |
| 1072 | 1077 |
|; |
| 1073 | 1078 |
|
| ... | ... | |
| 1076 | 1081 |
print qq| |
| 1077 | 1082 |
<input type=hidden name=title value="$title"> |
| 1078 | 1083 |
|
| 1084 |
<input type="hidden" name="follow_up_trans_id_1" value="| . H($form->{id}) . qq|">
|
|
| 1085 |
<input type="hidden" name="follow_up_trans_type_1" value="gl_transaction"> |
|
| 1086 |
<input type="hidden" name="follow_up_trans_info_1" value="| . H($form->{id}) . qq|">
|
|
| 1087 |
<input type="hidden" name="follow_up_rowcount" value="1"> |
|
| 1079 | 1088 |
|
| 1080 | 1089 |
<table width=100%> |
| 1081 | 1090 |
<tr> |
| ... | ... | |
| 1205 | 1214 |
|
| 1206 | 1215 |
$auth->assert('general_ledger');
|
| 1207 | 1216 |
|
| 1217 |
my $follow_ups_block; |
|
| 1218 |
if ($form->{id}) {
|
|
| 1219 |
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
|
|
| 1220 |
|
|
| 1221 |
if (@{ $follow_ups} ) {
|
|
| 1222 |
my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
|
|
| 1223 |
$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>|;
|
|
| 1224 |
} |
|
| 1225 |
} |
|
| 1226 |
|
|
| 1208 | 1227 |
($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
|
| 1209 | 1228 |
$dec = length $dec; |
| 1210 | 1229 |
$decimalplaces = ($dec > 2) ? $dec : 2; |
| ... | ... | |
| 1228 | 1247 |
|
| 1229 | 1248 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1230 | 1249 |
|
| 1250 |
$follow_ups_block |
|
| 1251 |
|
|
| 1231 | 1252 |
<br> |
| 1232 | 1253 |
|; |
| 1233 | 1254 |
|
| ... | ... | |
| 1247 | 1268 |
<input class=submit type=submit name=action value="| . $locale->text('Delete') . qq|">|;
|
| 1248 | 1269 |
} |
| 1249 | 1270 |
|
| 1271 |
print qq| |
|
| 1272 |
<input type="button" class="submit" onclick="follow_up_window()" value="| |
|
| 1273 |
. $locale->text('Follow-Up')
|
|
| 1274 |
. qq|"> |; |
|
| 1275 |
|
|
| 1250 | 1276 |
} else {
|
| 1251 | 1277 |
if ($transdate > $closedto) {
|
| 1252 | 1278 |
print qq| |
Auch abrufbar als: Unified diff
Zwei neue Features:
1. Beliebige Notizen für Kunden und Lieferanten können angelegt werden. Solche Notizen können auf Wiedervorlage gelegt werden, was durch 2. implementiert ist.
2. Einkaufs- und Verkaufsbelege können auf Wiedervorlage gelegt werden. Wiedervorlagen können für beliebige Nutzer erstellt werden (Aufgabe an andere Nutzer deligieren). Anstehende Wiedervorlagen und abgelaufene Angebote werden auf der Startseite in einer Aufgabenliste angezeigt.