17:28:05.948 - 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:167 - filialorcamento.definirvalorporcodigo - filial.prg Linha:87 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:1091 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - 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:416 - ON... - ctrlib.prg Linha:177 - filialorcamento.definirvalorporcodigo - filial.prg Linha:87 - itempedidobase_unit._criaritempedido - itempedidobase_unit.prg Linha:1091 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:28:15.992 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Acesso não autorizado. Vendedor não pertence a filial do usuário. Tipo de entrega "Caixa" não é permitido para o produto 16269. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:5659 - itempedidovenda._validartipoentrega - itempedidobase.prg Linha:5030 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1094 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem( lcMensagemErro ) THIS._ValidarTipoEntrega( tAssign ) &&& FNX-1923 loItemPedido.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:5210 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1094 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()