Erro de Access violation quando vou gerar o Sintegra

[camargu]

Não sei o que está acontecendo, começou essa semana acontecer o erro de

Access violation at address 00403A84 in module 'Sintegra.exe'. Read of address FFFFFFFC.

debugando eu chequei na seguinte linha de comando dentro do ACBrSintegra, vou postar as chamadas que foi sendo feita.

ACBrSintegra.GeraArquivo > GerarRegistros50 > with Registros50 do >

Result := inherited GetItem(Index) as TRegistro50 ;

neste exato momento acontece o AV... se alguem ae souber o que pode estar acontecendo agradeço.

Att,

Wilson Camargo

MAC Sistemas LTDA ME.

[Régys Silveira]

você não deve estar criando os objetos registro50 corretamente.

[camargu]

Faço da seguinte maneira.

wregistro50 := TRegistro50.Create;

dentro de um loop eu faço

        with ACBrSintegra do

        begin

          wregistro50.CPFCNPJ          := CNPJ;

          wregistro50.Inscricao        := INSC;

          wregistro50.DataDocumento    := Qyvenda.Fields.FieldByName('DATA').AsDateTime;

          wregistro50.UF               := UF;

          wregistro50.Modelo           := Qyvenda.Fields.FieldByName('MODELO').AsString;

          wregistro50.Serie            := Qyvenda.Fields.FieldByName('SERIE').AsString;

          wregistro50.Numero           := num_nf;

          wregistro50.Cfop             := QyItens.Fields.FieldByName('CFOP').AsString;

          wregistro50.EmissorDocumento := EMITENTE;

          wregistro50.ValorContabil    := QyItens.Fields.FieldByName('TTOTAL').AsFloat +    QyItens.Fields.FieldByName('TIPI').AsFloat - QyItens.Fields.FieldByName('TDESC').AsFloat;

          wregistro50.BasedeCalculo    := QyItensTBCICMS.Value;

          wregistro50.Icms             := QyItensTVLICMS.Value;

          wregistro50.Isentas          := QyItens.Fields.FieldByName('TISENTONT').AsFloat;

          wregistro50.Outras           := OUTRAS;

          wregistro50.Aliquota         := QyItens.Fields.FieldByName('ICMS').AsFloat;

          wregistro50.Situacao         := SITUACAO;

          ACBrSintegra.Registros50.Add(wregistro50);

        end;

[EMBarbosa]

Nada foi alterado diretamente no ACBrSintegra esses dias. Verifique o preenchimento dos registros 50. Parece que eles não estão sendo gerados corretamente. Também tente o DEMO, ele funciona?

EDIT: o régys foi mais rápido...

[camargu]

o mais estranho e que estava funcionando e agora da erro na hora de executar isso

Result := inherited GetItem(Index) as TRegistro50 ;

bom vou debugar um pouco mais e ver se passo mais informações..

e muito obrigado ate agora...

[camargu]

Debugando um pouco mais eu cheguei a outro ponto. As informações esta sendo passadas corretamente (nao estou deixando de passar nenhum campo) tenho que passar os campos ja formatados ou o ACBr vai formatar eles pra mim, pois tem registros que ja vem formatado,

quando ele faz isso aqui

Result := inherited GetItem(Index) as TRegistro50 ;

ele chama o

finally

CloseFile(Arquivo);

LimparRegistros;

end;

do ACBrSintegra.GeraArquivo;

quando ele entra no LimparRegistros da erro de cara no

FRegistros50.Clear;

Obrigado pela atenção...

[camargu]

Resolvido, depois que descobri que era no LimparRegistros eu pesquisei e achei alguem que teve o mesmo problema que o meu, pode fechar o topico

http://www.forumweb.com.br/foruns/topic ... ntry343325

[Saulo Henrique Pereira]

Estou com um erro nesse mesmo ponto citado acima LimparRegistro> FRegistros50.Clea, (Erro: Invalid pointer operation), o link com a solução acima não existe mais.

[EMBarbosa]

Como reproduzir o problema com o programa de exemplo?