[pft]
(
select v3010
case 'LENDO':'',
case 'TESTANDO':'',
case 'ARQISONOTLIL5':'Registro ',v1000[1],' campo 5 incompatível: ',v5[1],'
'
case 'ARQISONOTLIL6':'Registro ',v1000[1],' campo 6 incompatível: ',v6[1],'
'
case 'ARQISONOTTIT':'Registro ',v1000[1],' não contém o campo título [30].
',
case 'IDDUP':'Registro ',v1000^m,' identificador "',v1000^i,'" duplicado.
',
case 'ARQISOOK':'Arquivo ISO OK para Importação.
',
elsecase v3010,/
endsel,
)
[/pft]