09:52:24.770 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Quantidade inválida. Informe um valor maior que zero. Chamadas:Linha:861 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:3792 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3725 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:5709 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9304 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4958 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3698 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1845 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1068 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:936 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6074 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem( 'Quantidade inválida. Informe um valor maior que zero.') THIS.AlterarQuantidade(tAssign, tlIgnorarVerificacaoDeLoteNaValidacaoDaMenorFracaoDeVenda, llChamadaExterna ) THIS.nQuantidade = THIS.ObterQuantidadeSolicitada() llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1121 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:936 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6074 - orcamentovenda_unit.testunit098 - 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:52:27.051 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Quantidade inválida. Informe um valor maior que zero. Chamadas:Linha:861 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:3792 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3725 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:5709 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9304 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4958 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3698 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1845 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1068 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:936 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6076 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem( 'Quantidade inválida. Informe um valor maior que zero.') THIS.AlterarQuantidade(tAssign, tlIgnorarVerificacaoDeLoteNaValidacaoDaMenorFracaoDeVenda, llChamadaExterna ) THIS.nQuantidade = THIS.ObterQuantidadeSolicitada() llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1121 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:936 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6076 - orcamentovenda_unit.testunit098 - 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:52:27.053 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM is not an object. - Linha: 6077 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:6077 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()