Copying UD Fields ----- BPM Help Please!

I just meant the code you need for quotehed.

Also I have the code in the SalesOrder.Update method with a condition of 'the OrderDtl.RowMod field of the changed row is equal to the "A" value'.

--- In vantage@yahoogroups.com, "Michael Ward" <michael.ward@...> wrote:
>
> I'm not sure where you mean when you say add the header code. I am adding the method directive to Quote.CreateOrder. Is this the incorrect place for this code?
>
> Thank you
>
> M Ward
>
> --- In vantage@yahoogroups.com, "Kirstin Brandt" <kirstin.brandt@> wrote:
> >
> > I have similar code for shorchar01. Should be easy enough to add the header code.
> >
> > /* Copy ShortChar01 from QuoteDtl to OrderDtl */
> >
> > for each QuoteDtl where (QuoteDtl.Company = ttOrderDtl.Company and QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum and QuoteDtl.QuoteLine = ttOrderDtl.QuoteLine) no-lock.
> > if available QuoteDtl then do:
> >
> > ttOrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
> >
> > end.
> > end.
> >
> >
> > --- In vantage@yahoogroups.com, "Michael Ward" <michael.ward@> wrote:
> > >
> > > I need to copy:
> > >
> > > QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> > > QuoteHed.Reference to OrderHed.ShortChar10,
> > > QuoteHed.QuoteComment to OrderHed.OrderComment.
> > >
> > > I will then need to copy:
> > >
> > > OrderDtl.ShortChar06 to Jobhead.shortchar06
> > > OrderHed.ShortChar10 to jobhead.shortchar10
> > >
> > > Can anyone help me in achieving this or point me in the right direction. I am new to 4GL Code and as yet have not been on the course.
> > >
> > > Any help gratefully received, thanks in advance.
> > >
> > > M Ward
> > >
> >
>
I need to copy:

QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
QuoteHed.Reference to OrderHed.ShortChar10,
QuoteHed.QuoteComment to OrderHed.OrderComment.

I will then need to copy:

OrderDtl.ShortChar06 to Jobhead.shortchar06
OrderHed.ShortChar10 to jobhead.shortchar10

Can anyone help me in achieving this or point me in the right direction. I am new to 4GL Code and as yet have not been on the course.

Any help gratefully received, thanks in advance.

M Ward
Do you have Custom Field Map (under system management -> utilities) in
your version? Should handle that for you.

Brian.



________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Michael Ward
Sent: Tuesday, January 24, 2012 10:15 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Copying UD Fields ----- BPM Help Please!!!





I need to copy:

QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
QuoteHed.Reference to OrderHed.ShortChar10,
QuoteHed.QuoteComment to OrderHed.OrderComment.

I will then need to copy:

OrderDtl.ShortChar06 to Jobhead.shortchar06
OrderHed.ShortChar10 to jobhead.shortchar10

Can anyone help me in achieving this or point me in the right direction.
I am new to 4GL Code and as yet have not been on the course.

Any help gratefully received, thanks in advance.

M Ward





[Non-text portions of this message have been removed]
Thanks Brian, but I've already looked at Custom Field Map. It doesn't show all tables. For Example if I enter OrderHed in Target Table the only table available in Source Table is DemandHead.

Thanks Again.

--- In vantage@yahoogroups.com, "Brian Roberts" <broberts@...> wrote:
>
> Do you have Custom Field Map (under system management -> utilities) in
> your version? Should handle that for you.
>
> Brian.
>
>
>
> ________________________________
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
> Of Michael Ward
> Sent: Tuesday, January 24, 2012 10:15 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Copying UD Fields ----- BPM Help Please!!!
>
>
>
>
>
> I need to copy:
>
> QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> QuoteHed.Reference to OrderHed.ShortChar10,
> QuoteHed.QuoteComment to OrderHed.OrderComment.
>
> I will then need to copy:
>
> OrderDtl.ShortChar06 to Jobhead.shortchar06
> OrderHed.ShortChar10 to jobhead.shortchar10
>
> Can anyone help me in achieving this or point me in the right direction.
> I am new to 4GL Code and as yet have not been on the course.
>
> Any help gratefully received, thanks in advance.
>
> M Ward
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
This is from a data directive we use to copy fields from OrderHed to JobHead. if you un-comment the message lines go to the appserver log.

