ACBRCte e ACBRMDFe

[AllyRafhiyy E N Nunes]

quando chamo essa funcao no form

da erro de: Dadospfx,arquivoPFX, URLPFX ou numero do certificado de serie nao especificado, uso essa

mesma funcao no ACBRNFe e carrega os dados do certificado certinho, ja no aCBRCTe e ACBRMDFe da

essa mensagem de erro.

 

ConfiguraMDFe;
var
  Ok: Boolean;
  PathMensal: String;
begin

  dados.qryConfig.Close;
  dados.qryConfig.Params[0].Value := dados.qryEmpresaCODIGO.Value;
  dados.qryConfig.Open;

  ACBrMDFe.Configuracoes.Certificados.VerificarValidade := true;

  // Configurações -> Arquivos
  ACBrMDFe.Configuracoes.Arquivos.AdicionarLiteral := false;
  ACBrMDFe.Configuracoes.Arquivos.EmissaoPathMDFe := true;
  ACBrMDFe.Configuracoes.Arquivos.SepararPorMes := true;

  ACBrMDFe.Configuracoes.Arquivos.PathMDFe :=
    Trim(dados.qryConfigMDFE_PATH_MDFE.Value);
  ACBrMDFe.Configuracoes.Arquivos.PathEvento :=
    Trim(dados.qryConfigMDFE_PATH_EVENTO.Value);
  ACBrMDFe.Configuracoes.Arquivos.PathSalvar :=
    Trim(dados.qryConfigMDFE_PATH_SALVAR.Value);

  ACBrMDFe.Configuracoes.Arquivos.Salvar := true;
  ACBrMDFe.Configuracoes.Arquivos.PathSchemas :=
    Trim(dados.qryConfigMDFE_PATH_SCHEMA.Value);

  PathMensal := ACBrMDFe.Configuracoes.Arquivos.GetPathMDFe(0);

  // Configurações -> Geral
  ACBrMDFe.Configuracoes.Geral.FormaEmissao := StrToTpEmis(Ok, IntToStr(0));
  ACBrMDFe.Configuracoes.Geral.Salvar := true;

  case dados.qryConfigMDFE_VERSAO.Value of
    0:
      ACBrMDFe.Configuracoes.Geral.VersaoDF := ve100;
    1:
      ACBrMDFe.Configuracoes.Geral.VersaoDF := ve300;
  end;

  with acbrmdfe.Configuracoes.Geral do
  begin
  ACBrMDFe.Configuracoes.Geral.SSLLib        :=TSSLLib(dados.qryConfigTIPO_EMISSAO.Value);
  ACBrMDFe.Configuracoes.Geral.SSLCryptLib   :=TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger);
  ACBrMDFe.Configuracoes.Geral.SSLHttpLib    :=TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger);
  ACBrMDFe.Configuracoes.Geral.SSLXmlSignLib :=TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger);

  end;
      // Configurações -> Certificados

  ACBrMDFe.Configuracoes.Certificados.ArquivoPFX   :=dados.qryConfigCAMINHO_CERTIFICADO.value;
  ACBrMDFe.Configuracoes.Certificados.NumeroSerie  :=dados.qryConfigNUMEROSERIECERTFICADO.Value;
  ACBrMDFe.Configuracoes.Certificados.Senha        :=dados.qryConfigSENHACERTIFICADO.Value;

  ACBrMDFe.Configuracoes.Arquivos.PathSalvar     :=dados.qryConfigMDFE_PATH_SALVAR.Value;

  // Configurações -> WebServices
  ACBrMDFe.Configuracoes.WebServices.AguardarConsultaRet := 60;
  ACBrMDFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := false;
  ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao;
  if dados.qryConfigAMBIENTE.Value = 1 then
    ACBrMDFe.Configuracoes.WebServices.Ambiente := taHomologacao;

  ACBrMDFe.Configuracoes.WebServices.IntervaloTentativas := 5;
  ACBrMDFe.Configuracoes.WebServices.Tentativas := 1000;
  ACBrMDFe.Configuracoes.WebServices.UF := dados.qryConfigUF.Value;

  ACBrMDFe.Configuracoes.WebServices.Visualizar := false;
  if dados.qryConfigVISUALIZAR.Value = 'S' then
    ACBrMDFe.Configuracoes.WebServices.Visualizar := true;
  ACBrMDFe.Configuracoes.WebServices.Salvar := false;

  ACBrMDFe.Configuracoes.WebServices.ProxyHost := '';
  ACBrMDFe.Configuracoes.WebServices.ProxyPort := '';
  ACBrMDFe.Configuracoes.WebServices.ProxyUser := '';
  ACBrMDFe.Configuracoes.WebServices.ProxyPass := '';

  ACBrMDFe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger);

  // DAMDFe
  if ACBrMDFe.DAMDFe <> nil then
  begin
    ACBrMDFe.DAMDFe.PathPDF := PathMensal;
    ACBrMDFe.DAMDFe.ExpandeLogoMarca := false;
    ACBrMDFe.DAMDFe.Logo := dados.qryConfigLOGOMARCA.Value;
    ACBrMDFe.DAMDFe.MostraPreview := true;
    ACBrMDFe.DAMDFe.TipoDAMDFe := StrToTpImp(Ok, IntToStr(1));
  end;

  ACBrMDFeDAMDFeRL1.Sistema := dados.qryEmpresaRAZAO.Value + ' | ' +
    dados.qryEmpresaFONE.Value;
  ACBrMDFeDAMDFeRL1.Site := dados.qryEmpresaSITE.Value;

