// Check material number layout: dddddddd or dd.dddddd (8 digits)

Set V[point] "." 
if V[point=&V[matnr](3-3)]
 Set V[nummat] "1&V[matnr](1-2)&V[matnr](4-9)"
else
 Set V[nummat] "1&V[matnr]"
endif

if V[nummat<100000000] or not V[nummat=&V[nummat](1-9)]
  Return "Material number &V[matnr] not in format dd.dddddd or dddddddd (8 digits)"  
endif