marcioe Posted July 1, 2017 Report Share Posted July 1, 2017 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 Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted July 1, 2017 Report Share Posted July 1, 2017 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 Quote Link to comment Share on other sites More sharing options...
Theotokos Posted July 2, 2017 Report Share Posted July 2, 2017 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!!!! Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted July 3, 2017 Report Share Posted July 3, 2017 Posso disponibilizar sim. Baixem deste link: Baixar código fonte do SISPONTO Theotokos and kapiaba 2 Quote Link to comment Share on other sites More sharing options...
Theotokos Posted July 5, 2017 Report Share Posted July 5, 2017 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... kapiaba 1 Quote Link to comment Share on other sites More sharing options...
rubensma Posted July 5, 2017 Report Share Posted July 5, 2017 No Crome está baixando normal, obrigado pela disponibilização. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted July 5, 2017 Report Share Posted July 5, 2017 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 5, 2017 Report Share Posted July 5, 2017 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. Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted July 5, 2017 Report Share Posted July 5, 2017 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 5, 2017 Report Share Posted July 5, 2017 Quote Link to comment Share on other sites More sharing options...
HERGON Posted July 6, 2017 Report Share Posted July 6, 2017 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 6, 2017 Report Share Posted July 6, 2017 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. Ariston Santos 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 7, 2017 Report Share Posted July 7, 2017 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) Ariston Santos 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.