project QadFinancials > class BAPMatching > method GetOperationalMessage

Description

This method provides translatable messages for operational updates.


Parameters


icMessageNumberinputcharacter
ocMessageoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bapmatching.p)

/* =================================================================================================== */
/* Method      : GetOperationalMessage                                                                 */
/* Desc        : Get messaged used for operational updates during receiver matching. Message is        */
/*               translated to correct language                                                        */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  MessageNumber        Number of the message                                            */
/*          (O)  Message              Message in correct language                                      */
/* =================================================================================================== */

assign oiReturnStatus = -98.

assign ocMessage = '':U.

/* =================================================================================================== */
/* Provide translation for messages                                                                    */
/* =================================================================================================== */
case icMessageNumber:
    when "CB_OP_02":U then assign ocMessage =  #T-2'Internal error in the PendingVoucher.p in procedure UpdatePendingVoucher. The system cannot read pending vouher record (pvo_mstr)':255(68783)t-2#.
    when "CB_OP_03":U then assign ocMessage =  #T-20'Internal error in intrastat.p in Proocedure UpdateIntrastat:The system cannot read pending invoice record(pvo_mstr) or pending invoice detail line (pvod_det)':255(69108)t-20#.
    when "CB_OP_04":U then assign ocMessage =  #T-21'Intrastat domain data is not defined for domain $1.':255(69111)t-21#.
    when "CB_OP_05":U then assign ocMessage =  #T-22'The system cannot calculate the Intrastat reference date because of an internal error.':255(69112)t-22#.
    when "CB_OP_06":U then assign ocMessage =  #T-23'Cannot create Intrastat record because of internal error.':255(56576)T-23#.
    when "CB_OP_07":U then assign ocMessage =  #T-24'The system cannot find the supplier invoice for the Intrastat record because of an internal error.':255(69116)t-24#.
    when "CB_OP_08":U then assign ocMessage =  #T-25'The system cannot update the Intrastat record because of the internal error.':255(69118)t-25#.
    when "CB_OP_09":U then assign ocMessage =  #T-26'The Intrastat record does not exist or is locked by other processes. Try to run it again later.':255(69120)t-26#.
    when "CB_OP_10":U then assign ocMessage = #T-3'the Inventory Control definition for $1 domain is not defined.':255(68794)t-3#.
    when "CB_OP_11":U then assign ocMessage = #T-4'There is missing Pending invoice definition (pvo_mstr).':255(68796)t-4#.
    when "CB_OP_12":U then assign ocMessage = #T-15'Cost simulation detail record does not exist or is locked by other processes. Try to execute again later (Domain=$1, Site=$2, Part=$3, Cost set=$4, Cost element=$5).':255(68819)t-15#.
    when "CB_OP_13":U then assign ocMessage = #T-16'Cannot retrieve cost method for cost set $2 in domain $1.':255(68826)T-16#.
    when "CB_OP_14":U then assign ocMessage = #T-17'Cost simulation record does not exist or is locked by other processes. Try to execute again later (Domain=$1, Site=$2, Part=$3,Cost set=$4).':255(68827)t-17#.
    when "CB_OP_15":U then assign ocMessage = #T-18'The system did not update the work order because the relevant record was missing or was locked. Try again later. (Work order = $1).':255(68833)t-18#.
    when "CB_OP_16":U then assign ocMessage = #T-19'The system did not update the work order because the relevant work order operation record was missing or was locked. Try again later. (Work order operation = $1, $2).':255(68834)t-19#.
    when "CB_OP_17":U then assign ocMessage = #T-27'The system cannot create an inventory transaction is you do not specify the item ($1) or/and site ($2).':255(69181)t-27#.
    when "CB_OP_18":U then assign ocMessage = #T-28'Item $1 is not defined in domain $2.':255(69182)t-28#.
    when "CB_OP_19":U then assign ocMessage = #T-29'The inventory data for item $1 in domain $2 is not defined on site $3.':255(69184)t-29#.
    when "CB_OP_20":U then assign ocMessage = #T-10'The domain code is missing.':255(68812)t-10#.
    when "CB_OP_21":U then assign ocMessage = #T-11'There is missing Pending invoice definition (pvo_mstr).':255(68796)t-11#.
    when "CB_OP_22":U then assign ocMessage = #T-12'The pending invoice detail definition (pvod_det) is missing.':255(68811)t-12#.
    when "CB_OP_23":U then assign ocMessage = #T-13'The pending invoice detail does not exist.':255(68814)t-13#.
    when "CB_OP_24":U then assign ocMessage = #T-14'Internal error. The system was unable to create a purchase invoice history record. See the following lines for detailed information.':255(49822)t-14#.
    when "CB_OP_25":U then assign ocMessage = #T-30'There is missing definition of Purchase Receipt History record for receipt.':255(69190)T-30#.
    when "CB_OP_26":U then assign ocMessage = #T-31'The system cannot read the posting line used to post the rate variance.':255(69191)t-31#.
    when "CB_OP_27":U then assign ocMessage = #T-32'The system cannot read the posting created during receiver matching.':255(69192)t-32#.
    when "CB_OP_28":U then assign ocMessage = #T-33'The system cannot read the GL account definition.':255(69193)t-33#.
    when "CB_OP_29":U then assign ocMessage = #T-34'The system cannot read the sub-account definition.':255(69194)t-34#.
    when "CB_OP_30":U then assign ocMessage = #T-35'The system cannot read the cost center definition.':255(69196)t-35#.
    when "CB_OP_31":U then assign ocMessage = #T-36'The system cannot read the project definition.':255(69198)t-36#.
    when "CB_OP_32":U then assign ocMessage = #T-37'The system cannot read the supplier invoice definition.':255(69199)t-37#.
    when "CB_OP_33":U then assign ocMessage = #T-38'Cannot read definition of Daybook.':255(69394)T-38#.
    when "CB_OP_50":U then assign ocMessage = #T-5'You cannot update the matched supplier invoice.':255(68815)t-5#.
end case.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.