project QadFinancials > class BCDocumentStatus > method CalcAllSelectCDocumentStatus

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputintegerCompany id
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectCDocumentStatus


program code (program1/bcdocumentstatus.p)

assign vcDocumentTypeCreditors = {&DOCUMENTTYPECREDITORS}
       vcDocumentStatuses      = {&DOCUMENTSTATUSCREDITORS}.

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 {&tcDocumentStatusDocumentTypeCalc} = "":U.

    do viIndex = num-entries(vcDocumentTypeCreditors, chr(2)) to 2 by -2 :
        if entry(viIndex, vcDocumentTypeCreditors, chr(2)) = {&tcCDocumentStatusDocType}
        then do:
            assign {&tcDocumentStatusDocumentTypeCalc} = entry(viIndex - 1, vcDocumentTypeCreditors, chr(2)).
            leave.
        end.
    end.

    assign {&tcDocumentStatusStatusCalc} = "":U.

    do viIndex = num-entries(vcDocumentStatuses, chr(2)) to 2 by -2:
        if entry(viIndex, vcDocumentStatuses, chr(2)) = {&tcCDocumentStatusStatus}
        then do:
            assign {&tcDocumentStatusStatusCalc} = entry(viIndex - 1, vcDocumentStatuses, chr(2)).
            leave.
        end.
    end.

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