projekt kivitendo

    convert_from_reclamations_ids convert_from_do_ids convert_from_oe_ids convert_from_ar_ids useasnew

sub credit_note_from_reclamation {

  $main::lxdebug->enter_sub();

  $main::auth->assert('invoice_edit');

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my $from_id = delete $form->{from_id};

  my $reclamation = SL::DB::Reclamation->new(id => $from_id)->load;

  $reclamation->flatten_to_form($form, format_amounts => 1);

  # set new persistent ids for credit note and link previous reclamation id

  $form->{convert_from_reclamations_ids} = $form->{id};

  $form->{id}     = '';

  $form->{"converted_from_reclamation_items_id_$_"} = delete $form->{"reclamation_items_id_$_"} for 1 .. $form->{"rowcount"};

  $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);

  $form->{duedate} =

    $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);

  $form->{title}  = $locale->text('Add Credit Note');

  $form->{script} = 'is.pl';

  # bo creates the id, reset it

  map { delete $form->{$_} }

    qw(id invnumber subject message cc bcc printed emailed queued);

  $form->{ $form->{vc} } =~ s/--.*//g;

  $form->{type} = "credit_note";

  my $currency = $form->{currency};

  &invoice_links;

  $form->{currency}     = $currency;

  $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{invdate}, 'buy');

  $form->{exchangerate} = $form->{forex} || '';

  $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});

  &prepare_invoice;

  &display_form;

  $main::lxdebug->leave_sub();

}