Erro Na Emissão Da Nfe

[lemarq]

Eu me deparei com um problema ao enviar a NF-e.

Na procedure wCampo, na qual o parametro 'valor' vinha com um valor Currency e o componente tentava transformar em Float, como mostra a baixo.

  VlrExt := StrToFloat(valor);

A parametro 'valor' era do tipo variant, então perguntei antes se era uma String ou um Float, caso for um valor numerico, passe diretamente para a variavel VlrExt, caso seja uma String, transforme antes em Float.

  if VarIsStr(valor) then
    VlrExt := StrToFloat(valor)
  else if VarIsFloat(valor) then
    VlrExt := valor;