ACBrNFSe erro out of memory em TNotasFiscais.LoadFromString

[Paulo C. L. Vicente]

Boa tarde.

Após atualização(não sei exatamente de qual dia) passou a ocorrer mensagem de erro out of memory no componente ACBrNFSe ao carregar o XML de Curitiba.

unit ACBrNFSeNotasFiscais
function TNotasFiscais.LoadFromString
function PosRPS
pelos teste que fiz faltou inicializar a variável de retorno da função

function PosRPS(AProvedor: TnfseProvedor): Integer;
  begin
    Result := 0;
    TamTAG := 5;
    if (VersaoNFSe < ve200) and (AProvedor <> proAgili) then
    begin
...

Ao acrescentar a linha para inicializar o Result resolveu.

Att
Paulo C. L. Vicente

[Daniel Simoes]

Qual a sua IDE ?

[EMBarbosa]

1 hora atrás, Paulo C. L. Vicente disse:

Boa tarde.

Após atualização(não sei exatamente de qual dia) passou a ocorrer mensagem de erro out of memory no componente ACBrNFSe ao carregar o XML de Curitiba.

unit ACBrNFSeNotasFiscais
function TNotasFiscais.LoadFromString
function PosRPS
pelos teste que fiz faltou inicializar a variável de retorno da função

function PosRPS(AProvedor: TnfseProvedor): Integer;
  begin
    Result := 0;
    TamTAG := 5;
    if (VersaoNFSe < ve200) and (AProvedor <> proAgili) then
    begin
...

Ao acrescentar a linha para inicializar o Result resolveu.

Att
Paulo C. L. Vicente

Essa correção não gera efeitos colaterais, mas também não parece fazer muito sentido. Pelo menos não para o problema de "out of memory".

Por favor, anexe um arquivo xml que gere o problema para que possamos verificar.

[Paulo C. L. Vicente]

Na linha 1055 tem a chamada a PosRPS
N := PosRPS(AProvedor);

O retorno da função estava atribuindo a N o valor de 29375664
Então no loop das linhas 1057 a 1070 eram criados objetos até esgotar a memória

Segue anexo.

EM1004821-NFSeAssinada.xml

[Italo Giurizzato Junior]

Bom dia Paulo,

Você tem razão, fiz a alteração sugerida e enviei para o repositório.

Muito obrigado pela colaboração.