14:19:41.654 - 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:99 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: SET PROCEDURE TO &lcFxp ADDITIVE Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:70 - construtor.criar - construtor.prg Linha:99 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.657 - EXCEÇÃO NÃO TRATADA! Erro: 9 - Mensagem: Data type mismatch. - Linha: 39 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:39 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.660 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 40 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:40 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.662 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 42 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:42 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.665 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 43 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:43 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.667 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 44 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:44 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.669 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 45 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:45 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.672 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 46 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:46 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.674 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 47 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:47 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.677 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 48 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:48 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.679 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 49 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:49 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.682 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 50 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:50 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.684 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 51 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:51 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.690 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 52 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:52 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.693 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 53 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:53 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.695 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 54 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:54 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.697 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 55 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:55 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.699 - EXCEÇÃO NÃO TRATADA! Erro: 1939 - Mensagem: WITH/ENDWITH mismatch. - Linha: 56 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:56 - reservalotedb_unit.definirpropriedadesteste - reservalotedb_unit.prg Linha:100 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.701 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 101 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:101 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.703 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 102 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:102 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.709 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 103 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:103 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.715 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 105 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:105 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.721 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: TOOBJETOESPERADO is not an object. - Linha: 106 Executando TestUnit: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:106 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 14:19:41.732 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro não informado - Classe: Reservalotedb Classe: Reservalotedb LINHA:848 - RESERVALOTEDB._RETORNARERRO - CUSTOMMU.PRG LINHA:516 - RESERVALOTEDB.BUSCAR - PERSISTENCIABASE.PRG LINHA:109 - RESERVALOTEDB_UNIT.TESTUNIT2 - RESERVALOTEDB_UNIT.PRG LINHA:236 - RESERVALOTEDB_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:516 - reservalotedb.buscar - persistenciabase.prg Linha:109 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_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: RESERVALOTEDB_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:537 - reservalotedb.buscar - persistenciabase.prg Linha:109 - reservalotedb_unit.testunit2 - reservalotedb_unit.prg Linha:236 - reservalotedb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()