Renato Rubinho

Aparentemente ou é S ou não manda a chave. Preencha ATitulo.TipoPagamento <> tpAceita_Qualquer_Valor para não gerar a chave no json. ../trunk2/Fontes/ACBrBoleto/WS/ACBrBoletoW_BancoBrasil_API.pas procedure TBoletoW_BancoBrasil_API.RequisicaoJson; var Data: string; Json: TJSONObject; begin if Assigned(ATitulo) then begin Json := TJsonObject.Create; try . . . if ATitulo.TipoPagamento = tpAceita_Qualquer_Valor then Json.Add('indicadorPermissaoRecebimentoParcial').Value.AsString := 'S';

Na nova versão foram disponibilizados apenas o Endpoint de envio dos eventos e o de consulta de protocolo. Não está escrito com todas as letras na documentação, mas agora que todos os registros retornam protocolo, a consulta por recibo se torna desnecessária(vou levantar melhor essa informação, mas por lógica não vejo outra hipótese), pois ao consultar o protocolo você terá as informações do 9001(antigo 5001), do 9011(antigo 5011) e dos novos 9005 e 9015. Veja o retorno da consulta do protocolo dos registros conforme abaixo, se é o resultado que está esperando: ACBrReinf1.WebServices.Consultar.RetEnvioLote.evento.Items[i].evtTotal ACBrReinf1.WebServices.Consultar.RetEnvioLote.evento.Items[i].evtRet ACBrReinf1.WebServices.Consultar.RetConsulta_R9011 ACBrReinf1.WebServices.Consultar.RetConsulta_R9015

Certo, havia entendido que não tivesse conseguido testar. Você está usando a versão 1_05_01 ou a 2_01_01? Se estiver utilizando o novo Leiaute, você precisa primeiro enviar o registro, depois consultar o protocolo recebido, assim como era feito no 2099, para obter o retorno do processamento do primeiro envio.

Boa tarde, Caso não tenha atualizado os fontes hoje com as novas implementações, atualize e reinstale os componentes. Teste com o programa de exemplo, marque o registro desejado, clique na opção gerar arquivos e depois na opção enviar.

Só um adendo, como você não informou o município não tive como confirmar aqui, mas veja no ACBrNFSeXServicos.ini se existe a chave ProLinkURL para este município/provedor. Se houver você pega o link montado e preenche antes de imprimir.

Muito provável, pois com o programa de exemplo funciona corretamente. Pode ser erro de configuração, algum detalhe de tratamento no fonte, etc. Mas confirmando, você tem que usar o comando a seguir, isso já basta. Anexe o XML gerado no retorno do processamento. ACBrNFe1.DistribuicaoDFePorUltNSU Por Ult NSU, pois sua mensagem inicial mostrava 1 registro retornado o que indicava estar usando o "PorNSU".

Boa tarde, Está recebendo alguma rejeição específica? Veja se está preenchendo o NFe.infRespTec.CNPJ, que é condição para gerar esse grupo de informações. ../trunk2/Fontes/ACBrDFe/ACBrNFe/PCNNFe/pcnNFeW.pas procedure TNFeW.GerarinfRespTec; begin if (NFe.infRespTec.CNPJ <> '') then begin Gerador.wGrupo('infRespTec', '#081'); Gerador.wCampoCNPJ('#82', NFe.infRespTec.CNPJ, CODIGO_BRASIL, True); Gerador.wCampo(tcStr, '#083', 'xContato', 02, 60, 1, NFe.infRespTec.xContato, DSC_XCONTATO); Gerador.wCampo(tcStr, '#084', 'email ', 06, 60, 1, NFe.infRespTec.email, DSC_EMAIL); Gerador.wCampo(tcStr, '#085', 'fone ', 07, 12, 1, NFe.infRespTec.fone, DSC_FONE); if (idCSRT <> 0) and (CSRT <> '') then begin Gerador.wCampo(tcInt, '#086', 'idCSRT ', 02, 02, 1, idCSRT, DSC_IDCSRT); Gerador.wCampo(tcStr, '#087', 'hashCSRT', 28, 28, 1, CalcularHashCSRT(CSRT, FChaveNFe), DSC_HASHCSRT); end; Gerador.wGrupo('/infRespTec'); end; end;

