jaidomini

Atualizei o ACBr, Danfe tudo certo!

A Origem do problema está nessa função Correção em Azul: function TNFeXmlReader.ObterConteudo(const ANode: TACBrXmlNode; const Tipo: TACBrTipoCampo): variant; begin Result := inherited ObterConteudo(ANode, Tipo); if Tipo in [tcStr] then Result := ParseText(Result) else if Tipo in [tcEsp, tcStrOrig] then Result := ParseText(Result, False); end;

Bom dia Eusébio-CE, trocou de SpeedGov para EL Já consegui transmitir a NFSe em Produção, segue alteração no ACBrNFSeXServicos.ini [2304285] Nome=Eusebio Provedor=EL Versao=2.04 ProRecepcionar=https://ce-eusebio-pm-nfs-backend.cloud.el.com.br/nfse40/NfseWSService?wsdl HomRecepcionar=https://ce-eusebio-pm-nfs-backend.cloud.el.com.br/nfse40/api/nacional/homologacao/nfse Params=NaoFormatarItemServico:

Bom dia, As vezes a tag valor_iss vem com 4 digitos decimal como na foto abaixo, o 51,9852 vira 5198,52 de ISS na nota em vez de 51,99. No ADN está apenas como 51,99 A correção feita está em destaque abaixo, em azul o que fiz, em vermelho como era SigISSWeb.LerXml.pas

A chave de acesso da nota de serviço nacional é 50 Coloquei uma verificação de segurança, comparando com 50, se quiserem podem mudar para algo diferente, como ChaveADN <> '' também pode, eu só quis deixar mais seguro

Bom dia, segue contribuiçlão de correção. Corrigido de Para ACBrBoletoW_Caixa.pas

Boa tarde Unit ACBrNFSeXDANFSeRLPadraoNacional.pas Unit ACBrNFSeXLerXml_ABRASFv2.pas Como vem no XML a chave de Acesso ACBrNFSeXLerXml_ABRASFv2.pas ACBrNFSeXDANFSeRLPadraoNacional.pas

Bom dia Fiz esta alteração para que no titulo retornado, não fique em branco a linhadig, codbarras no "TituloRet". Att Jaisson ACBrBoletoRet_Caixa.pas

Seguem os arquivos ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLRetrato.pas

Bom dia, seria possível já deixar assim como na imagem para não ficar um "TEL: " perdido quando não tem telefone no emitente? unit ACBrNFeDANFeRLRetrato; procedure TfrlDANFeRLRetrato.DefinirEmitente; Atualmente: sTemp := 'TEL: ' + FormatarFone(Fone); rlmEndereco.Lines.add(sTemp); Alterar para: if Trim(Fone) <> '' then begin sTemp := 'TEL: ' + FormatarFone(Fone); rlmEndereco.Lines.add(sTemp); end;

Bom dia. Sim, a alteração procede, passei pelo mesmo problema.

Bom dia Erro na leitura do XML na linha 126 do arquivo Publica.LerXML.pas O Endereco.CodigoPais é Integer, então dá erro de conversão de string para integer. Alterei para tcInt e funcionou corretamente. Publica.LerXml.pas

Boa tarde, Não está vindo formatado corretamente no json do bradesco a data de pagamento, tive que fazer o ajuste abaixo. Peço perdão por não ter nesse momento o Log do bradesco, ficou no computador do cliente. Grato, Jaisson ACBrBoletoRet_Bradesco.pas

Consulta realmente está com erro Segue correção em anexo, a consulta não estava incluindo o digito da conta Obg. ACBrBoletoW_Safra.pas

Bom dia Cliente já está usando em fase de produção, tudo ok com a emissão com a versão que passei. Assim que possivel, farei a consulta, embora ela seja um pouco "inutil" pq não traz pagamentos. Obrigado.

A consulta não testei, porque não vou usar. O Safra é ruim pra isso, eles não dão detalhes se está pago ou não, nem consulta individual ou por francesinha, vc envia por Api e eles fornecem o arquivo CNAB para processamento do retorno.

Ainda estou na fase de homologação, é o primeiro cliente com o Safra, para homologação eles fornecem uma agência e conta que não é do cliente Ag: 12400 Conta: 00101100-9 Então quando ele envio o json, vai com a conta errada porque o if relatado anterior, elimina o digito da conta em homologação, em produção não. Incluí o Log do envio, chega a gerar o token mas dá erro 503. se eu reverto a alteração para colocar o digito da conta como era antes, funciona. Log com erro que fiz agora pouco para vc ver Log com boleto emitido hoje a tarde já revertida a alteração Grato

Ola, Favor reverter a alteração feita na procedure RequisicaoJson pois no ambiente homologação está dando erro sem o digito. O correto é como era antes, Obrigado, segue .pas anexado. Jaisson ACBrBoletoW_Safra.pas

Eu sempre recupero a minha versão....

Boa tarde Boa atitude, esse Betha tá difícil

@TiagoFZ Era esse o erro? "Serviço %s não implementado para este provedor" Onde vc colocar o NumberOnly?:

Bom dia, faça isso para provedor Publica de Joinville ACBrNFSeX1.Configuracoes.WebServices.QuebradeLinha := ';'; ACBrNFSeX1.Provider.ConfigGeral.QuebradeLinha := ';';

No SVN não nada novo.... sei que vc tá resistente em colocar a minha versão e sim corrigir a que está, só queria lembrar que foi eu que fiz seguindo o manual e postei pra vcs. Mas não tem problema então, eu deixo a minha aqui e sempre recupero ela pra funcionar, a única coisa chata é que quem precisar não vai conseguir, abraço.

Bom dia, segue em anexo o arquivo. Victor, eu volto a reforçar, o Layout da Sofisa não existia no ACBr, foi eu que desenvolvi no formato do ACBR e postei aqui e vocês incorporaram no SVN, não sei porque mas fizeram alterações que não ficaram compatíveis. Se você deletar do SVN o que está e colocar o que enviei já fica tudo certo. Obrigado. Liquidações 30-09-2025.309

Bom dia Pessoal, toda vez que atualizo o ACBr tenho que repor com meu fonte ACBrBancoSofisaItau.pas, porque o do SVN gera inúmeros erros ao processar retorno e outros ainda... Foi eu quem fez essa contribuição, não existia, então desenvolvi olhando o manual, tratando cada coluna do TXT adequadamente, códigos de retorno, etc. O que está no SVN não funciona... Tenho cliente utilizando de forma plana 100%, se possível substituam o atual pelo meu, por favor. Obrigado. ACBrBancoSofisaItau.pas