project QadFinancials > class BJournalEntry > method CheckForCorrectionPeriod


Parameters


icCompanyCodeinputcharacter
iiYearPeriodinputinteger
olCorrPrdoutputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bjournalentry.p)

assign vhFcComponent = ?.

<Q-50 run CompanyByCompanyIdCode (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input icCompanyCode, (CompanyCode)
    output dataset tqCompanyByCompanyIdCode) in BCompany >
    
for first tqCompanyByCompanyIdCode:
end.
if available tqCompanyByCompanyIdCode
then do:
    if viBPeriodPostingID = ? or viBPeriodPostingID = 0
    then do:
        <I-95 {bFcStartAndOpenInstance
             &CLASS                = "BPeriod"}>
    end.
    else do:    
        <I-47 {bFcOpenInstance
             &CLASS           = "BPeriod"}>
    end.
             
    <M-92 run CheckForCorrectionPeriod
       (input  tqCompanyByCompanyIdCode.tiCompany_ID (iiCompanyID), 
        input  iiYearPeriod (iiYearPeriod), 
        output olCorrPrd (olIsCorrPrd), 
        output oiReturnStatus (oiReturnStatus)) in BPeriod>

    <I-28 {bFcCloseInstance
         &CLASS           = "BPeriod"}>
end.