Revision 7a7f33b5
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 31 | 31 |
# |
| 32 | 32 |
#====================================================================== |
| 33 | 33 |
|
| 34 |
use SL::FU; |
|
| 34 | 35 |
use SL::IR; |
| 35 | 36 |
use SL::IS; |
| 36 | 37 |
use SL::PE; |
| 37 |
use List::Util qw(max); |
|
| 38 |
use List::Util qw(max sum);
|
|
| 38 | 39 |
|
| 39 | 40 |
require "bin/mozilla/io.pl"; |
| 40 | 41 |
require "bin/mozilla/invoice_io.pl"; |
| ... | ... | |
| 400 | 401 |
"invdate", "BL", "trigger1", |
| 401 | 402 |
"duedate", "BL", "trigger2"); |
| 402 | 403 |
|
| 404 |
my $follow_up_vc = $form->{vendor};
|
|
| 405 |
$follow_up_vc =~ s/--.*?//; |
|
| 406 |
my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)";
|
|
| 407 |
|
|
| 403 | 408 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
|
| 404 | 409 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
|
| 405 | 410 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|;
|
| 411 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/follow_up.js"></script>|;
|
|
| 406 | 412 |
|
| 407 | 413 |
$jsscript .= $form->write_trigger(\%myconfig, 2, "orddate", "BL", "trigger_orddate", "quodate", "BL", "trigger_quodate"); |
| 408 | 414 |
|
| ... | ... | |
| 608 | 614 |
$form->{invtotal} =
|
| 609 | 615 |
$form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
|
| 610 | 616 |
|
| 617 |
my $follow_ups_block; |
|
| 618 |
if ($form->{id}) {
|
|
| 619 |
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
|
|
| 620 |
|
|
| 621 |
if (@{ $follow_ups} ) {
|
|
| 622 |
my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
|
|
| 623 |
$follow_ups_block = qq| |
|
| 624 |
<tr> |
|
| 625 |
<td colspan="2">| . $locale->text("There are #1 unfinished follow-ups of which #2 are due.", scalar @{ $follow_ups }, $num_due) . qq|</td>
|
|
| 626 |
</tr> |
|
| 627 |
|; |
|
| 628 |
} |
|
| 629 |
} |
|
| 630 |
|
|
| 611 | 631 |
print qq| |
| 612 | 632 |
<tr> |
| 613 | 633 |
<td colspan=$colspan> |
| ... | ... | |
| 623 | 643 |
<td>$notes</td> |
| 624 | 644 |
<td>$intnotes</td> |
| 625 | 645 |
</tr> |
| 646 |
$follow_ups_block |
|
| 626 | 647 |
</table> |
| 627 | 648 |
</td> |
| 628 | 649 |
<td colspan=2 align=right width=100%> |
| ... | ... | |
| 811 | 832 |
} |
| 812 | 833 |
print qq|<input class=submit type=submit name=action value="| |
| 813 | 834 |
. $locale->text('Use As Template') . qq|">
|
| 835 |
<input type="button" class="submit" onclick="follow_up_window()" value="| |
|
| 836 |
. $locale->text('Follow-Up')
|
|
| 837 |
. qq|"> |
|
| 814 | 838 |
|; |
| 815 | 839 |
|
| 816 | 840 |
} |
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.