X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FOrder.pm;h=dc4bbebd85a31378a939ec55860c8a2704e7c7c8;hb=11fafb0ba321d8d345fd551c48b93aded6ac9b84;hp=415896919e53ecc31d3e84481fe05a8ef99dcd6d;hpb=f65440cb9d28d4862facc50858bd25fa138cb211;p=kivitendo-erp.git

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 415896919..dc4bbebd8 100644
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -311,6 +311,7 @@ sub new_from {
     { from => 'sales_order',       to => 'purchase_order',    abbr => 'sopo' },
     { from => 'purchase_order',    to => 'sales_order',       abbr => 'poso' },
     { from => 'sales_order',       to => 'sales_quotation',   abbr => 'sosq' },
+    { from => 'purchase_order',    to => 'request_quotation', abbr => 'porq' },
   );
   my $from_to = (grep { $_->{from} eq $source->type && $_->{to} eq $destination_type} @from_tos)[0];
   croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'") if !$from_to;
@@ -355,7 +356,7 @@ sub new_from {
   if ( $is_abbr_any->(qw(soso)) ) {
     $args{periodic_invoices_config} = $source->periodic_invoices_config->clone_and_reset if $source->periodic_invoices_config;
   }
-  if ( $is_abbr_any->(qw(sosq)) ) {
+  if ( $is_abbr_any->(qw(sosq porq)) ) {
     $args{ordnumber} = undef;
     $args{quonumber} = undef;
     $args{reqdate}   = DateTime->today_local->next_workday();