10:42:29.673 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Necessário definir vendedor antes de definir o cliente Chamadas:Linha:1115 - orcamentosaidasbase.definircliente - orcamentosaidasbase.prg Linha:3409 - orcamentovenda.definircliente - orcamentovenda.prg Linha:57 - itenspedidovenda_unit._criarorcamento - itenspedidovenda_unit.prg Linha:568 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_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(7849735, '') THIS._CriarOrcamento() llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3436 - orcamentovenda.definircliente - orcamentovenda.prg Linha:57 - itenspedidovenda_unit._criarorcamento - itenspedidovenda_unit.prg Linha:568 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:30.143 - 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:168 - filialorcamento.definirvalorporcodigo - filial.prg Linha:63 - itenspedidovenda_unit._criarorcamento - itenspedidovenda_unit.prg Linha:568 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:178 - filialorcamento.definirvalorporcodigo - filial.prg Linha:63 - itenspedidovenda_unit._criarorcamento - itenspedidovenda_unit.prg Linha:568 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:36.318 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:573 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50569', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada , 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:573 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:42.460 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:576 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 1.50, 'F', '', tdEntregaMarcada+3 , 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:576 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:57.491 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:582 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50567', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada+4 , 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:582 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:58.790 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Acesso não autorizado. Vendedor não pertence a filial do usuário. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:3465 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItemPedido.dEntregaMarcada = tdData THIS.oObjetoTeste.AlterarDataEntregaMarcada( tdEntregaMarcada, .F. ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3477 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()