Gerar Carne Santander

[manoel santos]

Bom dia 

Estou gerando o Carne Para o Banco Santander e estou com o seguinte erro.

 

Na primeira vez que gero o carne a linha digitavel ficam assim :

 

No 1 º  Boleto  = '03399.59462 271  .000010 22846.301020 1 56330000002430'

No 2 º  Boleto  = '03399.59462 27100.000010 22847.101023 5 56640000002430'

 

Isso na primeira vez que gero , Se fechar a visualização e gerar novamente fica assim que é a Forma Correta:

 

 

No 1 º  Boleto  = '03399.59462 27100.000010 22846.301020 1 56330000002430'

No 2 º  Boleto  = '03399.59462 27100.000010 22847.101023 5 56640000002430'

 

 

Alguem pode me ajudar .

 

Grato

 

Manoel

 

 

 

[Juliana Tamizou]

Bom dia.

 

Vc chegou  a fazer um teste com o demo do componente?, provavelmente no momento da primeira impressão alguma informação ainda não havia sido passada ao componente.

 

Att.

[manoel santos]

Boa tarde obrigado por sua atenção .

O erro estava no nossonumero 

Consegui resolver fiz o seguinte :

 

Estava assim :

 

 

      CodigoBarras := '033'+'9'+ FatorVencimento +

                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +

                      '9'+ padR(Cedente.CodigoCedente,7,'0') +

                      padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13) +

                                '0'+ padR(trim(Cedente.Modalidade),3,'0');

Alterei para :

 

      CodigoBarras := '033'+'9'+ FatorVencimento +

                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +

                      '9'+ padR(Cedente.CodigoCedente,7,'0') +

                      padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13,'0') +

                                '0'+ padR(trim(Cedente.Modalidade),3,'0');

 

Resolvido.

[jreis1806]

Olá, tive um problema parecido e alterei a linha para:

 

CodigoBarras := '033'+'9'+ FatorVencimento +

                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +

                      '9'+ padR(trim(Cedente.CodigoCedente),7,'0') +

                      padR(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13) +

                      '0'+ padR(trim(ACBrTitulo.Carteira),3,'0');

 

Troquei a informação Cedente.Modalidade para ACBrTitulo.Carteira

[Juliana Tamizou]

Bom dia.

 

Não tem a necessidade de efetuar a troca do campo Modalidade pela Carteira, basta preencher o campo modalidade com a informação correta.

 

Att.