project QadFinancials > class BBudget > method GetFRWCompanyByFRWChartID

Description

This method will return a DataSet, includes Company_ID and Company name.


Parameters


icFRWChartCodeinputcharacter
tFRWCompanyByFRWChartIDoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program5/bbudget.p)

    /* ================================================= */
    /* Reset the output temp-table                       */
    /* ================================================= */
    empty temp-table tFRWCompanyByFRWChartID.    

    if icFRWChartCode <> ? and icFRWChartCode <>"":U
    then do:
        <Q-94 run FRWChartByCode (all) (Read) (NoCache)
            (input icFRWChartCode, (FRWChartCode)
             output dataset tqFRWChartByCode) in BFRWChart>
        
        find first tqFRWChartByCode no-lock no-error.
        if available tqFRWChartByCode
        then assign viFRWChart_ID  =  tqFRWChartByCode.tiFRWChart_ID.
        else return.
  
        <Q-33 run FRWCompanyByFRWChartID (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input viFRWChart_ID, (FRWChart_ID)
            output dataset tqFRWCompanyByFRWChartID) in BFRWChart>

        if can-find (first tqFRWCompanyByFRWChartID)
        then do:
            for each tqFRWCompanyByFRWChartID:
                create tFRWCompanyByFRWChartID.
                
                buffer-copy tqFRWCompanyByFRWChartID to tFRWCompanyByFRWChartID.
            end. /* for each */
        end. /* if available tqFRWCompanyByFRWChartID */
    end. /* if iiFRWChart_ID */