16:25:52.940 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Adicionar Reserva Gravada - Quantidade zerada
Chamadas:Linha:292 - reservaloteitemlista.definirdadositem - reservaloteitemlista.prg
Linha:468 - controlelote.definirdadositem - controlelote.prg
Linha:215 - controlelote_unit.testunit06 - controlelote_unit.prg
Linha:236 - controlelote_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Adicionar Reserva Gravada - Quantidade zerada' )
llOk = llOk AND loReservaLista.DefinirDadosItem( tnIdObjetoItem, tcCodPro, tcFilial, lnVendaMinima, tnQuantidade, tcCodigoProdutoMostrar, tlReservarRestanteParaEncomenda, lnQuantidadeRepetidosSomado, tlAjustandoLoteProdutosRepetidos )
IF THIS.oObjetoTeste.DefinirDadosItem( lcCodPro, lcFilial, lnIdObjetoItem, lnQuantidade )
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: CONTROLELOTE_UNIT.PRG
Linha:416 - 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:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()