method CheckForCorrectionPeriod

Parameters

icCompanyCode	input	character
iiYearPeriod	input	integer
olCorrPrd	output	logical
oiReturnStatus	output	integer	Return 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.