15:48:27.951 - 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:180 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:85 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:1782 - itempedidobase_unit.testunit043 - 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. ) THIS.oOrcamento.oFilial.DefinirValor( tvFilial ) loItemPedido = THIS._CriarItemPedido( lnOidFilial, '00001') && <<<--- vendedor é um gerente Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:104 - filialorcamento.definirvalor - filialorcamento.prg Linha:85 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:1782 - itempedidobase_unit.testunit043 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:48:33.029 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Acesso não autorizado. Vendedor não pertence a filial do usuário. Preço inválido. Informe um valor maior que zero. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:3736 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:3762 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1791 - itempedidobase_unit.testunit043 - 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( 'Preço inválido. Informe um valor maior que zero.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItemPedido.nPreco = lnPrecoMinimo llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3891 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1791 - itempedidobase_unit.testunit043 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:48:33.045 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Acesso não autorizado. Vendedor não pertence a filial do usuário. Preço inválido. Informe um valor maior que zero. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:3736 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:3762 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1793 - itempedidobase_unit.testunit043 - 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( 'Preço inválido. Informe um valor maior que zero.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItemPedido.nPreco = lnPrecoMinimo - 0.02 llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3891 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1793 - itempedidobase_unit.testunit043 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()