10:39:08.012 - EXCEÇÃO NÃO TRATADA!
Erro: 5000
Classe: Excecaonegocio
Mesagem: Parâmetro inválido [2]  - Esperado parâmetro tipo "O" passado "L" - Classe: Controletinta
Classe: Controletinta
LINHA:848 - CONTROLETINTA._RETORNARERRO - CUSTOMMU.PRG
LINHA:1182 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG
LINHA:388 - CONTROLETINTA._VALIDARPARAMETRO - CTRCLASSBASE.PRG
LINHA:1050 - CONTROLETINTA._RETORNARERROOBJ - CUSTOMMU.PRG
LINHA:395 - CONTROLETINTA.INFORMARPRECOTINTA - CONTROLETINTA.PRG
LINHA:270 - CONTROLETINTA_UNIT.TESTUNIT06 - CONTROLETINTA_UNIT.PRG
LINHA:236 - CONTROLETINTA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG
LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG
LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG

COMANDO: 
LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO())
Chamadas:Linha:1182 - custommu._validarparametro - custommu.prg
Linha:388 - controletinta._validarparametro - ctrclassbase.prg
Linha:1050 - controletinta._retornarerroobj - custommu.prg
Linha:395 - controletinta.informarprecotinta - controletinta.prg
Linha:270 - controletinta_unit.testunit06 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarErro( 'Parâmetro inválido [2] - Esperado parâmetro tipo "'+lcTipo+'" passado "'+TYPE('tvParametro')+'" - Classe: '+THIS.CLASS )
llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar )
THIS._ValidarParametro('O', toObjetoErro)
THIS._RetornarErroObj(loItem)
IF THIS.oObjetoTeste.InformarPrecoTinta(1, 135 )
Executando TestUnit: CONTROLETINTA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:402 - controletinta.informarprecotinta - controletinta.prg
Linha:270 - controletinta_unit.testunit06 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()