Registro 50 repete dados da NF

[Tercio Lins]

Boa noite.

Estou gerando o sintegra e o registro 50 está repetindo a mesma NF.

Ocorre o erro "Projeto elevou classe exceção External:SIGSEGV". Quando eu mando os dados só uma Nota Fiscal, o erro não ocorre.

PS: Eu uso o Lazarus.

Grato,

Tércio Lins.

[EMBarbosa]

Como ou que código você está usando para gerar os registros 50?

[Tercio Lins]

Como ou que código você está usando para gerar os registros 50?

Boa noite.

Eu segui o exemplo do componente. (em Delphi pois não tem com Lazarus).

Conferi passo a passo e o loop está mudando a NF porém, quando ele gera o .txt os dados da primeira é repetido nas demais.

Quando eu desabilito o while, não ocorre a mensagem de erro e gera correto o registro.

if Result then

begin

Dm.Tabela.First;

while not Dm.Tabela.EOF do

begin

wregistro50.CPFCNPJ:=Dm.Tabela.FieldByName('CNPJ').Value;

wregistro50.Inscricao:=Dm.Tabela.FieldByName('IE').Value;

wregistro50.DataDocumento:=Dm.Tabela.FieldByName('DATA').Value;

wregistro50.UF:=Dm.Tabela.FieldByName('UF').Value;

wregistro50.Modelo:=Dm.Tabela.FieldByName('MODELO').Value;

wregistro50.Serie:=Dm.Tabela.FieldByName('SERIE').Value;

wregistro50.Numero:=Dm.Tabela.FieldByName('NUMERO').Value;

wregistro50.Cfop:=Dm.Tabela.FieldByName('CFOP').Value;

wregistro50.EmissorDocumento:=Dm.Tabela.FieldByName('EMITENTE').Value;

wregistro50.ValorContabil:=Dm.Tabela.FieldByName('TOTAL').Value;

wregistro50.BasedeCalculo:=Dm.Tabela.FieldByName('BASEICMS').Value;

wregistro50.Icms:=Dm.Tabela.FieldByName('VALORICMS').Value;

wregistro50.Isentas:=Dm.Tabela.FieldByName('ISENTO').Value;

wregistro50.Outras:=Dm.Tabela.FieldByName('OUTROS').Value;

wregistro50.Aliquota:=Dm.Tabela.FieldByName('ALICMS').Value;

wregistro50.Situacao:='N';

Registros50.Add(wregistro50);

Dm.Tabela.Next;

end;

end;

Grato pela disposição,

Tércio Lins.

[Régys Silveira]

Você precisa criar "wregistro50", setar os dados e fazer o "Registro50.add".

if Result then

begin

  Dm.Tabela.First;

  while not Dm.Tabela.EOF do

  begin

    wregistro50 := TRegistro50.Create;


    wregistro50.CPFCNPJ:=Dm.Tabela.FieldByName('CNPJ').Value;

    wregistro50.Inscricao:=Dm.Tabela.FieldByName('IE').Value;

    wregistro50.DataDocumento:=Dm.Tabela.FieldByName('DATA').Value;

    wregistro50.UF:=Dm.Tabela.FieldByName('UF').Value;

    wregistro50.Modelo:=Dm.Tabela.FieldByName('MODELO').Value;

    wregistro50.Serie:=Dm.Tabela.FieldByName('SERIE').Value;

    wregistro50.Numero:=Dm.Tabela.FieldByName('NUMERO').Value;

    wregistro50.Cfop:=Dm.Tabela.FieldByName('CFOP').Value;

    wregistro50.EmissorDocumento:=Dm.Tabela.FieldByName('EMITENTE').Value;

    wregistro50.ValorContabil:=Dm.Tabela.FieldByName('TOTAL').Value;

    wregistro50.BasedeCalculo:=Dm.Tabela.FieldByName('BASEICMS').Value;

    wregistro50.Icms:=Dm.Tabela.FieldByName('VALORICMS').Value;

    wregistro50.Isentas:=Dm.Tabela.FieldByName('ISENTO').Value;

    wregistro50.Outras:=Dm.Tabela.FieldByName('OUTROS').Value;

    wregistro50.Aliquota:=Dm.Tabela.FieldByName('ALICMS').Value;

    wregistro50.Situacao:='N';


    Registros50.Add(wregistro50);


    Dm.Tabela.Next;

  end;

end;

[/code]

[Tercio Lins]

Você precisa criar "wregistro50", setar os dados e fazer o "Registro50.add".

if Result then

begin

  Dm.Tabela.First;

  while not Dm.Tabela.EOF do

  begin

    wregistro50 := TRegistro50.Create;


    wregistro50.CPFCNPJ:=Dm.Tabela.FieldByName('CNPJ').Value;

    wregistro50.Inscricao:=Dm.Tabela.FieldByName('IE').Value;

    wregistro50.DataDocumento:=Dm.Tabela.FieldByName('DATA').Value;

    wregistro50.UF:=Dm.Tabela.FieldByName('UF').Value;

    wregistro50.Modelo:=Dm.Tabela.FieldByName('MODELO').Value;

    wregistro50.Serie:=Dm.Tabela.FieldByName('SERIE').Value;

    wregistro50.Numero:=Dm.Tabela.FieldByName('NUMERO').Value;

    wregistro50.Cfop:=Dm.Tabela.FieldByName('CFOP').Value;

    wregistro50.EmissorDocumento:=Dm.Tabela.FieldByName('EMITENTE').Value;

    wregistro50.ValorContabil:=Dm.Tabela.FieldByName('TOTAL').Value;

    wregistro50.BasedeCalculo:=Dm.Tabela.FieldByName('BASEICMS').Value;

    wregistro50.Icms:=Dm.Tabela.FieldByName('VALORICMS').Value;

    wregistro50.Isentas:=Dm.Tabela.FieldByName('ISENTO').Value;

    wregistro50.Outras:=Dm.Tabela.FieldByName('OUTROS').Value;

    wregistro50.Aliquota:=Dm.Tabela.FieldByName('ALICMS').Value;

    wregistro50.Situacao:='N';


    Registros50.Add(wregistro50);


    Dm.Tabela.Next;

  end;

end;

Bom dia Regys.

No início da função a variável é criada - desculpe-me, eu não coloquei.

Você colocou o registro dentro do loop. para cada NF será criado um wregistro50?

Vou alterar e retorno o resultado.

Grato,

Tércio Lins.

[Régys Silveira]

Isso mesmo, porque veja no Add, ele adiciona o ponteiro da variavel criada a lista de registros, se fizer uma vez só, na verdade você estará alterando o já criado.

[Tercio Lins]

Isso mesmo, porque veja no Add, ele adiciona o ponteiro da variavel criada a lista de registros, se fizer uma vez só, na verdade você estará alterando o já criado.

Boa tarde.

Eu fiz a alteração e resolveu o problema.

Agradeço a ajuda,

Tércio Lins.