Italo Giurizzato Junior

Boa tarde, A alteração que você fez na unit ACBrNFSeXWebServiceBase não funciona no Delphi 7, vai ser necessário encontrar outra forma de calcular o tamanho da string. Já a alteração na unit CTA.Provider fiz outra forma, que acredito que vai gerar o mesmo resultado. Vou anexar ela aqui para que você possa testar. CTA.Provider.pas

Boa tarde Anadilson, Não entendi direito essa questão de configuração, você querer passar a configuração de um componente para outro? Procure sempre se basear no programa exemplo. No programa exemplo do componente ACBrNFSeX temos: ACBrNFSeX1 - Responsável por gerar o XML, assinar, validar enviar, consultar, enfim é o responsável por estabelecer uma conexão com o webservice do provedor. ACBrNFSeXDANFSeRL1 - Responsável por gerar o DANFSE na tela ou em PDF e lhe permite enviar para a impressora, ou seja, imprimir o DANFSE no papel. ACBrMail1 - Responsável por enviar e-mail. O componente ACBrNFSeX1 possui propriedades de configuração onde você "linka" ele com os outros dois. No programa exemplo temos a procedure ConfigurarComponente que mostra como configurar os 3 componentes citados acima. A Equipe ACBr recomenda fortemente que sempre inicie os testes com o programa exemplo e que o desenvolvedor o utilize como material de estudo. O programa exemplo possui um botão [Enviar e-mail]. Esse botão pede para que você selecione um XML de NFS-e que esteja salvo em disco, carrega ele e o envia por e-mail. Mas ele pode ser facilmente alterado para que se peça dois ou mais XML de NFS-e, carregue esses XMLs e os envie um a um por e-mail. Em vez de você fazer um teste com a sua aplicação e um lote com uma dezena de notas, faça um teste com o programa exemplo carregando o XML de apenas 3 notas. Caso algo der errado, fica mais fácil debugar para saber onde está o erro no componente. Espero ter ajudado.

Boa tarde Marcio, Não entendi a inclusão da linha abaixo: Result := StringReplace(Result, 'ns1:ConsultarNotaPrestadorResponse', 'ns1ConsultarNotaPrestadorResponse' , [rfReplaceAll]); Porque você esta removendo o ":" do prefixo ns1? Você tem o XML (soap) de retorno dessa consulta para que eu possa analisar?

Boa tarde, O arquivo *-con-dist-dfe.xml se refere a consulta, já o arquivo *-dist-dfe.xml é o retorno. Notou a diferença na nomenclatura dos arquivos? Sabendo agora quais são os XMLs de consulta e de retorno, você não acha que a partir do momento que tem 3 consultas, não deveria ter 3 retornos? O prefixo do nome desses arquivos é a data/hora. Veja: 20221004110746 2022-10-04 11:07:46 Analisando os prefixos dos arquivos que você anexou temos: A primeira consulta realizada as 11:07:46 e o retorno as 11:07:46 A segunda consulta realizada as 11:48:41 e onde foi parar o retorno? A terceira consulta realizada as 13:45:30 e o retorno as 13:45:32 No que se refere a rejeição de Consumo indevido, ou o usuário está tentando várias vezes mesmo recebendo a rejeição ou tem outra aplicação consultando as notas desse CNPJ.

Boa tarde Gladston, No HD você tem cópia dos fontes do ACBr? Se sim, delete. Pois não existe nenhum erro de instalação no Delphi 7, digo isso pois acabei de reinstalar todos os componentes (exceto os Documentos Auxiliares feitos em Fast Report, pois não tenho o Fast) e a instalação foi até o fim sem nenhum problema. Tente uma nova instalação com a opção de apagar arquivos antigos marcada.

Bom dia Alexandre, Eu me refiro a configuração do componente e não a alimentação dele, pois são coisas distintas. O programa exemplo, você seleciona a cidade, ao fazer isso e salvar a configuração o componente é configurado com a cidade selecionada. Se a intensão é imprimir o DANFSE de uma nota, o componente tem que ser configurado com a cidade do prestador de serviço. Depois devemos carregar o XML da nota e por fim imprimir o DANFSE. Por favor faça os testes usando o programa exemplo do componente ACBrNFSeX.

Boa tarde Bill, Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr com a opção de apagar arquivos antigos marcada. Recompila a aplicação com o Build e faça novos testes.

