Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Anthero Vieria Neto

Membros
  • Content Count

    17
  • Joined

  • Last visited

Community Reputation

2 Neutral

About Anthero Vieria Neto

  • Rank
    Novato

Contact Methods

  • Website URL
    www.windsoft.com.br

Profile Information

  • Sexo
    Masculino
  • Location
    São José do Rio Preto

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Aqui funcionou corretamente... Uma dica, quando você passa a chave para a função "Consultar" ela faz o processo de limpar os manifestos. Seguindo o raciocínio do Ítalo, realizei uma alteração simples no nosso processo de consulta, ainda carrego o XML (não alterei praticamente nada no processo), só que verifico se existe protocolo para o manifesto, quando sim passo a chave. Adicionando somente 2 linhas de código no processo e resolvendo o problema.
  2. Boa tarde, estou com muita dificuldade de consumir o webservice do GNRE, já criei um outro tópico sobre problemas parecidos, e ninguém me atendeu. Todo Lote que eu envio/consulto me retorna "Lote processado com pendêcias" Segue em anexo o retorno (ACBrGNRE.WebServices.Retorno.RetWS) Estou tentando enviar um Lote para o servidor do Pernambuco. Quando pego o XML salvo e envio atravez do portal o lote é processado com sucesso, não retornando nenhum erro. Imaginei que seria a configuração do Estado do Webservice, porém passo para ele o mesmo valor que do campo "c01_UfFavoreci
  3. Bom dia, venho aqui para tirar dúvidas sobre como manipular os dados ao Enviar o XML do Lote GNRE. Da maneira que eu faço hoje, no meu ponto de vista, está gerando exceções onde deveriam ser apenas mensagens. Vou mostrar usando o código do Exemplo: ACBrGNRE1.Guias.Clear; GerarGNRE; ACBrGNRE1.Enviar; MemoResp.Lines.Text := UTF8Encode(ACBrGNRE1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrGNRE1.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); O método Enviar (unit ACBrGNRE2): function TACBrGNRE.Enviar(Imprimir: Boolean): Boolea
  4. Exatamente, está errado! quando você colocar 4,555 o resultado tem que ser 4,56, mas quando colocar 4,855 o resultado tem que ser 4,85.
  5. Arquivos enviados incorretos... reenviando-os Teste ACBr Util.zip ACBrUtil.pas
  6. Foi um erro de digitação, mo eu sistema está com 2 digitos, Segue Programa teste e .pas alterado. Verifique os valores do exempo, 4,855 e 4,555. Quando for par deve ficar 4,X5 Quando for ímpar: 4,X6. Obrigado pela atenção ACBrUtil.pas Teste ACBr Util.zip
  7. Eu executei justamente com esse emulador, e claramente a regra no calculo dele está errado, pois ele verifica sempre o número 5, nos testes da regra do par ou ímpar. Refazendo os testes usando os números do exemplo da regra: 4,550 e 4,850: RoundABNT( 4.855, 3 ); => Resultado: 4,86 Regra ABNT: 4,85 RoundABNT( 4.555, 3 ); => Resultado: 4,86 Regra ABNT: 4,86 o Emulador da MP4200-TH-FI exibe os resultados coerentes com a regra, porém o RoundABNT não. Amanhã cedo irei editar, anexando imagens com testes informados e a unit com as alterações.
  8. Nunca mandei nada para correção, então não sei como fazer isso, gostaria que se tiver uma forma melhor de fazer que me notifiquem. Na função do RoundABNT, na verificação das regras 2.3 e 2.4 ( regra do par ou ímpar), era observado o valor errado para verificar se o mesmo era par ou ímpar. Regras: function RoundABNT(const AValue: Double; const Digits: SmallInt): Double; var Pow, PowValue, RestPart, FracValue : Extended; IntCalc, FracCalc, LastNumber, IntValue : Int64; Begin Pow := intpower(10, abs(Digits) ); PowValue := AValue / 10 ; IntValue :=
  9. [2016-01-27 16:31:40.504]:Erro no Campo 'vCFe' : Campo vCFe maior que a soma dos valores do MP. [2016-01-27 16:31:40.515]:ERRO NA EMISSAO: 1408: Rejeicao: Valor total do CF-e-SAT maior que o somatorio dos valores de Meio de Pagamento empregados em seu pagamento. Boa tarde. passei o dia todo pesquisando e não encontrei nada, e geralmente quando isso acontece é "cagada" minha, no sistema que estou trabalhando a quantidade de casas decimais adotado é 3, e mesmo eu calculando o valor total do produto : Prod.qCom := Item.nQuantid; Prod.vUnCom := Item.nValorUnit; nT
  10. Eu executei esse tutorial (http://isaquesp.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html) Mas não funcionou pra mim. O acredito que o meu problema não é exatamente esse.
  11. Eu tenho sim o Delphi 7 e o xe7 Executei o tutorial informado, mas não resolve. O ACBr instala corretamente, mas ao fechar o Delphi xe7 e abrir novamente, ele não é carregado de forma correta, pois consigo ver na paleta os componentes, mas não consigo inserir nenhum no form, aparece aquele erro de não encontrar o bpl.
  12. Boa tarde, eu estou com um problema meio que "estranho". Eu tenho o ACBr instalado e funcional no delphi 7 Estou realizando novos projetos no delphi xe7, porém toda vez que vou abri-lo tenho que re-instalar o ACBr nele (xe7) pois após o mesmo ser fechado o ACBr não é mais carregado, embora os bpls dele aparecem nos componentes instalados, consigo ver os componentes, mas ao tentar adicionar ele dá erro, e ao iniciar o programa não aparece lá o "Projeto ACBr" nos componentes inicializados com ele Isso é meio frustrante pois todos os dias tenho q instalar o ACBr no Delphi xe7 p
  13. Jugger72 Para carregar o XML no ACBrSAT.CFeCanc você deve usar: ACBrSAT.CFeCanc.SetXMLString( StringXML ); ACBrSAT.CFeCanc.Gerar( True ); Quando você carrega a string do XML sem ser pelo LoadFromFile ele só armazena, mas não lê e distribui para as suas propriedades o conteúdo do XML, para isso você deve usar o Gerar. Sei que faz tempo que você mandou, mas sou novo aqui e vi só hoje esse tópico. Valeu, falou...
×
×
  • Create New...