clipeiro

opa... uso no harbour indices ntx temporários em arquivos temporários e da base sem nenhum problema. O que vc tem observar é que não pode criar um indice fora de ordem, talves por isso q qdo vc tirou a base deu certo. Exemplo: chv_1, chv_2, chv_3, etc.... senão ele se perde mesmo.

Então, amigo, tinha ficado com dúvida por q vc falou em pegar o CEP, tambem trabalho grafica\correios. Segue exemplo de como uso a rotina de criar o digito e outra pra checar o digito, qdo ja recebo com numero completo. Abraços, ***************************************************************************** FUNCTION CalcDig(c_num) **---------------------- LOCAL i,n_cont, v_peso[9] FOR i = 1 TO 9 v_peso := SUBSTR(c_num,(1+(i-1)),1) NEXT n_peso1 := VAL(v_peso[1]) * 8 n_peso2 := VAL(v_peso[2]) * 6 n_peso3 := VAL(v_peso[3]) * 4 n_peso4 := VAL(v_peso[4]) * 2 n_peso5 := VAL(v_peso[5]) * 3 n_peso6 := VAL(v_peso[6]) * 5 n_peso7 := VAL(v_peso[7]) * 9 n_peso8 := VAL(v_peso) * 7 n_peso9 := VAL(v_peso[9]) n_soma := n_peso1+n_peso2+n_peso3+n_peso4+n_peso5+n_peso6+n_peso7+n_peso8 n_soma := n_soma % 11 IF n_soma = 0 .OR. n_soma = 1 DO CASE CASE n_soma = 0 n_soma := 5 CASE n_soma = 1 n_soma := 0 ENDCASE ELSE n_soma := ABS(n_soma - 11) ENDIF RETURN(n_soma) ****************************************************************************** FUNCTION Check_num(c_num) **---------------------- /* Objetivo.....: Testa o digito do objeto registrado Parametros...: c_num - numero do objeto a testar o digito Returna......: .T. ou .F. */ LOCAL i,n_cont DECLARE v_peso[9] FOR i = 1 TO 9 v_peso := SUBSTR(c_num,(1+(i-1)),1) NEXT n_peso1 := VAL(v_peso[1]) * 8 n_peso2 := VAL(v_peso[2]) * 6 n_peso3 := VAL(v_peso[3]) * 4 n_peso4 := VAL(v_peso[4]) * 2 n_peso5 := VAL(v_peso[5]) * 3 n_peso6 := VAL(v_peso[6]) * 5 n_peso7 := VAL(v_peso[7]) * 9 n_peso8 := VAL(v_peso) * 7 n_peso9 := VAL(v_peso[9]) n_soma := n_peso1+n_peso2+n_peso3+n_peso4+n_peso5+n_peso6+n_peso7+n_peso8 n_soma := n_soma % 11 IF n_soma = 0 .OR. n_soma = 1 DO CASE CASE n_soma = 0 n_soma := 5 CASE n_soma = 1 n_soma := 0 ENDCASE ELSE n_soma := ABS(n_soma - 11) ENDIF IF n_peso9 # n_soma RETURN(.F.) ENDIF RETURN(.T.) *****************************************************************************

Estou desenvolvendo um programa e comprei um leitor biométrico da Microsoft para captura da leitura da senha de acesso digital e preciso fazer meu programa obter a digital desse leitor. Pretendo: Salvar a digital (cadastrar), fazer a leitura e pesquisar em banco de dados DBF ao acessar o programa. Solicito a quem já tiver uma solução enviar o link. Se for vendido, favor informar o valor e forma de pagamento e demais dados necessários. att., clipeiro sul_inf@hotmail.com

Estou desenvolvendo um programa e comprei um leitor biométrico da Microsoft para captura da leitura da senha de acesso digital e preciso fazer meu programa obter a digital desse leitor. Pretendo: Salvar a digital (cadastrar), fazer a leitura e pesquisar em banco de dados DBF ao acessar o programa. Solicito a quem já tiver uma solução enviar o link. Se for vendido, favor informar o valor e forma de pagamento e demais dados necessários. att., clipeiro sul_inf@hotmail.com

Olá, pessoal. É possivel cadastrar e consistir senhas com leitor biométrico no modo gráfico (harbour) ???

Olá, pessoal. É possivel cadastrar e consistir senhas com leitor biométrico no modo gráfico (harbour) ???

