Segue abaixo minha sugestão:
case VersaoNFSe of
ve100:
begin
if FpAtividadeEconomica = 'CodigoAtividadeEconomica' then
begin
Result.AppendChild(AddNode(tcStr, '#1', 'CodigoAtividadeEconomica', 1, 140, 0,
NFSe.Servico.CodigoTributacaoMunicipio, ''));
end
else
if FpAtividadeEconomica = 'CodigoCnaeAtividadeEconomica' then
begin
Result.AppendChild(AddNode(tcStr, '#1', 'CodigoCnaeAtividadeEconomica', 1, 140, 0,
FormatarCnae(NFSe.Servico.CodigoCnae), ''));
end
else
begin
item := FormatarItemServico(NFSe.Servico.ItemListaServico, FormatoItemListaServico);
Result.AppendChild(AddNode(tcStr, '#1', 'ItemLei116AtividadeEconomica', 1, 140, 0,
item, ''));
end;
end;
ve101:
begin
Result.AppendChild(AddNode(tcStr, '#1', 'CodigoAtividadeEconomica', 1, 140, 1,
NFSe.Servico.CodigoTributacaoMunicipio, ''));
Result.AppendChild(AddNode(tcStr, '#1', 'CodigoCnae', 7, 15, 0,
FormatarCnae(NFSe.Servico.CodigoCnae), ''));
end;
end;