Is there time to favor using a rule tied to the "Alt:" level instead of performing the action in the Page's "On Leave"? (and vice-versa)
The following seems to do the same thing:
Alt: Rules
'Set Field QuoteDtl.PartNum = P01_strPartNumber'
'Set Field QuoteDtl.LineDesc = P01_edtDescription'
Page: On Leave
def var QuoteNum as integer.
def var QuoteLine as integer.
QuoteNum = GetCurrentQuoteNum().
QuoteLine = GetCurrentQuoteLine().
If QuoteNum > 0 and QuoteLine > 0 then do:
Find QuoteDtl where QuoteDtl.Company = "MC" and QuoteDtl.QuoteNum = QuoteNum and QuoteDtl.QuoteLine = QuoteLine no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER QuoteDtl:HANDLE, 'PartNum', P01_strPartNumber).
Run lib\UpdateTableBuffer.p(input BUFFER QuoteDtl:HANDLE, 'LineDesc', P01_edtDescription).
end.
The following seems to do the same thing:
Alt: Rules
'Set Field QuoteDtl.PartNum = P01_strPartNumber'
'Set Field QuoteDtl.LineDesc = P01_edtDescription'
Page: On Leave
def var QuoteNum as integer.
def var QuoteLine as integer.
QuoteNum = GetCurrentQuoteNum().
QuoteLine = GetCurrentQuoteLine().
If QuoteNum > 0 and QuoteLine > 0 then do:
Find QuoteDtl where QuoteDtl.Company = "MC" and QuoteDtl.QuoteNum = QuoteNum and QuoteDtl.QuoteLine = QuoteLine no-lock no-error.
Run lib\UpdateTableBuffer.p(input BUFFER QuoteDtl:HANDLE, 'PartNum', P01_strPartNumber).
Run lib\UpdateTableBuffer.p(input BUFFER QuoteDtl:HANDLE, 'LineDesc', P01_edtDescription).
end.