project QadFinancials > class BBudget > method BudgetCheckInfoResolveQueryStop

Description

This submethod of method BudgetCheckInfoResolve will stop queries BudgetCompanyByBudgetID, BudgetPeriodByBudgetIDDate, BudgetVersionByBudgetIDStat, BudgetFDSByBudgetIDType, BudgetWBSByAll.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetCheckInfoResolve


program code (program8/bbudget.p)

/* ============================ */
    /* Stop queries used in loop    */
    /* ============================ */
    /* Uncached queries: */
    <Q-4 run BudgetCompanyByBudgetID (Stop) in BBudget >
    <Q-5 run BudgetPeriodByBudgetIDDate (Stop) in BBudget >
    <Q-6 run BudgetVersionByBudgetIDStat (Stop) in BBudget >
    <Q-7 run BudgetFDSByBudgetIDType  (Stop) in BBudget >
    <Q-15 run BudgetWBSByAll  (Stop) in BBudget >
    /* Cached queries that are are started conditionaly: */
    if vlResolveStartedGLBySSOthers = true
    then do :
        assign vlResolveStartedGLBySSOthers = false.
        <Q-8 run GLBySSOthers (Stop) in BGL >
    end.
    if vlResolveStartedDivBySSOthers = true
    then do :
        assign vlResolveStartedDivBySSOthers = false.
        <Q-9 run DivisionBySSOthers (Stop) in BDivision >
    end.
    if vlResolveStartedPrjBySSOthers = true
    then do :
        assign vlResolveStartedPrjBySSOthers = false.
        <Q-10 run ProjectBySSOthers (Stop) in BProject >
    end.
    if vlResolveStartedCCBySSOthers
    then do :
        assign vlResolveStartedCCBySSOthers = false.
        <Q-11 run CostCentreBySSOthers (Stop) in BCostCentre >
    end.
    if vlResolveStartedSafBySSOthers = true
    then do :
        assign vlResolveStartedSafBySSOthers = false.
        <Q-12 run SafBySSOthers (Stop) in BSaf >
    end.
    if vlResolveStartedSafConceptPrim = true
    then do :
        assign vlResolveStartedSafConceptPrim = false.
        <Q-13 run SafConceptPrim (Stop) in BSafConcept >
    end.
    if vlResolveStartedSafStructPrim = true
    then do :
        assign vlResolveStartedSafStructPrim = false.
        <Q-14 run SafStructurePrim (Stop) in BSafStructure >
    end.