Message

Credit note type code MUST be set according to the profile.

Context
cbc:CreditNoteTypeCode
Test
$profile != '01' or (some $code in tokenize('381 396 81 83 532', '\s') satisfies normalize-space(text()) = $code)
Usage
/ ubl:CreditNote / cbc:CreditNoteTypeCode