Ir para conteúdo
  • Cadastre-se

dev botao

Erro de Access violation quando vou gerar o Sintegra


  • Este tópico foi criado há 2597 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

  • Consultores

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... :roll:

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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...

Link para o comentário
Compartilhar em outros sites

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...

Link para o comentário
Compartilhar em outros sites

  • 4 anos depois...
  • Consultores

Como reproduzir o problema com o programa de exemplo?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2597 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.