16:36:56.641 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Vendedor interno não possui segmentos relacionados.
Chamadas:Linha:440 - vendedor.efetuarlogin - vendedor.prg
Linha:7892 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem('Vendedor interno não possui segmentos relacionados.')
THIS.oObjetoTeste.oVendedor.EfetuarLogin('51586') && Vendedor 00139
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse )
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:464 - vendedor.efetuarlogin - vendedor.prg
Linha:7892 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

16:36:56.641 - 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:176 - filialorcamento._validaralteracao - filialorcamento.prg
Linha:126 - filialorcamento._definiroid - filialorcamento.prg
Linha:99 - filialorcamento.definirvalor - filialorcamento.prg
Linha:7894 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - 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(lnOidFilial) && Filial 07
llTestOk = EVALUATE(lcTeste)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:104 - filialorcamento.definirvalor - filialorcamento.prg
Linha:7894 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

16:36:56.672 - 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:7895 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_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.oObjetoTeste.DefinirCliente(93033062, '' ) && LUDMILA DE OLIVEIRA SILVA
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:3081 - orcamentovenda.definircliente - orcamentovenda.prg
Linha:7895 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

16:37:01.869 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Oid da filial do orçamento não foi informado
Chamadas:Linha:810 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg
Linha:474 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg
Linha:7905 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Oid da filial do orçamento não foi informado' )
IF NOT THIS._ValidarPropriedades( 'definir o endereço de entrega' )
THIS.oObjetoTeste.oEndereco.DefinirEnderecoEntrega( 93033064)
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:502 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg
Linha:7905 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

16:37:01.885 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Oid da filial do orçamento não foi informado
Chamadas:Linha:810 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg
Linha:385 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg
Linha:7906 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Oid da filial do orçamento não foi informado' )
IF NOT THIS._ValidarPropriedades( 'definir o endereço de cobrança' )
THIS.oObjetoTeste.oEndereco.DefinirEnderecoCobranca( 93033064)
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:400 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg
Linha:7906 - orcamentovenda_unit.testunit119 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()