Message

Invoice type code MUST be set according to the profile.

Context
cbc:InvoiceTypeCode
Test
$profile != '01' or (some $code in tokenize('71 80 82 84 102 218 219 331 380 382 383 386 388 393 395 553 575 623 780 817 870 875 876 877', '\s') satisfies normalize-space(text()) = $code)
Usage
/ ubl:Invoice / cbc:InvoiceTypeCode