I made some quick changes, but it has not been run before.

I don't have any quote to order data directives, but it should be similar.

Greg


/* Copy Order Info to Job Header */
/* Message "DEBUG JobUpdate: B4 Code". */
find ttJobHead where ttJobHead.RowMod = "U" no-error.
/* Message "DEBUG JobUpdate: after ttJobHead find, jobnum = " ttJobHead.JobNum. */
find JobProd where ttJobHead.JobNum = JobProd.Jobnum and ttJobHead.Company = JobProd.Company.
/* Message "DEBUG JobUpdate: after JobProd find, JobProd.OrderNum = " JobProd.OrderNum. */
if available(JobProd) then do:
Find OrderHed where OrderHed.Company = JobProd.Company and OrderHed.OrderNum = JobProd.OrderNum.
/* Message "DEBUG JobUpdate: after OrderHed find, OrderHed.ShortChar01 = " OrderHed.ShortChar01. */
If OrderHed.ShortChar10 <> "" then do:
ttJobHead.ShortChar10 = OrderHed.ShortChar10.
end.

Find OrderDtl where OrderDtl.Company = JobProd.Company and OrderDtl.OrderNum = JobProd.OrderNum and OrderDtl.OrderLine = JobProd.OrderLine.

If OrderDtl.ShortChar06 <> "" then do:
ttJobHead.ShortChar06 = OrderDtl.ShortChar06.
end.



Message "DEBUG JobUpdate: after ttJobHead update find, ttJobHead.ShortChar01 = " ttJobHead.ShortChar01.
end.



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Michael Ward
Sent: Tuesday, January 24, 2012 10:15 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Copying UD Fields ----- BPM Help Please!!!



I need to copy:

QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
QuoteHed.Reference to OrderHed.ShortChar10,
QuoteHed.QuoteComment to OrderHed.OrderComment.

I will then need to copy:

OrderDtl.ShortChar06 to Jobhead.shortchar06
OrderHed.ShortChar10 to jobhead.shortchar10

Can anyone help me in achieving this or point me in the right direction. I am new to 4GL Code and as yet have not been on the course.

Any help gratefully received, thanks in advance.

M Ward


________________________________
CONFIDENTIALITY NOTICE

The information contained in this communication, including attachments, is privileged and confidential. It is intended only for the exclusive use of the addressee. If the reader of this message is not the intended recipient, or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us at (727) 578-6258 and immediately delete the communication.

"This (document/presentation) may contain technical data as defined in the International Traffic In Arms Regulations (ITAR) 22 CFR 120.10. Export of this material is restricted by the Arms Export Control Act (22 U.S.C. 2751 et seq.) and may not be exported to foreign persons without prior approval form the U.S. Department of State."


[Non-text portions of this message have been removed]
I have similar code for shorchar01. Should be easy enough to add the header code.

/* Copy ShortChar01 from QuoteDtl to OrderDtl */

for each QuoteDtl where (QuoteDtl.Company = ttOrderDtl.Company and QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum and QuoteDtl.QuoteLine = ttOrderDtl.QuoteLine) no-lock.
if available QuoteDtl then do:

ttOrderDtl.ShortChar01 = QuoteDtl.ShortChar01.

end.
end.


--- In vantage@yahoogroups.com, "Michael Ward" <michael.ward@...> wrote:
>
> I need to copy:
>
> QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> QuoteHed.Reference to OrderHed.ShortChar10,
> QuoteHed.QuoteComment to OrderHed.OrderComment.
>
> I will then need to copy:
>
> OrderDtl.ShortChar06 to Jobhead.shortchar06
> OrderHed.ShortChar10 to jobhead.shortchar10
>
> Can anyone help me in achieving this or point me in the right direction. I am new to 4GL Code and as yet have not been on the course.
>
> Any help gratefully received, thanks in advance.
>
> M Ward
>
There actually 3 places how to copy a quote into an order and the BPM code
will be different

Here are my examples:

From the quote entry action menu create sales order:
Method :Quote.CreateOrder
BPM Code:
FOR EACH ttQuoteDtl No-Lock,
EACH ttQuoteHed WHERE ttQuoteHed.QuoteNum = ttQuoteDtl.QuoteNum,
EACH OrderDtl WHERE OrderDtl.QuoteNum = ttQuoteDtl.QuoteNum AND
OrderDtl.QuoteLine = ttQuoteDtl.QuoteLine,
EACH OrderHed WHERE OrderHed.OrderNum = OrderDtl.OrderNum :

