Erro Em Nota De Importação, Campo Vafrmm

[Edson Viel]

Bom dia a todos.

 

Sou novo no ACBr e não encontrei nenhum tópico sobre o problema que estou tendo.

 

O problema está na pcnNFeRTXT na seguinte parte:

if ID = 'I18' then (* Grupo da TAG <det><prod><DI> **************************)
  begin
    i := NFe.Det.Count - 1;
    NFe.Det[i].Prod.DI.Add;
    j := NFe.Det[i].Prod.DI.Count - 1;
    (*I19*)NFe.Det[i].Prod.DI[j].nDI := LerCampo(tcStr, 'nDI');
    (*I20*)NFe.Det[i].Prod.DI[j].dDI := LerCampo(tcDat, 'dDI');
    (*I21*)NFe.Det[i].Prod.DI[j].xLocDesemb := LerCampo(tcStr, 'xLocDesemb');
    (*I22*)NFe.Det[i].Prod.DI[j].UFDesemb := LerCampo(tcStr, 'UFDesemb');
    (*I23*)NFe.Det[i].Prod.DI[j].dDesemb := LerCampo(tcDat, 'dDesemb');
           NFe.Det[i].Prod.DI[j].tpViaTransp := StrToTipoViaTransp(ok, LerCampo(tcStr, 'tpViaTransp'));
           NFe.Det[i].Prod.DI[j].vAFRMM := LerCampo(tcStr, 'vAFRMM');
           NFe.Det[i].Prod.DI[j].tpIntermedio := StrToTipoIntermedio(ok, LerCampo(tcStr, 'tpIntermedio'));
           NFe.Det[i].Prod.DI[j].CNPJ := LerCampo(tcStr, 'CNPJ');
           NFe.Det[i].Prod.DI[j].UFTerceiro := LerCampo(tcStr, 'UFTerceiro');
    (*I24*)NFe.Det[i].Prod.DI[j].cExportador := LerCampo(tcStr, 'cExportador');
  end;

A linha NFe.Det.Prod.DI[j].vAFRMM := LerCampo(tcStr, 'vAFRMM'); quando o versão da Nfe é 2.00 passa vazio e ocorre o erro "Could not convert variant of type (String) into type (Currency)"

 

Acredito que teria que ter uma verificação de versão da NFe para os campos: vAFRMM, tpIntermedio, CNPJ, UFTerceiro que não existe na versão 2.

 

Desde já agradeço e parabéns pelo projeto.

Editado 12 Janeiro, 2015 por Edson Viel

[Juliomar Marchetti]

Boa tarde Edson!

por favor pode anexar sua sugestão que avaliamos e subimos ao svn!

[Edson Viel]

Bom dia Juliomar,

 

Segue em anexo o arquivo.

 

pcnNFeRTXT.pas

[Juliomar Marchetti]

Boa tarde

já está disponível no svn as alterações!