Permissão do Certificado ficando atrás da Aplicação

[israeloplopes]

Não sei se está no lugar certo esta postagem, se não estiver me desculpem.

Emissão de NFCe quando vai emitir a primeira nota o certificado solicita duas permissões de acesso, porém essa informação está ficando atrás da aplicação.

O que devo fazer ou para não aparecer a permissão ou para que essa solicitação de permissão esteja em primeiro plano

 

[Felipe E. Resende Mesquita]

14 minutos atrás, israeloplopes disse:

Não sei se está no lugar certo esta postagem, se não estiver me desculpem.

Emissão de NFCe quando vai emitir a primeira nota o certificado solicita duas permissões de acesso, porém essa informação está ficando atrás da aplicação.

O que devo fazer ou para não aparecer a permissão ou para que essa solicitação de permissão esteja em primeiro plano

 

Bom dia, israeloplopes.

Sugiro criar a sua própria janela de diálogo, geralmente a API do Windows não funciona em alguns ambientes. Veja o demo do ACBr e exemplo abaixo:

procedure TForm1.sbtnGetCert1Click(Sender: TObject);
var
  I: Integer;
begin
  frSelecionarCertificado := TfrSelecionarCertificado.Create(Self);
  try
    ACBrNFe1.SSL.LerCertificadosStore;

    For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
    begin
      with ACBrNFe1.SSL.ListaCertificados[I] do
      begin
        if (CNPJ <> '') then
        begin
          with frSelecionarCertificado.StringGrid1 do
          begin
            RowCount := RowCount + 1;
            Cells[ 0, RowCount-1] := NumeroSerie;
            Cells[ 1, RowCount-1] := RazaoSocial;
            Cells[ 2, RowCount-1] := CNPJ;
            Cells[ 3, RowCount-1] := FormatDateBr(DataVenc);
            Cells[ 4, RowCount-1] := Certificadora;
          end;
        end;
      end;
    end;

    frSelecionarCertificado.ShowModal;

    if frSelecionarCertificado.ModalResult = mrOK then
      edtNumSerie.Text := frSelecionarCertificado.StringGrid1.Cells[ 0,
                            frSelecionarCertificado.StringGrid1.Row];

  finally
     frSelecionarCertificado.Free;
  end;
end;