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 |
{ |