projekt kivitendo

    { from => PURCHASE_QUOTATION_INTAKE_TYPE(), to => SALES_ORDER_TYPE(),               abbr => 'pqiso'  },

    { from => PURCHASE_QUOTATION_INTAKE_TYPE(), to => PURCHASE_ORDER_TYPE(),            abbr => 'pqipo'  },

    { from => REQUEST_QUOTATION_TYPE(),         to => PURCHASE_QUOTATION_INTAKE_TYPE(), abbr => 'rqpqi'  },

  );

  my $from_to = (grep { $_->{from} eq $source->record_type && $_->{to} eq $destination_type} @from_tos)[0];

  croak("Cannot convert from '" . $source->record_type . "' to '" . $destination_type . "'") if !$from_to;

                   ? undef

                   : $from_to->{to} =~ m/^purchase_quotation_intake$/

                   ? $source->reqdate

                   : die "Wrong state for reqdate";

  } elsif ( ref($source) eq 'SL::DB::Reclamation') {

    %args = ( map({ ( $_ => $source->$_ ) } qw(

   );

  }

    $args{ordnumber} = undef;

    $args{quonumber} = undef;

  }

    $args{payment_id}       = undef;

    $args{delivery_term_id} = undef;

  }

    $args{vendor_id} = undef;

  }

  if ( $is_abbr_any->(qw(soso)) ) {

  if ( $is_abbr_any->(qw(sqrq soirq sorq)) ) {

    $args{cusordnumber} = undef;

  }

    $args{ordnumber} = undef;

  }

  if ( $is_abbr_any->(qw(rqpqi pqisq)) ) {

      $current_oe_item->sellprice($source_item->lastcost);

      $current_oe_item->discount(0);

    }

      $current_oe_item->lastcost($source_item->sellprice);

    }

    unless ($params{no_linked_records}) {