Assign Orderhed.Character01 = "Not Approved".
Assign OrderHed.Character02 = ttQuoteDtl.ProjectID.
Assign OrderHed.CheckBox02 = ttQuoteHed.CheckBox02.
Assign OrderHed.ShortChar01 = "D".
Assign OrderHed.CheckBox10 = ttQuoteHed.CheckBox10.
Assign OrderHed.Number05 = 75.
Assign OrderDtl.Character01 = "Not Approved".
Assign OrderDtl.ShortChar01 = ttQuoteDtl.ShortChar01.
Assign OrderDtl.Number03 = ttQuoteDtl.Number03.
Assign OrderDtl.Date03 = Today.
Assign OrderDtl.Number02 = Time.
Assign OrderDtl.RepRate1 = ttQuoteDtl.Number10.

END.


From the Order Entry action menu Get Opportunity/quote:
Method : SalesOrder.CreateOrderFromQuote
BPM Code :

FOR EACH ttOrderDtl No-Lock,
Each OrderHed WHERE OrderHed.Company = CUR-COMP AND
OrderHed.OrderNum = ttOrderDtl.OrderNum,
Each OrderDtl WHERE OrderDtl.Company = CUR-COMP AND
OrderDtl.OrderNum = ttOrderDtl.OrderNum AND OrderDtl.OrderLine =
ttOrderDtl.OrderLine,
EACH QuoteDtl WHERE QuoteDtl.Company = CUR-COMP AND
QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum AND QuoteDtl.QuoteLine =
ttOrderDtl.QuoteLine,
EACH QuoteHed WHERE QuoteHed.Company = CUR-COMP AND QuoteHed.QuoteNum
= QuoteDtl.QuoteNum:

Assign Orderhed.Character01 = "Not Approved".
Assign OrderHed.Character02 = QuoteDtl.ProjectID.
Assign OrderHed.CheckBox02 = Quotehed.CheckBox02.
Assign OrderHed.ShortChar01 = "D".
Assign OrderHed.CheckBox10 = Quotehed.CheckBox10.
Assign OrderHed.Number05 = 75.
Assign Orderdtl.Character01 = "Not Approved".
Assign OrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
Assign OrderDtl.Number03 = QuoteDtl.Number03.
Assign OrderDtl.Date03 = Today.
Assign OrderDtl.Number02 = Time.
Assign OrderDtl.RepRate1 = QuoteDtl.Number10.

END.


From the Order Entry New > Line from Quote

I did not find the method to hook in so it doesnt work.


ephraim



On Tue, Jan 24, 2012 at 10:14 AM, Michael Ward <michael.ward@...>wrote:

> **
>
>
> I need to copy:
>
> QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> QuoteHed.Reference to OrderHed.ShortChar10,
> QuoteHed.QuoteComment to OrderHed.OrderComment.
>
> I will then need to copy:
>
> OrderDtl.ShortChar06 to Jobhead.shortchar06
> OrderHed.ShortChar10 to jobhead.shortchar10
>
> Can anyone help me in achieving this or point me in the right direction. I
> am new to 4GL Code and as yet have not been on the course.
>
> Any help gratefully received, thanks in advance.
>
> M Ward
>
>
>


[Non-text portions of this message have been removed]
If someone can help on that 3Dr option I would appreciate.

I tried tracing but came up with nothing.


Ephraim Feldman

-----Original Message-----
From: Ephraim Feldman <effgroups@...>
Date: Tue, 24 Jan 2012 17:26:36
To: <vantage@yahoogroups.com>
Subject: Re: [Vantage] Copying UD Fields ----- BPM Help Please!!!

There actually 3 places how to copy a quote into an order and the BPM code
will be different

Here are my examples:

From the quote entry action menu create sales order:
Method :Quote.CreateOrder
BPM Code:
FOR EACH ttQuoteDtl No-Lock,
EACH ttQuoteHed WHERE ttQuoteHed.QuoteNum = ttQuoteDtl.QuoteNum,
EACH OrderDtl WHERE OrderDtl.QuoteNum = ttQuoteDtl.QuoteNum AND
OrderDtl.QuoteLine = ttQuoteDtl.QuoteLine,
EACH OrderHed WHERE OrderHed.OrderNum = OrderDtl.OrderNum :

