project QadFinancials > class PEDI > method GetExceptionMessageFromSINumber
function returns character
Description
Converts the "QAD-<nbr>" and "OE-<nbr>" string into a more meaningful message that can be stored in the tFcMessages table.
With this function, a specific service might add or overrride default messages as a translation of the "QAD-<nbr>". Best is to put this code before the <ANCESTOR> tag.
Parameters
icQadNbr | input | character | |
icQadDesc | input | character | |
icQadContext | input | character | |
icQadData | input | character | |
icQadField | input | character | |
icQadIndex | input | character | |
icQadSev | input | character | |
Internal usage
unused
program code (program/pedi.p)
assign
vcMessage = '':U.
if icQadSev <> ? and icQadSev <> ''then
assign
vcMessage = vcMessage + ' QADsev:':U + icqadsev.
if icQadNbr <> ? and icQADnbr <> '' then
assign
vcMessage = vcMessage + ' QADNbr:':U + icQadNbr.
if icQadDesc <> ? and icQADDesc <> '' then
assign
vcMessage = vcMessage + ' QADDesc:':U + icQadDesc.
if icQadData <> ? and icQADData <> '' then
assign
vcMessage = vcMessage + ' QADData:':U + icQadData.
if icQadContext <> ? and icQADContext <> '' then
assign
vcMessage = vcMessage + ' QADContext:':U + icQadContext.
if icQadField <> ? and icQADField <> '' then
assign
vcMessage = vcMessage + ' QADField:':U + icQadField.
if icQadIndex <> ? and icQADIndex <> '' then
assign
vcMessage = vcMessage + ' QADIndex:':U + icQadIndex.
if icQadNbr = '4731':U then /*EDI created file succesfully */
assign
vcMessage = "EDI: ":U + icQadDesc.
return vcMessage.
<ANCESTOR-CODE>