345 |
345 |
{ from => 'purchase_order', to => 'request_quotation', abbr => 'porq' },
|
346 |
346 |
{ from => 'request_quotation', to => 'sales_quotation', abbr => 'rqsq' },
|
347 |
347 |
{ from => 'request_quotation', to => 'sales_order', abbr => 'rqso' },
|
|
348 |
{ from => 'sales_quotation', to => 'request_quotation', abbr => 'sqrq' },
|
|
349 |
{ from => 'sales_order', to => 'request_quotation', abbr => 'sorq' },
|
348 |
350 |
);
|
349 |
351 |
my $from_to = (grep { $_->{from} eq $source->type && $_->{to} eq $destination_type} @from_tos)[0];
|
350 |
352 |
croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'") if !$from_to;
|
... | ... | |
377 |
379 |
$args{quonumber} = undef;
|
378 |
380 |
$args{reqdate} = DateTime->today_local->next_workday();
|
379 |
381 |
}
|
380 |
|
if ( $is_abbr_any->(qw(sopo)) ) {
|
|
382 |
if ( $is_abbr_any->(qw(sopo sqrq sorq)) ) {
|
381 |
383 |
$args{customer_id} = undef;
|
382 |
384 |
$args{salesman_id} = undef;
|
383 |
385 |
$args{payment_id} = undef;
|
... | ... | |
389 |
391 |
if ( $is_abbr_any->(qw(soso)) ) {
|
390 |
392 |
$args{periodic_invoices_config} = $source->periodic_invoices_config->clone_and_reset if $source->periodic_invoices_config;
|
391 |
393 |
}
|
392 |
|
if ( $is_abbr_any->(qw(sosq porq rqsq)) ) {
|
|
394 |
if ( $is_abbr_any->(qw(sosq porq rqsq sqrq sorq)) ) {
|
393 |
395 |
$args{ordnumber} = undef;
|
394 |
396 |
$args{quonumber} = undef;
|
395 |
397 |
$args{reqdate} = DateTime->today_local->next_workday();
|
396 |
398 |
}
|
|
399 |
if ( $is_abbr_any->(qw(sqrq sorq)) ) {
|
|
400 |
$args{cusordnumber} = undef;
|
|
401 |
}
|
397 |
402 |
|
398 |
403 |
# Custom shipto addresses (the ones specific to the sales/purchase
|
399 |
404 |
# record and not to the customer/vendor) are only linked from
|
Auftrags-Controller: WF Kunden-Angebot/-Auftrag -> Preisanfrage