14:19:21.507 - 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:68 - lotepromocaodb_unit.testunit1 - 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:68 - lotepromocaodb_unit.testunit1 - 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.510 - 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:69 - lotepromocaodb_unit.testunit1 - 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.513 - 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:69 - lotepromocaodb_unit.testunit1 - 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.515 - 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:69 - lotepromocaodb_unit.testunit1 - 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.518 - 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:69 - lotepromocaodb_unit.testunit1 - 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.521 - 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:69 - lotepromocaodb_unit.testunit1 - 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.523 - 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:69 - lotepromocaodb_unit.testunit1 - 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.526 - 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:69 - lotepromocaodb_unit.testunit1 - 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.529 - 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:69 - lotepromocaodb_unit.testunit1 - 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.531 - 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:69 - lotepromocaodb_unit.testunit1 - 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.534 - 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:69 - lotepromocaodb_unit.testunit1 - lotepromocaodb_unit.prg Linha:236 - lotepromocaodb_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()