Parameters
| icTaxTypeCode | input | character | |
| olIsTaxTypeWHT | output | logical | |
| olIsDomainWithWHT | output | logical | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bjournalentry.p)
/* Check tax type is WHT */
if icTaxTypeCode <> ? and icTaxTypeCode <> "":U then
do:
<Q-37 run MfgTaxTypeByTaxTypeV01 (all) (Read) (NoCache)
(input icTaxTypeCode, (TaxTypeCode)
input ?, (TaxTypeIsWHT)
output dataset tqMfgTaxTypeByTaxTypeV01) in BMfgTaxType>
find first tqMfgTaxTypeByTaxTypeV01 no-error.
if available tqMfgTaxTypeByTaxTypeV01 and
tqMfgTaxTypeByTaxTypeV01.tltxty_wt_type = yes
then assign olIsTaxTypeWHT = true.
end.
/* Check if domain with WHT */
<M-52 run CheckIsDomainWithWHT
(input viCompanyId (iiCompanyID),
output olIsDomainWithWHT (olIsDomainWithWHT),
output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>