16:44:36.677 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Necessário definir vendedor antes de definir o cliente Chamadas:Linha:1062 - orcamentosaidasbase.definircliente - orcamentosaidasbase.prg Linha:3067 - orcamentovenda.definircliente - orcamentovenda.prg Linha:510 - crediariodescentralizado_unit._criarorcamento - crediariodescentralizado_unit.prg Linha:82 - crediariodescentralizado_unit.testunit01 - crediariodescentralizado_unit.prg Linha:236 - crediariodescentralizado_unit.executarteste - testunitbase.prg Linha:1421 - 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 ) THIS._oOrcamento.DefinirCliente(tnOidCliente, '') THIS._criarOrcamento( lnOidCliente , lnOidFilial ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: CREDIARIODESCENTRALIZADO_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3081 - orcamentovenda.definircliente - orcamentovenda.prg Linha:510 - crediariodescentralizado_unit._criarorcamento - crediariodescentralizado_unit.prg Linha:82 - crediariodescentralizado_unit.testunit01 - crediariodescentralizado_unit.prg Linha:236 - crediariodescentralizado_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()