PC Toledo

Código: Selecionar todos

FUNCTION MAIN()
Local aVetor := {}
aVetor:=PEGA_CERTIFICADO()
IF LEN(aVetor) > 0
   ALERT("Numero de Serie do certificado.:" + aVetor[1,1] + " - Vencimento.: " + DTOC(aVetor[1,2]))
ENDIF
RETURN

Código: Selecionar todos

********************************
STATIC FUNCTION PEGA_CERTIFICADO
*Retorna um Vetor com o numero de serie na primeira possição
*e o vencimento do certificado na segunda possição
*Leonardo Machado - 03/05/2010
********************************
Local oCerts1, oCerts2, oCerts3, oStore, oCertificates, aVETOR:={}

TRY
   oCertificates := GetActiveObject( "CAPICOM.Certificates" )
CATCH
   TRY
      oCertificates := CreateObject( "CAPICOM.Certificates" )
   CATCH
      alert("A Dll (capicom.dll) Não está registrada, Favor executar o arquivo INSTALL.BAT")
      //myrun("install.bat")
      Return(aVETOR)
   END
END
TRY
   oStore = GetActiveObject("CAPICOM.Store")
CATCH
   TRY
      oStore := CreateObject( "CAPICOM.Store")
   CATCH
      alert("A Dll (capicom.dll) Não está registrada, Favor executar o arquivo INSTALL.BAT")
      //myrun("install.bat")
      Return(aVETOR)
   END
END

TRY
  oStore:open(2,'My',2)
  oCerts1:=oStore:Certificates()
  oCerts2:=oCerts1:Select("Selecione o certificado para uso da Nfe","Selecione o certificado",.F.)
  IF oCerts2:Count() > 0
     oCerts3 := oCerts2:Item(1)
     AADD(aVETOR,{oCerts3:SerialNumber,oCerts3:ValidToDate})
  ENDIF
CATCH
   Return(aVETOR)
END
Return(aVETOR)

Código: Selecionar todos

   /* TRY / CATCH / FINALLY / END */
   #xcommand TRY  => BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
   #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
   #xcommand FINALLY => ALWAYS

Código: Selecionar todos

#pragma BEGINDUMP
        #include <hbapi.h>
        #include <windows.h>
        typedef LONG ( * PDLLREGISTERSERVER ) ( void );
        HB_FUNC( REGISTERSERVER )
        {
           HMODULE hDll = LoadLibrary( hb_parc( 1 ) );
           LONG lReturn = 0;
           if( hDll )
           {
              FARPROC pRegisterServer = GetProcAddress( hDll, "DllRegisterServer" );
              if( pRegisterServer )
                 lReturn = ( ( PDLLREGISTERSERVER ) pRegisterServer )();
              FreeLibrary( hDll );
           }
           hb_retnl( lReturn );
        }        
#pragma ENDDUMP

Código: Selecionar todos

...
   CATCH
      // Ajuda a instalar automaticamente a capicom.dll
      iif( file( "CAPICOM.DLL" ), RegisterServer( "CAPICOM.DLL" ), MsgStop( "Nao foi instalado CAPICOM.DLL" ) )
      //myrun("install.bat")
...
   CATCH
      // Ajuda a instalar automaticamente a capicom.dll
      iif( file( "CAPICOM.DLL" ), RegisterServer( "CAPICOM.DLL" ), MsgStop( "Nao foi instalado CAPICOM.DLL" ) )
      //myrun("install.bat")
      Return(aVETOR)
   END
END

Código: Selecionar todos

...
   CATCH
      // Ajuda a instalar automaticamente a capicom.dll
      UAC( 0 )
      iif( file( "CAPICOM.DLL" ), RegisterServer( "CAPICOM.DLL" ), MsgStop( "Nao foi instalado CAPICOM.DLL" ) )
      UAC( 1 )
      //myrun("install.bat")
...
   CATCH
      // Ajuda a instalar automaticamente a capicom.dll
      UAC( 0 )
      iif( file( "CAPICOM.DLL" ), RegisterServer( "CAPICOM.DLL" ), MsgStop( "Nao foi instalado CAPICOM.DLL" ) )
      UAC( 1 )
      //myrun("install.bat")
      Return(aVETOR)
   END
END

FUNCTION UAC(nAtivar)
   *****************************************************
   * Grava o registro do aplicativo 
   *****************************************************
   LOCAL cRunName, cRunKey, cRegKey
   // EnableLUA
   // 0-Desativar
   // 1-Ativar
   cRegValue:= nAtivar
   cRegKey  := "Software\Microsoft\Windows\CurrentVersion\Policies\System"
   cRegRoot := HKEY_LOCAL_MACHINE
   SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )
   RETURN 0

FUNCTION SETREGVAR(nKey, cRegKey, cSubKey, uValue)
   LOCAL oReg, cValue
   nKey := IF(nKey == NIL, HKEY_CURRENT_USER, nKey)
   uValue := IF(uValue == NIL, "", uValue)
   oReg := TReg32():Create(nKey, cRegKey)
   cValue := oReg:Set(cSubKey, uValue)
   oReg:Close()
   RETURN cValue