Italo Giurizzato Junior

Bom dia Paulo, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3668

Bom dia, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3667

Bom dia Paulo, Essa imagem é com o programa exemplo em execução? Me parece que não.

Bom dia Paulo, Já esta no SVN.

Bom dia Gladston, Lhe peço que você configure o programa exemplo com a mesma configuração da sua aplicação e faça um teste. Desta forma você vai saber se a sua configuração esta correta ou não.

Boa noite Rodrigo, Já esta no SVN.

Antonio, Comente somente o IF deixa ele executar o NativeStringToUTF8.

Boa tarde Almeida, Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Boa tarde Marco, Substitua a unit por esta em anexo e testa a consulta ao Lote, Consulta NFSe Por Faixa e Consulta NFSe Serviço Prestado. IPM.Provider.pas Boa tarde @Diego Foliene, Pega essa unit que anexei e acrescanta o TratarRetorno da consulta ao lote para atender a tag <item> Depois anexa aqui para o Marco repetir os testes.

Boa tarde Antonio, Comente as linhas: if UTF8Decode(Result) = '' then Result := NativeStringToUTF8(Result); Reinstale o ACBr e faça novos testes.

Boa tarde @dreamsoft_PR, Já mudei o atributo ID. O que não ficou claro é referente ao conteúdo dos grupos nfseCabecMsg e nfseDadosMsg, eles devem ficar ou não dentro do CDATA?

Bom dia, Estou em contato com o pessoal que esta trabalhando na implantação da NFS-e Padrão Nacional. Você teria o XML do DPS que foi enviado e acusou que o município não esta cadastrado?

Bom dia Antonio, Por favor verifique se na unit Fiorilli.Provider na function TratarXmlRetornado esta da seguinte forma: function TACBrNFSeXWebserviceFiorilli200.TratarXmlRetornado( const aXML: string): string; begin Result := inherited TratarXmlRetornado(aXML); if UTF8Decode(Result) = '' then Result := NativeStringToUTF8(Result); Result := StringReplace(Result, '&#xd;', '\s\n', [rfReplaceAll]); Result := StringReplace(Result, ''#$A'', '\s\n', [rfReplaceAll]); Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf}); Result := RemoverPrefixosDesnecessarios(Result); Result := RemoverCaracteresDesnecessarios(Result); Result := StringReplace(Result, '&', '&amp;', [rfReplaceAll]); end; Se não estiver, favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e certifique que agora esta. Por fim repita os testes.

Boa tarde, Complementando o que o Juliomar já lhe passou nesse tópico tem esse validador. valida_percurso_lazarus-2018.zip

Muito obrigado, já inclui na minha lista de tarefas para analisar o problema. TK-3662

Boa tarde Leandro, Com certeza você deve ter unit alterada localmente ou cópia de unit do ACBr dentro das pastas da sua aplicação. Delete as units alteradas ou cópias, atualize novamente, reinstale e faça os testes usando o programa exemplo.

Boa tarde Leandro, Verifique se não tem nenhuma unit do ACBr com uma bolinha vermelha em seu ícone. Caso afirmativo, delete. Atualize todos os fontes de todas as pastas, reinstale o ACBr com a opção de apagar arquivos antigos marcada e por fim compile a aplicação com a opção Build.

Boa tarde Paulo, Você esta usando o novo componente (ACBrNFSeX)?

Boa tarde Rogerio, Muito obrigado, já inclui na minha lista de tarefas. TK-3661

André, Me refresca a memória, o MidasLib é requisito para o ClienteDataSet funcionar corretamente?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Boa tarde Rodrigo, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3659

Boa tarde Leandro, Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Boa tarde, Você poderia anexar o XML (soap) que contem essa mensagem?

Boa tarde André, Muito estranho, até onde sei o componente ACBrOFX faz a leitura do arquivo OFX gerado pelo banco, já o MidasLib tem haver com a impressão de relatórios, me recordo de ter usado ele nas minhas aplicações que tinham relatórios feitos em Quick Report.