project QadFinancials > class BPosting > method CalcAllPostingLineForTransView

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputintegerCompany id
icGLDescinputcharacter
ilBSAccountinputlogical
icBatchNumberinputcharacter
icCostCenterCodeinputcharacter
icCostCenterDescinputcharacter
icCurrCodeinputcharacter
icJournalCodeinputcharacter
icJournalTypeCodeinputcharacter
icJournalDescinputcharacter
icGLCodeinputcharacter
icGLCategoryinputcharacter
icGLTypeCodeinputcharacter
icInterEntityCodeinputcharacter
icPostingDescinputcharacter
icProjectCodeinputcharacter
icProjectDescinputcharacter
icDivisionCodeinputcharacter
icDivisionDescinputcharacter
itPostingSystemDateinputdate
icVoucherinputcharacter
idDebitTCinputdecimal
idCreditTCinputdecimal
itPostingDateinputdate
iiPostingYearPeriodFrominputinteger
iiPostingYearPeriodToinputinteger
icGLCodeDiffinputcharacter
icGLCodeFrominputcharacter
icGLCodeToinputcharacter
icDivisionCodeFrominputcharacter
icDivisionCodeToinputcharacter
icDivisionCodeDiffinputcharacter
icProjectCodeFrominputcharacter
icProjectCodeToinputcharacter
icProjectCodeDiffinputcharacter
icCostCenterCodeFrominputcharacter
icCostCenterCodeToinputcharacter
icCostCenterCodeDiffinputcharacter
itPostingDateFrominputdate
itPostingDateToinputdate
icLayerCodeinputcharacter
icLayerTypeCodeinputcharacter
iiPostingYearPeriodValinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query PostingLineForTransView


program code (program1/bposting.p)

    /* ===================================================================================== */
    /* JournalTypeCodeTr: obsolete calc-field as this field is no longer used by the callers */
    /* but we cannot delete it either as that would break the backwards-compatibility        */
    /* Immediately return from this calc-method as the callers have to fill it when needed   */
    /* ===================================================================================== */
    If true then Return. /* The 'If true then ' is needed to avoid a compile-warning. */
    


create query vhQuery in widget-pool "non-persistent".
vhQuery:forward-only = yes.
vhQuery:set-buffers(ih_Buffer).
vhQuery:query-prepare("for each ":U + ih_Buffer:table).
vhQuery:query-open().
vhQuery:get-first().
do while not vhQuery:query-off-end:
    assign {&tcJournalTypeCodeTr} = "Obsoleted":U.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.