procedure TfrmExemplo.DataSetClick(Sender: TObject);
var
 _nLote,_nRPS:string;
 _ValorServico, _ValorDeducao, _TotalServicos, _TotalDeducoes : Currency;
 _i : integer;
  NFSeDS : TspdNFSeDataSet;
 _Extras: String;
begin
  NFSeDS := TspdNFSeDataSet.Create(nil);
  // Configura a seção usada no componente NFSeDataSet.
  NFSeDS.ConfigSection:='ENVIAR';
  NFSeDS.MappingFileName := NFSe.DiretorioEsquemas +NFSe.Cidade+'\MappingEnvioSincrono.txt';
  //Cria a Lista interna de DataSets
  NFSeDS.CreateDataSets;

  with NFSeDS do
  begin
    Incluir;
      Campo('NumeroLote').AsString := '21';
      Campo('Cnpj').AsString := '9999999999999';
      Campo('InscricaoMunicipal').AsString := '999999';
      Campo('QuantidadeRps').AsString := '1';
      Campo('Id').AsString := '1';
      Campo('versao').AsString := '2.00';


     for _i := 1 to 1 do
      begin
        IncluirParte('RPS');

        Campo('NumeroRPS').AsString := 'R1';
        Campo('SerieRPS').AsString := InputBox('Gerar por DataSets','N� RPS:','');
        Campo('TipoRPS').AsString := '1';
        Campo('DataEmissao').Value := '2016-12-08T00:00:00';
        Campo('Status').Value := '1'
        Campo('NumeroRpsSubstituido').Value := '0';
        Campo('SerieRpsSubstituido').Value := '0';

        Campo('TipoRpsSubstituido').Value := '0';
        Campo('IdRPS').Value := '1';
        Campo('Competencia').Value := '2016-12-08T00:00:00';

        Campo('ValorServicos').Value := '1.00';
        Campo('ValorDeducoes').Value := '0.00';
        Campo('ValorPis').Value := '0.00';
        Campo('ValorCofins').Value := '0.00';
        Campo('ValorInss').Value := '0.00';
        Campo('ValorIr').Value := '0.00';
        Campo('ValorCsll').Value := '0.00';
        Campo('OutrasRetencoes').Value := '0.00';
        Campo('ValorIss').Value := '0.00';
        Campo('Aliquota').Value := '5';
        Campo('DescontoIncondicionado').Value := '0.00';
        Campo('DescontoCondicionado').Value := '0.00';

        Campo('IssRetido').Value := '0.00';
        Campo('ItemListaServico').Value := '01.01';
        Campo('CodigoCnae').Value := '114';
        Campo('CodigoTributacaoMunicipio').Value := '999999';

        Campo('Discriminacao').Value := 'teste teste teste';
        Campo('CodigoMunicipioPrestacao').Value := '99999999';
        Campo('ExigibilidadeISS').Value := '1';
        Campo('MunicipioIncidencia').Value := '12312';

        Campo('CnpjPrestador').Value := '08187168000160';
        Campo('InscricaoMunicipalPrestador').Value := '2131231';
        Campo('CnpjTomador').Value := '08187168000160';
        Campo('InscricaoMunicipalTomador').Value := '5234234';
        Campo('RazaoSocialTomador').AsString:= 'RazaoSocialTomador';
        Campo('Endereco').AsString:= 'teste teste';
        Campo('NumeroEnderecoTomador').AsString:= '111';
        Campo('Complemento').AsString:= 'teste';
        Campo('Bairro').AsString := 'TESTE';
        Campo('CodigoMunicipioTomador').AsString := '99999';
        Campo('Uf').AsString := 'pr';
        Campo('CodigoPaisTomador').AsString := '9999';
        Campo('Cep').AsString := '999999999';
        Campo('Telefone').AsString := '(44)3037-9500';
        Campo('Email').AsString := 'comercial@tecnospeed.com.br';
        Campo('OptanteSimplesNacional').AsString := '2';
        Campo('IncentivoFiscal').AsString := '2';

        SalvarParte('RPS');
      end;
      Salvar;
  end;
  frmExemplo.mmXML.Lines.Text := NFSeDS.LoteXML;
  frmExemplo.mmXMLFormatado.Lines.Text := ReformatXml(NFSeDS.LoteXML);
end;