Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- try
- // somente para NFC-e
- PathSchemas := IncludeTrailingPathDelimiter(PathApp + 'SCHEMAS');
- // caminhos de pastas especificos por cnpj e comuns aos dois modos de funcionamento
- PathArqDFe := IncludeTrailingPathDelimiter(PathApp + 'DOCUMENTOS');
- PathPDF := IncludeTrailingPathDelimiter(PathArqDFe + 'PDF');
- PathArquivos := IncludeTrailingPathDelimiter(PathArqDFe + 'ARQUIVOS');
- PathTmp := IncludeTrailingPathDelimiter(PathArqDFe + 'TMP');
- // configuração do ACBRNFE
- ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral := True;
- ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True;
- ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := True;
- ACBrNFe1.Configuracoes.Arquivos.SepararPorCNPJ := True;
- ACBrNFe1.Configuracoes.Arquivos.SepararPorModelo := True;
- ACBrNFe1.Configuracoes.Arquivos.Salvar := True;
- ACBrNFe1.Configuracoes.Arquivos.PathNFe := PathArquivos;
- ACBrNFe1.Configuracoes.Arquivos.PathInu := PathArquivos;
- ACBrNFe1.Configuracoes.Arquivos.PathEvento := PathArquivos;
- ACBrNFe1.Configuracoes.Arquivos.PathSalvar := PathTmp;
- ACBrNFe1.Configuracoes.Arquivos.PathSchemas := PathSchemas;
- // configurações gerais
- ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
- ACBrNFe1.Configuracoes.Geral.Salvar := True;
- ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
- ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
- ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
- ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
- ACBrNFe1.Configuracoes.Geral.IdCSC := cdsConfiguracaoNFCE_TOKEN_ID.AsString;
- ACBrNFe1.Configuracoes.Geral.CSC := cdsConfiguracaoNFCE_TOKEN_NUMERO.AsString;
- // propriedades para melhorar a aparência dos retornos de validaçã dos schemas
- // %TAGNIVEL% : Representa o Nivel da TAG; ex: <transp><vol><lacres>
- // %TAG% : Representa a TAG; ex: <nLacre>
- // %ID% : Representa a ID da TAG; ex X34
- // %MSG% : Representa a mensagem de alerta
- // %DESCRICAO% : Representa a Descrição da TAG
- ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False;
- ACBrNFe1.Configuracoes.Geral.FormatoAlerta := '[ %TAGNIVEL%%TAG% ] %DESCRICAO% - %MSG%';
- // certificado
- ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cdsConfiguracaoCERTIFICADO_NUMERO.AsString;
- ACBrNFe1.Configuracoes.Certificados.Senha := cdsConfiguracaoCERTIFICADO_SENHA.AsAnsiString;
- ACBrNFe1.Configuracoes.WebServices.TimeOut := 18000; // tempo limite de espera pelo webservice
- ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 5000; // tempo padrão que vai aguardar para consultar após enviar a NF-e
- ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 3000; // Intervalo entre as tentativas de envio
- ACBrNFe1.Configuracoes.WebServices.Tentativas := 10; // quantidade de tentativas de envio
- ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; // ajustar "AguardarConsultaRet" com o valor retornado pelo webservice
- // webservices
- ACBrNFe1.Configuracoes.WebServices.UF := cdsConfiguracaoWS_UF_DESTINO.AsString;
- ACBrNFe1.Configuracoes.WebServices.Visualizar := False;
- if cdsConfiguracaoWS_TIPO_AMBIENTE.AsString = 'P' then
- ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao
- else
- ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao;
- // proxy de acesso
- ACBrNFe1.Configuracoes.WebServices.ProxyHost := cdsConfiguracaoWS_PROXY_HOST.AsString;
- ACBrNFe1.Configuracoes.WebServices.ProxyPort := cdsConfiguracaoWS_PROXY_PORTA.AsString;
- ACBrNFe1.Configuracoes.WebServices.ProxyUser := cdsConfiguracaoWS_PROXY_USUARIO.AsString;
- ACBrNFe1.Configuracoes.WebServices.ProxyPass := cdsConfiguracaoWS_PROXY_SENHA.AsString;
- // Email
- ConfigurarEmail;
- // DANFE ( GERAL )
- ACBrNFe1.DANFE.PathPDF := PathPDF;
- ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
- ACBrNFe1.DANFE.Sistema := 'Seu Sistema v1.0';
- ACBrNFe1.DANFE.Logo := cdsConfiguracaoLOGOMARCA.AsString;
- ACBrNFe1.DANFE.Site := cdsConfiguracaoWEBSITE.AsString;
- ACBrNFe1.DANFE.Email := cdsConfiguracaoEMAIL.AsString;
- // configurações impressão escpos
- if cdsConfiguracaoIMPRESSORA.AsString = MODELO_ESCPOS_DIRETO then
- begin
- ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1;
- ACBrNFeDANFeESCPOS1.ImprimeEmUmaLinha := cdsConfiguracaoIMP_UMA_LINHA.AsString = 'S';
- ACBrNFeDANFeESCPOS1.ImprimeDescAcrescItem := True;
- ConfigurarPosPrinter;
- end
- else
- begin
- ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
- case cdsConfiguracaoIMPRESSORA_FORMATO.AsInteger of
- 0: ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1;
- 1: ACBrNFe1.DANFE := ACBrNFeDANFCeFortesA41;
- else
- raise Exception.Create('Formato de impressão desconhecido, favor verificar!');
- end;
- ACBrNFe1.DANFE.Impressora := cdsConfiguracaoIMPRESSORA.AsString.Trim;
- end;
- // se não informou uma impressora então mostrar ou preview
- ACBrNFe1.DANFE.MostrarPreview := ACBrNFe1.DANFE.Impressora.IsEmpty;
Advertisement
Add Comment
Please, Sign In to add comment