Múltiplos serviços da NFSe - provedor EL

[Paulo Alves N Junior]

Bom dia, o provedor EL permite enviar múltiplos serviços na NFSe, verifiquei no código da unit "pnfsNFSeW_EL" que para cada serviço informado está utilizando o mesmo código de tributação e código de serviço:

Gerador.wCampo(tcStr, '#60', 'CodigoServico116'       , 01, 005, 1, NFSe.Servico.ItemListaServico, '');
Gerador.wCampo(tcStr, '#61', 'CodigoServicoMunicipal' , 01, 020, 1, NFSe.Servico.CodigoTributacaoMunicipio, '');

 

O correto não seria carregar com os dados de cada item de serviço informado?

 

procedure TNFSeW_EL.GerarListaServicos;
var
  i: Integer;
begin
  Gerador.wGrupo('Servicos');

  for i := 0 to NFSe.Servico.ItemServico.Count - 1 do
  begin
    Gerador.wGrupo('Servico');
    Gerador.wCampo(tcStr, '#59', 'CodigoCnae'             , 01, 007, 0, NFSe.Servico.CodigoCnae, '');
    Gerador.wCampo(tcStr, '#60', 'CodigoServico116'       , 01, 005, 1, NFSe.Servico.ItemListaServico, '');
    Gerador.wCampo(tcStr, '#61', 'CodigoServicoMunicipal' , 01, 020, 1, NFSe.Servico.CodigoTributacaoMunicipio, '');
    Gerador.wCampo(tcDe4, '#62', 'Quantidade'             , 01, 005, 1, NFSe.Servico.ItemServico.Quantidade, '');
    Gerador.wCampo(tcStr, '#63', 'Unidade'                , 01, 020, 1, NFSe.Servico.ItemServico.Unidade, '');
    Gerador.wCampo(tcStr, '#64', 'Descricao'              , 01, 255, 1, NFSe.Servico.ItemServico.Discriminacao, '');
    Gerador.wCampo(tcDe4, '#65', 'Aliquota'               , 01, 005, 1, NFSe.Servico.ItemServico.Aliquota / 100, '');
    Gerador.wCampo(tcDe4, '#66', 'ValorServico'           , 01, 015, 1, NFSe.Servico.ItemServico.ValorServicos, '');
    Gerador.wCampo(tcDe4, '#67', 'ValorIssqn'             , 01, 015, 1, NFSe.Servico.ItemServico.ValorIss, '');
    Gerador.wCampo(tcDe2, '#68', 'ValorDesconto'          , 01, 015, 0, NFSe.Servico.ItemServico.ValorDeducoes, '');
    Gerador.wCampo(tcStr, '#69', 'NumeroAlvara'           , 01, 015, 0, '', '');
    Gerador.wGrupo('/Servico');
  end;

  Gerador.wGrupo('/Servicos');
end;
 

[Juliana Tamizou]

Bom dia.

Obrigada pela análise, caso tenha feito as alterações, queira por favor anexar aqui.

Att.

[Paulo Alves N Junior]

Segue a unit em anexo, testei a emissão para o município da Aracruz/ES, obrigado

pnfsNFSeW_EL.pas

[Italo Giurizzato Junior]

Boa tarde Paulo,

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

[Paulo Alves N Junior]

Obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.