Ir para conteúdo
  • Cadastre-se

dev botao

erro ao tentar transmitir o cte-os


  • Este tópico foi criado há 965 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts


 

qual o procedimento que deve fazer para conseguir, transmitir 

o erro também acontece quando abro a tela, eu sei que e nas configurações , para emissão de cte normal, ele funciona perfeito, para para cte-os da esse erro, 

image.png.3ffc2b4073d3b1d83d3d7865ee2161a5.png

 

minha configuraçao esta assim

image.png.d9281412791e8f627b21b28d18b5bb8d.png

meu código esta assim


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

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

 

alguém pode me ajudar, preciso terminar meu CTE-OS

Link para o comentário
Compartilhar em outros sites

  • Moderadores
15 minutos atrás, cimples cimples disse:

o erro também acontece quando abro a tela, eu sei que e nas configurações , para emissão de cte normal, ele funciona perfeito, para para cte-os da esse erro, 

Verifique se está definindo as configurações do certificado digital antes das demais configurações do componente.

Tem configuração que depende do certificado, por exemplo, a de agrupar os arquivos pelo CNPJ do mesmo.

7 minutos atrás, fabiofranzini disse:

Acho que para WinCrypt, vc deve informar o numero de serie do certificado. 

Mesmo com WinCrypt funciona por ArquivoPFX/Senha também.

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

 ACBrCTe.SSL.DescarregarCertificado;

  with ACBrCTe.Configuracoes.Geral do // configurações gerais
 meu codigo ta assim

sera que tenho que inverter???

 

 

 

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

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

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

  // Configurações -> WebServices
  ACBrCTe.Configuracoes.WebServices.AguardarConsultaRet := 100;
  ACBrCTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := true;
  ACBrCTe.Configuracoes.WebServices.IntervaloTentativas := 100;
  ACBrCTe.Configuracoes.WebServices.Tentativas := 1000;
  ACBrCTe.Configuracoes.WebServices.UF := dados.qryConfigUF.Text;
  ACBrCTe.Configuracoes.WebServices.Visualizar := false;
  if dados.qryConfigVISUALIZAR.Value = 'S' then
    ACBrCTe.Configuracoes.WebServices.Visualizar := true;
  ACBrCTe.Configuracoes.WebServices.Salvar := false;
 

Link para o comentário
Compartilhar em outros sites

meu codigo inteiro

 

 

var
  Ok: Boolean;
  PathMensal: String;
begin

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

  ACBrCTe.Configuracoes.Arquivos.AdicionarLiteral := true;
  ACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe := true;
  ACBrCTe.Configuracoes.Arquivos.SepararPorMes := true;
  ACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ := true;

  ACBrCTe.Configuracoes.Arquivos.PathEvento :=
    trim(dados.qryConfigPATH_EVENTO_CTE.Value);
  ACBrCTe.Configuracoes.Arquivos.PathSalvar :=
    trim(dados.qryConfigPATH_SALVAR_CTE.Value);
  ACBrCTe.Configuracoes.Arquivos.PathCTe :=
    trim(dados.qryConfigPATH_ENVIADAS_CTE.Value);
  ACBrCTe.Configuracoes.Arquivos.PathSchemas :=
    dados.qryConfigPATH_SCHEMA_CTE.Value;
  ACBrCTe.Configuracoes.Arquivos.PathInu := dados.qryConfigPATH_INU_CTE.Value;

  ACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS;

  PathMensal := ACBrCTe.Configuracoes.Arquivos.GetPathCTe(0);
  case dados.qryConfigVERSAO_CTE.Value of
    0:
      ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(0);
    1:
      ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(1);
  end;

  ACBrCTe.Configuracoes.Arquivos.PathSalvar := PathMensal;
  ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value;

  ACBrCTe.SSL.DescarregarCertificado;

  with ACBrCTe.Configuracoes.Geral do // configurações gerais
  begin
    SSLLib := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value);
    SSLCryptLib := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger);
    SSLHttpLib := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger);
    SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger);
  end;

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

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

  // Configurações -> WebServices
  ACBrCTe.Configuracoes.WebServices.AguardarConsultaRet := 100;
  ACBrCTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := true;
  ACBrCTe.Configuracoes.WebServices.IntervaloTentativas := 100;
  ACBrCTe.Configuracoes.WebServices.Tentativas := 1000;
  ACBrCTe.Configuracoes.WebServices.UF := dados.qryConfigUF.Text;
  ACBrCTe.Configuracoes.WebServices.Visualizar := false;
  if dados.qryConfigVISUALIZAR.Value = 'S' then
    ACBrCTe.Configuracoes.WebServices.Visualizar := true;
  ACBrCTe.Configuracoes.WebServices.Salvar := false;

  // DAMDFe
  if ACBrCTe.DACTE <> nil then
  begin
    ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value;
    ACBrCTe.DACTE.ExpandeLogoMarca := false;
    ACBrCTe.DACTE.Logo := dados.qryConfigLOGOMARCA.Value;
    ACBrCTe.DACTE.TipoDACTE := StrToTpImp(Ok, IntToStr(1));
  end;

  // ACBrCTe.Configuracoes.Arquivos.Salvar := true;
  ACBrCTe.Configuracoes.WebServices.Ambiente := taProducao;
  if dados.qryConfigAMBIENTE.Value = 1 then
    ACBrCTe.Configuracoes.WebServices.Ambiente := taHomologacao;

  ACBrCTeDACTeRL1.Sistema := dados.qryParametroEMPRESA.Value + ' | ' +
    dados.qryparametroFONE1.Value + ' ' + dados.qryparametroFONE2.Value;
  ACBrCTeDACTeRL1.Site := dados.qryparametroSITE.Value;

 

OK  vou fazer

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 965 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.