Revision 7a7f33b5
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 32 | 32 |
#====================================================================== |
| 33 | 33 |
|
| 34 | 34 |
use POSIX qw(strftime); |
| 35 |
use List::Util qw(sum); |
|
| 35 | 36 |
|
| 36 | 37 |
use SL::AR; |
| 38 |
use SL::FU; |
|
| 37 | 39 |
use SL::IS; |
| 38 | 40 |
use SL::PE; |
| 39 | 41 |
use SL::ReportGenerator; |
| ... | ... | |
| 431 | 433 |
qq|<td><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value="$form->{duedate}" onBlur=\"check_right_date_format(this)\"></td>|;
|
| 432 | 434 |
} |
| 433 | 435 |
|
| 436 |
my $follow_up_vc = $form->{customer};
|
|
| 437 |
$follow_up_vc =~ s/--.*?//; |
|
| 438 |
my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)";
|
|
| 439 |
|
|
| 434 | 440 |
$form->{javascript} .=
|
| 435 | 441 |
qq|<script type="text/javascript" src="js/common.js"></script>| . |
| 436 |
qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|; |
|
| 442 |
qq|<script type="text/javascript" src="js/show_vc_details.js"></script>| . |
|
| 443 |
qq|<script type="text/javascript" src="js/follow_up.js"></script>|; |
|
| 437 | 444 |
|
| 438 | 445 |
$form->header; |
| 439 | 446 |
$onload = qq|focus()|; |
| ... | ... | |
| 449 | 456 |
<input type=hidden name=closedto value=$form->{closedto}>
|
| 450 | 457 |
<input type=hidden name=locked value=$form->{locked}>
|
| 451 | 458 |
<input type=hidden name=title value="$title"> |
| 459 |
<input type="hidden" name="follow_up_trans_id_1" value="| . H($form->{id}) . qq|">
|
|
| 460 |
<input type="hidden" name="follow_up_trans_type_1" value="ar_transaction"> |
|
| 461 |
<input type="hidden" name="follow_up_trans_info_1" value="| . H($follow_up_trans_info) . qq|"> |
|
| 462 |
<input type="hidden" name="follow_up_rowcount" value="1"> |
|
| 452 | 463 |
|
| 453 | 464 |
| . ($form->{saved_message} ? qq|<p>$form->{saved_message}</p>| : "") . qq|
|
| 454 | 465 |
|
| ... | ... | |
| 800 | 811 |
|
| 801 | 812 |
my ($transdate, $closedto); |
| 802 | 813 |
|
| 814 |
my $follow_ups_block; |
|
| 815 |
if ($form->{id}) {
|
|
| 816 |
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
|
|
| 817 |
|
|
| 818 |
if (@{ $follow_ups} ) {
|
|
| 819 |
my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
|
|
| 820 |
$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>|;
|
|
| 821 |
} |
|
| 822 |
} |
|
| 823 |
|
|
| 803 | 824 |
print qq| |
| 804 | 825 |
|
| 826 |
$follow_ups_block |
|
| 827 |
|
|
| 805 | 828 |
<input name=gldate type=hidden value="| . Q($form->{gldate}) . qq|">
|
| 806 | 829 |
|
| 807 | 830 |
<input name=callback type=hidden value="$form->{callback}">
|
| ... | ... | |
| 842 | 865 |
<input class=submit type=submit name=action value="| . $locale->text('Use As Template') . qq|"> |;
|
| 843 | 866 |
} |
| 844 | 867 |
print qq| |
| 845 |
<input class=submit type=submit name=action value="| . $locale->text('Post Payment') . qq|"> |;
|
|
| 868 |
<input class=submit type=submit name=action value="| . $locale->text('Post Payment') . qq|">
|
|
| 869 |
<input type="button" class="submit" onclick="follow_up_window()" value="| |
|
| 870 |
. $locale->text('Follow-Up')
|
|
| 871 |
. qq|"> |; |
|
| 846 | 872 |
|
| 847 | 873 |
} else {
|
| 848 | 874 |
if ($transdate > $closedto) {
|
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.