10:34:40.798 - 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:3547 - orcamentovenda.definircliente - orcamentovenda.prg Linha:9468 - orcamentovenda_unit.testunit158 - 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 ) loOrcamento.DefinirCliente(7849735 ) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:3578 - orcamentovenda.definircliente - orcamentovenda.prg Linha:9468 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:47.296 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não será possível informar valor de frete pois o tipo de frete atual é "9 - Sem frete" Chamadas:Linha:758 - frete.definirvalor - frete.prg Linha:1245 - frete._tratarfreteautomatico - frete.prg Linha:1288 - frete.tratarfreteautomatico - frete.prg Linha:1360 - orcamentobase._atualizartotalpedido_notificacao - orcamentobase.prg Linha:3299 - orcamentovenda._atualizartotalpedido_notificacao - orcamentovenda.prg Linha:1412 - orcamentobase.executarnotificacao - orcamentobase.prg Linha:2681 - orcamentovenda.executarnotificacao - orcamentovenda.prg Linha:1986 - itempedidovenda.definirproduto - itempedidobase.prg Linha:9474 - orcamentovenda_unit.testunit158 - 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 será possível informar valor de frete pois o tipo de frete atual é "9 - Sem frete"' ) THIS.DefinirValor( lnValorFretePadrao ) llRetorno = THIS._TratarFreteAutomatico( toOrcamento, @tcMensagem_RET ) IF NOT THIS.oFrete.TratarFreteAutomatico( THIS, @lcMensagemAux ) &&& fichas 380283 e 380285 DODEFAULT() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:2079 - itempedidovenda.definirproduto - itempedidobase.prg Linha:9474 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:47.327 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Chamadas:Linha:328 - localretirada_centrodistribuicao._validarpropriedadesobrigatorias - localretirada.prg Linha:1375 - localretirada_centrodistribuicao.definirobjestoque - localretirada.prg Linha:6030 - itempedidovenda._configurarlocalretirada - itempedidobase.prg Linha:6108 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:10191 - itempedidovenda.definirtipofaturamento - itempedidobase.prg Linha:9475 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada.') IF NOT THIS._lModoBusca AND NOT THIS._ValidarPropriedadesObrigatorias() llOk = llOk AND THIS._oLocalRetirada.DefinirObjEstoque(THIS._oEstoque) THIS._ConfigurarLocalRetirada() llRetorno = THIS._DefinirLocalRetirada( '--', '--', tnTipo ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:10203 - itempedidovenda.definirtipofaturamento - itempedidobase.prg Linha:9475 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:47.644 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:849 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:420 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:769 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2462 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4188 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:4061 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:9476 - ORCAMENTOVENDA_UNIT.TESTUNIT158 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:420 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:769 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2462 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4188 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:4061 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:9476 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4083 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:9476 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:48.889 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:4403 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4440 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:9478 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItem.nPreco = 4.44 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4590 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:9478 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:48.951 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:5212 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:9479 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.') loItem.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5418 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:9479 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:34:48.951 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir a carga. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:5446 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:9480 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir a carga.') loItem.cCarga = 'A' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5481 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:9480 - orcamentovenda_unit.testunit158 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()