18:26:52.305 - 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:445 - vendedor.efetuarlogin - vendedor.prg Linha:8205 - 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:417 - ON... - ctrlib.prg Linha:480 - vendedor.efetuarlogin - vendedor.prg Linha:8205 - 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:26:52.323 - 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:8206 - 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:417 - ON... - ctrlib.prg Linha:104 - filialorcamento.definirvalor - filialorcamento.prg Linha:8206 - 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:26:52.398 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Necessário definir vendedor antes de definir o cliente Chamadas:Linha:1145 - orcamentosaidasbase.definircliente - orcamentosaidasbase.prg Linha:3498 - orcamentovenda.definircliente - orcamentovenda.prg Linha:8207 - 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( 'Necessário definir vendedor antes de definir o cliente' ) llRetorno = DODEFAULT( tnOidCliente, tcSenhaLibOrcAb, tcSenhaLibCliVen, tcSenhaClienteBloqueadoLimiteCredito, llChamadaExterna ) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:3529 - orcamentovenda.definircliente - orcamentovenda.prg Linha:8207 - 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:26:58.477 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Informe Cliente antes de definir o endereço de entrega Chamadas:Linha:816 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg Linha:480 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg Linha:8215 - 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( 'Informe '+lcTipoCliente +' antes de '+TRANSFORM(tcMensagemAdicional) ) IF NOT THIS._ValidarPropriedades( 'definir o endereço de entrega' , .f.) THIS.oObjetoTeste.oEndereco.DefinirEnderecoEntrega(367994941) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:508 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg Linha:8215 - 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:26:58.485 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Informe Cliente antes de definir o endereço de entrega Informe Cliente antes de definir o endereço de cobrança Chamadas:Linha:816 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg Linha:391 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg Linha:8216 - 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( 'Informe '+lcTipoCliente +' antes de '+TRANSFORM(tcMensagemAdicional) ) IF NOT THIS._ValidarPropriedades( 'definir o endereço de cobrança', .f. ) THIS.oObjetoTeste.oEndereco.DefinirEnderecoCobranca( 367994941) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:406 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg Linha:8216 - 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:26:59.352 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Orçamento sem vendedor informado. Não é permitido item com entrega futura para orçamento sem cliente cadastrado Chamadas:Linha:1736 - orcamentovenda.gravar - orcamentobase.prg Linha:8219 - 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:417 - ON... - ctrlib.prg Linha:927 - orcamentovenda._retornarmensagem - custommu.prg Linha:1736 - orcamentovenda.gravar - orcamentobase.prg Linha:8219 - 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()