16:33:06.231 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4311 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:6903 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.cTurnoEntrega = 'M' llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4335 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:6903 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:33:06.262 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Não é permitido informar data de previsão de entrega por item. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4222 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:6904 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.dPrevisaoEntrega = DATE() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4251 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:6904 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:33:06.278 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Não é permitido informar data de previsão de entrega por item. Não é permitido informar data marcada da entrega por item. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4364 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:6905 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.dEntregaMarcada = DATE()+1 llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4381 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:6905 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:33:07.454 - 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:1728 - ORCAMENTOBASE._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOBASE.PRG LINHA:3951 - ORCAMENTOVENDA._ATUALIZAROBJETOPEDIDOBD - ORCAMENTOVENDA.PRG LINHA:1575 - ORCAMENTOVENDA._GRAVARPEDIDO - ORCAMENTOBASE.PRG LINHA:1439 - ORCAMENTOBASE._GRAVARTRANSACAO - ORCAMENTOBASE.PRG LINHA:1251 - ORCAMENTOSAIDASBASE._GRAVARTRANSACAO - ORCAMENTOSAIDASBASE.PRG LINHA:3461 - ORCAMENTOVENDA._GRAVARTRANSACAO - ORCAMENTOVENDA.PRG LINHA:1324 - ORCAMENTOVENDA.GRAVAR - ORCAMENTOBASE.PRG LINHA:6908 - ORCAMENTOVENDA_UNIT.TESTUNIT106 - 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:1728 - orcamentobase._atualizarobjetopedidobd - orcamentobase.prg Linha:3951 - orcamentovenda._atualizarobjetopedidobd - orcamentovenda.prg Linha:1575 - orcamentovenda._gravarpedido - orcamentobase.prg Linha:1439 - orcamentobase._gravartransacao - orcamentobase.prg Linha:1251 - orcamentosaidasbase._gravartransacao - orcamentosaidasbase.prg Linha:3461 - orcamentovenda._gravartransacao - orcamentovenda.prg Linha:1324 - orcamentovenda.gravar - orcamentobase.prg Linha:6908 - orcamentovenda_unit.testunit106 - 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:6931 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()