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>