NF-e DEVOLUÇÃO DE COMPRA - FINLIDADE DA NFE X CHAVE DA NF-E DE COMPRA

[Aurino]

Boa Tarde

referente a finalidade da nota fiscal eletrônica, apresentou o erro em vermelho ao compilar.

Alguém sabe informar o que pode ser feito para corrigir?!

{inicio da referencia devolução de compra NF-e 3.10}

if qrnotafiscal.fieldbyname('FINALIDADE_NFE').asstring = '1' then
      Ide.finNFe := fnNormal
    else
      Ide.finNFe := FnDevolucao;
               with Ide.NFref.Add do
                   begin
                      Ide.NFref := qrnotafiscal.fieldbyname('CHAVE_NF-e_DEVOLUCACAO').asstring;
                   end;
end;

{fim da referencia devolução de nota devolução de compra}

ERRO NA COMPILAÇÃO

 [DCC Error] NFe_menuprincipal.pas(1338): E2010 Incompatible types: 'TNFrefCollection' and 'Integer'

[Juliomar Marchetti]

Erro de sua programação !

ele está esperando um tipo enumador ou melhor tcollection ou ao modo simples uma lista e você está passando um inteiro pra ele!

estude o demo que possui na pasta de exemplos

[Aurino]

Boa Tarde

As notas referencias estão sendo autorizada agora porém no modo normal, venda 5102, apresenta o erro abaixo.Coloco o codigo também para ajuda. 

O que poderia esta faltando ou de errado?!

Codigo da referencia da nota após {referenciando nota fiscal de devolucacao}

 

Erro ao gerar nota fiscal com Ide.finNFe    := fnNormal

NRref cannot be empty according the DTD/Schema

 

### Procedimento Chamando campo para informar o numero da chave refenciada

begin
    TEdit(Sender).Color := clwindow;
        if Finalidade_nfe.text = '4' then
        begin
         Nota_Referenciada.showmodal;
         end;
end;

### funcao gerando XML

function Tfrmnotafiscal.Gerar_XML(): string;

...

  with ACBrNFe1.NotasFiscais.add.NFe do
  begin
    infNFe.ID := qrnota.fieldbyname('numero').asstring;
    Ide.natOp := qrnota.fieldbyname('natureza').asstring;
    Ide.nNF := StrToInt(qrnota.fieldbyname('numero').asstring);
    Ide.cNF := StrToInt(qrnota.fieldbyname('numero').asstring);
    Ide.modelo := 55;
    Ide.serie := StrToInt(qrnota.fieldbyname('serie_nf').asstring);
    Ide.dEmi := qrnota.fieldbyname('data').AsDateTime;
    Ide.dSaiEnt := qrnota.fieldbyname('data_saida').AsDateTime;
    Ide.hSaiEnt   := StrToTime(qrnota.fieldbyname('hora').asstring);;
    Ide.hSaiEnt := Time;

    if qrnota.fieldbyname('MOVIMENTO').asstring = 'S' then
      Ide.tpNF := tnSaida
    else
      Ide.tpNF := tnEntrada;

{referenciando nota fiscal de devolucacao}
if qrnota.fieldbyname('finalidade_nfe').asstring = '1' then
         Ide.finNFe    := fnNormal
         else if qrnota.fieldbyname('finalidade_nfe').asstring = '2' then
         Ide.finNFe    := fnComplementar
         Else If qrnota.fieldbyname('finalidade_nfe').asstring = '3' then
         Ide.finNFe    := fnAjuste

         else if qrnota.fieldbyname('finalidade_nfe').asstring = '4' then
         Ide.finNFe    := fnDevolucao ;
                      with Ide.NFref.Add do
                      begin
                      refNFe := qrnota.fieldbyname('ChaveReferenciada').asString;
                      end;