16:02:42.098 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Produto/Filial não utiliza controle de lote
Chamadas:Linha:423 - controlelote.definirdadositem - controlelote.prg
Linha:215 - controlelote_unit.testunit06 - controlelote_unit.prg
Linha:236 - controlelote_unit.executarteste - testunitbase.prg
Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Produto/Filial não utiliza controle de lote' )
IF THIS.oObjetoTeste.DefinirDadosItem( lcCodPro, lcFilial, lnIdObjetoItem, lnQuantidade )
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse )
Executando TestUnit: CONTROLELOTE_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:482 - controlelote.definirdadositem - controlelote.prg
Linha:215 - controlelote_unit.testunit06 - controlelote_unit.prg
Linha:236 - controlelote_unit.executarteste - testunitbase.prg
Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()