10:24:32.864 - 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:82 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:632 - itempedidobase_unit.testunit013 - 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(tvFilial) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:178 - filialorcamento.definirvalorporcodigo - filial.prg Linha:82 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:632 - itempedidobase_unit.testunit013 - 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:24:39.606 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Produto 25247 - PIA VENTURINI GRAN 2.00 VERDE UBATUBA 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:639 - itempedidobase_unit.testunit013 - 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 loItemPedido.AdicionarPersistenciaNaTransacao(loPedido, loTransacao, .f. ) && Inlcuir Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:811 - itempedidovenda.adicionarpersistencianatransacao - itempedidovenda.prg Linha:639 - itempedidobase_unit.testunit013 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()