Assinar com Certificado Digital

Olá Pessoal,

Estou preparando um sistema de prontuário eletrônico.
Assim que salvo o prontuário em um registro de uma tabela de banco de dados, preciso guardar a assinatura digital do certificado A1. Como chamar o certificado que está instalado no computador? Como pegar o retorno da assinatura digital?

Desde já obrigada!!

Viviane Ribeiro
ArteMicro Sistemas

Um pouco sobre o assunto
https://www.maximoaccess.com/t36551-lendo-informacoes-do-certificado-digital-com-capicom

Como faço para utilizar essa função para assinar um PDF


att
Anderson

Boa noite ou bom dia

estou com a mesma necessidade, para teleconsulta, preciso de um código Access vba para o medico emitir receita medica (em um relatorio do access) com a assinatura digital dele (certificado digital).

Damasceno Jr, se puder indicar alguem que faça o codigo, nos pagamos.
Certificado A1.

desde já agradeço

O relatório mostrado no Access ainda não é PDF, é apenas a amostragem do PDF que será gerado, sendo assim não é possível fazer da maneira que queres. Digo isso pois é necessário um ferramenta leitora de PDF que permita marcar no documento a posição onde a assinatura será mostrada.

Ainda não vi ferramenta que faça uma assinatura de PDF sem ser necessário ler o arquivo e marcar onde assinar.

Há um tempo atrás criei um assinador de XML, pois nesse tipo de arquivo não é necessário marcar graficamente onde a assinatura deve ir
https://www.maximoaccess.com/t31499-assinatura-digital#250353

Bom dia, boa noite Damasceno Jr.

Obrigado pelo Post. Estou precisando mesmo é de uma dll ou codigo vba-Access que funcione, para assinar digitalmente um PDF (com Certificado Digital - A1 ou A3).
Se voce puder dar uma dica, ou se voce ja tiver este codigo...se puder nos ajudar...sem preço ou com preço.

Vou estudar o C# e tentar fazer a dll...mas vai ser dificil e demorado...rsrs

Tenho este código em vba que não funcionou no meu pc, com Acrobat Reader Pro instalado, referencia Adobe Acrobat 10.0 type Library.
Se alguém conseguir fazer este código funcionar, para assinar um pdf, nos avise.

Código:


Function CreateDigitalSignature()

Dim Acro_App As Acrobat.AcroApp
Dim Acro_PDdoc As Acrobat.AcroPDDoc
Dim oJS As Object
Dim SGH_Ppklite As Object
Dim ppklite_login
Dim SignField As Object
Dim senhacertificado

Dim Getsignfield As Object
Dim OinforArray As String
Dim Signature_Coord As Variant
Dim sg As Signature

Const Bottom_Left_x = 400
Const Bottom_Left_y = 200
Const Wdth = 100
Const Hght = 60

Signature_Coord = Array(Bottom_Left_x, Bottom_Left_y + Hght, Bottom_Left_x + Wdth, Bottom_Left_y)

Set Acro_App = New Acrobat.AcroApp
Set Acro_PDdoc = New Acrobat.AcroPDDoc

If Acro_PDdoc.Open("C:\Certificados\testedec.pdf") Then

Set oJS = Acro_PDdoc.GetJSObject

Set SGH_Ppklite = oJS.security.getHandler("Adobe.PPKLite", True)

Set SignField = oJS.AddField("MysignField", "signature", 0, Signature_Coord)
'Set SignField = oJS.AddField("MysignField", "signature", 0, Array(0, 0, 0, 0))

'Lets Login
ppklite_login = SGH_Ppklite.login(senhacertificado, "C:\Certificados\CertificadoTeste.pfx")

'Mention time out
 SGH_Ppklite.setpasswordtimeout senhacertificado, 200

' Get signature field reference

Set Getsignfield = oJS.GetField("MysignField")

OinforArray = VBA.Split("", ",")

' Sign the signature Field

Signdone = Getsignfield.signatureSign(SGH_Ppklite, OinforArray, "C:\Certificados\testeAssinado.pdf")

'Last Step Logout

SGH_Ppklite.logout
End If

End Function