Duplicating Item with LineItem

Mark HHP

I have a Quote BO with a QuoteLineItem BO that I need to convert to a Booking with a BookingLineItem.

I'm running a process that transforms a Quote into a Booking but when i try now it gives me an internal error.

My input is set to Quote and this the what I'm running.

If Quote.QuoteStatus='In Progress' Then
FIND QuoteLineItem WHERE QuoteLineItem IN Quote.QuoteLineItems
CREATE Booking WITH Booking.Client=Quote.Client,Booking.Quote=Quote,Booking.Insertions=Quote.InsertionsRate,Booking.TotalInsertions=Quote.TotalInsertions,Booking.BookingTotal=Quote.QuoteTotal,Booking.Consultant=Quote.Consultant
CREATE BookingLineItem FOR EACH QuoteLineItem WITH BookingLineItem.Booking=Booking,BookingLineItem.Artwork=QuoteLineItem.Artwork,BookingLineItem.InsertionsCalc=QuoteLineItem.InsertionsCalc,BookingLineItem.PositionRequest=QuoteLineItem.PositionRequest,BookingLineItem.Rate=QuoteLineItem.Rate,BookingLineItem.RateType=QuoteLineItem.RateType,BookingLineItem.Magazine=QuoteLineItem.Magazine,BookingLineItem.Shape=QuoteLineItem.Shape,BookingLineItem.Size=QuoteLineItem.Size,BookingLineItem.StudioReference=QuoteLineItem.StudioReference,BookingLineItem.Issue=QuoteLineItem.Issue,BookingLineItem.Client=Quote.Client
Quote.QuoteStatus='Approved'
DISPLAY MESSAGE 'Quote approved successfully'
VIEW Booking

I've narrowed it down to the section starting "CREATE BookingLineItem FOR EACH..." but I'm not sure why it's failing. Should this be split into seperate processes or something? Not just one process doing everything?

tford

I would break it into two processes.

Mark HHP

So what I'm thinking is, I'd have to make a seperate process for the BookingLineItem, also with QuoteLineItem as input? Or would it be picked up from the initial process that it sits within?

Or would the second process also need the "FIND QuoteLineItem WHERE QuoteLineItem IN Quote.QuoteLineItems"?

This one is killing me.

tford

Try this:

Process_1 (Process input: Quote)
a) If Quote.QuoteStatus='In Progress' Then
FIND QuoteLineItem WHERE QuoteLineItem IN Quote.QuoteLineItems

b) CREATE Booking WITH Booking.Client=Quote.Client,Booking.Quote=Quote,Booking.Insertions=Quote.InsertionsRate,Booking.TotalInsertions=Quote.TotalInsertions,Booking.BookingTotal=Quote.QuoteTotal,Booking.Consultant=Quote.Consultant

c) Process_2

Process_2: (from Process_1 - Booking, QuoteLineItem, Quote
CREATE BookingLineItem FOR EACH QuoteLineItem WITH BookingLineItem.Booking=Booking,BookingLineItem.Artwork=QuoteLineItem.Artwork,BookingLineItem.InsertionsCalc=QuoteLineItem.InsertionsCalc,BookingLineItem.PositionRequest=QuoteLineItem.PositionRequest,BookingLineItem.Rate=QuoteLineItem.Rate,BookingLineItem.RateType=QuoteLineItem.RateType,BookingLineItem.Magazine=QuoteLineItem.Magazine,BookingLineItem.Shape=QuoteLineItem.Shape,BookingLineItem.Size=QuoteLineItem.Size,BookingLineItem.StudioReference=QuoteLineItem.StudioReference,BookingLineItem.Issue=QuoteLineItem.Issue,BookingLineItem.Client=Quote.Client

Quote.QuoteStatus='Approved'

DISPLAY MESSAGE 'Quote approved successfully'

VIEW Booking

tford

After thinking about this a bit more, this is probably a better approach:

Process_1 (Process input: Quote)
a) If Quote.QuoteStatus='In Progress' Then CREATE Booking WITH Booking.Client=Quote.Client,Booking.Quote=Quote,Booking.Insertions=Quote.InsertionsRate,Booking.TotalInsertions=Quote.TotalInsertions,Booking.BookingTotal=Quote.QuoteTotal,Booking.Consultant=Quote.Consultant

b) Process_2

c) Quote.QuoteStatus='Approved'

d) DISPLAY MESSAGE 'Quote approved successfully'

e) VIEW Booking

Process_2: (Process inputs from Process_1 - Booking, Quote)_

a) FIND QuoteLineItem WHERE QuoteLineItem IN Quote.QuoteLineItems IN BATCHES OF 1

CREATE BookingLineItem FOR EACH QuoteLineItem WITH BookingLineItem.Booking=Booking,BookingLineItem.Artwork=QuoteLineItem.Artwork,BookingLineItem.InsertionsCalc=QuoteLineItem.InsertionsCalc,BookingLineItem.PositionRequest=QuoteLineItem.PositionRequest,BookingLineItem.Rate=QuoteLineItem.Rate,BookingLineItem.RateType=QuoteLineItem.RateType,BookingLineItem.Magazine=QuoteLineItem.Magazine,BookingLineItem.Shape=QuoteLineItem.Shape,BookingLineItem.Size=QuoteLineItem.Size,BookingLineItem.StudioReference=QuoteLineItem.StudioReference,BookingLineItem.Issue=QuoteLineItem.Issue,BookingLineItem.Client=Quote.Client