Assign Orderhed.Character01 = "Not Approved".
Assign OrderHed.Character02 = ttQuoteDtl.ProjectID.
Assign OrderHed.CheckBox02 = ttQuoteHed.CheckBox02.
Assign OrderHed.ShortChar01 = "D".
Assign OrderHed.CheckBox10 = ttQuoteHed.CheckBox10.
Assign OrderHed.Number05 = 75.
Assign OrderDtl.Character01 = "Not Approved".
Assign OrderDtl.ShortChar01 = ttQuoteDtl.ShortChar01.
Assign OrderDtl.Number03 = ttQuoteDtl.Number03.
Assign OrderDtl.Date03 = Today.
Assign OrderDtl.Number02 = Time.
Assign OrderDtl.RepRate1 = ttQuoteDtl.Number10.

END.


From the Order Entry action menu Get Opportunity/quote:
Method : SalesOrder.CreateOrderFromQuote
BPM Code :

FOR EACH ttOrderDtl No-Lock,
Each OrderHed WHERE OrderHed.Company = CUR-COMP AND
OrderHed.OrderNum = ttOrderDtl.OrderNum,
Each OrderDtl WHERE OrderDtl.Company = CUR-COMP AND
OrderDtl.OrderNum = ttOrderDtl.OrderNum AND OrderDtl.OrderLine =
ttOrderDtl.OrderLine,
EACH QuoteDtl WHERE QuoteDtl.Company = CUR-COMP AND
QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum AND QuoteDtl.QuoteLine =
ttOrderDtl.QuoteLine,
EACH QuoteHed WHERE QuoteHed.Company = CUR-COMP AND QuoteHed.QuoteNum
= QuoteDtl.QuoteNum:

Assign Orderhed.Character01 = "Not Approved".
Assign OrderHed.Character02 = QuoteDtl.ProjectID.
Assign OrderHed.CheckBox02 = Quotehed.CheckBox02.
Assign OrderHed.ShortChar01 = "D".
Assign OrderHed.CheckBox10 = Quotehed.CheckBox10.
Assign OrderHed.Number05 = 75.
Assign Orderdtl.Character01 = "Not Approved".
Assign OrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
Assign OrderDtl.Number03 = QuoteDtl.Number03.
Assign OrderDtl.Date03 = Today.
Assign OrderDtl.Number02 = Time.
Assign OrderDtl.RepRate1 = QuoteDtl.Number10.

END.


From the Order Entry New > Line from Quote

I did not find the method to hook in so it doesnt work.


ephraim



On Tue, Jan 24, 2012 at 10:14 AM, Michael Ward <michael.ward@...>wrote:

> **
>
>
> I need to copy:
>
> QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> QuoteHed.Reference to OrderHed.ShortChar10,
> QuoteHed.QuoteComment to OrderHed.OrderComment.
>
> I will then need to copy:
>
> OrderDtl.ShortChar06 to Jobhead.shortchar06
> OrderHed.ShortChar10 to jobhead.shortchar10
>
> Can anyone help me in achieving this or point me in the right direction. I
> am new to 4GL Code and as yet have not been on the course.
>
> Any help gratefully received, thanks in advance.
>
> M Ward
>
>
>



[Non-text portions of this message have been removed]
Wouldn't this be a good case for a data directive?
regardless of the BO that writes to the table the data directive does it's work.......

