Código Do Sacado Inválido - Remessa Cnab400 Bradesco

[isaque.ribeiro]

Bom dia, Senhores.

 

Estou tentando importar o arquivo de remessa cnab400 para o Bradesco, através do OBBPlus e este está retornando a seguinte mensagem de erro:

"Código do sacado inválido".

 

Obs.: Segue anexo de remessa em anexo e a parte do código que insiro as informações do sacado está abaixo:

 

        // Dados do Sacado

        Sacado.CNPJCPF    := dbCPF.Field.AsString;

        Sacado.NomeSacado := dbNome.Field.AsString;

        Sacado.Logradouro := IbQryClientesENDER_DESC.AsString;

        Sacado.Numero     := IbQryClientesENDER_NUM.AsString;

        Sacado.Bairro     := dbBairro.Field.AsString;

        Sacado.Cidade     := dbCidade.Field.AsString;

        Sacado.UF         := dbUF.Field.AsString;

        Sacado.CEP        := StrOnlyNumbers(dbCEP.Field.AsString);

 

        // Dados do Documento

        LocalPagamento := 'Pagar preferêncialmente nas agências do(a) ' + ACBrBoleto.Banco.Nome;

 

237_20130925-161832.txt

[Juliana Tamizou]

Bom dia.

 

De acordo com as informações que vc disponibilizou, vc não está informado o campo CodigoCedente que é o campo que contém o Código do Cedente.

 

Att.

[isaque.ribeiro]

Bom dia.

 

Esqueci de citar, mas estou informando os dados do cedente desta forma:

 

      // Dados Conta

      Cedente.Agencia       := GetAgenciaNumero;

      Cedente.AgenciaDigito := GetAgenciaDigito;

      Cedente.Conta         := GetContaNumero;

      Cedente.ContaDigito   := GetContaDigito;

      Cedente.Convenio      := IbQryBancosBCO_CHAVE.AsString;

 

      // Dados Cedente

      Cedente.CNPJCPF     := IbQryBancosEMPRESA.AsString;

      Cedente.Nome        := IbQryBancosRZSOC.AsString;

      Cedente.Logradouro  := IbQryBancosENDER.AsString;

      Cedente.NumeroRes   := IbQryBancosNUMERO_END.AsString;

      Cedente.Complemento := IbQryBancosCOMPLEMENTO.AsString;

      Cedente.Bairro := IbQryBancosBAIRRO.AsString;

      Cedente.CEP    := IbQryBancosCEP.AsString;

      Cedente.Cidade := IbQryBancosCIDADE.AsString;

      Cedente.UF     := IbQryBancosUF.AsString;

 

      // Dados Convênio

      Cedente.CodigoCedente     := IbQryBancosBCO_CODIGO_CEDENTE.AsString;

      Cedente.Convenio          := IbQryBancosBCO_CHAVE.AsString;

      Cedente.CodigoTransmissao := EmptyStr;

[isaque.ribeiro]

Senhores, bom dia, novamente.

 

Consegui solucionar o problema. Esta faltando informa o tipo da pessoa do sacado (pFisica, pJuridica, pOutras).

Agradeço a atenção dos moderadores.

 

        // Dados do Sacado

        if StrIsCPF(dbCPF.Field.AsString) then

          Sacado.Pessoa   := pFisica

        else

        if StrIsCNPJ(dbCPF.Field.AsString) then

          Sacado.Pessoa   := pJuridica

        else

          Sacado.Pessoa   := pOutras;

 

        Sacado.CNPJCPF    := dbCPF.Field.AsString;

        Sacado.NomeSacado := dbNome.Field.AsString;

 

. . . . . . .