project QadFinancials > class BReason > method CalcAllSelectReason

query calculated fields procedure

Description

This method is used to fill the calculated fields in the SelectReason query.
Based on the values in the database, it will retrieve the translated values for Allocation Status.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectReason


program code (program1/breason.p)

assign vcAllocStatusNoAlloc      = {&ALLOCSTATUS-NOALLOC}
       vcAllocStatusTransAlloc   = {&ALLOCSTATUS-TRANSALLOC}
       vcAllocStatusAlloc        = {&ALLOCSTATUS-ALLOC}
       vcAllocStatusNoAllocTr    = {&ALLOCSTATUS-NOALLOC-TR}
       vcAllocStatusTransAllocTr = {&ALLOCSTATUS-TRANSALLOC-TR}
       vcAllocStatusAllocTr      = {&ALLOCSTATUS-ALLOC-TR}.

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 {&tcReasonAllocationStatusCalc} = 
                if {&tcReasonAllocationStatus} = "ANY":U
                then #T-1'Any':10(3487)T-1#
                else if {&tcReasonAllocationStatus} = vcAllocStatusNoAlloc
                     then vcAllocStatusNoAllocTr
                     else if {&tcReasonAllocationStatus} = vcAllocStatusTransAlloc
                          then vcAllocStatusTransAllocTr
                          else if {&tcReasonAllocationStatus} = vcAllocStatusAlloc
                               then vcAllocStatusAllocTr
                               else "?":U.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.