18:21:34.013 - 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:438 - vendedor.efetuarlogin - vendedor.prg Linha:8012 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_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.oObjetoTeste.oVendedor.EfetuarLogin('roma') && FATIMA llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:473 - vendedor.efetuarlogin - vendedor.prg Linha:8012 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:21:34.022 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível definir a filial, vendedor ainda não foi Definido. Chamadas:Linha:182 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:8013 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Não é possível definir a filial, vendedor ainda não foi Definido.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) THIS.oObjetoTeste.oFilial.DefinirValor(2272640) && Filial 07 llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:104 - filialorcamento.definirvalor - filialorcamento.prg Linha:8013 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:21:37.944 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. Chamadas:Linha:686 - localretirada_centrodistribuicao._validarfilialretirada - localretirada.prg Linha:499 - localretirada.definirfilialretirada - localretirada.prg Linha:36 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5905 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9681 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:5130 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3857 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1933 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1366 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:8021 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('A filial de retirada não poderá estar marcada como fechada.') THIS._ValidarFilialRetirada( tcIdFilial, tcTipoOrcamento ) && FNX-5345 DODEFAULT( tcIdFilial, tcTipoOrcamento, tcFinalidade ) IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:1419 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:8021 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:21:38.465 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Endereço de faturamento não foi definido! Não há itens de pedido de venda nessa operação. Parcelamento inválido, pois: Total da operação do parcelamento não informado. Chamadas:Linha:1684 - orcamentovenda.gravar - orcamentobase.prg Linha:8026 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( THIS.LogUsuario ) IF THIS.oObjetoTeste.Gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:926 - orcamentovenda._retornarmensagem - custommu.prg Linha:1684 - orcamentovenda.gravar - orcamentobase.prg Linha:8026 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()