Olá Gilberto. O q vc quer é receber um número de tamanho 8 e calcular o digito verificar dos registro do Correio ??? tipo RE000000014BR onde RE00000001 é o numero e 4 é o dígito ???

Pessoal, estou iniciando a migração de clipper puro para FWH. Estou com a versão FWH26 xHarbour 0.09.... recebi de um amigo, um modelo (fonte) e arquivo bat q segue. Quando compilo o fonte. Compila normalmente, mas qdo executo, o BAT, dá erro. Na máquina dele executa normalmente. Ja reinstalei FWH26 para corrigir um provavel erro de instalação, mas nada. Não funciona. Será q alguém pode me ajudar ??? *************** arquivo rc2dll32.bat @echo off \bcc55\bin\bcc32 -c c:\fwh\dll\screen32.c \bcc55\bin\brc32 -r sisacf.rc \bcc55\bin\ilink32 /Tpd c:\bcc55\lib\c0d32.obj screen32.obj, sisacf.dll,,c:\bcc55\lib\cw32.lib c:\bcc55\lib\import32.lib,, sisacf.res xcopy/y .\sisacf.dll ..\dll del sisacf.dll echo. echo. Done! pause > nul Veja o q acontece qdo executo. C:\sul\acf\resource>rc2dll32 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland c:\fwh\dll\screen32.c: Error E2209 c:\fwh\dll\screen32.c 1: Unable to open include file 'windows.h' Error E2141 c:\fwh\dll\screen32.c 7: Declaration syntax error *** 2 errors in Compile *** Borland Resource Compiler Version 5.40 Copyright © 1990, 1999 Inprise Corporation. All rights reserved. Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Fatal: Unable to open file 'SCREEN32.OBJ' Arquivo não encontrado - sisacf.dll 0 arquivo(s) copiado(s) Não foi possível encontrar C:\sul\acf\resource\sisacf.dll Editado por - clipeiro on 14/04/2008 23:34:59

Pessoal, estou iniciando a migração de clipper puro para FWH. Estou com a versão FWH26 xHarbour 0.09.... recebi de um amigo, um modelo (fonte) e arquivo bat q segue. Quando compilo o fonte. Compila normalmente, mas qdo executo, o BAT, dá erro. Na máquina dele executa normalmente. Ja reinstalei FWH26 para corrigir um provavel erro de instalação, mas nada. Não funciona. Será q alguém pode me ajudar ??? *************** arquivo rc2dll32.bat @echo off \bcc55\bin\bcc32 -c c:\fwh\dll\screen32.c \bcc55\bin\brc32 -r sisacf.rc \bcc55\bin\ilink32 /Tpd c:\bcc55\lib\c0d32.obj screen32.obj, sisacf.dll,,c:\bcc55\lib\cw32.lib c:\bcc55\lib\import32.lib,, sisacf.res xcopy/y .\sisacf.dll ..\dll del sisacf.dll echo. echo. Done! pause > nul Veja o q acontece qdo executo. C:\sul\acf\resource>rc2dll32 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland c:\fwh\dll\screen32.c: Error E2209 c:\fwh\dll\screen32.c 1: Unable to open include file 'windows.h' Error E2141 c:\fwh\dll\screen32.c 7: Declaration syntax error *** 2 errors in Compile *** Borland Resource Compiler Version 5.40 Copyright © 1990, 1999 Inprise Corporation. All rights reserved. Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Fatal: Unable to open file 'SCREEN32.OBJ' Arquivo não encontrado - sisacf.dll 0 arquivo(s) copiado(s) Não foi possível encontrar C:\sul\acf\resource\sisacf.dll Editado por - clipeiro on 14/04/2008 23:34:59

