project QadFinancials > class BJournalEntry > method GetPostingLineEnabling

Description

GetPostingLineEnabling


Parameters


tPostingLineEnablingoutputtemp-tableTable containg the Enabling-specifications for posting-line fields
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bjournalentry.p)

POSTINGBLOCK: DO:

for each tPosting where
         tPosting.tc_Status <> "D":U,
    each tPostingLine where
         tPostingLine.tc_ParentRowid = tPosting.tc_Rowid and
         tPostingLine.tc_Status     <> "D":U:
        
    if can-find (first tPostingLineEnabling where
                       tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid)
    then next.

    <Q-57 run GLForPostingLineEnabling (all) (Read) (Cache)
       (input tPosting.Company_ID, (CompanyId)
        input tPostingLine.tcGLCode, (GLCode)
        output dataset tqGLForPostingLineEnabling) in BGL >
    
    find first tqGLForPostingLineEnabling where
               tqGLForPostingLineEnabling.tcGLCode = tPostingLine.tcGLCode
               no-error.
    
    if not available tqGLForPostingLineEnabling
    then do:
        <M-95 run SetMessage
           (input  trim(#T-69'This GL account is invalid.':100(2732)T-69#) (icMessage), 
            input  '':U (icArguments), 
            input  'tPostingLine.tcGLCode':U (icFieldName), 
            input  tPostingLine.tcGLCode (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  tPostingLine.tc_Rowid (icRowid), 
            input  'qadfin-511111':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BApplicationProperty>
    
        assign oiReturnStatus = -1.
        return.
    end.

    if tqGLForPostingLineEnabling.tiCurrency_ID = ?
    then assign tqGLForPostingLineEnabling.tiCurrency_ID = 0.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcDivisionCode":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tlGLIsDivisionAccount.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcCostCentreCode":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tlGLIsCostCentreAccount.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcProjectCode":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tlGLIsProjectAccount.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcIntercoBusinessRelationCode":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tlGLIsIntercoAccount and
                                                      not tqGLForPostingLineEnabling.tlGLIsFixedInterco.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.PostingLineQTY":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tlGLIsQuantityAccount.
    
    create tPostingLineEnabling.
    assign tPostingLineEnabling.tc_Rowid            = tPostingLine.tc_Rowid
           tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcCurrencyCode":U
           tPostingLineEnabling.tlEnabled           = tqGLForPostingLineEnabling.tiCurrency_ID = 0 and
                                                      not tqGLForPostingLineEnabling.tlGLIsLocalCurrency.
end.
END.