Cobrança Itaú: COBRANÇA E-MAIL E/OU DADOS DO SACADOR AVALISTA

[André Luis - Minf]

Boa noite.

Incluir registro 5 no arquivo de remessa com dados de e-mail para o banco Itaú.

Peço para a inclusão no SVN.

                   //OPCIONAL – COBRANÇA E-MAIL E/OU DADOS DOSACADOR AVALISTA
                   if Sacado.Email <> '' then
                   begin
                     wLinhaMulta:= '5'                                                   + // Tipo de registro - 5 IDENTIFICAÇÃO DO REGISTRO TRANSAÇÃO
                                   PadRight(Sacado.Email, 120, ' ')                      + // ENDEREÇO DE E-MAIL ENDEREÇO DE E-MAIL DO PAGADOR
                                   ATipoSacado                                           + // CÓDIGO DE INSCRIÇÃO IDENT. DO TIPO DE INSCRIÇÃO DO SACADOR/AVALISTA
                                   PadLeft(OnlyNumber(Sacado.CNPJCPF), 14, '0')          + // NÚMERO DE INSCRIÇÃO NÚMERO DE INSCRIÇÃO DO SACADOR AVALISTA
                                   PadRight(Sacado.Logradouro + ' '+ Sacado.Numero + ' ' +
                                   Sacado.Complemento , 40, ' ')                         + // RUA, Nº E COMPLEMENTO DO SACADOR AVALISTA
                                   PadRight(Sacado.Bairro, 12, ' ')                      + // BAIRRO DO SACADOR AVALISTA
                                   PadLeft(OnlyNumber(Sacado.CEP), 8, '0')               + // CEP DO SACADOR AVALISTA
                                   PadRight(Sacado.Cidade, 15, ' ')                      + // CIDADE DO SACADOR AVALISTA
                                   PadRight(Sacado.UF, 2, ' ')                           + // UF (ESTADO) DO SACADOR AVALISTA
                                   space(180)                                            + // COMPLEMENTO DE REGISTRO
                                   IntToStrZero(aRemessa.Count + 3 , 6);                   // Sequencial

                     wLinha := wLinha + #13#10 + wLinhaMulta;

                   end;

Att.

[José M. S. Junior]

Bom dia, se possível anexe o fonte (.pas) com a alteração, obrigado.

[André Luis - Minf]

Bom dia. Segue anexo fonte conforme solicitado. Alteração a partir da linha 782.

Obrigado pelo retorno.

 

ACBrBancoItau.pas

Editado 15 Agosto, 2017 por [email protected]

[André Luis - Minf]

Em 15/08/2017 at 11:54, [email protected] disse:

Bom dia. Segue anexo fonte conforme solicitado. Alteração a partir da linha 782.

Obrigado pelo retorno.

 

ACBrBancoItau.pas

Boa tarde. Fiz mais uma pequena alteração no sequencial. 

ACBrBancoItau.pas

ACBrBancoItau.pas

[José M. S. Junior]

Fontes atualizados, já disponível no SVN...