Eduardo Vasconcellos

Funcionou! muito grato.

Obrigado, Ítalo. Vou atualizar e testar novamente.

Caros, Quando há erro na RPS ao enviar uma nota para o servidor de São paulo ( ProSP ) retorna '0' na variável FProtocolo em vez de '' e passa direto na linha 2340 - if FProtocolo <> '' then Dá erro logo mais abaixo List out of bounds em 2354 - FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero; porque não há nota fiscal retornada. Dessa forma não retorna a mensagem de erro do servidor.

Eu me deparei com o mesmo problema. A variável Fprotocolo é retornada com valor '0' e não '' quando o RPS tem erros e passa direto pela linha 2340 if FProtocolo <> '' then na unit ACBrNFSEWebServices. O erro acontece logo abaixo na linha 2354 FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero;

Gean, Quando o boleto vence que começamos a cobrar multa e mora. Algumas pessoas preferem conceder um ou mais dias para o sacado pagar sem multa e mora. Acredito que esse campo de data de mora e multa tenha sido criado para isso. Não vejo muito sentido prático em começar a cobrar a multa e mora em dias diferentes. Se você tem essa solicitação de seu cliente terá de implementar você mesmo um campo a mais para conter esta data.

Olá, Juliana. Segue novamente o arquivo. Marquei minhas modificações para facilitar a identificação das mudanças. ACBrBancoItau.pas ACBrBancoItau.pas

Implementei esta opção de envio de multa e já está em produção aqui. Modificar ACBrBancoItau na procedure GerarRegistroTransacao400 linha 449 - incluir após ATipoEspecieDoc, ANossoNumero,wLinha,wCarteira :String; wMulta :String; - incluir após IntToStrZero(aRemessa.Count + 1, 6); if PercentualMulta>0 then begin wMulta:= '2'+//tipo de registro - 2 OPCIONAL – COMPLEMENTO DETALHE - MULTA '2'+//CODIGO DA MULTA X(001) 2-percentual FormatDateTime('ddmmyyyy',DataMoraJuros)+//DATA DA MULTA 9(008) IntToStrZero( round(PercentualMulta * 100 ), 13) +//VALOR/PERCENTUAL A SER APLICADO 9(013) space(371)+// IntToStrZero(aRemessa.Count + 2 , 6);//sequencial wLinha := wLinha + #13 + wMulta; //acrescenta linha multa end; Segue arquivo modificado em anexo. Espero ter ajudado. ACBrBancoItau.pas ACBrBancoItau.pas

Olá, caros amigos. Existe um comando trocado no AcbrBancoSantander.pas na linha 203: toRemessaCancelarInstrucaoProtesto : Ocorrencia := '18'; {Sustar protesto e manter na carteira} correto seria toRemessaCancelarInstrucaoProtesto : Ocorrencia := '98'; {Cancelar instrução de protesto} toRemessaSustarProtesto : Ocorrencia := '18'; {Sustar protesto e manter na carteira} Conforme manual disponível do santander para layout 400. Seria possível alterar este arquivo? Muito grato pela atenção.

Olá, caros amigos. O Santander retornou erro no meu layout CNAB do Santander. Verifiquei e realmente há algo estranho no código que segue abaixo: Unidade ACBrBancoSantander.pas Linha 155 - padR( CodigoTransmissao, 20, '0') linha 250 - padL(trim(Cedente.CodigoTransmissao),20,'0') Isso está causando um alinhamento diferente no header e no transação para o campo código de transmissão. revisão 6429

A logomarca aparece nos boletos com fastreport após atualização dos arquivos do projeto hoje.

Eu também não consigo colocar o logo do banco nos boletos com fast report. O path que uso para imprimir no fortes não funciona no fast report e nem colocando o logo através do evento do componente a logo entra. Uso Delphi Xe2 update 3. Vou testar as mudanças do colega para ver se funciona.