COMO Gerar arquivo remessa CNAB400?

[Domingos Dimas]

Boa tarde,

 

Favor informe porque quando gero arquivo remessa Banco Brasil só gera no formato CNAB240, banco quer no formato CNAB400,

alimento assim:

      // Atribuir propriedades...
      with dm.ACBrBoleto.Cedente do
       begin
         // Conta
         Agencia           := edAgencia.Text;
         AgenciaDigito     := edAgenciaDigito.Text;
         Conta             := edConta.Text;
         ContaDigito       := edContaDigito.Text;
         Convenio          := edConvenio.Text;
         CodigoCedente     := ''; // em branco caso banco do brasil;
         TipoDocumento     := Tradicional;
         ResponEmissao     := tbCliEmite;
         // se banco do brasil
         if cbTipoBanco.ItemIndex in [1,3] then
           Modalidade := Copy(edtCarteira.Text,4)
         else
           Modalidade := '';

         // cedente
         FantasiaCedente := ADODSFarqParFANTASIA.Text; //'Nome Fantasia' ;
         Nome := ADODSFarqParFEMP.Text; // 'Nome do edente' ;
         CNPJCPF := ADODSFarqParFCGC.Text; // 'Nome do edente' ;
         Logradouro := ADODSFarqParFEND.Text; //'Logradouro do edente' ;
         Bairro := ADODSFarqParFBAIR.Text; //'Bairro do edente' ;
         Cidade := ADODSFarqParFCIDA.Text; //'Cidade do edente' ;
         CEP := TiraPontos(ADODSFarqParFCEP.Text); //'CEP do edente' ;
         UF := ADODSFarqParFUF.Text; //'CEP do edente' ;

       end;
 

segue arquivo anexo,

de já agradeço,

Domingos Dimas

 

cb220601.rem

[Dercide Alvarez]

Boa tarde,

Você deve informar qual o lay-out a ser usado :

 

    with AcbrBoleto do
    begin
 

      case FTipoCNAB of
        0 : AcbrBoleto.LayoutRemessa := c240;
        1 : AcbrBoleto.LayoutRemessa := c400;
      end;

end;

 

Dercide Alvarez

 

[Domingos Dimas]

Boa noite Dercide Alvarez

já faço isto:

       with dm.ACBrBoleto do
       begin
         // paths....
         DirArqRemessa := edPathRemessa.Text; // + '\Remessa'+FormatDateTime('DDMMYYYYHHMMSS',Now)+'.TXT';
         DirArqRetorno := edPathRetorno.Text; // + '\Retorno'+FormatDateTime('DDMMYYYYHHMMSS',Now)+'.TXT';
         ACBrBoletoFC.NomeArquivo := edPathPDF.Text + '\Boleto.PDF';

         // LayoutRemessa
         LayoutRemessa := TACBrLayoutRemessa(cboxLayRemessa.ItemIndex);

         ACBrBoletoFC.MostrarPreview := True;
         ACBrBoletoFC.MostrarProgresso := True;
         ACBrBoletoFC.MostrarSetup := True;
         ACBrBoletoFC.PrinterName := lbimpressoraEscolhida.Caption;
         ACBrBoletoFC.SoftwareHouse := ADODSFarqParFdadAut.Text;
       end;
 

mesmo assim o Banco continua validando como se fosse c240, mas informo c400.

obrigado pela atenção.

Domingos Dimas

[Juliana Tamizou]

Bom dia.

O arquivo foi gerado com 240 ou 400 colunas? Se está sendo gerado corretamente, você deve checar a questão com o banco, agora se não, sugiro estudar o demo do componente para entender melhor.

Att.

[BigWings]

18 horas atrás, Domingos Dimas disse:

cb220601.rem 1 kB · 1 download

Esse arquivo é CNAB400...

[Juliana Tamizou]

Boa tarde.

Neste caso realmente deve ser a configuração da carteira do cliente no banco que está incorreta ( ou está sendo gerado o arquivo incorreto).

4 horas atrás, BigWings disse:

Esse arquivo é CNAB400...

 

Att.