Revision 29a62ccc
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 35 | 35 |
use Carp; |
| 36 | 36 |
use POSIX qw(strftime); |
| 37 | 37 |
|
| 38 |
use SL::DB::Order; |
|
| 38 | 39 |
use SL::DO; |
| 39 | 40 |
use SL::FU; |
| 40 | 41 |
use SL::OE; |
| ... | ... | |
| 312 | 313 |
# Container for template variables. Unfortunately this has to be |
| 313 | 314 |
# visible in form_footer too, so package local level and not my here. |
| 314 | 315 |
%TMPL_VAR = (); |
| 316 |
if ($form->{id}) {
|
|
| 317 |
my $obj = SL::DB::Order->new(id => $form->{id})->load;
|
|
| 318 |
$TMPL_VAR{warn_save_active_periodic_invoice} =
|
|
| 319 |
$obj->is_type('sales_order')
|
|
| 320 |
&& $obj->periodic_invoices_config |
|
| 321 |
&& $obj->periodic_invoices_config->active |
|
| 322 |
&& ( !$obj->periodic_invoices_config->end_date |
|
| 323 |
|| ($obj->periodic_invoices_config->end_date > DateTime->today_local)) |
|
| 324 |
&& $obj->periodic_invoices_config->get_previous_invoice_date; |
|
| 325 |
|
|
| 326 |
$TMPL_VAR{oe_obj} = $obj;
|
|
| 327 |
} |
|
| 315 | 328 |
|
| 316 | 329 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 317 | 330 |
|
Auch abrufbar als: Unified diff
Warnung bei Auftragspeichern mit aktiver wiederk. Rechnung, wenn schon eine Rechnung erzeugt wurde