[Configurações do WebService para a cidade de Três Pontas - MG]

Segue abaixo as configurações do servidor webservice para a cidade de Três Pontas - MG, para serem incluídas no fontes.
 

[3169406]
Nome=Tres Pontas
UF=MG
Provedor=IPM
Versao=1.01
ProRecepcionar=https://trespontas.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao

 

[NFSe - Erro Nenhum Elemento Encontrado]

O erro acontece apenas com alguns provedores (no meu caso publica) e openssl.
Segue as configurações

 

//Provedor: proPublica
ACBrNFSe.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBrNFSe.Configuracoes.WebServices.TimeOut := 15000;

 

[NFSe - Erro Nenhum Elemento Encontrado]

Desculpe acabei anexando a unit errada.
Em anexo está unit correta

ACBrDFeXsLibXml2.pas

[NFSe - Erro Nenhum Elemento Encontrado]

Citar

Obrigada pelo interesse em contribuir..mas o mesmo ocorre no novo componente ACBrNFSeX?

Não realizei testes neste componente.

 

Citar

Favor anexar a unit alterada em vez do Path.

Segue a unit em anexo

ACBrDFeXsXmlSec.pas

[NFSe - Erro Nenhum Elemento Encontrado]

Já havia criado um tópico sobre este erro:

o mesmo foi fechado porém a correção não foi realizada.

Estou enviando o patch de correção para que se possível seja aplicado a correção.

 

 

ACBrDFeXsLibXml2.pas.patch

[NFSe - Erro Nenhum Elemento Encontrado]

8 minutos atrás, Leandro Guindani Gehlen disse:

'<Rps>' ou 'Rps': funciona corretamente

Desculpe olhei o debug mas não estava atualizado.
Realmente a unica forma que o nó é encontrado é  realizando busca por 'Rps'

[NFSe - Erro Nenhum Elemento Encontrado]

Em 23/10/2020 at 09:45, BigWings disse:

Parece redundante, se PosPrefix for 0 vai copiar a linha toda de qualquer forma...

Isso não vai causar problemas com outros provedores ou outros documentos (NFe, CTe, MDFe, BPe...)?

Parece redundante, se PosPrefix for 0 vai copiar a linha toda de qualquer forma
Sim vc esta correto.

Isso não vai causar problemas com outros provedores ou outros documentos (NFe, CTe, MDFe, BPe...)?

Eu não possuo conhecimento a fundo para te responder.
A única coisa que posso afirmar é que a biblioteca libxml realiza buscas pelo nome do nó, sendo assim:

 'Rps></GerarNfseEnvio', 'Rps>', '<Rps>': Nenhum nó será encontrado

Talvez o problema mesmo se encontre na linha 3791 do arquivo ACBrNFSeWebServices.pas

 

case FProvedor of
  proBethav2,
  proPublica: FTagGrupo := FPrefixo3 + 'Rps></GerarNfseEnvio';

  proSigep: FTagGrupo := FPrefixo3 + 'Rps></' + FPrefixo3 + 'GerarNfseEnvio';
end; 

 

3 minutos atrás, Leandro Guindani Gehlen disse:

 'Rps></GerarNfseEnvio', 'Rps>', '<Rps>': Nenhum nó será encontrado

Só retificando: 
'Rps></GerarNfseEnvio', 'Rps>': Nenhum nó será encontrado
'<Rps>' ou 'Rps': funciona corretamente

[NFSe - Erro Nenhum Elemento Encontrado]

Estou usando o Provedor Publica

[NFSe - Erro Nenhum Elemento Encontrado]

ACBrNFSe.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBrNFSe.Configuracoes.Geral.PathIniProvedor := FDirRecursos;
ACBrNFSe.Configuracoes.Geral.PathIniCidades := FDirRecursos;
ACBrNFSe.Configuracoes.WebServices.Ambiente := taProducao;

 

[NFSe - Erro Nenhum Elemento Encontrado]

Segue patch de correcao

ACBrDFeXsLibXml2.pas.patch

[NFSe - Erro Nenhum Elemento Encontrado]

Atualmente existe um bug no arquivo fonte: ACBrDFeXsLibXml2.pas  metodo AdicionarNode (linha: 700):
Fonte atual: 

{ Se docElement possui prefixo o mesmo tem que ser removido }
vdocElement := copy(docElement, Pos(':', docElement) + 1, Length(docElement));

