function returns character
Parameters
icPostingRowId | input | character | |
icPostingLineRowId | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.