project QadFinancials > class BDDocument > method CalcAllSelectDDocument

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputintegerCompany id
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectDDocument


program code (program1/bddocument.p)

create query vhQuery in widget-pool "non-persistent".
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 {&tcDDocumentCreationTimeCalc} = string({&tiDDocumentCreationTime}, "HH:MM:SS":U)
       {&tcDDocumentStatusCalc}       = 
            <M-1 GetDDocumentStatusTranslation (input  {&tcDDocumentStatus} (icStatus)) in BDDocument>
       {&tcDDocumentSubTypeCalc}      = 
            <M-2 GetDDocumentSubTypeTranslation (input  {&tcDDocumentSubType} (icSubType)) in BDDocument>
       {&tcDDocumentTypeCalc}         = 
            <M-3 GetDDocumentTypeTranslation (input  {&tcDDocumentType} (icType)) in BDDocument>.

    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.