Erro Bloco E

[durvalcastro]

Erro usando o exemplo do SPED, dá um erro no bloco E: List index out of boundes(-1)

o erro acontece nesta linha:

function TBloco_E.RegistroE110New: TRegistroE110;

begin

Result := FRegistroE001.RegistroE100.Items[FRegistroE001.RegistroE100.Count -1].RegistroE110;

end;

Alguém já passou por isso ?

[EMBarbosa]

Sim.

Me parece que você precisa primeiro criar um Registro E100 antes do Registro E110...

Se assim for, o DEMO está errado... vou tentar verificar...

[EMBarbosa]

Corrigido, foi pro SVN... Favor conferir...