Veja se ajuda. function _Code3_9( cCode, lCheck ) static cCars := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%' STATIC aBarras:={'1110100010101110',; '1011100010101110',; '1110111000101010',; '1010001110101110',; '1110100011101010',; '1011100011101010',; '1010001011101110',; '1110100010111010',; '1011100010111010',; '1010001110111010',; '1110101000101110',; '1011101000101110',; '1110111010001010',; '1010111000101110',; '1110101110001010',;//E '1011101110001010',; '1010100011101110',; '1110101000111010',; '1011101000111010',; '1010111000111010',; '1110101010001110',; //K '1011101010001110',; '1110111010100010',; '1010111010001110',; '1110101110100010',; '1011101110100010',;//p '1010101110001110',; '1110101011100010',; '1011101011100010',; '1010111011100010',; '1110001010101110',; '1000111010101110',; '1110001110101010',; '1000101110101110',; '1110001011101010',; '1000111011101010',;//Z '1000101011101110',; '1110001010111010',; '1000111010111010',; // ' ' '1000101110111010',; '1000100010100010',; '1000100010100010',; '1000101000100010',; '1010001000100010'} local cCar,m, n, n1,n2, cBarra := '', nCheck := 0 default lCheck := .f. cCode := upper(cCode) if len(cCode )>32 cCode := left(cCode,32) end cCode := '*'+cCode+'*' for n:= 1 to len( cCode ) cCar := substr( cCode,n,1) m:=at( cCar, cCars ) if n>0 // otros caracteres se ignoran :-)) cBarra := cBarra + aBarras[m] nCheck += (m-1) end next if lCheck cBarra+= aBarras[nCheck%43 +1] end return cBarra

Prezados, troquei a versão FWH26 para FWH82 e começou a dar os erros que seguem. Alguém saberia o que devo fazer para acertar. uso Fivewin 8.2 xHarbour 0.99.3 Borland RC 5.5 xDev 0.28 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\CLIENTES.c: Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\SISTREST.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC Error: Unresolved external '_hb_objHasMessage' referenced from C:\FWH\LIB\FIVEHC.LIB|FFDLGPRC Error: Unresolved external '_hb_vmPushEvalSym' referenced from C:\FWH\LIB\FIVEHC.LIB|CTRLDRAW Error: Unresolved external '_HB_FUN___CLSCNTCLASSES' referenced from C:\FWH\LIB\FIVEHX.LIB|ERRSYSW Abnormal end of process ------- There are errors. 0:0:3:125 sec(s) elapsed.

Prezados, troquei a versão FWH26 para FWH82 e começou a dar os erros que seguem. Alguém saberia o que devo fazer para acertar. uso Fivewin 8.2 xHarbour 0.99.3 Borland RC 5.5 xDev 0.28 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\CLIENTES.c: Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\SISTREST.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC Error: Unresolved external '_hb_objHasMessage' referenced from C:\FWH\LIB\FIVEHC.LIB|FFDLGPRC Error: Unresolved external '_hb_vmPushEvalSym' referenced from C:\FWH\LIB\FIVEHC.LIB|CTRLDRAW Error: Unresolved external '_HB_FUN___CLSCNTCLASSES' referenced from C:\FWH\LIB\FIVEHX.LIB|ERRSYSW Abnormal end of process ------- There are errors. 0:0:3:125 sec(s) elapsed.

Prezados, troquei a versão FWH26 para FWH82 e começou a dar os erros que seguem. Alguém saberia o que devo fazer para acertar. uso Fivewin 8.2 xHarbour 0.99.3 Borland RC 5.5 xDev 0.28 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\CLIENTES.c: Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\SISTREST.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC Error: Unresolved external '_hb_objHasMessage' referenced from C:\FWH\LIB\FIVEHC.LIB|FFDLGPRC Error: Unresolved external '_hb_vmPushEvalSym' referenced from C:\FWH\LIB\FIVEHC.LIB|CTRLDRAW Error: Unresolved external '_HB_FUN___CLSCNTCLASSES' referenced from C:\FWH\LIB\FIVEHX.LIB|ERRSYSW Abnormal end of process ------- There are errors. 0:0:3:125 sec(s) elapsed.

Prezados, troquei a versão FWH26 para FWH82 e começou a dar os erros que seguem. Alguém saberia o que devo fazer para acertar. uso Fivewin 8.2 xHarbour 0.99.3 Borland RC 5.5 xDev 0.28 Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\CLIENTES.c: Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland .\obj\SISTREST.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC Error: Unresolved external '_hb_objHasMessage' referenced from C:\FWH\LIB\FIVEHC.LIB|FFDLGPRC Error: Unresolved external '_hb_vmPushEvalSym' referenced from C:\FWH\LIB\FIVEHC.LIB|CTRLDRAW Error: Unresolved external '_HB_FUN___CLSCNTCLASSES' referenced from C:\FWH\LIB\FIVEHX.LIB|ERRSYSW Abnormal end of process ------- There are errors. 0:0:3:125 sec(s) elapsed.

Tenho interesse em aprender e converter um sistema Clipper para xHarbour plataforma windows e linux. Se alguém tiver interesse em auxiliar via net informe valor e disponibilidade. Interessados enviar e-mail para wiesen@ibest.com.brid=blue>