det nItem Sem com Zero

[Leo Cavazzola]

Boa Noite

Estou tentando criar o arquivo Xml de uma Nota fiscal, mas na tag det nItem fica com zero para todo os produtos como vocês podem observar na imagem.

A Parte do código que estou usando para gerar:

  i:=0;
  while i<ZQItens.RecordCount do
  begin
    ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add;
    ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[i].Prod.cProd:='456';
    i:=i+1;
  end;

 

[Amarildo de Matos]

bom dia..

eu trabalho com outra linguaguem, mas primeiro verifique o seu contador.

voce esta somando depois dos comandos, e acredito que seria antes.

verifique tambem nos programas exemplos como ele esta gerando, talvez ajude tambem.

se puder sempre mande o xml anexado para analise.

valeu

tem 

 

[Juliomar Marchetti]

11 horas atrás, Leo Cavazzola disse:

Boa Noite

Estou tentando criar o arquivo Xml de uma Nota fiscal, mas na tag det nItem fica com zero para todo os produtos como vocês podem observar na imagem.

A Parte do código que estou usando para gerar:

  i:=0;
  while i<ZQItens.RecordCount do
  begin
    ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add;
    ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[i].Prod.cProd:='456';
    i:=i+1;
  end;

 

Olhou a pasta de exemplos? veja o código

[Leo Cavazzola]

4 horas atrás, Amarildo de Matos disse:

bom dia..

eu trabalho com outra linguaguem, mas primeiro verifique o seu contador.

voce esta somando depois dos comandos, e acredito que seria antes.

verifique tambem nos programas exemplos como ele esta gerando, talvez ajude tambem.

se puder sempre mande o xml anexado para analise.

valeu

tem 

 

Testei dessa maneira, o lazarus da que o item está fora do intervalo, segue abaixo mensagem de erro. O que eu já esperava já que quando eu dei o comando .ADD ele criou um item no vetor com índice 0 e com i incrementado antes do código o software está tentando alimentar o item de Índice seguinte ao criado.

 

45 minutos atrás, Juliomar Marchetti disse:

Olhou a pasta de exemplos? veja o código

Olhei por muitas horas inclusive, mas como sou novo na área da programação e o código do exemplo em lazarus é complexo eu não consegui encontrar nada referente a alimentação dos produtos no compontente ACBrNFe.

[Gabriel Franciscon]

Boa noite,

Você precisa incrementar um número na propriedade nItem a cada item adicionado.

Então ficará mais ou menos assim:

var
NotaF: NotaFiscal;
Produto: TDetCollectionItem;
iNumItem: Integer;
begin
  NotaF := ACBrNFe1.NotasFiscais.Add;
  {...}

  iNumItem := 0;
  while not Query.Eof do
  begin
    iNumItem := iNumItem + 1;
    Produto := NotaF.NFe.Det.New;
    Produto.Prod.nItem    := iNumItem; //<-Número sequencial, para cada item deve ser incrementado   
    {...}
    Query.Next;
  end;
end;

Parte do código acima foi retirado do exemplo do ACBr.

[Leo Cavazzola]

19 horas atrás, Gabriel Franciscon disse:

Boa noite,

Você precisa incrementar um número na propriedade nItem a cada item adicionado.

Então ficará mais ou menos assim:

var
NotaF: NotaFiscal;
Produto: TDetCollectionItem;
iNumItem: Integer;
begin
  NotaF := ACBrNFe1.NotasFiscais.Add;
  {...}

  iNumItem := 0;
  while not Query.Eof do
  begin
    iNumItem := iNumItem + 1;
    Produto := NotaF.NFe.Det.New;
    Produto.Prod.nItem    := iNumItem; //<-Número sequencial, para cada item deve ser incrementado   
    {...}
    Query.Next;
  end;
end;

Parte do código acima foi retirado do exemplo do ACBr.

Cara, resolveu meu problema, muito obrigado!

[Juliomar Marchetti]

só uma questão tu não guarda em seu banco o numero do item ?

tipo a chave de seus itens não é composta e com um campo ID que incrementa a cada item inserido?