17:10:48.881 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Não é possível incrementar numeração da tabela SEMENTE dentro de uma transação - AgNumeracao.ObterNovoNumeroSemente Classe: Agnumeracao LINHA:848 - AGNUMERACAO._RETORNARERRO - CUSTOMMU.PRG LINHA:560 - AGNUMERACAO.OBTERNOVONUMEROSEMENTE - AGNUMERACAO.PRG LINHA:709 - AGNUMERACAO.OBTERNUMERODAV - AGNUMERACAO.PRG LINHA:92 - AGNUMERACAO_UNIT.TESTUNIT03 - AGNUMERACAO_UNIT.PRG LINHA:236 - AGNUMERACAO_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:560 - agnumeracao.obternovonumerosemente - agnumeracao.prg Linha:709 - agnumeracao.obternumerodav - agnumeracao.prg Linha:92 - agnumeracao_unit.testunit03 - agnumeracao_unit.prg Linha:236 - agnumeracao_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro( 'Não é possível incrementar numeração da tabela SEMENTE dentro de uma transação - AgNumeracao.ObterNovoNumeroSemente' ) lnNovaSemente = THIS.ObterNovoNumeroSemente( 'NUMDAV', tnOidFilial, lnLimite ) lnPrimeiroValor = VAL(THIS.oObjetoTeste.ObterNumeroDav( 2258657 )) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: AGNUMERACAO_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:721 - agnumeracao.obternumerodav - agnumeracao.prg Linha:92 - agnumeracao_unit.testunit03 - agnumeracao_unit.prg Linha:236 - agnumeracao_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:10:48.889 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Não é possível incrementar numeração da tabela SEMENTE dentro de uma transação - AgNumeracao.ObterNovoNumeroSemente Classe: Agnumeracao LINHA:848 - AGNUMERACAO._RETORNARERRO - CUSTOMMU.PRG LINHA:560 - AGNUMERACAO.OBTERNOVONUMEROSEMENTE - AGNUMERACAO.PRG LINHA:709 - AGNUMERACAO.OBTERNUMERODAV - AGNUMERACAO.PRG LINHA:92 - AGNUMERACAO_UNIT.TESTUNIT03 - AGNUMERACAO_UNIT.PRG LINHA:236 - AGNUMERACAO_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Classe: Agnumeracao LINHA:848 - AGNUMERACAO._RETORNARERRO - CUSTOMMU.PRG LINHA:560 - AGNUMERACAO.OBTERNOVONUMEROSEMENTE - AGNUMERACAO.PRG LINHA:709 - AGNUMERACAO.OBTERNUMERODAV - AGNUMERACAO.PRG LINHA:93 - AGNUMERACAO_UNIT.TESTUNIT03 - AGNUMERACAO_UNIT.PRG LINHA:236 - AGNUMERACAO_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:560 - agnumeracao.obternovonumerosemente - agnumeracao.prg Linha:709 - agnumeracao.obternumerodav - agnumeracao.prg Linha:93 - agnumeracao_unit.testunit03 - agnumeracao_unit.prg Linha:236 - agnumeracao_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro( 'Não é possível incrementar numeração da tabela SEMENTE dentro de uma transação - AgNumeracao.ObterNovoNumeroSemente' ) lnNovaSemente = THIS.ObterNovoNumeroSemente( 'NUMDAV', tnOidFilial, lnLimite ) lnSegundoValor = VAL(THIS.oObjetoTeste.ObterNumeroDav( 2258657 )) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: AGNUMERACAO_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:721 - agnumeracao.obternumerodav - agnumeracao.prg Linha:93 - agnumeracao_unit.testunit03 - agnumeracao_unit.prg Linha:236 - agnumeracao_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()