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.