project QadFinancials > class BClosingPostingsReport > method CompanyValues


Parameters


iiEntryNumberinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BClosingPostingsReport.CreditorControlGLBalance
method BClosingPostingsReport.DebtorControlGLBalance
method BClosingPostingsReport.GLOpenItemControl


program code (program1/bclosingpostingsreport.p)

/* Assign company ID based on code */
if vcCPCompanyCodeFilter = ? 
then do:
    assign viCPCurrentCompany_ID = viCompanyId.
    find first tqCompanyPrim
    where tqCompanyPrim.tiCompany_ID = viCompanyId no-error.
    if available tqCompanyPrim 
    then assign vcCPCurrentCompany = tqCompanyPrim.tcCompanyCode.
end.
else do:
    assign vcCPCurrentCompany = entry(iiEntryNumber,vcCPCompanyCodeFilter,",":U).
    find first tqCompanyPrim 
    where tqCompanyPrim.tcCompanyCode = vcCPCurrentCompany no-error.
    if available tqCompanyPrim
    then assign viCPCurrentCompany_ID = tqCompanyPrim.tiCompany_ID.
end.