Impressão de NFSe

[Rafael Araujo]

Senhores, boa tarde.

Após a última atualização dos fontes da NFSe a DANFSE no XML anexo passou a apresentar um erro "Código Inválido" ao tentar imprimir. Ao efetuar o LoadFromFile deste arquivo, na lista de Notas Fiscais do componente TACBrNFSe aparem 2 notas quando na verdade deve ter apenas uma.

Debuguei os códigos do LoadFromFile e vi que o problema acontece no nested method PosNFSe do método TNotasFiscais.LoadFromString que fora alterado em 04/02/2016.

Retornei a função ao que era anteriormente e a DANFSE voltou a ser impressa normalmente.

Pensei em efetuar a alteração no código e apresentar o fonte já corrigido, porém como não tenho o domínio do por que a alteração foi feita, decidi apenas comentá-la.

Segue abaixo os códigos antes e depois da alteração de 04/02:

  //Antigo
  function PosNFSe: Integer;
  begin
    // Provedor Infisc
    TamTAG := 7;
    Result := Pos('</NFS-e>', AXMLString);
    if Result = 0 then
    begin
      TamTAG := 6;
      Result := Pos('</Nfse>', AXMLString);
      // provedor ISSDSF
      if Result = 0 then
        Result := Pos('</Nota>', AXMLString);
    end;
  end;

  //Atual
  function PosNFSe: Integer;
  begin
    // Provedor Infisc
    TamTAG := 7;
    Result := Pos('</NFS-e>', AXMLString);
    if Result = 0 then
    begin
      TamTAG := 10;
      Result := Pos('</CompNfse>', AXMLString);
      if Result = 0 then
      begin
        TamTAG := 6;
        Result := Pos('</Nfse>', AXMLString);
        // provedor ISSDSF
        if Result = 0 then
          Result := Pos('</Nota>', AXMLString);
      end;
    end;
  end;

486003662-nfe.xml

[Italo Giurizzato Junior]

Boa noite Rafael,

Favor atualizar os fontes e testar novamente.