project QadFinancials > class BPosting > method GetErrorExplanation

Parameters

Internal usage

program code (program1/bposting.p)

find first tPosting where tPosting.tc_Rowid = icPostingRowid no-lock no-error.

assign vcMessage = '':U.

if available tPosting
then do:
    assign vcMessage = trim(#T-55'This error relates to the following posting:':255(99973123)T-55#)   + chr(10) + 
                               trim(substitute(#T-41'Entity: &1':255(117782143)T-41#,string(vcCompanyCode))) + chr(10) +
                               trim(substitute(#T-90'Posting Year/Period: &1, Date: &2':200(633022577)T-90#, string(tPosting.PostingYear) + '/' + string(tPosting.PostingPeriod), string(tPosting.PostingDate)))  + chr(10) + 
                               trim(substitute(#T-71'Daybook: &1':255(64047)T-71#,string(tPosting.tcJournalCode))) + chr(10) + 
                               trim(substitute(#T-46'Description: &1':40(37597960)T-46#,string(tPosting.PostingText))).                                     
                                    
    if (icPostingLineRowId <> '' and icPostingLineRowId <> ? )    
    then do:
        find first tPostingLine where tPostingLine.tc_Rowid = icPostingLineRowid no-lock no-error.
        if available tPostingLine
        then do:
            assign vcMessage = vcMessage + chr(10) + 
                                   trim(substitute(#T-1'Posting Line Details: GL Account - &1, TC Debit - &2, TC Credit - &3':255(241111623)T-1#,string(tPostingLine.tcGLCode), string(tPostingLine.PostingLineDebitTC), string(tPostingLine.PostingLineCreditTC)))  + chr(10) + 
                                   trim(substitute(#T-43'Posting Line Description: &1':255(462898646)T-43#,string(tPostingLine.PostingLineText))).
        end.
    end.
end.

return vcMessage.