--- In vantage@yahoogroups.com, effgroups@... wrote:
>
> If someone can help on that 3Dr option I would appreciate.
>
> I tried tracing but came up with nothing.
>
>
> Ephraim Feldman
>
> -----Original Message-----
> From: Ephraim Feldman <effgroups@...>
> Date: Tue, 24 Jan 2012 17:26:36
> To: <vantage@yahoogroups.com>
> Subject: Re: [Vantage] Copying UD Fields ----- BPM Help Please!!!
>
> There actually 3 places how to copy a quote into an order and the BPM code
> will be different
>
> Here are my examples:
>
> From the quote entry action menu create sales order:
> Method :Quote.CreateOrder
> BPM Code:
> FOR EACH ttQuoteDtl No-Lock,
> EACH ttQuoteHed WHERE ttQuoteHed.QuoteNum = ttQuoteDtl.QuoteNum,
> EACH OrderDtl WHERE OrderDtl.QuoteNum = ttQuoteDtl.QuoteNum AND
> OrderDtl.QuoteLine = ttQuoteDtl.QuoteLine,
> EACH OrderHed WHERE OrderHed.OrderNum = OrderDtl.OrderNum :
>
> Assign Orderhed.Character01 = "Not Approved".
> Assign OrderHed.Character02 = ttQuoteDtl.ProjectID.
> Assign OrderHed.CheckBox02 = ttQuoteHed.CheckBox02.
> Assign OrderHed.ShortChar01 = "D".
> Assign OrderHed.CheckBox10 = ttQuoteHed.CheckBox10.
> Assign OrderHed.Number05 = 75.
> Assign OrderDtl.Character01 = "Not Approved".
> Assign OrderDtl.ShortChar01 = ttQuoteDtl.ShortChar01.
> Assign OrderDtl.Number03 = ttQuoteDtl.Number03.
> Assign OrderDtl.Date03 = Today.
> Assign OrderDtl.Number02 = Time.
> Assign OrderDtl.RepRate1 = ttQuoteDtl.Number10.
>
> END.
>
>
> From the Order Entry action menu Get Opportunity/quote:
> Method : SalesOrder.CreateOrderFromQuote
> BPM Code :
>
> FOR EACH ttOrderDtl No-Lock,
> Each OrderHed WHERE OrderHed.Company = CUR-COMP AND
> OrderHed.OrderNum = ttOrderDtl.OrderNum,
> Each OrderDtl WHERE OrderDtl.Company = CUR-COMP AND
> OrderDtl.OrderNum = ttOrderDtl.OrderNum AND OrderDtl.OrderLine =
> ttOrderDtl.OrderLine,
> EACH QuoteDtl WHERE QuoteDtl.Company = CUR-COMP AND
> QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum AND QuoteDtl.QuoteLine =
> ttOrderDtl.QuoteLine,
> EACH QuoteHed WHERE QuoteHed.Company = CUR-COMP AND QuoteHed.QuoteNum
> = QuoteDtl.QuoteNum:
>
> Assign Orderhed.Character01 = "Not Approved".
> Assign OrderHed.Character02 = QuoteDtl.ProjectID.
> Assign OrderHed.CheckBox02 = Quotehed.CheckBox02.
> Assign OrderHed.ShortChar01 = "D".
> Assign OrderHed.CheckBox10 = Quotehed.CheckBox10.
> Assign OrderHed.Number05 = 75.
> Assign Orderdtl.Character01 = "Not Approved".
> Assign OrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
> Assign OrderDtl.Number03 = QuoteDtl.Number03.
> Assign OrderDtl.Date03 = Today.
> Assign OrderDtl.Number02 = Time.
> Assign OrderDtl.RepRate1 = QuoteDtl.Number10.
>
> END.
>
>
> From the Order Entry New > Line from Quote
>
> I did not find the method to hook in so it doesnt work.
>
>
> ephraim
>
>
>
> On Tue, Jan 24, 2012 at 10:14 AM, Michael Ward <michael.ward@...>wrote:
>
> > **
> >
> >
> > I need to copy:
> >
> > QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> > QuoteHed.Reference to OrderHed.ShortChar10,
> > QuoteHed.QuoteComment to OrderHed.OrderComment.
> >
> > I will then need to copy:
> >
> > OrderDtl.ShortChar06 to Jobhead.shortchar06
> > OrderHed.ShortChar10 to jobhead.shortchar10
> >
> > Can anyone help me in achieving this or point me in the right direction. I
> > am new to 4GL Code and as yet have not been on the course.
> >
> > Any help gratefully received, thanks in advance.
> >
> > M Ward
> >
> >
> >
>
>
>
> [Non-text portions of this message have been removed]
>
Thanks, I tried this but had no success. It generated an error when I tried to validate which I believe is version related. We are using Vantage 8.03.409C

