Revision 7a7f33b5
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 33 | 33 |
|
| 34 | 34 |
use POSIX qw(strftime); |
| 35 | 35 |
|
| 36 |
use SL::FU; |
|
| 36 | 37 |
use SL::OE; |
| 37 | 38 |
use SL::IR; |
| 38 | 39 |
use SL::IS; |
| 39 | 40 |
use SL::PE; |
| 40 | 41 |
use SL::ReportGenerator; |
| 41 |
use List::Util qw(max reduce); |
|
| 42 |
use List::Util qw(max reduce sum);
|
|
| 42 | 43 |
|
| 43 | 44 |
require "bin/mozilla/io.pl"; |
| 44 | 45 |
require "bin/mozilla/arap.pl"; |
| ... | ... | |
| 431 | 432 |
|
| 432 | 433 |
$credittext = $locale->text('Credit Limit exceeded!!!');
|
| 433 | 434 |
|
| 435 |
my $follow_up_vc = $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
|
|
| 436 |
$follow_up_vc =~ s/--.*?//; |
|
| 437 |
$TMPL_VAR{follow_up_trans_info} = ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)";
|
|
| 438 |
|
|
| 439 |
if ($form->{id}) {
|
|
| 440 |
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
|
|
| 441 |
|
|
| 442 |
if (scalar @{ $follow_ups }) {
|
|
| 443 |
$TMPL_VAR{num_follow_ups} = scalar @{ $follow_ups };
|
|
| 444 |
$TMPL_VAR{num_due_follow_ups} = sum map { $_->{due} * 1 } @{ $follow_ups };
|
|
| 445 |
} |
|
| 446 |
} |
|
| 447 |
|
|
| 434 | 448 |
$onload = ($form->{resubmit} && ($form->{format} eq "html")) ? "window.open('about:blank','Beleg'); document.oe.target = 'Beleg';document.oe.submit()"
|
| 435 | 449 |
: ($form->{resubmit}) ? "document.oe.submit()"
|
| 436 | 450 |
: ($creditwarning) ? "alert('$credittext')"
|
| ... | ... | |
| 439 | 453 |
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
|
| 440 | 454 |
$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
|
| 441 | 455 |
$TMPL_VAR{onload} = $onload;
|
| 442 |
|
|
| 456 |
|
|
| 443 | 457 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
|
| 444 | 458 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
| 445 | 459 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|;
|
| ... | ... | |
| 2017 | 2031 |
$lxdebug->leave_sub(); |
| 2018 | 2032 |
} |
| 2019 | 2033 |
|
| 2034 |
sub report_for_todo_list {
|
|
| 2035 |
$lxdebug->enter_sub(); |
|
| 2036 |
|
|
| 2037 |
my $quotations = OE->transactions_for_todo_list(); |
|
| 2038 |
my $content; |
|
| 2039 |
|
|
| 2040 |
if (@{ $quotations }) {
|
|
| 2041 |
my $edit_url = build_std_url('script=oe.pl', 'action=edit', 'type=sales_quotation', 'vc=customer');
|
|
| 2042 |
|
|
| 2043 |
$content = $form->parse_html_template('oe/report_for_todo_list', { 'QUOTATIONS' => $quotations,
|
|
| 2044 |
'edit_url' => $edit_url }); |
|
| 2045 |
} |
|
| 2046 |
|
|
| 2047 |
$lxdebug->leave_sub(); |
|
| 2048 |
|
|
| 2049 |
return $content; |
|
| 2050 |
} |
|
| 2051 |
|
|
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.