project QadFinancials > class BJournalEntry > method CalculateDetail

Parameters

Internal usage

program code (program6/bjournalentry.p)

assign vlStartGLForPostingLineEnabling = false.

/* ============================ */
/* Go through all posting-lines */
/* ============================ */
POSTINGBLOCK: DO:
for each t_sPosting,
    each t_sPostingLine where
         t_sPostingLine.tc_ParentRowid = t_sPosting.tc_Rowid:
    
    if not vlStartGLForPostingLineEnabling
    then do:
        <Q-1 run GLForPostingLineEnabling  (Start) in BGL >
        assign vlStartGLForPostingLineEnabling = true.
    end.

    <M-2 run PostingLineGLEnabling
       (input  t_sPostingLine.Company_ID (iiCompanyId), 
        input  t_sPostingLine.tcGLCode (icGLCode), 
        input  t_sPostingLine.tc_Rowid (icRowid), 
        output oiReturnStatus (oiReturnStatus)) in BJournalEntry>
    if oiReturnStatus <> 0
    then leave POSTINGBLOCK.
    for each tUpdatePostingLineEnabling:
        create tPostingLineEnabling.
        raw-transfer tUpdatePostingLineEnabling to tPostingLineEnabling.
    end.
end. 
END.

if vlStartGLForPostingLineEnabling
then do:
    <Q-3 run GLForPostingLineEnabling  (Stop) in BGL >
end.