Está apresentando algum erro? Qual a dúvida? Não programo nessa linguagem para maiores detalhes sobre a programação em si, mas a respeito da lib, além dos exemplos, chegou a ver a documentação? https://acbr.sourceforge.io/ACBrLib/ExemplodeINI.html https://acbr.sourceforge.io/ACBrLib/Cancelamento.html Talvez consiga mais ajuda também no discord. https://discord.com/channels/798697718800318484/800042850959491072

Com o programa de exemplo o resultado foi o mesmo? Anexe um print do retorno gerado no programa de exemplo para vermos se a mensagem de retorno ajuda em algo.

Veja se falta instalar a LibXml2 e/ou OpenSSL. Veja se este tópico lhe ajuda. Se

Boa tarde, Veja como foram feitos os programas de exemplo para ter uma base. https://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/

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

Se você utilizar o ACBrNFe1.DistribuicaoDFePorUltNSU passando o último NSU recebido vai retornar novos lotes de 50 registros até o maxNSU do CNPJ que está sendo consultado. Se receber o retorno 656 de consumo indevido, aguarde 1h. Teste com o programa de exemplo para entender como fazer, utilize o botão Distribuição DF-e por Último NSU Também veja o tópico a seguir com maiores informações.

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

Você deve informar o último NSU que recebeu do serviço de distribuição. No print que você mandou mostra o 8521, se for a mesma informação que recebeu ao consultar, esse deve ser o NSU a passar na próxima consulta.

Boa tarde, Você está utilizando a consulta para um NSU específico, retornando apenas ele mesmo ACBrNFe1.DistribuicaoDFePorNSU Você deve utilizar a ACBrNFe1.DistribuicaoDFePorUltNSU

Você pode ter arquivos alterados barrando a atualização. Tente o revert em arquivos alterados ou apagar a pasta e baixar novamente.

Boa tarde, Não existe outro repositório oficial. Essa situação tem cara de instabilidade na sua internet. Caso não tenha normalizado ainda, tente com outra internet, um 4g talvez.

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

Boa tarde, Atualize seus fontes, reinstale os componentes e veja se o problema persiste. Veja que para este provedor já está configurado para levar o código formatado e sem zeros à esquerda. ../trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/ISSIntel.GravarXml.pas procedure TNFSeW_ISSIntel.Configuracao; begin inherited Configuracao; DivAliq100 := True; FormatoItemListaServico := filsComFormatacaoSemZeroEsquerda; end;

@Massao Aihara Veja que o erro no comando sql está acontecendo porque eles estão atribuir "nada" ao u.id Devem estar concatenando para montar o comando e este valor na origem deve estar em branco. Veja que o alias "u" se refere à tabela de usuários deles e o id pode ser algo relacionado ao cadastro do cliente que está faltando. Veja se consegue contato com eles e "da a dica" para verificarem se falta habilitar o cliente para usar o ambiente ou se falta preencher esse id no cadastro...

Uma sugestão, coloque uma trava para não permitir que o usuário exclua uma NFe autorizada. Acredito que a Sefaz não permite o download para o emissor porque entende que ele possui o XML, sendo que ele o emitiu e principalmente para evitar mal uso dos serviços. Para você poder fazer a comparação dos dados no Delphi neste caso específico, importe o XML baixado manualmente da Sefaz. NFe.NotasFiscais.LoadFromFile Ou Nfe.NotasFiscais.LoadFromString

Boa tarde, Confirme se a url permanece a mesma, se mudou, altere no ini. Preencha a versão, conforme abaixo. [5003702] Nome=Dourados UF=MS Provedor=ISSNet Versao=2.04 ProRecepcionar=http://www.issnetonline.com.br/webserviceabrasf/dourados/servicos.asmx Após alterar o ini, siga os passos do tópico a seguir.

Se você consegue obter a chave da primeira NFe, você consegue baixar o XML autorizado pelo portal. A menos que isso tenha sido removido do portal. Faça o teste, consulta completa com a chave original e depois deve ter uma opção de download. A rejeição 613 acontece porque você está usando uma chave diferente ao enviar a nova NFe.

Boa tarde, Download do xml pelos webservices não. Mas você pode alimentar o componente com as mesmas informações utilizadas para a emissão original e consultar pela chave para adicionar o protocolo retornado ao xml gerado a partir dos dados do componente. Ou você pode baixar pontualmente pela página da Sefaz, tendo em mãos a chave da NFe e o certificado do emitente. https://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=7PhJ+gAVw2g=