erro ao tentar transmitir o cte-os

[cimples cimples]

 

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, 

 

minha configuraçao esta assim

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

[Fabio Franzini - Compsoft]

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

[BigWings]

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.

[cimples cimples]

BLZ 

vou tentar aqui e retorno ai

 

[cimples cimples]

nao deu coloquei o numero de serie, e senha e mais o caminho e nao deu

 

[cimples cimples]

 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;
 

[BigWings]

Tente depurar a aplicação pra ver em que momento ocorre o erro.

[cimples cimples]

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

 

[BigWings]

14 minutos atrás, cimples cimples disse:

meu codigo inteiro

Veja que a configuração de arquivos está antes da configuração do certificado, foi o que eu quis dizer na minha primeira resposta.

[cimples cimples]

era isso mesmo, agora ta dando erro de 

numero de registro estadual, vou ter que pedir meu cliente para fazer o registro, para eu testar dinovo, pelo menos o erro acima ja foi corrigido

 

valeu gente, foi de grande valia.

 

 

[BigWings]

Obrigado por reportar.

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