Revision d7fef83a
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub check_delivered_flag {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
if (($form->{type} ne 'sales_order') && ($form->{type} ne 'purchase_order')) {
|
||
|
return $lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
my $all_delivered = 0;
|
||
|
|
||
|
foreach my $i (1 .. $form->{rowcount}) {
|
||
|
next if (!$form->{"id_$i"});
|
||
|
|
||
|
if ($form->parse_amount(\%myconfig, $form->{"qty_$i"}) == $form->parse_amount(\%myconfig, $form->{"ship_$i"})) {
|
||
|
$all_delivered = 1;
|
||
|
next;
|
||
|
}
|
||
|
|
||
|
$all_delivered = 0;
|
||
|
last;
|
||
|
}
|
||
|
|
||
|
$form->{delivered} = 1 if $all_delivered;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub save_and_close {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
||
|
|
||
|
|
||
|
if ($form->{type} =~ /_order$/) {
|
||
|
$form->isblank("transdate", $locale->text('Order Date missing!'));
|
||
|
} else {
|
||
| ... | ... | |
|
|
||
|
$err = $locale->text('Cannot save order!');
|
||
|
|
||
|
check_delivered_flag();
|
||
|
|
||
|
} else {
|
||
|
if ($form->{type} eq 'sales_quotation') {
|
||
|
$form->{label} = $locale->text('Quotation');
|
||
| ... | ... | |
|
|
||
|
$err = $locale->text('Cannot save order!');
|
||
|
|
||
|
check_delivered_flag();
|
||
|
|
||
|
} else {
|
||
|
if ($form->{type} eq 'sales_quotation') {
|
||
|
$form->{label} = $locale->text('Quotation');
|
||
Auch abrufbar als: Unified diff
Kundenauftrag/Lieferantenbestellung: Wenn alle Positionen vollständig geliefert wurden (also in allen Positionen der Lagerein-/-ausgang == Anzahl ist), so wird beim Speichern das Flag "Gelifert" automatisch gesetzt.