Acess violation GerarRegistroTransacao400

[Diego Limeira da Silva]

Bom dia, estou gerando remessa, e encontrei esse erro ... 

nessa wlinha, ja dei showmessage em cada item pra ver se da problema.. mas.. o problema persiste na atribuição dos valores no wlinha.

 

Alguem pode me auxiliar?

 

         wLinha:= '1'                                                     +  // ID Registro
                  StringOfChar( '0', 19)                                  +  // Dados p/ Débito Automático
                  '0'+ aCarteira                                          +
                  aAgencia                                                +
                  aConta                                                  +
                  Cedente.ContaDigito                                     +
                  PadRight( SeuNumero,25,' ') +'000'                          +  // Numero de Controle do Participante
                  IfThen( PercentualMulta > 0, '2', '0')                  +  // Indica se exite Multa ou não
                  IntToStrZero( round( PercentualMulta * 100 ), 4)        +  // Percentual de Multa formatado com 2 casas decimais
                  NossoNumero + DigitoNossoNumero                         +
                  IntToStrZero( round( ValorDescontoAntDia * 100), 10)    +
                  TipoBoleto + 'N' + Space(10)                            +  // Tipo Boleto(Quem emite) + Identificação se emite boleto para débito automático.
                  ' ' + '2' + '  ' + Ocorrencia                           +  // Ind. Rateio de Credito + Aviso de Debito Aut.: 2=Não emite aviso + Ocorrência
                  PadRight( NumeroDocumento,  10)                             +
                  FormatDateTime( 'ddmmyy', Vencimento)                   +
                  IntToStrZero( Round( ValorDocumento * 100 ), 13)        +
                  StringOfChar('0',8) + PadRight(aEspecie,2) + 'N'            +  // Zeros + Especie do documento + Idntificação(valor fixo N)
                  FormatDateTime( 'ddmmyy', DataDocumento )               +  // Data de Emissão
                  Protesto                                                +
                  IntToStrZero( round(ValorMoraJuros * 100 ), 13)         +
                  IfThen(DataDesconto < EncodeDate(2000,01,01),'000000',
                         FormatDateTime( 'ddmmyy', DataDesconto))         +
                  IntToStrZero( round( ValorDesconto * 100 ), 13)         +
                  IntToStrZero( round( ValorIOF * 100 ), 13)              +
                  IntToStrZero( round( ValorAbatimento * 100 ), 13)       +
                  TipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0')    +
                  PadRight( Sacado.NomeSacado, 40, ' ')                       +
                  PadRight(Sacado.Logradouro + ' ' + Sacado.Numero + ' '      +
                    Sacado.Bairro + ' ' + Sacado.Cidade + ' '             +
                    Sacado.UF, 40)                                        +
                  space(12) + PadRight( Sacado.CEP, 8 )                       +
                  PadRight( MensagemCedente, 60 );

 

[Diego Limeira da Silva]

3 horas atrás, Diego Limeira da Silva disse:

 

 

 

Bom dia, estou gerando remessa, e encontrei esse erro ... 

nessa wlinha, ja dei showmessage em cada item pra ver se da problema.. mas.. o problema persiste na atribuição dos valores no wlinha.

 

Alguem pode me auxiliar?

 

 

3 horas atrás, Diego Limeira da Silva disse:

         wLinha:= '1'                                                     +  // ID Registro
                  StringOfChar( '0', 19)                                  +  // Dados p/ Débito Automático
                  '0'+ aCarteira                                          +
                  aAgencia                                                +
                  aConta                                                  +
                  Cedente.ContaDigito                                     +
                  PadRight( SeuNumero,25,' ') +'000'                          +  // Numero de Controle do Participante
                  IfThen( PercentualMulta > 0, '2', '0')                  +  // Indica se exite Multa ou não
                  IntToStrZero( round( PercentualMulta * 100 ), 4)        +  // Percentual de Multa formatado com 2 casas decimais
                  NossoNumero + DigitoNossoNumero                         +
                  IntToStrZero( round( ValorDescontoAntDia * 100), 10)    +
                  TipoBoleto + 'N' + Space(10)                            +  // Tipo Boleto(Quem emite) + Identificação se emite boleto para débito automático.
                  ' ' + '2' + '  ' + Ocorrencia                           +  // Ind. Rateio de Credito + Aviso de Debito Aut.: 2=Não emite aviso + Ocorrência
                  PadRight( NumeroDocumento,  10)                             +
                  FormatDateTime( 'ddmmyy', Vencimento)                   +
                  IntToStrZero( Round( ValorDocumento * 100 ), 13)        +
                  StringOfChar('0',8) + PadRight(aEspecie,2) + 'N'            +  // Zeros + Especie do documento + Idntificação(valor fixo N)
                  FormatDateTime( 'ddmmyy', DataDocumento )               +  // Data de Emissão
                  Protesto                                                +
                  IntToStrZero( round(ValorMoraJuros * 100 ), 13)         +
                  IfThen(DataDesconto < EncodeDate(2000,01,01),'000000',
                         FormatDateTime( 'ddmmyy', DataDesconto))         +
                  IntToStrZero( round( ValorDesconto * 100 ), 13)         +
                  IntToStrZero( round( ValorIOF * 100 ), 13)              +
                  IntToStrZero( round( ValorAbatimento * 100 ), 13)       +
                  TipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0')    +
                  PadRight( Sacado.NomeSacado, 40, ' ')                       +
                  PadRight(Sacado.Logradouro + ' ' + Sacado.Numero + ' '      +
                    Sacado.Bairro + ' ' + Sacado.Cidade + ' '             +
                    Sacado.UF, 40)                                        +
                  space(12) + PadRight( Sacado.CEP, 8 )                       +
                  PadRight( MensagemCedente, 60 );

 

 

Refinando mais um pouco e erro esta 

PadRight(Sacado.Logradouro + ' ' + Sacado.Numero + ' '      +
                    Sacado.Bairro + ' ' + Sacado.Cidade + ' '             +
                    Sacado.UF, 40)

sendo que o sacado esta sendo preenchido corretamente..

[Diego Limeira da Silva]

RESOLVIDO

[Juliomar Marchetti]

Por favor descreva como fez pra resolver?

[Diego Limeira da Silva]

1 hora atrás, Juliomar Marchetti disse:

Por favor descreva como fez pra resolver?

Estava alimentando de maneira incorreta 

alem de usar Titulo := ACBrBoleto1.CriarTituloNaLista;

estava usando no final

ACBrBoleto1.ListadeBoletos.Add(Titulo);