08:31:20.316 - 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:849 - AGNUMERACAO._RETORNARERRO - CUSTOMMU.PRG LINHA:560 - AGNUMERACAO.OBTERNOVONUMEROSEMENTE - AGNUMERACAO.PRG LINHA:709 - AGNUMERACAO.OBTERNUMERODAV - AGNUMERACAO.PRG LINHA:1731 - ORCAMENTOBASE._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOBASE.PRG LINHA:4064 - ORCAMENTOVENDA._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOVENDA.PRG LINHA:1578 - ORCAMENTOVENDA._GRAVARPEDIDO - ORCAMENTOBASE.PRG LINHA:1442 - ORCAMENTOBASE._GRAVARTRANSACAO - ORCAMENTOBASE.PRG LINHA:1251 - ORCAMENTOSAIDASBASE._GRAVARTRANSACAO - ORCAMENTOSAIDASBASE.PRG LINHA:3574 - ORCAMENTOVENDA._GRAVARTRANSACAO - ORCAMENTOVENDA.PRG LINHA:1326 - ORCAMENTOVENDA.GRAVAR - ORCAMENTOBASE.PRG LINHA:6011 - ORCAMENTOVENDA_UNIT.TESTUNIT097 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - 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:1731 - orcamentobase._atualizarobjetopedidobd - orcamentobase.prg Linha:4064 - orcamentovenda._atualizarobjetopedidobd - orcamentovenda.prg Linha:1578 - orcamentovenda._gravarpedido - orcamentobase.prg Linha:1442 - orcamentobase._gravartransacao - orcamentobase.prg Linha:1251 - orcamentosaidasbase._gravartransacao - orcamentosaidasbase.prg Linha:3574 - orcamentovenda._gravartransacao - orcamentovenda.prg Linha:1326 - orcamentovenda.gravar - orcamentobase.prg Linha:6011 - orcamentovenda_unit.testunit097 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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 ) THIS._oPedidoVendaDB.cNumDav = oAgNumeracao.ObterNumeroDav( THIS.oFilial.ObterOID() ) DODEFAULT() THIS._AtualizarObjetoPedidoBD() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1352 - orcamentovenda.gravar - orcamentobase.prg Linha:6011 - orcamentovenda_unit.testunit097 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:31:20.316 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível incrementar numeração da tabela SEMENTE dentro de uma transação - AgNumeracao.ObterNovoNumeroSemente Classe: Agnumeracao LINHA:849 - AGNUMERACAO._RETORNARERRO - CUSTOMMU.PRG LINHA:560 - AGNUMERACAO.OBTERNOVONUMEROSEMENTE - AGNUMERACAO.PRG LINHA:709 - AGNUMERACAO.OBTERNUMERODAV - AGNUMERACAO.PRG LINHA:1731 - ORCAMENTOBASE._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOBASE.PRG LINHA:4064 - ORCAMENTOVENDA._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOVENDA.PRG LINHA:1578 - ORCAMENTOVENDA._GRAVARPEDIDO - ORCAMENTOBASE.PRG LINHA:1442 - ORCAMENTOBASE._GRAVARTRANSACAO - ORCAMENTOBASE.PRG LINHA:1251 - ORCAMENTOSAIDASBASE._GRAVARTRANSACAO - ORCAMENTOSAIDASBASE.PRG LINHA:3574 - ORCAMENTOVENDA._GRAVARTRANSACAO - ORCAMENTOVENDA.PRG LINHA:1326 - ORCAMENTOVENDA.GRAVAR - ORCAMENTOBASE.PRG LINHA:6011 - ORCAMENTOVENDA_UNIT.TESTUNIT097 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:1360 - orcamentovenda.gravar - orcamentobase.prg Linha:6011 - orcamentovenda_unit.testunit097 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( THIS.LogUsuario ) IF THIS.oObjetoTeste.Gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:927 - orcamentovenda._retornarmensagem - custommu.prg Linha:1360 - orcamentovenda.gravar - orcamentobase.prg Linha:6011 - orcamentovenda_unit.testunit097 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()