14:19:21.639 - EXCEÇÃO NÃO TRATADA! Erro: 7000 Classe: Excecaoprograma Mesagem: File cannot be closed because outstanding references exist. Chamadas:Linha:99 - construtor.adicionarsetprocedure - construtor.prg Linha:53 - construtor.criar - construtor.prg Linha:93 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: SET PROCEDURE TO &lcFxp ADDITIVE Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:70 - construtor.criar - construtor.prg Linha:93 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.642 - EXCEÇÃO NÃO TRATADA! Erro: 9 - Mensagem: Data type mismatch. - Linha: 41 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:41 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.645 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 42 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:42 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.648 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 44 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:44 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.650 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 45 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:45 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.653 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 46 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:46 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.656 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 47 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:47 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.658 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 48 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:48 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.661 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 49 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:49 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.665 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 50 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:50 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.671 - EXCEÇÃO NÃO TRATADA! Erro: 1939 - Mensagem: WITH/ENDWITH mismatch. - Linha: 51 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:51 - lotepromocaodb_unit.definirpropriedadesteste - lotepromocaodb_unit.prg Linha:94 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.678 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 95 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:95 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.684 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 96 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:96 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.689 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 98 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:98 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.695 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 100 Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:100 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:21.710 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro não informado - Classe: Lotepromocaodb Classe: Lotepromocaodb LINHA:848 - LOTEPROMOCAODB._RETORNARERRO - CUSTOMMU.PRG LINHA:516 - LOTEPROMOCAODB.BUSCAR - PERSISTENCIABASE.PRG LINHA:103 - LOTEPROMOCAODB_UNIT.TESTUNIT2 - LOTEPROMOCAODB_UNIT.PRG LINHA:236 - LOTEPROMOCAODB_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:516 - lotepromocaodb.buscar - persistenciabase.prg Linha:103 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_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 ) llReturn = toObjetoRetornado.Buscar(THIS._nIDAux) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: LOTEPROMOCAODB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:537 - lotepromocaodb.buscar - persistenciabase.prg Linha:103 - lotepromocaodb_unit.testunit2 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()