Carga XML NFSe - Dados cancelamento - provedor SimplISS

[Elisângela Borato]

Bom dia,

Reporto ajustes no arquivo ACBrNFSeNotasFiscais para carga de informações do cancelamento da NFSe.
Os testes foram realizados com o provedor SimplISS (não tenho conhecimento se aplica-se outros provedores) .
O SimplISS retorna o xml no seguinte formato:

<Nfse>
... dados da nfse
</Nfse>
<NfseCancelamento>
... dados do cancelamento
</NfseCancelamento>

Por virem em nó a parte, as informações de cancelamento não estavam sendo repassadas para a variável de leitura do xml (AXML).
Para a variável AXML conter também os dados de cancelamento, ajustei da seguinte forma a function TNotasFiscais.LoadFromString:
Na linha 814 inseri o código abaixo (linhas 814 a 819):

  //provedor SimplISS
  function PosNFSeCancelamento: Integer;
  begin
    TamTAG := 18;
    Result := Pos('</NfseCancelamento>', AXMLString);
  end;

e na, agora, linha 862, inseri (linhas 862 a 869):

      //provedor SimplISS
      N:= PosNFSeCancelamento;
      if N > 0 then
      begin
        //copia tag NfseCancelamento
        AXML:= AXML + copy(AXMLString, 1, N + TamTAG);
        AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString)));
      end;

Em anexo fonte alterado.

Agradeço pela atenção,
Abraço.
 

ACBrNFSeNotasFiscais.pas

Editado 22 Abril, 2016 por Elisângela Borato

[Italo Giurizzato Junior]

Bom dia Elisângela,

Muito obrigado pela colaboração, já foi enviado para o repositório.