Referenciar Vários Cupons Em Uma Nota Fiscal

[Cesar Balbinott]

Boa noite, procurei no fórum e não encontrei nada a respeito, é possível gerar uma única nota referenciando vários cupons?

 

Preciso agrupar os itens de vários cupons e gerar uma única nota fiscal.

[Régys Silveira]

Sim é possível, basta utilizar a tag especifica para referenciação de cupons fiscais.

 

     with Ide.NFref.Add do
     begin
        RefECF.modelo  := ECFModRef2B; // |
        RefECF.nECF    := '';          // |- Cupom Fiscal
        RefECF.nCOO    := '';          // |
      end;

[Cesar Balbinott]

Obrigado Régys, eu já uso este comando para referenciar 1 cupom, a dúvida era se poderia referenciar mais que 1 cupom por nota fiscal, mas se é só fazer isso tá fácil.

[Régys Silveira]

Obrigado Régys, eu já uso este comando para referenciar 1 cupom, a dúvida era se poderia referenciar mais que 1 cupom por nota fiscal, mas se é só fazer isso tá fácil.

 

A cada .add você adiciona um novo cupom, pode colocar quantos forem necessários.

[Cesar Balbinott]

Pessoal, tentei fazer como o Régys disse no post anterior, mas não deu certo, alguém já conseguiu referenciar mais que um cupom em uma mesma nota fiscal?

[Juliomar Marchetti]

Pessoal, tentei fazer como o Régys disse no post anterior, mas não deu certo, alguém já conseguiu referenciar mais que um cupom em uma mesma nota fiscal?

Poste em anexo seu código que tentou fazer igual ao que o Régys repassou !

[Cesar Balbinott]

sdsVincNotaCupo.First;

Ide.NFref.Clear;

for i := 1 to sdsVincNotaCupo.RecordCount do
begin
  with Ide.NFref.Add do
  begin
    RefECF.modelo := ECFModRef2D; // |
    RefECF.nECF   := sdsVincNotaCupoVINC_NOTA_CUPO_NUME_SERI_ECF.AsString; // |- Cupom Fiscal
    RefECF.nCOO   := sdsVincNotaCupoVINC_NOTA_CUPO_NUME_COO.AsString; // |
  end;

  sdsVincNotaCupo.Next;
end;

[Juliomar Marchetti]

Uma coisa que notei

RefECF.nECF   := sdsVincNotaCupoVINC_NOTA_CUPO_NUME_SERI_ECF.AsString; // |- Cupom Fiscal

você está informando o número de serie onde na verdade pede o número sequencial da ecf ! 

Pode ser ai o problema!

[Régys Silveira]

A forma que está implementando não está correta, o correto seria:

 

Ide.NFref.Clear;

sdsVincNotaCupo.First;
while not sdsVincNotaCupo.Eof do
begin
  with Ide.NFref.Add do
  begin
    RefECF.modelo := ECFModRef2D; 
    RefECF.nECF   := sdsVincNotaCupoVINC_NOTA_CUPO_NUME_SERI_ECF.AsString;
    RefECF.nCOO   := sdsVincNotaCupoVINC_NOTA_CUPO_NUME_COO.AsString;
  end;

  sdsVincNotaCupo.Next;
end;

 

Verifique também se está passando os dados corretamente, pois pela descrição "sdsVincNotaCupoVINC_NOTA_CUPO_NUME_SERI_ECF" meu deu a entender que seria o número de serie do ECF, RefECF.nECF recebe o número do ECF (1, 2, 3, 4, ...).

[Cesar Balbinott]

Fiz como o Régys sugeriu e o erro continua, quanto ao campo VINC_NOTA_CUPO_NUME_SERI_ECF ele está recebendo o número do ECF (1,2,3 ...) apenas o nome dele que está errado, o erro que apresenta é invalid argument.

[Régys Silveira]

"Invalid argument" é erro de SQL, não do componente ACBr.

 

Qual componente está utilizando para retornar essa lista de cupons que vai passar como referência?

[Cesar Balbinott]

Debuguei o código até encontrar onde da o erro, o erro ta dando na procedure TNFeW.GerarRefECF na linha Gerador.wCampo(tcInt, 'B20l', 'nECF  ', 03, 03, 1, nfe.Ide.NFref.RefECF.nECF, DSC_NECF);

 

Este campo nfe.Ide.NFref.RefECF.nECF está ficando vazio.

 

Verifiquei onde eu carrego ele, e esta recebendo 1. 

 

Ainda não estou usando a versão 3 da nota eletronica, não sei se isso influencia ou não.

[Cesar Balbinott]

Achei o problema, estava no meu código mesmo, em uma das vezes que eu aterei o código para testes acabei deixando sem alimentar o nECF, muito obrigado Régys e Juliomar.