Referenciar Uma Nf-E É Um Cte

[marcosrodrigues]

Bom dia, tento realizar uma referenciação de um CT-e e Uma NFe na devolução é não está dando certo veja o código:

 

  lNota_Fiscal_Ref_Cte_NFe_DAO := TGIPINOTA_FISCAL_REF_CTE_NFE_DAO.Create(Self.FGIPIConexao);

  try

    try

      lListaRefereciados := lNota_Fiscal_Ref_Cte_NFe_DAO.getListReferencia(pCOD_NF);

      pGIPIACBR.ACBrNFe.NotasFiscais.Add.NFe.Ide.finNFe := fnDevolucao;

      with pGIPIACBR.ACBrNFe.NotasFiscais.Add.NFe do

      begin

        Ide.finNFe := fnDevolucao;

        for lCount := 0 to lListaRefereciados.Count - 1 do

        begin

          with (Ide.NFref.Add) do

          begin

            case (lListaRefereciados.Items[lCount].TIPO) of

              0, 1:

                begin

 

                  if (lListaRefereciados.Items[lCount].TIPO = 0) then // NFe devolvida

                  begin

                    refNFe := lListaRefereciados.Items[lCount].CHAVE;

                  end;

 

                  if (lListaRefereciados.Items[lCount].TIPO = 1) then

                  begin

                    refCTe := lListaRefereciados.Items[lCount].CHAVE; //CTe vinculado a NFe

                  end;

                end

            else

              begin

                RefNF.cUF := Self.getCodigoUF(lListaRefereciados.Items[lCount].UF);

                RefNF.AAMM := TBibli1.getAnoMesData(lListaRefereciados.Items[lCount].DATA);

                RefNF.CNPJ := lListaRefereciados.Items[lCount].CNPJ;

                RefNF.modelo := lListaRefereciados.Items[lCount].modelo;

                RefNF.serie := lListaRefereciados.Items[lCount].serie;

                RefNF.nNF := lListaRefereciados.Items[lCount].NUMERO;

              end;

            end;

          end;

 

        end;

      end;

    except

      on E: Exception do

      begin

        raise Exception.Create(E.Message);

      end;

    end;

  finally

    lNota_Fiscal_Ref_Cte_NFe_DAO.Destroy;

  end;

 

O que estou fazendo de errado

[Juliomar Marchetti]

Boa noite

acredito que só pode ser referenciado um tipo de documento!

por exemplo se for nf-e somente ela, se referenciar uma NF somente esse tipo