Boa tarde Elisângela,
Na unit pnfsNFSeR consta a leitura dos serviços, veja:
//Provedor SimplISS permite varios itens servico
if FProvedor = proSimplISS then
begin
i := 1;
while (Leitor.rExtrai(4, 'ItensServico', 'ItensServico', i) <> '') do
begin
with NFSe.Servico.ItemServico.New do
begin
Descricao := Leitor.rCampo(tcStr, 'Descricao');
Quantidade := Leitor.rCampo(tcDe2, 'Quantidade');
ValorUnitario := Leitor.rCampo(tcDe2, 'ValorUnitario');
ValorTotal := Leitor.rCampo(tcDe2, 'ValorTotal');
if ValorTotal = 0 then
ValorTotal := Quantidade * ValorUnitario;
end;
inc(i);
end;
end;
Não entendi muito bem o que você esta fazendo.
Você gera o RPS, depois o carrega para poder enviar é isso?