Boa tarde pessoal.
Estou com um problema na Nfe referenciada, segue trecho do código
//:: Abre a qry para pegar o numero da chave de acesso da NFe.
BuscaNFe.Close;
BuscaNFe.ParamByName('NFE').AsInteger := VendasNFE_REFERENCIADA.Value;
BuscaNFe.Open;
//:: Verifica a existencia da nfe nos arquivos de NFe's emitidas
if not BuscaNFe.IsEmpty then
begin
ReferenciadaTipoNFe := True;
end else
begin
raise Exception.Create('Nota a ser complementada não encontrada com base no [NÚMERO DA NFE] informado, ou foi cancelada!!!');
end;
if ReferenciadaTipoNFe then // TAG - Informação das NF/NF-e referenciadas - - Ocorrência 0-N ********
begin // Se a nota referenciada for um NFe preencher o campo abaixo:
Ano := Copy(IntToStr(YearOf(BuscaNFeDATA_NF.AsDateTime)), 3, 2);
Mes := FormatFloat('00', MonthOf(BuscaNFEDATA_NF.AsDateTime));
Ide.NFref.Add;
Ide.NFref[0].refNFe := BuscaNFeCHAVE_NFE.AsString; // B13 - Chave de acesso das NF-e referenciadas
Ide.NFref[0].RefNF.CNPJ := edtEmitCNPJ.Text ; // B17 - CNPJ do emitente
Ide.NFref[0].RefNF.cUF := Codigo_Ibge_Uf(Trim(edtEmitUF.Text)); // B15 - Código da UF do emitente do Documento Fiscal - Tabela do IBGE
Ide.NFref[0].RefNF.modelo := BuscaNFeMODELO.AsInteger; // B18 - Modelo do Documento Fiscal - Ex. 01
Ide.NFref[0].RefNF.nNF := BuscaNFeNF.AsInteger; // B20 - Número do Documento Fiscal
Ide.NFref[0].RefNF.AAMM := Ano+Mes; // B16 - Ano e Mês de emissão da NF-e
Ide.NFref[0].RefNF.serie := BuscaNFeSERIE.AsInteger; // B19 - Série do Documento Fiscal - informar zero se inexistente
end;
BuscaNFe.Close;
Esta dando o erro de Modelo inválido, mas olhei o Xml ( Em anexo ) e o modelo esta correto, creio eu.
Alguem poderia me ajudar. Segue em anexo a tela do erro e o xml.
Agradeço a Atenção
50111009517945000150550010000002111000002113-NFe.xml