--- In vantage@yahoogroups.com, Ephraim Feldman <effgroups@...> wrote:
>
> There actually 3 places how to copy a quote into an order and the BPM code
> will be different
>
> Here are my examples:
>
> From the quote entry action menu create sales order:
> Method :Quote.CreateOrder
> BPM Code:
> FOR EACH ttQuoteDtl No-Lock,
> EACH ttQuoteHed WHERE ttQuoteHed.QuoteNum = ttQuoteDtl.QuoteNum,
> EACH OrderDtl WHERE OrderDtl.QuoteNum = ttQuoteDtl.QuoteNum AND
> OrderDtl.QuoteLine = ttQuoteDtl.QuoteLine,
> EACH OrderHed WHERE OrderHed.OrderNum = OrderDtl.OrderNum :
>
> Assign Orderhed.Character01 = "Not Approved".
> Assign OrderHed.Character02 = ttQuoteDtl.ProjectID.
> Assign OrderHed.CheckBox02 = ttQuoteHed.CheckBox02.
> Assign OrderHed.ShortChar01 = "D".
> Assign OrderHed.CheckBox10 = ttQuoteHed.CheckBox10.
> Assign OrderHed.Number05 = 75.
> Assign OrderDtl.Character01 = "Not Approved".
> Assign OrderDtl.ShortChar01 = ttQuoteDtl.ShortChar01.
> Assign OrderDtl.Number03 = ttQuoteDtl.Number03.
> Assign OrderDtl.Date03 = Today.
> Assign OrderDtl.Number02 = Time.
> Assign OrderDtl.RepRate1 = ttQuoteDtl.Number10.
>
> END.
>
>
> From the Order Entry action menu Get Opportunity/quote:
> Method : SalesOrder.CreateOrderFromQuote
> BPM Code :
>
> FOR EACH ttOrderDtl No-Lock,
> Each OrderHed WHERE OrderHed.Company = CUR-COMP AND
> OrderHed.OrderNum = ttOrderDtl.OrderNum,
> Each OrderDtl WHERE OrderDtl.Company = CUR-COMP AND
> OrderDtl.OrderNum = ttOrderDtl.OrderNum AND OrderDtl.OrderLine =
> ttOrderDtl.OrderLine,
> EACH QuoteDtl WHERE QuoteDtl.Company = CUR-COMP AND
> QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum AND QuoteDtl.QuoteLine =
> ttOrderDtl.QuoteLine,
> EACH QuoteHed WHERE QuoteHed.Company = CUR-COMP AND QuoteHed.QuoteNum
> = QuoteDtl.QuoteNum:
>
> Assign Orderhed.Character01 = "Not Approved".
> Assign OrderHed.Character02 = QuoteDtl.ProjectID.
> Assign OrderHed.CheckBox02 = Quotehed.CheckBox02.
> Assign OrderHed.ShortChar01 = "D".
> Assign OrderHed.CheckBox10 = Quotehed.CheckBox10.
> Assign OrderHed.Number05 = 75.
> Assign Orderdtl.Character01 = "Not Approved".
> Assign OrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
> Assign OrderDtl.Number03 = QuoteDtl.Number03.
> Assign OrderDtl.Date03 = Today.
> Assign OrderDtl.Number02 = Time.
> Assign OrderDtl.RepRate1 = QuoteDtl.Number10.
>
> END.
>
>
> From the Order Entry New > Line from Quote
>
> I did not find the method to hook in so it doesnt work.
>
>
> ephraim
>
>
>
> On Tue, Jan 24, 2012 at 10:14 AM, Michael Ward <michael.ward@...>wrote:
>
> > **
> >
> >
> > I need to copy:
> >
> > QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> > QuoteHed.Reference to OrderHed.ShortChar10,
> > QuoteHed.QuoteComment to OrderHed.OrderComment.
> >
> > I will then need to copy:
> >
> > OrderDtl.ShortChar06 to Jobhead.shortchar06
> > OrderHed.ShortChar10 to jobhead.shortchar10
> >
> > Can anyone help me in achieving this or point me in the right direction. I
> > am new to 4GL Code and as yet have not been on the course.
> >
> > Any help gratefully received, thanks in advance.
> >
> > M Ward
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
I'm not sure where you mean when you say add the header code. I am adding the method directive to Quote.CreateOrder. Is this the incorrect place for this code?

Thank you

M Ward