[Juliomar Marchetti]

Duas coisas

//with acbrmdfe.Configuracoes.Geral do
//  begin
  ACBrMDFe.Configuracoes.Geral.SSLLib        :=TSSLLib(dados.qryConfigTIPO_EMISSAO.Value);
//  ACBrMDFe.Configuracoes.Geral.SSLCryptLib   :=TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger);
//  ACBrMDFe.Configuracoes.Geral.SSLHttpLib    :=TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger);
//  ACBrMDFe.Configuracoes.Geral.SSLXmlSignLib :=TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger);

//  end;

Porque tem o With sendo que identifica em cada linha o caminho completo?

para configurar é necessário só a linha sem comentário. e ela é preferivel que esteja no começo de tudo assim os dados do certificado e tudo mais vai entender

pois veja que está setando true uma propriedade de certificado lá no começo

[AllyRafhiyy E N Nunes]

Porque tem o With sendo que identifica em cada linha o caminho completo?

desculpa nessa linha e tinha esquecido de retirar.

continua dando o mesmo erro

 Dadospfx, arquivoPFX, URLPFX ou numero do certificado de serie nao especificado,

 

    ACBrCTe.Configuracoes.Geral.SSLLib        := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value);
    ACBrCTe.Configuracoes.Geral.SSLCryptLib   := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger);
    ACBrCTe.Configuracoes.Geral.SSLHttpLib    := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger);
    ACBrCTe.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger);

    ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger);

     // certificado
  ACBrCTe.Configuracoes.Certificados.ArquivoPFX  :=dados.qryConfigCAMINHO_CERTIFICADO.Value;
  ACBrCTe.Configuracoes.Certificados.NumeroSerie :=dados.qryConfigNUMEROSERIECERTFICADO.Value;
  ACBrCTe.Configuracoes.Certificados.Senha       :=dados.qryConfigSENHACERTIFICADO.Value;

 

[BigWings]

44 minutos atrás, AllyRafhiyy E N Nunes disse:

continua dando o mesmo erro

 Dadospfx, arquivoPFX, URLPFX ou numero do certificado de serie nao especificado,

Tente mover a configuração SSLLib e de certificado acima da configuração de arquivos.

Se não me engano GetPathMDFe vai tentar acessar o certificado pra obter o CNPJ do mesmo.

[AllyRafhiyy E N Nunes]

muito obrigado BigWings, deu certinho fiz isso agora ta ok!!!!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.