MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    Assinar com Certificado Digital

    avatar
    Viviane Ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 01/09/2015

    Assinar com Certificado Digital Empty Assinar com Certificado Digital

    Mensagem  Viviane Ribeiro 3/11/2017, 09:42

    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

    Clebergyn gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3751
    Registrado : 21/11/2016

    Assinar com Certificado Digital Empty Re: Assinar com Certificado Digital

    Mensagem  DamascenoJr. 26/8/2019, 19:53



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    andersonfabio gosta desta mensagem

    avatar
    andersonfabio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 23/07/2012

    Assinar com Certificado Digital Empty Como faço para utilizar essa função para assinar um PDF

    Mensagem  andersonfabio 9/3/2021, 12:19


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


    att
    Anderson
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 778
    Registrado : 29/08/2012

    Assinar com Certificado Digital Empty Re: Assinar com Certificado Digital

    Mensagem  Clebergyn 4/4/2022, 18:54

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3751
    Registrado : 21/11/2016

    Assinar com Certificado Digital Empty Re: Assinar com Certificado Digital

    Mensagem  DamascenoJr. 4/4/2022, 20:19

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 778
    Registrado : 29/08/2012

    Assinar com Certificado Digital Empty Re: Assinar com Certificado Digital

    Mensagem  Clebergyn 21/4/2022, 13:06

    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

      Data/hora atual: 7/2/2023, 20:44