procedure TDMDFe.ConfigurarMDFe(ADocumento: String; ATipoDoc: Integer);
begin
 DM_CTA.ParamDFe.Close;
 DM_CTA.ParamDFe.SQL.Clear;
 DM_CTA.ParamDFe.SQL.Add('Select * From Sis_ParamDFe');
 DM_CTA.ParamDFe.SQL.Add('Where Empresa = :xEmpresa');
 DM_CTA.ParamDFe.SQL.Add('and Modulo = :xModulo');
 DM_CTA.ParamDFe.SQL.Add('and Documento = :xDocumento');
 DM_CTA.ParamDFe.Params[0].AsString := DM_CTA.xCodEmpresa;
 DM_CTA.ParamDFe.Params[1].AsString := DM_CTA.xModulo;
 DM_CTA.ParamDFe.Params[2].AsString := ADocumento;
 DM_CTA.ParamDFe.Active:=True;
 DM_CTA.ParamDFe.Open;

 // Configurações -> Arquivos
 DMDFe.MDFe.Configuracoes.Arquivos.AdicionarLiteral := True;
 DMDFe.MDFe.Configuracoes.Arquivos.EmissaoPathMDFe  := True;
 DMDFe.MDFe.Configuracoes.Arquivos.PastaMensal      := True;
 DMDFe.MDFe.Configuracoes.Arquivos.PathMDFe         := Trim(DM_CTA.ParamDFePathSalvar.AsString);

 PathMensal := DMDFe.MDFe.Configuracoes.Arquivos.GetPathMDFe(0);

 DMDFe.MDFe.Configuracoes.Arquivos.Salvar       := True;
 DMDFe.MDFe.Configuracoes.Arquivos.SalvarEvento := True;
 DMDFe.MDFe.Configuracoes.Arquivos.PathEvento   := Trim(DM_CTA.ParamDFePathSalvar.AsString);

 // Configurações -> Certificados
 DMDFe.MDFe.Configuracoes.Certificados.NumeroSerie := DM_CTA.ParamDFeCertNumSerie.AsString;
 DMDFe.MDFe.Configuracoes.Certificados.Senha       := Trim(DM_CTA.ParamDFeCertSenha.AsString);

 // Configurações -> Geral
 DMDFe.MDFe.Configuracoes.Geral.FormaEmissao := teNormal;
 DMDFe.MDFe.Configuracoes.Geral.PathSalvar   := PathMensal;
 DMDFe.MDFe.Configuracoes.Geral.PathSchemas  := Trim(DM_CTA.ParamDFePathSchema.AsString);
 DMDFe.MDFe.Configuracoes.Geral.Salvar       := True;
 case DM_CTA.ParamDFeVersaoDF.AsInteger of
  0: DMDFe.MDFe.Configuracoes.Geral.VersaoDF := ve100;
  1: DMDFe.MDFe.Configuracoes.Geral.VersaoDF := ve100a;
 end;

 // Configurações -> WebServices
 case DM_CTA.ParamDFeWSAmbiente.AsInteger of
  0: DMDFe.MDFe.Configuracoes.WebServices.Ambiente := taHomologacao;
  1: DMDFe.MDFe.Configuracoes.WebServices.Ambiente := taProducao;
 end;
 DMDFe.MDFe.Configuracoes.WebServices.AguardarConsultaRet      := 0;
 DMDFe.MDFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := False;
 DMDFe.MDFe.Configuracoes.WebServices.IntervaloTentativas      := 0;
 DMDFe.MDFe.Configuracoes.WebServices.ProxyHost                := Trim(DM_CTA.ParamDFeProxyHost.AsString);
 DMDFe.MDFe.Configuracoes.WebServices.ProxyPass                := Trim(DM_CTA.ParamDFeProxyPass.AsString);
 DMDFe.MDFe.Configuracoes.WebServices.ProxyPort                := Trim(DM_CTA.ParamDFeProxyPorta.AsString);
 DMDFe.MDFe.Configuracoes.WebServices.ProxyUser                := Trim(DM_CTA.ParamDFeProxyUser.AsString);
 DMDFe.MDFe.Configuracoes.WebServices.Tentativas               := 5;
 DMDFe.MDFe.Configuracoes.WebServices.Visualizar               := (DM_CTA.ParamDFeWSVisualizar.AsString='S');
 if trim(DM_CTA.ParamDFeWSUF.AsString) = ''
  then DMDFe.MDFe.Configuracoes.WebServices.UF := 'SP'
  else DMDFe.MDFe.Configuracoes.WebServices.UF := DM_CTA.ParamDFeWSUF.AsString;

 // DAMDFe
 DMDFe.DAMDFe.PathPDF           := PathMensal;
 DMDFe.DAMDFe.ExpandirLogoMarca := False;
 DMDFe.DAMDFe.ImprimirDescPorc  := False;
 DMDFe.DAMDFe.Logo              := Trim(DM_CTA.ParamDFeLogoMarcaEmitente.AsString);
 DMDFe.DAMDFe.MostrarPreview    := False;
 DMDFe.DAMDFe.Site              := Trim(DM_CTA.EmpresaSite.AsString);
 DMDFe.DAMDFe.TipoDAMDFe        := tiRetrato;
 DMDFe.DAMDFe.Usuario           := DM_CTA.xUserName;
 DMDFe.DAMDFe.Email             := trim(DM_CTA.EmpresaEmail.AsString);
 // 1 = CTe, 2 = CT, 3 = NFe, 4 = NF
 case ATipoDoc of
  1,2: DMDFe.DAMDFe.Sistema := 'ERPJr - Controle de Conhecimentos ' + 'Versão: 4.0';
  3,4: DMDFe.DAMDFe.Sistema := 'ERPJr - Controle de Vendas ' + 'Versão: 4.0';
 end;
end;