I do this in the Page On Leave code in the Page Detail tab.
Page On Leave code:
IF QUOTENUMUSE > 0 AND QUOTELINEUSE > 0 THEN DO:
Find QUOTEDtl where QUOTEDtl.Company = "LP" and QUOTEdtl.QUOTENum =
integer(QUOTENumuse) and QUOTEDtl.QUOTELine = integer(QUOTELineuse) no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER QUOTEDtl:HANDLE, 'JOBCOMMENT',
edtComment).
Run lib\UpdateTableBuffer.p(input BUFFER QUOTEDtl:HANDLE, 'QUOTECOMMENT',
edtComment).
END.
IF ORDERNUMUSE > 0 AND ORDERLINEUSE > 0 THEN DO:
Find ORDERDtl where ORDERDtl.Company = "LP" and ORDERdtl.ORDERNum =
integer(ORDERNumuse) and ORDERDtl.ORDERLine = integer(ORDERLineuse) no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER ORDERDtl:HANDLE, 'ORDERCOMMENT',
edtComment).
END.
The variables are defined as pc inputs type decimal with x,y coords and length & width all equal to zero. Then there is an additional "codetrigger" character variable (also x,y,length,width=0) that is the first variable (by tab order) on the input page with the following On Leave code:
OrderNumUse = (GetCurrentOrderNum()).
OrderLineUse = (GetCurrentOrderLine()).
QuoteNumUse = (GetCurrentQuoteNum()).
QuoteLineUse = (GetCurrentQuoteLine()).
HTH, Kirstin
Page On Leave code:
IF QUOTENUMUSE > 0 AND QUOTELINEUSE > 0 THEN DO:
Find QUOTEDtl where QUOTEDtl.Company = "LP" and QUOTEdtl.QUOTENum =
integer(QUOTENumuse) and QUOTEDtl.QUOTELine = integer(QUOTELineuse) no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER QUOTEDtl:HANDLE, 'JOBCOMMENT',
edtComment).
Run lib\UpdateTableBuffer.p(input BUFFER QUOTEDtl:HANDLE, 'QUOTECOMMENT',
edtComment).
END.
IF ORDERNUMUSE > 0 AND ORDERLINEUSE > 0 THEN DO:
Find ORDERDtl where ORDERDtl.Company = "LP" and ORDERdtl.ORDERNum =
integer(ORDERNumuse) and ORDERDtl.ORDERLine = integer(ORDERLineuse) no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER ORDERDtl:HANDLE, 'ORDERCOMMENT',
edtComment).
END.
The variables are defined as pc inputs type decimal with x,y coords and length & width all equal to zero. Then there is an additional "codetrigger" character variable (also x,y,length,width=0) that is the first variable (by tab order) on the input page with the following On Leave code:
OrderNumUse = (GetCurrentOrderNum()).
OrderLineUse = (GetCurrentOrderLine()).
QuoteNumUse = (GetCurrentQuoteNum()).
QuoteLineUse = (GetCurrentQuoteLine()).
HTH, Kirstin
--- In vantage@yahoogroups.com, "Norman Hutchins" <nhutchins@...> wrote:
>
> Does anyone know how I can set the OrderDtl.OrderComment field from the PC?
> Right now I have a Set Field rule, "JobHead.CommentText =
> String(P01_Edt_Comments)" and " Part.MfgComment = String(P01_Edt_Comments)"
> which both work. So I tried "OrderDtl.OrderComment =
> String(P01_Edt_Comments)" but the order comments are still blank.
>
>
>
> Any ideas?
>
>
>
> Norman Hutchins
>
> Network Administrator
>
> Howell Laboratories, Inc.
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>