|
Lines 645-655
sub process_quote {
Link Here
|
| 645 |
my $split_message; |
645 |
my $split_message; |
| 646 |
my @added_baskets; # if auto & multiple baskets need to order all |
646 |
my @added_baskets; # if auto & multiple baskets need to order all |
| 647 |
|
647 |
|
|
|
648 |
# Get vendor EDI account configuration |
| 649 |
my $v = $schema->resultset('VendorEdiAccount')->search( |
| 650 |
{ |
| 651 |
vendor_id => $quote_message->vendor_id, |
| 652 |
} |
| 653 |
)->single; |
| 654 |
|
| 648 |
if ( @{$messages} && $quote_message->vendor_id ) { |
655 |
if ( @{$messages} && $quote_message->vendor_id ) { |
|
|
656 |
|
| 649 |
foreach my $msg ( @{$messages} ) { |
657 |
foreach my $msg ( @{$messages} ) { |
| 650 |
++$message_count; |
658 |
++$message_count; |
|
|
659 |
|
| 660 |
# Determine basket name based on vendor configuration |
| 661 |
my $basket_name = $quote_message->filename; |
| 662 |
if ( $v && $v->basket_name_source && $v->basket_name_source eq 'purchase_order_number' ) { |
| 663 |
my $purchase_order_number = $msg->purchase_order_number; |
| 664 |
if ($purchase_order_number) { |
| 665 |
$basket_name = $purchase_order_number; |
| 666 |
} |
| 667 |
} |
| 668 |
|
| 651 |
my $basketno = NewBasket( |
669 |
my $basketno = NewBasket( |
| 652 |
$quote_message->vendor_id, 0, $quote_message->filename, q{}, |
670 |
$quote_message->vendor_id, 0, $basket_name, q{}, |
| 653 |
q{} . q{} |
671 |
q{} . q{} |
| 654 |
); |
672 |
); |
| 655 |
push @added_baskets, $basketno; |
673 |
push @added_baskets, $basketno; |
|
Lines 691-702
sub process_quote {
Link Here
|
| 691 |
$quote_message->status($status); |
709 |
$quote_message->status($status); |
| 692 |
$quote_message->update; # status and basketno link |
710 |
$quote_message->update; # status and basketno link |
| 693 |
# Do we automatically generate orders for this vendor |
711 |
# Do we automatically generate orders for this vendor |
| 694 |
my $v = $schema->resultset('VendorEdiAccount')->search( |
712 |
if ( $v && $v->auto_orders ) { |
| 695 |
{ |
|
|
| 696 |
vendor_id => $quote_message->vendor_id, |
| 697 |
} |
| 698 |
)->single; |
| 699 |
if ( $v->auto_orders ) { |
| 700 |
for my $b (@added_baskets) { |
713 |
for my $b (@added_baskets) { |
| 701 |
create_edi_order( |
714 |
create_edi_order( |
| 702 |
{ |
715 |
{ |