Importar NFS provedor IssDSF - Campinas

[colmanetti]

Não está funcionando.

Estou vendo a codificação e tentando alterar.

Posso mudar a unit pnfsNFSeR;

e a  function TNFSeR.LerNFSe_ISSDSF: Boolean;

 

function TNFSeR.LerNFSe_ISSDSF: Boolean;
var
  ok: Boolean;
  Item: Integer;
  sOperacao, sTributacao: String;
begin
  Leitor.Grupo := Leitor.Arquivo;

  if (Pos('<Notas>', Leitor.Arquivo) > 0) or
     (Pos('<Nota>', Leitor.Arquivo) > 0) or
     (Pos('<ConsultaNFSe>', Leitor.Arquivo) > 0) or
     (Pos('<NOTA_FISCAL>', Leitor.Arquivo) > 0) then
  begin
    VersaoNFSe := ve100; // para este provedor usar padrão "1".

    FNFSe.Numero := Leitor.rCampo(tcStr, 'NumeroNota');                        <---------------------------------------  POSSO TROCAR ESTA CHAVE DO  'NumeroNota'  PARA  'NUM_NOTA'   CONFORME O XML?     OU DEVO ADICIONAR UM OR ?
    if (FNFSe.Numero = '') then
      FNFSe.Numero := Leitor.rCampo(tcStr, 'NumeroNFe');

 

conforme vou verificando

[Italo Giurizzato Junior]

Boa tarde,

Notei que você ainda esta usando o componente antigo.

Lhe convido a iniciar os testes com o novo componente de emissão de NFS-e: ACBrNFSeX
O componente antigo: ACBrNFSe não vai mais ter manutenção.

Faça os testes usando o programa exemplo do novo componente.

Manual de Migração
https://www.projetoacbr.com.br/forum/topic/63017-manual-de-migração-para-o-novo-componente-de-emissão-de-nfs-e/