Boleto Sicredi

[GONDIM]

Pessoal boa tarde, estou fazendo o boleto da Sicredi, gostaria de saber se estou casando do campos corretamente, tem um campo posto que segundo a informações, pediu para colocar a agencia junto com o digito dela e no campo agencia digito o campo posto, e o nosso numero o máximo seria 5 ou 10 dígitos eu verifiquei o valor é 5 mesmo?

Estou pedindo para verificar antes que enviar para homologar:

  ACBrBoleto1.Cedente.Agencia       := '03338' sendo 8 o digito da agencia
  ACBrBoleto1.Cedente.AgenciaDigito := '26' numero o posto
  ACBrBoleto1.Cedente.Conta         := '22816';
  ACBrBoleto1.Cedente.ContaDigito   := '6';
  ACBrBoleto1.Cedente.CodigoCedente := '22816';
  ACBrBoleto1.Cedente.Nome          := 'TESTE'
  ACBrBoleto1.Cedente.CNPJCPF       := '04.048.938/0001-22'
  ACBrBoleto1.Cedente.Cidade        := 'TESTE'
  ACBrBoleto1.Cedente.Bairro        := 'TESTE'
  ACBrBoleto1.Cedente.UF            := 'MG'
  ACBrBoleto1.Cedente.CEP           := '38400000'
  ACBrBoleto1.Cedente.Logradouro    := 'RUA TESTE'
  ACBrBoleto1.Cedente.NumeroRes     := '1'
  ACBrBoleto1.Cedente.Complemento   := '';
  ACBrBoleto1.Cedente.Convenio      := '';
  ACBrBoleto1.Cedente.Modalidade    := '';
  ACBrBoleto1.LayoutRemessa         := c240;
  ACBrBoleto1.DataArquivo           := Date;
  ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0';

    with Titulo do
      begin
        LocalPagamento    := 'EM QULAQUER BANCO ATE O VENCIMENTO';
        Vencimento        := '07/10/2022';
        DataDocumento     := '07/10/2022';
        NumeroDocumento   := '123456'
        EspecieDoc        := 'DM'
        Aceite            := atSim;
        DataProcessamento := '07/10/2022';
        Carteira          := 'RG';
        NossoNumero       := IntToStrZero(qryContasReceberNR_BOLETO.AsInteger,5);
        ValorDocumento    := '5950'
        Sacado.NomeSacado := 'TESTE'
        Sacado.CNPJCPF    := OnlyNumber(qryClienteDS_CNPJFAT.AsString);
        if qryClienteTP_PESSOA.AsString = 'J' then
          Sacado.Pessoa := pJuridica
        else
          Sacado.Pessoa := pFisica;
        Sacado.Logradouro := qryClienteDS_ENDERECO.AsString;
        Sacado.Numero     := qryClienteNR_ENDFATU.AsString;
        Sacado.Bairro     := qryClienteDS_BAIRRO.AsString;
        Sacado.Cidade     := qryClienteDS_CIDADE.AsString;
        Sacado.UF         := qryClienteDS_SIGLA.AsString;
        Sacado.CEP        := TiraPontoVirgula(qryClienteDS_CEPFATU.AsString);
        ValorAbatimento   := StrToCurrDef('0',0);
        LocalPagamento    := qryContasReceberDS_LOCALPAGTO.AsString;
        ValorMoraJuros    := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVrMoraRS.Asfloat),0);
        ValorDesconto     := StrToCurrDef('0',0);
        ValorAbatimento   := StrToCurrDef('0',0);
        DataMoraJuros     := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0);
        DataMulta         := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0);
        //DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);
        //DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);
        DataProtesto      := StrToDateDef(DatetoStr(qryContasReceberDT_PROTESTO.AsDateTime), 0);
        PercentualMulta   := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVR_MULTA.Asfloat),0);
        Mensagem.Text     := qryContasReceberDS_MEMBOLETO.AsString  +  #13#10 + qryContasReceberDS_MEMBOLETO2.AsString +  #13#10 + qryContasReceberDS_MEMBOLETO3.AsString;
        //Instrucao1        := padL(trim(edtInstrucoes1.Text),2,'0');
        //Instrucao2        := padL(trim(edtInstrucoes2.Text),2,'0');
        ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);
      end;

[jaidomini]

Bom dia

Já configurei várias vezes Sicredi, e a agência é sempre com 4 casas e o dígito da agência, no caso o posto com 2 casas.

DigitoVerificadorAgenciaConta  não preencho.

Sobre o nosso numero, eu passo um código que crio para cada boleto e o Acbr se encarrega de formatar ele, exemplo: 5775

[GONDIM]

bom dia, no caso do exemplo acima

 ACBrBoleto1.Cedente.Agencia       := '03338' sendo 8 o digito da agencia 
  ACBrBoleto1.Cedente.Agencia       := '0333' ficaria desta forma e o digito da agencia  onde vou passar que seria o 8 no caso?

  ACBrBoleto1.Cedente.AgenciaDigito := '26'  seria o numero do posto. Eu passo neste lugar mesmo ?

 

ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0';

ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '' vai ficar vazio correto;

[GONDIM]

Pessoal bom dia, consegui terminar o sicredi

Se alguém tiver duvida, os campos que alteram em relação as outros bancos são:

Numero banco = 748

Digito banco = 0

Agencia = colocar o numero sem o digito exemplo 0333-8 no caso seria apenas 0333

digito agencia = seria no numero do posto exemplo 26

numero da conta e digito são os valores normais.

numero convenio = ''

numero carteira = '1'

modalidade = ''

especie = 'DMI' eles não aceitam 'DM'

quando for passar os parâmetros as mudanças principais que eu tive que alterar foi:

ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '';

CodigoMoraJuros   := cjTaxaMensal;
 ValorMoraJuros    := StrToCurrDef(FormatFloat('#,##0.00',qryRemessaVR_MORADIARIA.Asfloat),0); colocar o percentual não o valor em R$
//ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); tive que deixar em comentário pois eles não aceitam mensagens fora do padrão.

 //Mensagem.Text     := qryRemessaDS_MEMBOLETO.AsString + #13#10 + qryRemessaDS_MEMBOLETO2.AsString;

Espera ter ajudado.

Abraços.

 

 

[Daniel Sachini]

Olá amigo, voce esta conseguindo fazer o retorno do Sicredi normal depois dessa ultima atualizacao?

 

Para mim comecou aparecer um access violation. No momento que faz o AcbrBoleto.envio. Isso via WS. 

Vi que teve algumas melhorias nos codigos WS. Mas estou aqui tentando a uma semana descobrir o que pode ser. E até agora nada

 

Editado 24 Outubro, 2022 por Daniel Sachini