Jump to content
Fivewin Brasil

ACBRLIB ou melhor ACBRDLL


Jorge Andrade

Recommended Posts

3 horas atrás, vilian disse:

Boa Tarde Amigos,
Vcs sabem me dizer se existe algum recurso na ACBrLib para exibir a lista de certificados instalados em um Micro ?

::oNfe := ACBrNFe():New( cPathFileAcbrIni )    

  TRY
         ::hResult := ::oNfe:ObterCertificados()
      CATCH oErr

         IF ! ::lClassNfeInstaciada
            ::oNfe:Destroy() ;  ::oNfe := NIL
         ENDIF
         
         RETURN MsgErro( oErr:Description )
         
      END

      aTokens := HB_aTokens( ::hResult, CRLF )

      FOR nX := 1 TO Len( aTokens )

          aTokens2 := HB_aTokens( aTokens[ nX ], "|" )
          aDados   := {}

          FOR nY := 1 TO Len( aTokens2 )
              aAdd( aDados, aTokens2[ nY ] )
          NEXT

          IF ! Empty( aDados )
             aAdd( aCertificados, aDados )
          ENDIF

      NEXT
 

Link to comment
Share on other sites

Amiguinhos,

Mais uma opção:

	/*
 *
 * Recupera informacoes do certificado
 *
 */
FUNCTION GetCertificado()
   Local oCerts1, oCerts2, oCerts3, oStore, oCertificates, aVETOR:={}
   oCertificates := TOLEAuto():New( "CAPICOM.Certificates" )
   if oCertificates = NIL
      Return aVETOR
   endif
   oStore        := TOLEAuto():New( "CAPICOM.Store" )
   if oStore = NIL
      Return aVETOR
   endif
   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
      Return(aVETOR)
   else
      oCerts3 := oCerts2:Item(1)
      AADD(aVETOR,{oCerts3:SerialNumber,oCerts3:ValidToDate})
   endif
   Return(aVETOR)

Link to comment
Share on other sites

  • 2 months later...
Quando a aplicação é fechada inesperadamente, a primeira verificação é se há na máquina sistemas de proteção bancária.
Eles costumam causar esse tipo de comportamento.
Outra coisa que sempre aconselhamos é verificar o log da DLL.
Se essas opções não resolverem, mais uma dica é consultar o Visualizador de Eventos do Windows há alguma informação dessa parada da aplicação.
Muitas vezes há informações que ajudam no diagnóstico lá.

Esta foi a resposta do pessoal do fórum do Acbr. Não é o meu caso.

Link to comment
Share on other sites

Bom dia Oscar, 
Usamos MT(Multithread) em nossa Frente de Loja e com Harbour funciona perfeitamente(Com xHarbour nem tentem). Usando MT conseguimos executar vários processos simultaneamente. No meu caso, utilizo pra ficar tentando aprovar as vendas feitas em contingência. 

Mas mesmo assim temos essas quedas intermitentes. Nos micros onde eles são executados não há aqueles programas de bancos. No log da ACBR não tem nada e nem gera um HBOUT.LOG. 
Vou tentar resolver o problema por mais alguns, se não tiver sucesso, vou voltar pra flexdocs mesmo :(

Link to comment
Share on other sites

25 minutos atrás, oribeiro disse:

Também fiquei com essa dúvida.
O que é compilar no modo MT? Como se faz isso no xHarbour?
Por favor, desculpem a minha ignorância e me ajudem a entender essa expressão.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31994&p=187160&hilit=multi+threaded&sid=ee460b5b21fe93deedcfcf756fa9a664#p187160

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=26230&p=155732&hilit=multithread#p155732

 

Abs.

 

Regards, saludos.

Link to comment
Share on other sites

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...