ChaveNFSe - Infisc

[Heronim Antonio Marçal]

Caros,

Estou integrando o NFSe ao provedor Infisc no município de Bom Princípio. Agora gerar a ChaveNFSe é necessário colocar a série e preencher com espaços a direita para alinhas com 3 posições. Por alguma razão a procedure TGerador.wCampo está eliminando espaço dentro da string, a chave seria:

070111111100011198S  000011970000010423

mas a procedure elimina um espaço dentro da string, que se torna:

070111111100011198S 000011970000010423

Como resolvo isso?

[Heronim Antonio Marçal]

Achei o código que retira o espaço:

 

  if RetirarEspacos then
  begin
    while pos('  ', aTexto) > 0 do
      aTexto := StringReplace(aTexto, '  ', ' ', [rfReplaceAll]);
  end;

Ele fica na função FiltrarTextoXML. Qual a razão deste código? No caso específico ele está retirando um espaço necessário a chave.

[Heronim Antonio Marçal]

Consegui que não fosse gerado espaço na tagrefNFfazendo a seguinte alteração:

  Gerador.wCampoNFSe(tcStr, '', 'refNF' , 01, 39, 1, sChave, '', false); // chave de acesso 39 caracteres

No entanto quando grava ainda está retirando os espaços.

 

 

[Heronim Antonio Marçal]

Estranhamente o código abaixo está retirando o espaço duplo da tag  refNF

FS.Write(Pointer(ABinaryString)^,Length(ABinaryString));

Editado 26 Agosto, 2017 por Heronim Antonio Marçal

[Heronim Antonio Marçal]

Consegui resolver colocando zeros a esquerda da série dentro da chave.

[Heronim Antonio Marçal]

Fiz correções para o provedor infisc para o município de Bom Princípio segue em anexo os arquivos. O provedor enviou um xsd atualizado para o município.

infisc.rar