08:16:54.990 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5349 - 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:1824 - 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() 08:16:55.115 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5349 - 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:3697 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - 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() 08:16:55.130 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5349 - 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:4002 - 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() 08:16:55.146 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5349 - 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:4748 - 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() 08:16:55.162 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:5349 - 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:4803 - 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() 08:16:58.075 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Endereço de faturamento não foi definido! O produto código 12954 não está informando com Centro de Distribuição. Filial de Retirada ou Transferência. Parcelamento inválido, pois: Total da operação do parcelamento não informado. Chamadas:Linha:1360 - 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( THIS.LogUsuario ) llOkGravar = loOrcamento.gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3313 - 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()