10:27:20.278 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Não será possível informar valor de frete pois o tipo de frete atual é "9 - Sem frete"
Chamadas:Linha:758 - frete.definirvalor - frete.prg
Linha:1245 - frete._tratarfreteautomatico - frete.prg
Linha:1288 - frete.tratarfreteautomatico - frete.prg
Linha:1360 - orcamentobase._atualizartotalpedido_notificacao - orcamentobase.prg
Linha:3299 - orcamentovenda._atualizartotalpedido_notificacao - orcamentovenda.prg
Linha:1412 - orcamentobase.executarnotificacao - orcamentobase.prg
Linha:2681 - orcamentovenda.executarnotificacao - orcamentovenda.prg
Linha:1472 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1280 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:7722 - orcamentovenda_unit.testunit114 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Não será possível informar valor de frete pois o tipo de frete atual é "9 - Sem frete"' )
THIS.DefinirValor( lnValorFretePadrao )
llRetorno = THIS._TratarFreteAutomatico( toOrcamento, @tcMensagem_RET )
IF NOT THIS.oFrete.TratarFreteAutomatico( THIS, @lcMensagemAux ) &&& fichas 380283 e 380285
DODEFAULT()
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:7806 - orcamentovenda_unit.testunit114 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()