Boa tarde Alexandre, Complementando o que o Diego já lhe passou. Você configurou o componente com a cidade cujo prestador emitiu a nota? Caso não tenha feito isso, o componente pode acabar usando a rotina que lê o XML segundo padrão ABRASF em vez de ler o XML do provedor IPM que tem o seu próprio layout.

Boa tarde Gladston, Porque você desmarcou a instalação dos componentes referente ao Fast e Fortes Report? Para o programa exemplo do componente ACBrNFSeX se faz necessário que o componente referente ao DANFSE feito em Fortes Report esteja instalado no Delphi.

Boa tarde, Você anexou dois XML referente a execução do Distribuição do DFe e somente um XML de retorno. Onde foi para o XML de retorno da primeira execução (quando você informou o ultNSU igual a 961 ?

Boa tarde, Favor anexar as units alteadas para que possamos analisar. Desde já muito obrigado pela contribuição.

Boa tarde, Já inclui na minha lista de tarefas. TK-3121

Boa tarde, Quando o provedor exige que algum campo requer o código do município, devemos sempre informar o código IBGE. Caso o provedor em questão (por exemplo o IPM) exige o código TOM em vez do IBGE o componente faz a conversão automaticamente tanto ao gerar o XML quanto ao ler o mesmo.

Bom dia Bill, Já inclui na minha lista de tarefas. TK-3118

Bom dia, Muito obrigado pelo retorno, ainda hoje estarei enviado para o SVN a alteração que fiz na unit.

Bom dia Gladston, Esse não é o programa exemplo do componente. Trata-se de uma cópia modificada. Precisamos que você realize testes com o programa exemplo do componente. Outra coisa, certifique-se que o valor de LibSSL é libWinCript ou libOpenSSL e os demais campos abaixo seguem os valores ao selecionar um valor para o LibSSL, ou seja, não foi alterado. O valor de SSLType está errado, o correto é LT_TLSv1_2.

Bom dia, as 09:31:08 você executou o método DistribuicaoDFePorUltNSU informando o ultNSU igual a 961. *** e o retorno dessa execução? as 09:31:11 você executou o método novamente informando o ultNSU igual a 1077 as 09:31:11 chegou o retorno acusando que não tem mais nenhum documento (status = 137) e ultNSU igual a maxNSU (1077) Foi nesse retorno (***) que está faltando que o último documento baixado é o de NSU = 1051, mas o valor de ultNSU é 1077 ? Eu preciso desse retorno.

Boa tarde Valadares, Tente mudar o valor de HttpLib para httpWinhttp em vez de httpWinINet.

Boa tarde Daiv, Muito obrigado pela colaboração, ainda hoje estarei enviando para o SVN.

Bom dia Gildicley, Faça o seguinte teste. Se na razão social possuir o "&" (e comercial) troque pela sequência: & exemplo: NFSe.Tomador.RazaoSocial := 'Silva & Silva';

Bom dia Willian, No arquivo de retorno (410-lista-nfse-ger-soap.xml) consta o XML da nota. Pode ser que o componente ainda não esteja conseguindo encontrá-lo para poder extrair e salvar em disco. Vai precisar colocar um ponto de parada na primeira linha da procedure TratarRetornoEmitir. Quero saber o valor dos campos: Response.NumeroNota e AuxNode.OuterXml E quando checar em SalvarXmlNfse debug o código dessa procedure também.

Bom dia, Você configurou o programa exemplo? Na aba Emitente informou a cidade do prestador dessa nota?

Bom dia Luan, No componente novo: ACBrNFSeX a alteração já foi realizada, veja: [4216602] ; Atualizado em 29/09/2022 Nome=Sao Jose UF=SC Provedor=IPM Versao=1.01 Params=GerarTag:codigo_atividade ProRecepcionar=https://saojose.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao HomRecepcionar=https://qualidade-atendenet56.ipm.com.br/homologacao/?pg=rest&service=WNERestServiceNFSe&cidade=saojose

Bom dia, Você tem o XML de retorno que consta que o ultNSU e um e o NSU do último documento retornado é outro?

Bom dia Robson, O provedor ISSNet utilizado por Ribeirão Petro e outras cidades se utiliza da versão 1 do layout da ABRASF. Não existe nada no manual da ABRASF desta versão referente a Carta de Correção. E no componente ACBrNFSeX não existe nenhum método que permita o envio de Carta de Correção. Resumindo: Não tem como enviar uma carta de correção.