Jump to content
Fivewin Brasil

clipeiro

Membros
 View Profile  See their activity

  • Posts

    20

  • Joined

  • Last visited

 Content Type 

Posts posted by clipeiro

  1. Indices Temporarios

    in Programação

    Posted

    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.

  2. CODE 128

    in Programação

    Posted

    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_pesoicon_smile_8ball.gif) * 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_pesoicon_smile_8ball.gif) * 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.)

    *****************************************************************************

  3. leitor biometrico - complemento

    in Programação

    Posted

    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

  4. leitor biometrico - complemento

    in Programação

    Posted

    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

  7. CODE 128

    in Programação

    Posted

    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 ???

  8. Ajudem por favor - conversão DLL de 16 p/ 32

    in Programação

    Posted

    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

  9. Ajudem por favor - conversão DLL de 16 p/ 32

    in Programação

    Posted

    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

  10. Fonte para codigo de barra.

    in Programação

    Posted

    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

  11. nova versão FWH 8.2

    in Programação

    Posted

    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.

  12. nova versão FWH 8.2

    in Programação

    Posted

    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.

  13. nova versão FWH

    in FiveWin - Conversão de 16 bits para 32 bits

    Posted

    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.

  14. nova versão FWH

    in FiveWin - Conversão de 16 bits para 32 bits

    Posted

    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.

×
×
  • Create New...