Revision 088bf5a0
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
|
use POSIX qw(strftime);
|
||
|
use YAML;
|
||
|
|
||
|
use SL::DB::DeliveryOrder;
|
||
|
use SL::DO;
|
||
|
use SL::IR;
|
||
|
use SL::IS;
|
||
| ... | ... | |
|
sub save {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my (%params) = @_;
|
||
|
|
||
|
check_do_access();
|
||
|
|
||
|
my $form = $main::form;
|
||
| ... | ... | |
|
# /saving the history
|
||
|
|
||
|
$form->{simple_save} = 1;
|
||
|
if(!$form->{print_and_save}) {
|
||
|
if (!$params{no_redirect} && !$form->{print_and_save}) {
|
||
|
set_headings("edit");
|
||
|
update();
|
||
|
::end_of_request();
|
||
| ... | ... | |
|
sub transfer_in {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
save(no_redirect => 1);
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
| ... | ... | |
|
if (@{ $form->{ERRORS} }) {
|
||
|
push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
|
||
|
|
||
|
set_headings('edit');
|
||
|
update();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
| ... | ... | |
|
DO->transfer_in_out('direction' => 'in',
|
||
|
'requests' => \@all_requests);
|
||
|
|
||
|
$form->{delivered} = 1;
|
||
|
SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
|
||
|
|
||
|
save();
|
||
|
$form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
|
||
|
$form->redirect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
sub transfer_out {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
save(no_redirect => 1);
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
| ... | ... | |
|
|
||
|
next if (0 == $row_sum_base_qty);
|
||
|
|
||
|
my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
|
||
|
my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
|
||
|
|
||
|
# if ($do_base_qty != $row_sum_base_qty) {
|
||
|
# push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
|
||
| ... | ... | |
|
if (@{ $form->{ERRORS} }) {
|
||
|
push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
|
||
|
|
||
|
set_headings('edit');
|
||
|
update();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
| ... | ... | |
|
DO->transfer_in_out('direction' => 'out',
|
||
|
'requests' => \@all_requests);
|
||
|
|
||
|
$form->{delivered} = 1;
|
||
|
SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
|
||
|
|
||
|
save();
|
||
|
$form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
|
||
|
$form->redirect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Lieferscheine: immer vor Aus- und Einlagern speichern
Behebt zwei Probleme:
1. Wenn die Benutzerin wichtige Informationen
entfernt (Kunde/Lieferant, Lieferscheindatum), die "save()" bemängeln
würde, so wird nichts ausgelagert.
2. Wenn ohne zu speichern gleich ausgelagert wird, so wurden vorher
Lagertransfers eingetragen, deren Feld "oe_id" nicht gesetzt war.
Fix für Bug 1463.