10:22:58.243 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Acesso não autorizado. Vendedor não pertence a filial do usuário. Chamadas:Linha:186 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:168 - filialorcamento.definirvalorporcodigo - filial.prg Linha:87 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:253 - itempedidobase_unit.testunit003 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Acesso não autorizado. Vendedor não pertence a filial do usuário.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) llRetorno = THIS.DefinirValor( lnOidFilial ) THIS.oOrcamento.oFilial.DefinirValorPorCodigo('08') Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:178 - filialorcamento.definirvalorporcodigo - filial.prg Linha:87 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:253 - itempedidobase_unit.testunit003 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:23:09.492 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Produto 16269 - ACAB DECA HYDRA MAX VALV CR 4900 C MAX CR com quantidade disponível insuficiente. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:2948 - itempedidovenda.validar - itempedidobase.prg Linha:3018 - itempedidobase.adicionarpersistencianatransacao - itempedidobase.prg Linha:783 - itempedidovenda.adicionarpersistencianatransacao - itempedidovenda.prg Linha:259 - itempedidobase_unit.testunit003 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem( loExcecao.USERVALUE.cMensagem ) IF tlAdicionarParaExclusao OR THIS.Validar() llRetorno = DODEFAULT(toPedidoBD, toTransacao, tlAdicionarParaExclusao ) IF toObjetoEsperado.AdicionarPersistenciaNaTransacao(loPedido, loTransacao, .F. ) && Inlcuir Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:811 - itempedidovenda.adicionarpersistencianatransacao - itempedidovenda.prg Linha:259 - itempedidobase_unit.testunit003 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()