project QadFinancials > class BJournalEntryMultiCy > method GetErrorExplanation

function returns character


Parameters


icPostingRowIdinputcharacter
icPostingLineRowIdinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BJournalEntryMultiCy.ApiCreateCrossCyPostingsApplyCCyDefaults
method BJournalEntryMultiCy.ApiCreateCrossCyPostingsApplyCCyValidations
method BJournalEntryMultiCy.ApiCreateJournalEntryPostingsApplyValidations


program code (program1/bjournalentrymulticy.p)

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

assign vcMessage = '':U.

if available tPostingMultiCy
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(tPostingMultiCy.PostingYear) + '/' + string(tPostingMultiCy.PostingPeriod), string(tPostingMultiCy.PostingDate)))  + chr(10) + 
                               trim(substitute(#T-71'Daybook: &1':255(64047)T-71#,string(tPostingMultiCy.tcJournalCode))) + chr(10) + 
                               trim(substitute(#T-46'Description: &1':40(37597960)T-46#,string(tPostingMultiCy.PostingText))).                                     
                                    
    if (icPostingLineRowId <> '' and icPostingLineRowId <> ? )    
    then do:
        find first tPostingLineMultiCy where tPostingLineMultiCy.tc_Rowid = icPostingLineRowid no-lock no-error.
        if available tPostingLineMultiCy
        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(tPostingLineMultiCy.tcGLCode), string(tPostingLineMultiCy.PostingLineDebitTC), string(tPostingLineMultiCy.PostingLineCreditTC)))  + chr(10) + 
                                   trim(substitute(#T-43'Posting Line Description: &1':255(462898646)T-43#,string(tPostingLineMultiCy.PostingLineText))).
        end.
    end.
end.

return vcMessage.