Emitir NFe Devolução vinculada 1A

[csoft]

Estou com dificuldades para emitir uma NF de devolução referenciada a uma NF modelo 1A ou seja, sem chave nfe. 
Já li alguns posts como esse: http://www.projetoacbr.com.br/forum/topic/20372-erro-nfe-devolução/#comment-129869
onde diz

 with Ide.NFref.Add do
          begin
            if(MODELO='55')then
              refNFe:=CHAVE NFe
            else if(MODELO='2D')then
            begin
              RefECF.modelo  := MODELO(Cupom);
              RefECF.nECF    := NUMECF;
              RefECF.nCOO    := COO;
            end else if(MODELO='1')or(MODELO='1A')then
            begin
              RefNF.cUF   := 0;  // |
              RefNF.AAMM   := ''; // |
              RefNF.CNPJ   := ''; // |
              RefNF.modelo := 1;  // |- NFe Modelo 1/1A
              RefNF.serie  := 1;  // |
              RefNF.nNF    := 0;  // |
            end else if(MODELO='PR')then
            begin
              RefNFP.cUF     := 0;  // |
              RefNFP.AAMM    := ''; // |
              RefNFP.CNPJCPF := ''; // |
              RefNFP.IE      := ''; // |- NF produtor Rural
              RefNFP.modelo  := ''; // |
              RefNFP.serie   := 1;  // |
              RefNFP.nNF     := 0;  // |
            end;
          end;

 

Meu código está assim:

        if not _sdsNF.FieldByName('CHAVENFE_DEV').IsNull then
          refNFe := _sdsNF.FieldByName('CHAVENFE_DEV').AsString
        else
        begin
          refNF.modelo := 1;
          RefNF.cUF := CodigoUF(_sdsNF.FieldByName('CLI_UF_DEV').AsString);

          DecodeDate(_sdsNF.FieldByName('REF_EMISSAO_DEV').AsDateTime, ano, mes, dia);
          RefNF.AAMM := Copy(IntToStr(ano),3,4)+FormatFloat('00', mes);

          RefNF.CNPJ := _sdsNF.FieldByName('CLI_CNPJ_DEV').AsString;
          RefNF.Serie := _sdsNF.FieldByName('REF_SERIECOD_DEV').AsInteger;
          RefNF.nNF := _sdsNF.FieldByName('REF_NF_DEV').AsInteger;

Mas continuo recebendo a seguinte mensagem de rro:

- Falha na validação dos dados da nota 8171871 - Element '{http://www.portalfiscal.inf.br/nfe}NFref': Missing child element(s). 
Expected is one of ( {http://www.portalfiscal.inf.br/nfe}refNFe, {http://www.portalfiscal.inf.br/nfe}refNF, 
{http://www.portalfiscal.inf.br/nfe}refNFP, {http://www.portalfiscal.inf.br/nfe}refCTe, {http://www.portalfiscal.inf.br/nfe}refECF ).

Meus arq. de esquema são do dia 4/1/15, o que estou fazendo de errado?

[windsoft]

Pelo que percebi. No seu código está faltando o trecho:

 with Ide.NFref.Add do
 begin

[csoft]

Obrigado, mas esse trecho existe no meu código, do contrário daria erro já em tempo de compilação. Já debuguei e todas as tags são preenchidas, mas ainda assim recebo a mensagem Missing child element(s).

Alguém já utilizou o componente p/ com ref. ao modelo 1A?