Regys

Untitled

Nov 20th, 2017
453
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 5.25 KB | None | 0 0
  1.   try
  2.     // somente para NFC-e
  3.     PathSchemas  := IncludeTrailingPathDelimiter(PathApp + 'SCHEMAS');
  4.  
  5.     // caminhos de pastas especificos por cnpj e comuns aos dois modos de funcionamento
  6.     PathArqDFe      := IncludeTrailingPathDelimiter(PathApp + 'DOCUMENTOS');
  7.     PathPDF         := IncludeTrailingPathDelimiter(PathArqDFe + 'PDF');
  8.     PathArquivos    := IncludeTrailingPathDelimiter(PathArqDFe + 'ARQUIVOS');
  9.     PathTmp         := IncludeTrailingPathDelimiter(PathArqDFe + 'TMP');
  10.  
  11.     // configuração do ACBRNFE
  12.     ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral   := True;
  13.     ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe     := True;
  14.     ACBrNFe1.Configuracoes.Arquivos.SepararPorMes      := True;
  15.     ACBrNFe1.Configuracoes.Arquivos.SepararPorCNPJ     := True;
  16.     ACBrNFe1.Configuracoes.Arquivos.SepararPorModelo   := True;
  17.     ACBrNFe1.Configuracoes.Arquivos.Salvar             := True;
  18.     ACBrNFe1.Configuracoes.Arquivos.PathNFe            := PathArquivos;
  19.     ACBrNFe1.Configuracoes.Arquivos.PathInu            := PathArquivos;
  20.     ACBrNFe1.Configuracoes.Arquivos.PathEvento         := PathArquivos;
  21.     ACBrNFe1.Configuracoes.Arquivos.PathSalvar         := PathTmp;
  22.     ACBrNFe1.Configuracoes.Arquivos.PathSchemas        := PathSchemas;
  23.  
  24.     // configurações gerais
  25.     ACBrNFe1.Configuracoes.Geral.FormaEmissao  := teNormal;
  26.     ACBrNFe1.Configuracoes.Geral.Salvar        := True;
  27.     ACBrNFe1.Configuracoes.Geral.ModeloDF      := moNFCe;
  28.     ACBrNFe1.Configuracoes.Geral.VersaoDF      := ve310;
  29.     ACBrNFe1.Configuracoes.Geral.SSLLib        := libWinCrypt;
  30.     ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
  31.     ACBrNFe1.Configuracoes.Geral.IdCSC         := cdsConfiguracaoNFCE_TOKEN_ID.AsString;
  32.     ACBrNFe1.Configuracoes.Geral.CSC           := cdsConfiguracaoNFCE_TOKEN_NUMERO.AsString;
  33.  
  34.     // propriedades para melhorar a aparência dos retornos de validaçã dos schemas
  35.     // %TAGNIVEL%  : Representa o Nivel da TAG; ex: <transp><vol><lacres>
  36.     // %TAG%       : Representa a TAG; ex: <nLacre>
  37.     // %ID%        : Representa a ID da TAG; ex X34
  38.     // %MSG%       : Representa a mensagem de alerta
  39.     // %DESCRICAO% : Representa a Descrição da TAG
  40.     ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False;
  41.     ACBrNFe1.Configuracoes.Geral.FormatoAlerta    := '[ %TAGNIVEL%%TAG% ] %DESCRICAO% - %MSG%';
  42.  
  43.     // certificado
  44.     ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cdsConfiguracaoCERTIFICADO_NUMERO.AsString;
  45.     ACBrNFe1.Configuracoes.Certificados.Senha       := cdsConfiguracaoCERTIFICADO_SENHA.AsAnsiString;
  46.  
  47.     ACBrNFe1.Configuracoes.WebServices.TimeOut                  := 18000;  // tempo limite de espera pelo webservice
  48.     ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet      := 5000;   // tempo padrão que vai aguardar para consultar após enviar a NF-e
  49.     ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas      := 3000;   // Intervalo entre as tentativas de envio
  50.     ACBrNFe1.Configuracoes.WebServices.Tentativas               := 10;     // quantidade de tentativas de envio
  51.     ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;   // ajustar "AguardarConsultaRet" com o valor retornado pelo webservice
  52.  
  53.     // webservices
  54.     ACBrNFe1.Configuracoes.WebServices.UF         := cdsConfiguracaoWS_UF_DESTINO.AsString;
  55.     ACBrNFe1.Configuracoes.WebServices.Visualizar := False;
  56.  
  57.     if cdsConfiguracaoWS_TIPO_AMBIENTE.AsString = 'P' then
  58.       ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao
  59.     else
  60.       ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao;
  61.  
  62.     // proxy de acesso
  63.     ACBrNFe1.Configuracoes.WebServices.ProxyHost := cdsConfiguracaoWS_PROXY_HOST.AsString;
  64.     ACBrNFe1.Configuracoes.WebServices.ProxyPort := cdsConfiguracaoWS_PROXY_PORTA.AsString;
  65.     ACBrNFe1.Configuracoes.WebServices.ProxyUser := cdsConfiguracaoWS_PROXY_USUARIO.AsString;
  66.     ACBrNFe1.Configuracoes.WebServices.ProxyPass := cdsConfiguracaoWS_PROXY_SENHA.AsString;
  67.  
  68.     // Email
  69.     ConfigurarEmail;
  70.  
  71.     // DANFE ( GERAL )
  72.     ACBrNFe1.DANFE.PathPDF   := PathPDF;
  73.     ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
  74.     ACBrNFe1.DANFE.Sistema   := 'Seu Sistema v1.0';
  75.     ACBrNFe1.DANFE.Logo      := cdsConfiguracaoLOGOMARCA.AsString;
  76.     ACBrNFe1.DANFE.Site      := cdsConfiguracaoWEBSITE.AsString;
  77.     ACBrNFe1.DANFE.Email     := cdsConfiguracaoEMAIL.AsString;
  78.  
  79.     // configurações impressão escpos
  80.     if cdsConfiguracaoIMPRESSORA.AsString = MODELO_ESCPOS_DIRETO then
  81.     begin
  82.       ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1;
  83.  
  84.       ACBrNFeDANFeESCPOS1.ImprimeEmUmaLinha     := cdsConfiguracaoIMP_UMA_LINHA.AsString = 'S';
  85.       ACBrNFeDANFeESCPOS1.ImprimeDescAcrescItem := True;
  86.  
  87.       ConfigurarPosPrinter;
  88.     end
  89.     else
  90.     begin
  91.       ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
  92.       case cdsConfiguracaoIMPRESSORA_FORMATO.AsInteger of
  93.         0: ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1;
  94.         1: ACBrNFe1.DANFE := ACBrNFeDANFCeFortesA41;
  95.       else
  96.         raise Exception.Create('Formato de impressão desconhecido, favor verificar!');
  97.       end;
  98.  
  99.       ACBrNFe1.DANFE.Impressora := cdsConfiguracaoIMPRESSORA.AsString.Trim;
  100.     end;
  101.  
  102.     // se não informou uma impressora então mostrar ou preview
  103.     ACBrNFe1.DANFE.MostrarPreview := ACBrNFe1.DANFE.Impressora.IsEmpty;
Advertisement
Add Comment
Please, Sign In to add comment