--- In vantage@yahoogroups.com, "Kirstin Brandt" <kirstin.brandt@...> wrote:
>
> I have similar code for shorchar01. Should be easy enough to add the header code.
>
> /* Copy ShortChar01 from QuoteDtl to OrderDtl */
>
> for each QuoteDtl where (QuoteDtl.Company = ttOrderDtl.Company and QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum and QuoteDtl.QuoteLine = ttOrderDtl.QuoteLine) no-lock.
> if available QuoteDtl then do:
>
> ttOrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
>
> end.
> end.
>
>
> --- In vantage@yahoogroups.com, "Michael Ward" <michael.ward@> wrote:
> >
> > I need to copy:
> >
> > QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> > QuoteHed.Reference to OrderHed.ShortChar10,
> > QuoteHed.QuoteComment to OrderHed.OrderComment.
> >
> > I will then need to copy:
> >
> > OrderDtl.ShortChar06 to Jobhead.shortchar06
> > OrderHed.ShortChar10 to jobhead.shortchar10
> >
> > Can anyone help me in achieving this or point me in the right direction. I am new to 4GL Code and as yet have not been on the course.
> >
> > Any help gratefully received, thanks in advance.
> >
> > M Ward
> >
>
Michael,



I copy data from Quote to Order. Here is how



BPM Post Processing - Quote.CreateOrder Method



No Conditions



Action:

1. Click On Action

2. Click on Advanced Button

3. Enter Code under "/*Add source code that should be executed after
the designed actions here*/"



for each OrderHed where OrderHed.OrderNum = orderNum,



each OrderDtl where OrderDtl.OrderNum = orderNum,



each QuoteDtl



where (QuoteDtl.Company = OrderDtl.Company and



QuoteDtl.QuoteNum = OrderDtl.QuoteNum and



QuoteDtl.QuoteLine = OrderDtl.QuoteLine)no-lock,



each QuoteHed where (QuoteHed.Company = QuoteDtl.Company and



QuoteHed.QuoteNum = QuoteDtl.QuoteNum) no-lock.



if available OrderDtl then do:



Run lib\UpdateTableBuffer.p(input BUFFER OrderDtl:HANDLE,'Character02',
QuoteDtl.Character01).

Run lib\UpdateTableBuffer.p(input BUFFER OrderDtl:HANDLE,'Number01',
QuoteDtl.Number01).

Run lib\UpdateTableBuffer.p(input BUFFER OrderDtl:HANDLE,'Number02',
QuoteDtl.Number02).



end.



End.





4. Click OK

5. Click OK

6. Check Enabled

7. Save



Scott



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Michael Ward
Sent: Wednesday, January 25, 2012 1:55 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Copying UD Fields ----- BPM Help Please!!!





I'm not sure where you mean when you say add the header code. I am adding
the method directive to Quote.CreateOrder. Is this the incorrect place for
this code?

Thank you

M Ward

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> , "Kirstin
Brandt" <kirstin.brandt@...> wrote:
>
> I have similar code for shorchar01. Should be easy enough to add the
header code.
>
> /* Copy ShortChar01 from QuoteDtl to OrderDtl */
>
> for each QuoteDtl where (QuoteDtl.Company = ttOrderDtl.Company and
QuoteDtl.QuoteNum = ttOrderDtl.QuoteNum and QuoteDtl.QuoteLine =
ttOrderDtl.QuoteLine) no-lock.
> if available QuoteDtl then do:
>
> ttOrderDtl.ShortChar01 = QuoteDtl.ShortChar01.
>
> end.
> end.
>
>
> --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Michael Ward" <michael.ward@> wrote:
> >
> > I need to copy:
> >
> > QuoteDtl.ShortChar06 to OrderDtl.ShortChar06,
> > QuoteHed.Reference to OrderHed.ShortChar10,
> > QuoteHed.QuoteComment to OrderHed.OrderComment.
> >
> > I will then need to copy:
> >
> > OrderDtl.ShortChar06 to Jobhead.shortchar06
> > OrderHed.ShortChar10 to jobhead.shortchar10
> >
> > Can anyone help me in achieving this or point me in the right direction.
I am new to 4GL Code and as yet have not been on the course.
> >
> > Any help gratefully received, thanks in advance.
> >
> > M Ward
> >
>





[Non-text portions of this message have been removed]