if (vdocElement <> '') then
  DocNode := LibXmlLookUpNode(DocNode, vdocElement);   

Correção: 

PosPrefix := Pos(':', docElement);

{ Se docElement possui prefixo o mesmo tem que ser removido }

if (PosPrefix > 0) then
  vdocElement := copy(docElement, PosPrefix + 1, Length(docElement))
else
  vdocElement :=  docElement;

vdocElement := copy(vdocElement, 1, Pos('>', docElement) - 1);

Atualmente a busca do nó (no caso de emissao para nfse, provedor Publica) está sendo por  'Rps></GerarNfseEnvio' fazendo com que nenhum nó seja encontrado.
A Correcao acima faz com que a busca do nó seja realizada por 'Rps' 

[Correção Remessa 400 Safra]

Existe um erro a partir da linha 864 do arquivo ACBrBancoSafra.pas. Atualmente está
 

aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, 4), 4, '0') +
                PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0');

aConta := PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') +
              PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');

e deveria ser:

aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, fpTamanhoAgencia), fpTamanhoAgencia, '0') +
                PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0');

aConta := PadLeft(ACBrBoleto.Cedente.Conta, fpTamanhoConta, '0') +
              PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');

 

[Problema ao ler nosso numero no retorno do banco Safra]

Por favor desconsiderar. Já existe um post sobre isso.

[Problema ao ler nosso numero no retorno do banco Safra]

Ao carregar o arquivo de retorno do banco safra está lendo um dígito a menos no nosso número:

Segue alteração:

//ACBrBancoSafra.pas
//Linha 535 esta 
NossoNumero := Copy(Linha, 63, 8);
//precisa mudar para
NossoNumero := Copy(Linha, 63, 9);

 

[Nosso número sem digito verificador no banco Safra no arquivo de retorno]

A rotina de leitura do campo nosso numero no banco safra esta copiando um digito a menos.

Segue alterações:

Linha 538 esta
NossoNumero := Copy(Linha, 63, 8);
precisa mudar para
NossoNumero := Copy(Linha, 63, 9);
Arquivo ACBrBancoSafra.pas

[Update Acbrcomum (Resource Acbr Not Found)]

Este problema ocorre por que quando é necessário compilar os pacotes através do Delphi (Acredito que nas versões XE) quando abrimos o pacote pelo delphi,

ele remove as entradas não válidas no arquivo de recurso, neste caso, ACBrComum.res.
Para resolver o problema:

• atualize os fontes abra o arquivo ACBrComum.res através de um editor de recurso
• Salve a imagem contida na entrada ACBR em um diretório temporario
• Abra o arquivo ACBrComum.dcr através do editor
• Adicione uma nova entrada denominada ACBR e carregue o conteúdo do arquivo salvo anteriormente

Pronto agora só compilar os pacotes pelo delphi e tudo estará funcionando

[Acbr Github]

Tranquilo Daniel. Admiro muito o trabalho do ACBr, como falei minha intenção é ajudar.

 

Eu também utilizava o SVN e tive problemas no começo com o Github, mas com o tempo fui me adequando e gostei muito do resultado.

 

Vou, deixar mais uma dica, caso tenha interesse de experimentar o github neste projeto.

Os projetos no github podem ser baixados via svn(tortoiseSNV) sem problemas, só não é possível enviar comits(push)

[Acbr Github]

Não estou tentando tentando impor absolutamente nada, estou tentando colaborar para facilitar o desenvolvimento.

Acredito que agora sim, tive uma resposta com motivos justificados pelos quais o projeto não é migrado.

Acredito que a primeira resposta que obtive (posso ter intendido mal) não era condizente com o que o github proporciona, e as limitações citadas na primeira respostas não são coerentes

 

Peço desculpas, por qualquer mal entendido.

[Acbr Github]

Me desculpe discordar, os pull requests podem ser aceitos apenas depois dos teste. E quanto ao tamanho do projeto acredito estar enganado, existem projetos muito, muito maiores e não tem estes problemas.

 

Enfim, é certo que facilitaria, mas a decisão é de vocês

[Acbr Github]

Olá, já utilizo o ACBr a algum tempo, e já fiz alterações que acredito serem possíveis de ser adicionado ao projeto. Acredito que se fosse possível migrar o ACBr para o github, o projeto iria crescer ainda mais, pois qualquer pessoa poderia solicitar um pull request para o repositório oficial, e os coordenadores poderia dizer se aceitam ou não a alteração.

 

Fica a sugestão.