09:34:46.486 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5799 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1653 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1958 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1684 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:34:46.787 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5799 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1653 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3937 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3725 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1685 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:34:46.804 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5799 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1653 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4246 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1687 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:34:46.815 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5799 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1653 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5027 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1688 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:34:46.826 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5799 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1653 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5090 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1689 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:34:50.432 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Chamadas:Linha:1672 - itenspedidovenda._atualizaritens - itenspedidovenda.prg Linha:1577 - itenspedidovenda.atualizar - itenspedidovenda.prg Linha:2227 - orcamentovenda._validarorcamento - orcamentobase.prg Linha:2146 - orcamentovenda.validar - orcamentobase.prg Linha:1456 - orcamentovenda.gravar - orcamentobase.prg Linha:1693 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( loItemPedido.LogUsuario ) llRetorno = llRetorno AND THIS._AtualizarItens(tlChamadoPeloValidarOrcamentoPeloNaoGravarOrcamento ) THIS.oItens.Atualizar( NOT tlValidarParaGravar ) &&& chamando para atualizar as pendencias llOk = THIS._ValidarOrcamento(tlValidarParaGravar ) IF NOT THIS.Validar( .T. ) && TRUE, para não validar as pendências Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3607 - orcamentovenda.buscarsomenteleitura - orcamentobase.prg Linha:1704 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()