Integração com Banco Daycoval

[André Rodrigues Ferreira]

Alguem está conseguindo enviar boletos e receber retorno para o banco Daycoval com os compoentes ACbR?

[Juliomar Marchetti]

14 horas atrás, André Rodrigues Ferreira disse:

Alguem está conseguindo enviar boletos e receber retorno para o banco Daycoval com os compoentes ACbR?

Já tem a unit e o tipo do banco no Boleto?

tente rodar o exemplo e ver

[André Rodrigues Ferreira]

1 hora atrás, Juliomar Marchetti disse:

Já tem a unit e o tipo do banco no Boleto?

tente rodar o exemplo e ver

Farei os testes. Obrigado.

[Antonio Paulo Mangili]

Em 24/10/2019 at 10:22, André Rodrigues Ferreira disse:

Farei os testes. Obrigado.

andré boa tarde. voce conseguiu gerar os boletos do banco daycoval? 
Estou com problemas de calculo do digito verificador no boleto. 
Uso a seguinte função em meu sistema:

yNossoNumero := '84580106'

NossoNumero001 := UFunction.Formatar(yNossoNumero,8,false,'0');

Mas ele esta gerando o nosso numero com digito -8 conforme boleto anexo, e o banco me informou que esta errado deveria ser 0(zero)

poderia me ajudar?

Obrigado
Paulinho

{FUNÇÃO FORMATAR
//OBJETIVO: Eliminar caracteres inválidos e acrescentar caracteres à esquerda ou à direita do texto original para que a string resultante fique com o tamanho desejado

   Texto : Texto original
   TamanhoDesejado: Tamanho que a string resultante deverá ter
   AcrescentarADireita: Indica se o carácter será acrescentado à direita ou à esquerda
      TRUE - Se o tamanho do texto for MENOR que o desejado, acrescentar carácter à direita
             Se o tamanho do texto for MAIOR que o desejado, eliminar últimos caracteres do texto
      FALSE - Se o tamanho do texto for MENOR que o desejado, acrescentar carácter à esquerda
             Se o tamanho do texto for MAIOR que o desejado, eliminar primeiros caracteres do texto
   CaracterAcrescentar: Carácter que deverá ser acrescentado
}
function Formatar(Texto : string; TamanhoDesejado : integer; AcrescentarADireita : boolean = true; CaracterAcrescentar : char = ' ') : string;
var
   QuantidadeAcrescentar,
   TamanhoTexto,
   PosicaoInicial,
   i : integer;

begin
   case CaracterAcrescentar of
      '0'..'9','a'..'z','A'..'Z' : ;{Não faz nada}
      else
         CaracterAcrescentar := ' ';
   end;

   Texto := Trim(AnsiUpperCase(Texto));
   TamanhoTexto := Length(Texto);
   for i := 1 to (TamanhoTexto) do
   begin
        if Pos(Texto,' 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`~''"!@#$%^&*()_-+=|/\{}[]:;,.<>') = 0 then
        begin
             case Texto of
             'Á','À','Â','Ä','Ã' : Texto := 'A';
             'É','È','Ê','Ë' : Texto := 'E';
             'Í','Ì','Î','Ï' : Texto := 'I';
             'Ó','Ò','Ô','Ö','Õ' : Texto := 'O';
             'Ú','Ù','Û','Ü' : Texto := 'U';
             'Ç' : Texto := 'C';
             'Ñ' : Texto := 'N';
             else Texto := ' ';
             end;
        end;
   end;

   QuantidadeAcrescentar := TamanhoDesejado - TamanhoTexto;
   if QuantidadeAcrescentar < 0 then
      QuantidadeAcrescentar := 0;
   if CaracterAcrescentar = '' then
      CaracterAcrescentar := ' ';
   if TamanhoTexto >= TamanhoDesejado then
      PosicaoInicial := TamanhoTexto - TamanhoDesejado + 1
   else
      PosicaoInicial := 1;

   if AcrescentarADireita then
      Texto := Copy(Texto,1,TamanhoDesejado) + StringOfChar(CaracterAcrescentar,QuantidadeAcrescentar)
   else
      Texto := StringOfChar(CaracterAcrescentar,QuantidadeAcrescentar) + Copy(Texto,PosicaoInicial,TamanhoDesejado);

   Result := AnsiUpperCase(Texto);
end;

 

 

ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

[Juliana Tamizou]

Boa tarde Antonio.

Não entendi como esse código resolve a situação do DV, porém analisando o manual do svn me parece  que tem algo estranho realmente.

Anexe a versão mais recente do manual para que possamos analisar melhor, pois temos outros usuários emitindo para este banco.

Att.

[Antonio Paulo Mangili]

6 horas atrás, Juliana Tamizou disse:

