Senha por biometria

[marcioe]

Olá todos os amigos

Tenho um cliente que está querendo que a senha de liberação de vendas, seja feita por meio de sua digital.

Alguém já fez alguma coisa voltada pra tal situação

 

[Ariston Santos]

Tenho um programa de registro de ponto do funcionário que é por biometria. Se quiser o código fonte para adaptar, entre em contato por e-mail: ariston.ap@hotmail.com

[Theotokos]

Boa noite,,, @Ariston Santos

este código fonte vc esta disponibilizando, ou vc esta vendendo? se estiver disponibilizado ai para comunidade, Deus seja louvado, tenho certeza que muitos precisam tmb (EU), ai se puder colocar aqui para nós, nosso muito obgdo!!!! Senão se tiver vendendo, nos diz qi quanto? Obgdo!!!!

 

[Ariston Santos]

Posso disponibilizar sim. Baixem deste link:

Baixar código fonte do SISPONTO

[Theotokos]

 

Posso disponibilizar sim. Baixem deste link:

Baixar código fonte do SISPONTO

Vlw Ariston, por disponibilizar a rotina.... mas o link não esta funcionando... não consigo baixar...

[rubensma]

No Crome está baixando normal, obrigado pela disponibilização.

[Theotokos]

tentei no chrome e internete explorer, não consigo... estranho...

** Não estou conseguindo mesmo... mas é problema na minha NET... dá err_conection_timed_out    já liguei lá em não resolvem 

[kapiaba]

 

Posso disponibilizar sim. Baixem deste link:

Baixar código fonte do SISPONTO

Ariston, o código pareceu bem bacana, mas não dá para testar, pois falta a BASE DE DADOS. Many thanks por compartilhar.

[Ariston Santos]

Testei novamente e baixou sem problema. A bronca deve ser somente no PC de quem não está conseguindo baixar. Tentem outro navegador, ou até mesmo copiando e colando o link na barra de endereços.

http://www.arsoft-ap.com.br/fd456406745d816a45cae554c788e754/08dc2d813326fd8ac79eb734d96b56ff/sisponto_completo.zip

 

[kapiaba]

[HERGON]

Bom dia Kapiaba

Tive o mesmo problema, olhei nos fontes e identifiquei que tem que criar uma subpasta com o nome DADOS que ai o sistema cria as bases de dados necessárias.

Abraço

Herberson Gontijo

[kapiaba]

 

Bom dia Kapiaba

Tive o mesmo problema, olhei nos fontes e identifiquei que tem que criar uma subpasta com o nome DADOS que ai o sistema cria as bases de dados necessárias.

Abraço

Herberson Gontijo

Valeu garoto. Agora abriu! Many trhanks.

 

 

Obg. abs.

[kapiaba]

Ariston, correção:

   // Verificar erros de marcação
   USE PONTO EXCLUSIVE NEW
   IF ! NETERR()
      OrdListClear()
      OrdListAdd("PONTO", "PntoCODI", "PntoNOME", "PntoDATA", "PntoNDAT")
      PONTO->(DBGOTOP())
      IF ChecaErro(OrdCount()) .OR. PONTO->(RECCOUNT()) = 0 .OR. PONTO->(EOF()) = .T.
         INDEX ON CODIGO TAG PntoCODI TO PONTO
         INDEX ON ITEM02 TAG PntoNOME TO PONTO
         INDEX ON ITEM05 TAG PntoDATA TO PONTO
         INDEX ON INDICE TAG PntoNDAT TO PONTO
      ENDIF
   ENDIF
   CLOSE ALL
	
//-> Verifica a Integridade do indice
FUNCTION ChecaErro(nKeys)
	   LOCAL lErr := .F.
	   c_Alias := ALIAS()
	   FOR Key := 1 TO nKeys
	      &(c_Alias)->(DBSETORDER(Key))
	      IF nKeys != LEN(&(c_Alias)->(GetOrdNames())) // .OR. ORDKEYCOUNT() # RECCOUNT()
	         lErr := .T.
	         MsgStop( "ATENÇÃO !..."+CRLF+CRLF+;
                  "O sistema detectou que um dos índices do arquivo: " +ALIAS()+ ".DBF"+CRLF+ ;
                  "está corrompido ou desatualizado. Isto ocorre às vezes por queda"+CRLF+ ;
                  "de energia, vírus ou desligamento incorreto do computador. Será preciso"+CRLF+ ;
                  "corrigir o problema para evitar erros na operação do Sistema."+CRLF+ ;
                  "O arquivo corrompido será excluído e o Programa será encerrado. Execute"+CRLF+ ;
                  "o programa novamente para que seja feia a correção. Tecle Enter...",;
                  "Erro de índece: Correção obrigatória" )
	
      ENDIF
	      SysRefresh()
	   NEXT
	RETURN(lErr)