09:26:23.085 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro não informado - Classe: Pedidovendadb Classe: Pedidovendadb LINHA:848 - PEDIDOVENDADB._RETORNARERRO - CUSTOMMU.PRG LINHA:510 - PEDIDOVENDADB.BUSCAR - PERSISTENCIABASE.PRG LINHA:417 - PEDIDOVENDADB_UNIT.TESTUNIT3 - PEDIDOVENDADB_UNIT.PRG LINHA:236 - PEDIDOVENDADB_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:510 - pedidovendadb.buscar - persistenciabase.prg Linha:417 - pedidovendadb_unit.testunit3 - pedidovendadb_unit.prg Linha:236 - pedidovendadb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro( 'Parâmetro não informado - Classe: '+THIS.CLASS ) IF THIS.oObjetoTeste.Buscar(THIS._nIDAux) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: PEDIDOVENDADB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:527 - pedidovendadb.buscar - persistenciabase.prg Linha:417 - pedidovendadb_unit.testunit3 - pedidovendadb_unit.prg Linha:236 - pedidovendadb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()