Boa tarde Antonio.

Não entendi como esse código resolve a situação do DV, porém analisando o manual do svn me parece  que tem algo estranho realmente.

Anexe a versão mais recente do manual para que possamos analisar melhor, pois temos outros usuários emitindo para este banco.

Att.

boa noite juliana. então ja fiz de tudo e não gera o digito em que o banco me orienta que estaria correto. vou anexar o leaiute que me enviarão.

obrigado

 

Manual M. 707 - Banco Daycoval Dez-19.pdf

[Juliana Tamizou]

Bom dia.

Atualize seus fontes e faça novos testes.

Att.

[Antonio Paulo Mangili]

17 minutos atrás, Juliana Tamizou disse:

Bom dia.

Atualize seus fontes e faça novos testes.

Att.

Juliana bom dia. atualizei e efetuei a impressão novamente. me parece que deu certo. mas vou enviar ao suporte da daycoval para validação e depois te retorno.

muito obrigado pela atenção e rapidez no suporte.

paulinho

[Antonio Paulo Mangili]

6 horas atrás, Juliana Tamizou disse:

Bom dia.

Atualize seus fontes e faça novos testes.

Att.

Juliana boa tarde. como passei a voce anteriormente enviei os boleto a daycoval e o digito ficou correto, porem a linha digitavel esta errada. segue o exemplo do bando e o boleto impresso após essa atualização.

banco:

ACERTO NA LINHA DIGITAVEL
SEU BOLETO / ERRADO - 7079000118 21008458016 060.4 6 81950000771750
VALIDADO  / CORRETO - 7079000118 21150846406 08468010601 8 81950000771750

ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

[Juliana Tamizou]

Boa tarde.

Para que possamos analisar, você deve informar as configurações passadas ao componente.

Att.

[Antonio Paulo Mangili]

Em 14/02/2020 at 16:44, Juliana Tamizou disse:

Boa tarde.

Para que possamos analisar, você deve informar as configurações passadas ao componente.

Att.

Juliana bom dia segue alimentação do componente,  e o boleto gerado para analise. obrigado

//Dados da Agencia e Conta
               Cedente.Agencia                       := Agencia;
               Cedente.AgenciaDigito                 := DigitoAgencia;
               Cedente.Conta                         := ContaC;
               Cedente.ContaDigito                   := DigitoCC;
               Cedente.CodigoCedente                 := '0000000';
               Cedente.Operacao                      := CdsTab707HEACONVENIO.AsString;

               //Dados da Duplicata
               Vencimento                            := CdsTabRecVENCIMENTO.AsDateTime;
               DataDocumento                         := CdsTabRecEMISSAO.AsDateTime;
               NumeroDocumento                       := CdsTabRecDOCUMENTO.AsString + '/' + CdsTabRecPARCELA.AsString;
               EspecieDoc                            := 'DM';
               Aceite                                := atNao;
               DataProcessamento                     := Now;
               Carteira                              := CdsTab707HeaCARTEIRA.AsString;
               NossoNumero                           := NossoNumero001;
               ValorDocumento                        := CdsTabRecVALOR.AsCurrency;
               LocalPagamento                        := 'Pagavel em qualquer agencia bancaria, mesmo apos VENCIMENTO';
               ValorMoraJuros                        := MoraJuros;
               DataMoraJuros                         := CdsTabRecVENCIMENTO.AsDateTime + 1;
               Mensagem.Text                         := Mensag;

ANDREA 2003 HORTIFRUT LTDA_121_1.pdf

[Juliana Tamizou]

Bom dia.

Preciso  dos valores passados ao componente...

Exemplo

Ao invés de 

Citar

Cedente.Operacao                      := CdsTab707HEACONVENIO.AsString;

Preciso de 

Citar

Cedente.Operacao                      := '12345';

Att.

[Antonio Paulo Mangili]

47 minutos atrás, Juliana Tamizou disse:

Bom dia.

Preciso  dos valores passados ao componente...

Exemplo

Ao invés de 

Preciso de 

Att.

bom dia. segue:

Cedente.Agencia                       := '0001';
               Cedente.AgenciaDigito                 :='9';
               Cedente.Conta                         := '737099';
               Cedente.ContaDigito                   := '9';
               Cedente.CodigoCedente                 := '0000000';
               Cedente.Operacao                      := '1508464';

[Antonio Paulo Mangili]

5 horas atrás, Juliana Tamizou disse:

Bom dia.

Preciso  dos valores passados ao componente...

Exemplo

Ao invés de 

Preciso de 

Att.

Juliana boa tarde. enviei novamente os boletos ao suporte da daycoval, e os mesmo foi aprovado.

muito obrigado pela atenção. poderia fechar o topico por favor.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.