17:36:01.992 - EXCEÇÃO NÃO TRATADA!
Erro: 7000
Classe: Excecaoprograma
Mesagem: Unknown member OCONTROLELOTE.
Chamadas:Linha:650 - precogrupooferta._localizarofertavalida - precogrupooferta.prg
Linha:467 - precogrupooferta._buscarpreco - precogrupooferta.prg
Linha:197 - precogrupooferta.obter - precogrupooferta.prg
Linha:1636 - precoorcamento.obterpreco - precoorcamento.prg
Linha:1038 - precoorcamento._obter - precoorcamento.prg
Linha:1005 - precoorcamento.obter - precoorcamento.prg
Linha:2515 - itempedidovenda._buscarpreco - itempedidobase.prg
Linha:2005 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:3126 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: lnQuant = THIS.oControleLote.ObterTotalReservadoIdLote(loReserva.nIdLote)
Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:2105 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:3126 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

17:36:01.180 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: É necessário informar o produto antes de definir o tipo de entrega.
Chamadas:Linha:922 - itempedidovenda._retornarmensagem - itempedidobase.prg
Linha:843 - itempedidovenda._retornarerro - custommu.prg
Linha:5211 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg
Linha:3127 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
DODEFAULT(tcLogUsuario, tcCodigoExcecao )
THIS._RetornarMensagem(tcLog, tcCodigoExcecao )
THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.')
loItemPedido.cTipoEntrega = 'C'
llTestOk = EVALUATE(lcTeste)
Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:5410 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg
Linha:3127 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

17:36:01.316 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Item de orçamento sem produto informado.
Item de orçamento sem preço de venda informado.
Chamadas:Linha:922 - itempedidovenda._retornarmensagem - itempedidobase.prg
Linha:3097 - itempedidovenda.validar - itempedidobase.prg
Linha:3167 - itempedidobase.adicionarpersistencianatransacao - itempedidobase.prg
Linha:853 - itempedidovenda.adicionarpersistencianatransacao - itempedidovenda.prg
Linha:3133 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
DODEFAULT(tcLogUsuario, tcCodigoExcecao )
THIS._RetornarMensagem( loExcecao.USERVALUE.cMensagem )
IF tlAdicionarParaExclusao OR THIS.Validar()
llRetorno = DODEFAULT(toPedidoBD, toTransacao, tlAdicionarParaExclusao )
IF loItemPedido.AdicionarPersistenciaNaTransacao( loPedido, loTransacao, .F. ) && Inlcuir
Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:880 - itempedidovenda.adicionarpersistencianatransacao - itempedidovenda.prg
Linha:3133 - itempedidobase_unit.testunit084 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()