procedure TfrmExemplo.DataSetClick(Sender: TObject);
var
    NFSeDS : TspdNFSeDataSet;
begin
    NFSeDS := TspdNFSeDataSet.Create(nil);
    // Configura a seção usada no componente NFSeDataSet.
    NFSeDS.ConfigSection:='ENVIAR';
    NFSeDS.MappingFileName := NFSe.DiretorioEsquemas +'SoftPlan'+'\MappingEnvioSincrono.txt';
    NFSeDS.DataSetPrincipal := 'xmlProcessamentoNfpse';
    //Cria a Lista interna de DataSets
    NFSeDS.CreateDataSets;
    with NFSeDS do
    begin
      Incluir;
          Campo('bairroTomador').AsString := 'Bairro teste';
          Campo('baseCalculo').AsString := '1.00';
          Campo('baseCalculoSubstituicao').AsString := '1.00';
          Campo('cfps').AsString := '9203';
          Campo('codigoMunicipioTomador').AsString := '4115200';
          Campo('codigoPostalTomador').AsString := '87020025';
          Campo('complementoEnderecoTomador').AsString := '17, Torre II';
          Campo('dadosAdicionais').AsString := '';
          Campo('dataEmissao').AsString := '2018-01-22T02:00:00.000Z';
          Campo('emailTomador').AsString := 'comercial@tecnospeed.com.br';
          Campo('identificacaoTomador').AsString := '99999999999999';
          Campo('inscricaoMunicipalTomador').AsString := '9999999';
          Campo('logradouroTomador').AsString := 'Avenida Duque de Caxias';
          Campo('numeroAEDF').AsString := '999999';
          Campo('numeroEnderecoTomador').AsString := '882';
          Campo('paisTomador').AsString := '';
          Campo('razaoSocialTomador').AsString := 'TECNOSPEED TI';
          Campo('telefoneTomador').AsString := '';
          Campo('ufTomador').AsString := 'PR';
          Campo('valorISSQN').AsString := '0.02';
          Campo('valorISSQNSubstituicao').AsString := '0';
          Campo('valorTotalServicos').AsString := '1';

        IncluirParte('itemServico');
          Campo('baseCalculoServico').AsString := '1.00';
          Campo('aliquota').AsString := '0.02';
          Campo('cst').AsString := '0';
          Campo('descricaoServico').AsString := 'TESTE TESTE';
          Campo('idCNAE').AsString := '8525';
          Campo('quantidade').AsString := '1';
          Campo('valorUnitario').AsString := '1';
          Campo('valorTotal').AsString := '1';
        SalvarParte('itemServico');
      Salvar;
    end;
  frmExemplo.mmXML.Lines.Text := NFSeDS.LoteXML;
  frmExemplo.mmXMLFormatado.Lines.Text := ReformatXml(NFSeDS.LoteXML);
end;