Description
Search the Is WHT flag based on the domain code
Parameters
| icDomainCode | input | character | |
| olDomainIsWHT | output | logical | Withholding Tax Flag of Domain |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program7/bcompany.p)
/* Initial value for output parameter */
assign olDomainIsWHT = false.
/* Leave when no input parameters where passed */
if icDomainCode = ? or icDomainCode = "":U
then return.
/* Exception Handling */
assign oiReturnStatus = -98.
/* Retrieve DomainPropertyIsWHT */
<Q-41 run DomainPropertyByDomainCodeID (all) (Read) (NoCache)
(input icDomainCode, (DomainCode)
input ?, (DomainID)
output dataset tqDomainPropertyByDomainCodeID) in BDomainProperty >
find first tqDomainPropertyByDomainCodeID where
tqDomainPropertyByDomainCodeID.tcDomainCode = icDomainCode
no-error.
if available tqDomainPropertyByDomainCodeID
then assign olDomainIsWHT = tqDomainPropertyByDomainCodeID.tlDomainPropertyIsWHT.
/* Exception Handling */
if oiReturnStatus = -98
then assign oiReturnStatus = 0.