16:38:46.884 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Orçamento não pode ser alterado Chamadas:Linha:3421 - orcamentovenda.definirprevendas - orcamentovenda.prg Linha:8941 - orcamentovenda_unit.testunit152 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Orçamento não pode ser alterado' ) THIS.oObjetoTeste.DefinirPreVendas('1') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3448 - orcamentovenda.definirprevendas - orcamentovenda.prg Linha:8941 - orcamentovenda_unit.testunit152 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()