project QadFinancials > class BQCrossCyPosting > method ApiProcessQCrossCyPostingLogging
Description
Submethod of ApiProcessQCrossCyPosting
Parameters
| iiQCrossCyPostingId | input | integer | QCrossCyPosting ID |
| iiExternalDebugLevel | input | integer | ExternalDebugLevel |
| icExternalDebugDirectory | input | character | ExternalDebugDirectory |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bqcrosscyposting.p)
/*
/* ============= */
/* State Logging */
/* ============= */
if iiExternalDebugLevel > 0 and
iiExternalDebugLevel < 4 and
icExternalDebugDirectory <> ? and
icExternalDebugDirectory <> "":U
then do :
if substring(icExternalDebugDirectory,length(icExternalDebugDirectory,"CHARACTER":U),-1,"CHARACTER":U) <> "/":U and
substring(icExternalDebugDirectory,length(icExternalDebugDirectory,"CHARACTER":U),-1,"CHARACTER":U) <> "~\":U
then assign icExternalDebugDirectory = icExternalDebugDirectory + "/":U.
<I-1 {bFcOpenInstance
&CLASS = "Session"}>
<M-2 run SetIntegerValue (input 'viDebugLevel':U (icName),
input iiExternalDebugLevel (iiValue),
output viFcReturnSuper (oiReturnStatus)) in Session>
<M-3 run SetCharacterValue (input 'vcDebugDirectory':U (icName),
input icExternalDebugDirectory (icValue),
output viFcReturnSuper (oiReturnStatus)) in Session>
if viFcReturnSuper = 0
then assign viDebugLevel = iiExternalDebugLevel
vcDebugDirectory = icExternalDebugDirectory.
<I-4 {bFcCloseInstance
&CLASS = "Session"}>
end. /* if iiExternalDebugLevel > 0 and */
*/