Jump to content
Notícias do ACBr

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Erro de Access violation quando vou gerar o Sintegra


  • Este tópico foi criado há 1623 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 to comment
Share on other 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 to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • 4 years later...
  • Consultores

Como reproduzir o problema com o programa de exemplo?

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.