Numero dce Série do Certificado digital não especificado

[reij]

Boa tarde a todos estou comum pequeno problema na hora de assinar a cte ta sempre me retornando este erro

Numero dce Série do Certificado digital não especificado

 

e tenho as seguintes configurações

procedure TF_FormCte.configuracoes;
begin
dm.empresa.Locate('CODEMP', F_Principal.lblcod.Caption,[]);
     Dm.Acbrcte1.conhecimentos.Clear;//tentaiva de resolver o problema
     if dm.empresaTP_AMB_NFE.AsString = '1' then
      begin
      dm.ACBrCte1.Configuracoes.WebServices.Ambiente :=  taProducao;
      end
      else
      if dm.empresaTP_AMB_NFE.AsString = '2' then
      begin
      dm.ACBrCte1.Configuracoes.WebServices.Ambiente := taHomologacao;
      end;
      //=======salva ou não salva
      if dm.empresaSALVA_XML.AsString = 'S' then
      begin
            dm.ACBrCTe1.Configuracoes.Geral.Salvar    := True;
      end
      else
      if dm.empresaSALVA_XML.AsString = 'N' then
      begin
      dm.ACBrCTe1.Configuracoes.Geral.Salvar          := False;
      end;
      //=======fimde salva ou não salva
      dm.ACBrCTe1.Configuracoes.Certificados.Senha        := trim(dm.EmpresaSENHA_CERT.AsString);
      dm.ACBrCTe1.Configuracoes.Certificados.NumeroSerie  := trim(dm.EmpresaNUMSERIE_CERT.AsString);***********************
      dm.ACBrCTe1.Configuracoes.Arquivos.PathSalvar       := dm.EmpresaCAMINHOXML.AsString;
      dm.ACBrCTe1.Configuracoes.WebServices.UF            := dm.EmpresaUF_WEBSERVER.AsString;
      dm.ACBrCTe1.Configuracoes.WebServices.ProxyHost     := dm.EmpresaHOST_PROXY.AsString;
      dm.ACBrCTe1.Configuracoes.WebServices.ProxyPort     := dm.EmpresaPORTA_PROXY.AsString;
      dm.ACBrCTe1.Configuracoes.WebServices.ProxyUser     := dm.EmpresaUSER_PROXY.AsString;
      dm.ACBrCTe1.Configuracoes.WebServices.ProxyPass     := dm.EmpresaSENHA_PROXY.AsString;
end;
 

e para gerar e assinar o cte uso esse comando

procedure TF_FormCte.btnGerarClick(Sender: TObject);
var
 vAux : String;
begin
configuracoes;
 vaux :=  IntToStr(dm.CteNUM_CTE.AsInteger);
 ACBrCTe1.Conhecimentos.Clear;
 GerarCTe(vAux);
 ACBrCTe1.Conhecimentos.Assinar;//o erro ocorre aqui
 ACBrCTe1.Conhecimentos.Items[0].GravarXML;

 

desde já gratopela ajuda

 

end;

[Italo Giurizzato Junior]

Bom dia,

Primeiramente lhe peço para não postar como texto fragmentos longos de código, procure sempre anexa-los.

Segundo você tem certeza que a propriedade NumeroSerie esta recebendo o numero de série do certificado?

[Renato Lucas Pandolfo]

Estou com o mesmo problema.

Tenho certeza que a propriedade está recebendo o nº de série do certificado.

[Italo Giurizzato Junior]

Boa tarde Renato,

Com o programa exemplo ocorre o mesmo problema?