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.