Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Campo Perfil


marcellocainelli
  • Este tópico foi criado há 3682 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

Bom dia Marcello.

O código que recebi do banco na fase em que estivesse fazendo testes, foi chamado por eles de Código do Cedente, neste caso utilizamos o campo Cedente para informar. Quantos dígitos possui o "perfil" informado pelo banco?

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

Olá, estou um tanto quanto perdido com esse boleto o banco os analistas no bradesco me retornaram o seguinte e-mail:

Agradecemos seu e-mail.

Deverá colocar no arquivo posição 27 a 46 código da empresa (perfil), colocar carteira, posição 21 a 24; agência, posição 25 a 29 (sem digito); conta, posição 30 a 37 (com digito); transmitir e arquivo e aguardar o retorno, pois só analisamos as principais posições.

Colocamo-nos à disposição.

Para mais esclarecimentos, entre em contato conosco de segunda à sexta-feira das 07:00 às 20:00 horas no telefone 3003-1000 para Capitais e regiões metropolitanas, demais regiões (0XX) DDD 3003-1000 ou através do e-mail.

BANCO BRADESCO S.A

4252 / Departamento de Serviços Centralizados

Suporte Pessoa Jurídica

Simone de Sena

eu preenchi todas as informações que estão reclamando acima e mesmo assim no arquivo remessa não esta sendo geradas, segue o meu código abaixo:

  with DtCadastro, DtCadastro2, DtCadastro3 do begin

    try

      ACBrBoleto.ListadeBoletos.Clear;

      HabDes;

      Pr.Position:= 0;

      Pr.Max:=CDSBoleto.RecordCount;

      RefreshTable(CDSContasB, 'SELECT * FROM BANCO WHERE CODIGO =:CODIGO',CDSParametrosCOD_USUARIO.AsInteger);

      case CDSContasBTIPO_BANCO.AsInteger of

        1 : ACBrBoleto.Banco.TipoCobranca:= cobBancoDoBrasil;

        2 : ACBrBoleto.Banco.TipoCobranca:= cobBradesco;

        3 : ACBrBoleto.Banco.TipoCobranca:= cobCaixaEconomica;

        4 : ACBrBoleto.Banco.TipoCobranca:= cobItau;

        5 : ACBrBoleto.Banco.TipoCobranca:= cobSantander;

      end;

      if CDSContasBCOMPROV_ENTREGA.AsString   = 'T'   then  ACBrBoleto.ComprovanteEntrega    := True else ACBrBoleto.ComprovanteEntrega     := False;

      if CDSContasBIMP_MARGEM_PADRAO.AsString = 'T'   then  ACBrBoleto.ImprimirMensagemPadrao:= True else ACBrBoleto.ImprimirMensagemPadrao := False;

      if CDSContasBLAYOUT_REMESSA.AsString    = '240' then  ACBrBoleto.LayoutRemessa         := c240 else ACBrBoleto.LayoutRemessa          := c400;

      if CDSContasBIMP_MARGEM_PADRAO.AsString = 'T'   then  ACBrBoleto.ImprimirMensagemPadrao:= True else ACBrBoleto.ImprimirMensagemPadrao := False;

      with ACBrBoleto.Cedente do begin

        Agencia:= CDSContasBAGENCIA.AsString;

        AgenciaDigito:= CDSContasBAGENCIADIGITO.AsString;

        Bairro:= CDSContasBBAIRRO.AsString;

        CEP:= RemoveChar(CDSContasBCEP.AsString);

        Cidade:= CDSContasBCIDADE.AsString;

        CNPJCPF:= RemoveChar(CDSContasBCNPJ.AsString);

        CodigoCedente:=  CDSContasBCODIGOCEDENTE.AsString;

        CodigoTransmissao:= CDSContasBCOD_TRANSMISSAO.AsString;

        Complemento:= CDSContasBCOMPLEMENTO.AsString;

        Conta:= CDSContasBCONTA.AsString;

        ContaDigito := CDSContasBCODIGODIGITO.AsString;

        Convenio:= CDSContasBCONVENIO.AsString;

        Logradouro:= CDSContasBENDERECO.AsString;

        Modalidade:= CDSContasBMODALIDADE.AsString;

        Nome:= CDSContasBNOME_CEDENTE.AsString;

        UF:= 'SP';

        case CDSContasBRESP_EMISSAO.AsInteger of

          4 :  ResponEmissao:= tbBancoEmite;

          3 :  ResponEmissao:= tbBancoNaoReemite;

          2 :  ResponEmissao:= tbBancoReemite;

          1 :  ResponEmissao:= tbCliEmite;

        end;

      end;

      ACBrBoletoFCFortes.DirLogo:= CaminhoSistema+'Imagens';

      ACBrBoletoFCFortes.DirArqPDF_HTML:= EdCaminhoArquivoPDF.Text;

      ACBrBoletoFCFortes.SoftwareHouse:= 'Sistema ByteFactory - Desenvolvido por: doutor byte sistemas (14)3554-1079 - Cafelandia/SP ';

      if CDSContasBMOST_PROCESSO.AsString = 'T' then ACBrBoletoFCFortes.MostrarPreview:= True else ACBrBoletoFCFortes.MostrarPreview := False;

      if CDSContasBMOST_SETUP.AsString = 'T'    then ACBrBoletoFCFortes.MostrarSetup:= True   else ACBrBoletoFCFortes.MostrarSetup := False;

      DsBoleto.Enabled:= False;

      CDSBoleto.First;

      while not CDSBoleto.Eof do begin

        Pr.Position:= Pr.Position + 1;

        Application.ProcessMessages;

        if (CDSBoletoGERA.AsBoolean) then begin

        if Tipo in [2] then ACBrBoleto.ListadeBoletos.Clear;

          Titulo := ACBrBoleto.CriarTituloNaLista;

          with Titulo do begin

            Vencimento        := CDSBoletoDT_VENCIMENTO.AsDateTime;

            DataDocumento     := CDSBoletoDT_GERADA.AsDateTime;

            NumeroDocumento   := RemoveChar(CDSBoletoDOCUMENTO.AsString);

            NossoNumero       := CDSBoletoCODIGO.AsString;

            EspecieDoc        := CDSContasBESPECIE_DOC.AsString;

            EspecieMod        := CDSContasBESPECIE_MOEDA.AsString;

            if CDSContasBACEITA.AsString = 'S' then Aceite := atSim else Aceite := atNao;

            DataProcessamento := Now;

            Carteira          := CDSContasBCARTEIRA.AsString;

            ValorDocumento    := CDSBoletoVALOR.AsCurrency;

            Sacado.NomeSacado := CDSBoletoCLIENTE.AsString;

            Sacado.CNPJCPF    := RemoveChar(CDSBoletoCPF_CNPJ.AsString);

            Sacado.Logradouro := CDSBoletoENDERECO.AsString;

            Sacado.Numero     := CDSBoletoEND_NUM.AsString;

            Sacado.Bairro     := CDSBoletoBAIRRO.AsString;

            Sacado.Cidade     := CDSBoletoCIDADES.AsString;

            Sacado.UF         := CDSBoletoUF.AsString;

            Sacado.CEP        := RemoveChar(CDSBoletoCEP.AsString);

            ValorAbatimento   := CDSBoletoVALOR.AsCurrency;

            LocalPagamento    := 'Pagar preferêncialmente nas agências deste Banco';

            ValorMoraJuros    := CDSContasBJUROS.AsCurrency;

            ValorDesconto     := 0;

            ValorAbatimento   := 0;

            if CDSContasBDIAS_MULTA.AsInteger > 0 then

              DataMoraJuros     := CDSBoletoDT_VENCIMENTO.AsDateTime;

            if CDSContasBDIAS_PROTESTO.AsInteger > 0 then

              DataProtesto      := CDSBoletoDT_VENCIMENTO.AsDateTime + CDSContasBDIAS_PROTESTO.AsInteger;

            PercentualMulta   := CDSContasBPERCENT_MULTA.AsCurrency;

            Mensagem.Text     := CDSContasBMENSAGEM.AsString;

            OcorrenciaOriginal.Tipo := toRemessaBaixar;

          end;

          //Gera PDF

          if Tipo in [2] then begin

            if FileExists(EdCaminhoArquivoPDF.Text +'\'+CDSBoletoCOD_CLI.AsString +'.pdf') then DeleteFile(EdCaminhoArquivoPDF.Text +'\'+CDSBoletoCOD_CLI.AsString +'.pdf');

            ACBrBoleto.ACBrBoletoFC.NomeArquivo := CDSBoletoCOD_CLI.AsString +'.pdf';

            ACBrBoleto.GerarPDF;

          end;

        end;

        CDSBoleto.Next;

      end;

      if Tipo in [1] then ACBrBoleto.Imprimir;

      if Tipo in [3] then begin

        ACBrBoleto.DirArqRemessa:= EdCaminhoArquivoRemessa.Text+'\';

        ACBrBoleto.NomeArqRemessa:= GerarNomeArquivo;

        ACBrBoleto.GerarRemessa(1);

      end;

    finally

      DsBoleto.Enabled:= True;

      HabDes;

    end;

  end;

seque em anexo o arquivo remessa

Por gentileza desde já agradeço a quem me ajudar!

[email protected]

CB2004A1.rar

Link to comment
Share on other sites

  • Administradores

Bom dia Marcello.

Desculpe a demora....pelo que observei no arquivo em anexo, a única informação que realmente está ausente é a Carteira, as demais estão nas posições corretas.

Este trecho de código está retornando vazio?

...

Carteira := CDSContasBCARTEIRA.AsString;

...

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.