07:58:11.044 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Quantidade inválida. Informe um valor maior que zero. Chamadas:Linha:764 - itempedidovendasubordinado._retornarmensagem - itempedidobase.prg Linha:3591 - itempedidovendasubordinado.alterarquantidade - itempedidobase.prg Linha:3548 - itempedidovendasubordinado.nquantidade_assign - itempedidobase.prg Linha:5414 - itempedidovendasubordinado._definirlocalretirada - itempedidobase.prg Linha:8837 - itempedidovendasubordinado.definirfilialretirada - itempedidobase.prg Linha:4684 - itempedidovendasubordinado.ctipoentrega_assign - itempedidobase.prg Linha:3521 - itempedidovendasubordinado._definirtipodeentrega - itempedidobase.prg Linha:1711 - itempedidovendasubordinado.definirproduto - itempedidobase.prg Linha:7054 - itempedidovendasubordinado.definirprodutotinta - itempedidobase.prg Linha:205 - controletinta._inserirtinta - controletinta.prg Linha:125 - controletinta.adicionar - controletinta.prg Linha:1354 - itenspedidovenda_unit.testunit031 - 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( '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: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:150 - controletinta.adicionar - controletinta.prg Linha:1354 - itenspedidovenda_unit.testunit031 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()