twbrowse Hernan 32 bits

[AVInfo Sistemas]

Alguém tem a versão 32 bits ?? Procurei no dicas mais dicas mas não encontrei uma de 32. Alguem, por favor

???

[AVInfo Sistemas]

Alguém tem a versão 32 bits ?? Procurei no dicas mais dicas mas não encontrei uma de 32. Alguem, por favor

???

[Marca]

atualize seu perfil colocando seu email q. te mando

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

[william]

boa tarde, creio que nao te serve apenas uma versao de 32 bits, o wbrowse do hernan deve ser gerado com a versao de xharbour que vc trabalha e que esta compilado o seu fivewin. Junto com o Wbrowse vem os arquivos pra gerar a lib , os .RMK para vc gerar com o RMAKE ou os .MAK para vc gerar usando o MAKE.

Se vc gerar a lib, nunca tera conflitos de versao.

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 2.0

[SAOliveira]

Ja viu no tópico seu, com o mesmo problema ???

"Não seja um clicador, torne-se um programador." Eu estou tentando.

[AVInfo Sistemas]

Willian vc poderia me explicar, mais detalhadamente como gerar essas libs, se posível ??

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

S.A.Oliveira testei o arquivo q vc me enviou e dá o seguinte log d erro:

Preparando Script "C:\Arquivos de programas\xDevStudio\scripts\FiveWin32.xCompiler"...

Script em Anexo.. "FiveWin.xCompiler.prg"...

Preset atual .... xHB build 1.2.1 (SimpLex) & BCC 5.5.1 & FW 10.2

PATH ... P:\xHb121\bin;P:\bcc55\bin;P:\FWH1002

INCLUDE. P:\xHb121\include;P:\bcc55\include;P:\FWH1002\include

LIB .... P:\xHb121\lib;P:\bcc55\lib;P:\bcc55\lib\psdk;P:\FWH1002\lib

Variaveis de Ambiente:

PATH ... P:\xHb121\bin;P:\bcc55\bin;P:\FWH1002;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem

INCLUDE. P:\xHb121\include;P:\bcc55\include;P:\FWH1002\include;P:\NovoMedc\include;P:\NovoMedc\\bcc55\include;P:\NovoMedc\fwh\include;

LIB .... P:\xHb121\lib;P:\bcc55\lib;P:\bcc55\lib\psdk;P:\FWH1002\lib;;

Executando: harbour.exe "P:\NovoMedc\ACESSOS.PRG" /q /o"P:\NovoMedc\ACESSOS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

ACESSOS.c:

Executando: harbour.exe "P:\NovoMedc\BACKUP.PRG" /q /o"P:\NovoMedc\BACKUP.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

BACKUP.c:

Executando: harbour.exe "P:\NovoMedc\BOLETO.PRG" /q /o"P:\NovoMedc\BOLETO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

BOLETO.c:

Executando: harbour.exe "P:\NovoMedc\CAIXA.PRG" /q /o"P:\NovoMedc\CAIXA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CAIXA.c:

Executando: harbour.exe "P:\NovoMedc\cGetFile.prg" /q /o"P:\NovoMedc\cGetFile.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

cGetFile.c:

Executando: harbour.exe "P:\NovoMedc\CHECK.PRG" /q /o"P:\NovoMedc\CHECK.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

CHECK.PRG(1354) Warning W0027 Meaningless use of expression: 'NIL'

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CHECK.c:

Executando: harbour.exe "P:\NovoMedc\CHEQUES.PRG" /q /o"P:\NovoMedc\CHEQUES.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CHEQUES.c:

Executando: harbour.exe "P:\NovoMedc\CLIENTES.PRG" /q /o"P:\NovoMedc\CLIENTES.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CLIENTES.c:

Executando: harbour.exe "P:\NovoMedc\COBRAR.PRG" /q /o"P:\NovoMedc\COBRAR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

COBRAR.c:

Executando: harbour.exe "P:\NovoMedc\CONTAS.PRG" /q /o"P:\NovoMedc\CONTAS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CONTAS.c:

Executando: harbour.exe "P:\NovoMedc\contword.prg" /q /o"P:\NovoMedc\contword.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

contword.c:

Executando: harbour.exe "P:\NovoMedc\CRIADBF1.PRG" /q /o"P:\NovoMedc\CRIADBF1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CRIADBF1.c:

Executando: harbour.exe "P:\NovoMedc\CRIADBF.PRG" /q /o"P:\NovoMedc\CRIADBF.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CRIADBF.c:

Executando: harbour.exe "P:\NovoMedc\DESPESAS.PRG" /q /o"P:\NovoMedc\DESPESAS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

DESPESAS.c:

Executando: harbour.exe "P:\NovoMedc\DSay.prg" /q /o"P:\NovoMedc\DSay.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

DSay.c:

Executando: harbour.exe "P:\NovoMedc\ENTRADA.PRG" /q /o"P:\NovoMedc\ENTRADA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

ENTRADA.c:

Executando: harbour.exe "P:\NovoMedc\ESTOQUE2.PRG" /q /o"P:\NovoMedc\ESTOQUE2.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

ESTOQUE2.c:

Executando: harbour.exe "P:\NovoMedc\ESTOQUE.PRG" /q /o"P:\NovoMedc\ESTOQUE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

ESTOQUE.c:

Executando: harbour.exe "P:\NovoMedc\ExemploCBXNovo.prg" /q /o"P:\NovoMedc\ExemploCBXNovo.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

ExemploCBXNovo.c:

Executando: harbour.exe "P:\NovoMedc\FILEIO.PRG" /q /o"P:\NovoMedc\FILEIO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

FILEIO.c:

Executando: harbour.exe "P:\NovoMedc\FONDOS.PRG" /q /o"P:\NovoMedc\FONDOS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

FONDOS.c:

Executando: harbour.exe "P:\NovoMedc\FORNECED.PRG" /q /o"P:\NovoMedc\FORNECED.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

FORNECED.c:

Executando: harbour.exe "P:\NovoMedc\FUNCAO.PRG" /q /o"P:\NovoMedc\FUNCAO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

FUNCAO.c:

Executando: harbour.exe "P:\NovoMedc\GO_CODE.PRG" /q /o"P:\NovoMedc\GO_CODE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

GO_CODE.c:

Executando: harbour.exe "P:\NovoMedc\grupos.prg" /q /o"P:\NovoMedc\grupos.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

grupos.c:

Executando: harbour.exe "P:\NovoMedc\IDCARDS.PRG" /q /o"P:\NovoMedc\IDCARDS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

IDCARDS.c:

Executando: harbour.exe "P:\NovoMedc\INSERBMP.PRG" /q /o"P:\NovoMedc\INSERBMP.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

INSERBMP.c:

Executando: harbour.exe "P:\NovoMedc\INT25.PRG" /q /o"P:\NovoMedc\INT25.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

INT25.c:

Executando: harbour.exe "P:\NovoMedc\LISTAGEM.PRG" /q /o"P:\NovoMedc\LISTAGEM.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

LISTAGEM.c:

Executando: harbour.exe "P:\NovoMedc\MAAGEND.PRG" /q /o"P:\NovoMedc\MAAGEND.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAAGEND.c:

Executando: harbour.exe "P:\NovoMedc\mabanco.prg" /q /o"P:\NovoMedc\mabanco.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

mabanco.c:

Executando: harbour.exe "P:\NovoMedc\MACAIXA.PRG" /q /o"P:\NovoMedc\MACAIXA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MACAIXA.c:

Executando: harbour.exe "P:\NovoMedc\MACENTRO.PRG" /q /o"P:\NovoMedc\MACENTRO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MACENTRO.c:

Executando: harbour.exe "P:\NovoMedc\macfop.prg" /q /o"P:\NovoMedc\macfop.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

macfop.c:

Executando: harbour.exe "P:\NovoMedc\MACHEQUE.PRG" /q /o"P:\NovoMedc\MACHEQUE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MACHEQUE.c:

Executando: harbour.exe "P:\NovoMedc\macidade.prg" /q /o"P:\NovoMedc\macidade.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

macidade.c:

Executando: harbour.exe "P:\NovoMedc\MACLIEN1.PRG" /q /o"P:\NovoMedc\MACLIEN1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MACLIEN1.c:

Executando: harbour.exe "P:\NovoMedc\maconta.prg" /q /o"P:\NovoMedc\maconta.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

maconta.c:

Executando: harbour.exe "P:\NovoMedc\maconve.prg" /q /o"P:\NovoMedc\maconve.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

maconve.c:

Executando: harbour.exe "P:\NovoMedc\MADEVOLU.PRG" /q /o"P:\NovoMedc\MADEVOLU.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MADEVOLU.c:

Executando: harbour.exe "P:\NovoMedc\MAENTRA.PRG" /q /o"P:\NovoMedc\MAENTRA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAENTRA.c:

Executando: harbour.exe "P:\NovoMedc\MAFORNE1.PRG" /q /o"P:\NovoMedc\MAFORNE1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAFORNE1.c:

Executando: harbour.exe "P:\NovoMedc\MAFORNE.PRG" /q /o"P:\NovoMedc\MAFORNE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAFORNE.c:

Executando: harbour.exe "P:\NovoMedc\MAFPAG.PRG" /q /o"P:\NovoMedc\MAFPAG.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAFPAG.c:

Executando: harbour.exe "P:\NovoMedc\MAGRUPO.PRG" /q /o"P:\NovoMedc\MAGRUPO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAGRUPO.c:

Executando: harbour.exe "P:\NovoMedc\MALADIR.PRG" /q /o"P:\NovoMedc\MALADIR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MALADIR.c:

Executando: harbour.exe "P:\NovoMedc\MAMATER1.PRG" /q /o"P:\NovoMedc\MAMATER1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAMATER1.c:

Executando: harbour.exe "P:\NovoMedc\MAMATER.PRG" /q /o"P:\NovoMedc\MAMATER.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAMATER.c:

Executando: harbour.exe "P:\NovoMedc\MAMOVBA.PRG" /q /o"P:\NovoMedc\MAMOVBA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAMOVBA.c:

Executando: harbour.exe "P:\NovoMedc\MANOTAS.PRG" /q /o"P:\NovoMedc\MANOTAS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MANOTAS.c:

Executando: harbour.exe "P:\NovoMedc\MAOCORR.PRG" /q /o"P:\NovoMedc\MAOCORR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAOCORR.c:

Executando: harbour.exe "P:\NovoMedc\MAORDEM.PRG" /q /o"P:\NovoMedc\MAORDEM.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAORDEM.c:

Executando: harbour.exe "P:\NovoMedc\MAPAGAR1.PRG" /q /o"P:\NovoMedc\MAPAGAR1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPAGAR1.c:

Executando: harbour.exe "P:\NovoMedc\MAPAGAR2.PRG" /q /o"P:\NovoMedc\MAPAGAR2.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPAGAR2.c:

Executando: harbour.exe "P:\NovoMedc\MAPAGAR.PRG" /q /o"P:\NovoMedc\MAPAGAR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPAGAR.c:

Executando: harbour.exe "P:\NovoMedc\MAPEDID1.PRG" /q /o"P:\NovoMedc\MAPEDID1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPEDID1.c:

Executando: harbour.exe "P:\NovoMedc\MAPEDID.PRG" /q /o"P:\NovoMedc\MAPEDID.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPEDID.c:

Executando: harbour.exe "P:\NovoMedc\MAPROVA.PRG" /q /o"P:\NovoMedc\MAPROVA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAPROVA.c:

Executando: harbour.exe "P:\NovoMedc\MARECEB.PRG" /q /o"P:\NovoMedc\MARECEB.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MARECEB.c:

Executando: harbour.exe "P:\NovoMedc\MAROTAS.PRG" /q /o"P:\NovoMedc\MAROTAS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAROTAS.c:

Executando: harbour.exe "P:\NovoMedc\MASETOR.PRG" /q /o"P:\NovoMedc\MASETOR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MASETOR.c:

Executando: harbour.exe "P:\NovoMedc\MATRANS.PRG" /q /o"P:\NovoMedc\MATRANS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MATRANS.c:

Executando: harbour.exe "P:\NovoMedc\MATROCA.PRG" /q /o"P:\NovoMedc\MATROCA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MATROCA.c:

Executando: harbour.exe "P:\NovoMedc\MAVENDA.PRG" /q /o"P:\NovoMedc\MAVENDA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAVENDA.c:

Executando: harbour.exe "P:\NovoMedc\MAVENDE.PRG" /q /o"P:\NovoMedc\MAVENDE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MAVENDE.c:

Executando: harbour.exe "P:\NovoMedc\MOVESTOQ.PRG" /q /o"P:\NovoMedc\MOVESTOQ.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

MOVESTOQ.PRG(439) Warning W0027 Meaningless use of expression: ':'

MOVESTOQ.PRG(441) Warning W0027 Meaningless use of expression: ':'

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MOVESTOQ.c:

Executando: harbour.exe "P:\NovoMedc\MOVREL.PRG" /q /o"P:\NovoMedc\MOVREL.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MOVREL.c:

Executando: harbour.exe "P:\NovoMedc\PEDIDO.PRG" /q /o"P:\NovoMedc\PEDIDO.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

PEDIDO.c:

Executando: harbour.exe "P:\NovoMedc\PESSOAL.PRG" /q /o"P:\NovoMedc\PESSOAL.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

PESSOAL.c:

Executando: harbour.exe "P:\NovoMedc\PREVEND1.PRG" /q /o"P:\NovoMedc\PREVEND1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

PREVEND1.c:

Executando: harbour.exe "P:\NovoMedc\PREVENDA.PRG" /q /o"P:\NovoMedc\PREVENDA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

PREVENDA.c:

Executando: harbour.exe "P:\NovoMedc\PROPOSTA.PRG" /q /o"P:\NovoMedc\PROPOSTA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

PROPOSTA.c:

Executando: harbour.exe "P:\NovoMedc\RECEBER1.PRG" /q /o"P:\NovoMedc\RECEBER1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RECEBER1.c:

Executando: harbour.exe "P:\NovoMedc\RICHTEXT.PRG" /q /o"P:\NovoMedc\RICHTEXT.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RICHTEXT.c:

Executando: harbour.exe "P:\NovoMedc\RLENTRA1.PRG" /q /o"P:\NovoMedc\RLENTRA1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RLENTRA1.c:

Executando: harbour.exe "P:\NovoMedc\RLENTRA.PRG" /q /o"P:\NovoMedc\RLENTRA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RLENTRA.c:

Executando: harbour.exe "P:\NovoMedc\RLMOVIM.PRG" /q /o"P:\NovoMedc\RLMOVIM.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RLMOVIM.c:

Executando: harbour.exe "P:\NovoMedc\RLSAIDA1.PRG" /q /o"P:\NovoMedc\RLSAIDA1.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RLSAIDA1.c:

Executando: harbour.exe "P:\NovoMedc\RLSAIDA.PRG" /q /o"P:\NovoMedc\RLSAIDA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

RLSAIDA.c:

Executando: harbour.exe "P:\NovoMedc\SAIDA.PRG" /q /o"P:\NovoMedc\SAIDA.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

SAIDA.c:

Executando: harbour.exe "P:\NovoMedc\SSay.prg" /q /o"P:\NovoMedc\SSay.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

SSay.c:

Executando: harbour.exe "P:\NovoMedc\TESTBTN.PRG" /q /o"P:\NovoMedc\TESTBTN.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TESTBTN.c:

Executando: harbour.exe "P:\NovoMedc\TGRAPH.PRG" /q /o"P:\NovoMedc\TGRAPH.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TGRAPH.c:

Executando: harbour.exe "P:\NovoMedc\TIPOSDC.PRG" /q /o"P:\NovoMedc\TIPOSDC.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TIPOSDC.c:

Executando: harbour.exe "P:\NovoMedc\TRSAY.PRG" /q /o"P:\NovoMedc\TRSAY.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TRSAY.c:

Executando: harbour.exe "P:\NovoMedc\VBOX.PRG" /q /o"P:\NovoMedc\VBOX.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

VBOX.c:

Executando: harbour.exe "P:\NovoMedc\BGO_CODE.PRG" /q /o"P:\NovoMedc\BGO_CODE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

BGO_CODE.c:

Executando: harbour.exe "P:\NovoMedc\CODABAR.PRG" /q /o"P:\NovoMedc\CODABAR.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CODABAR.c:

Executando: harbour.exe "P:\NovoMedc\CODE3DE9.PRG" /q /o"P:\NovoMedc\CODE3DE9.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CODE3DE9.c:

Executando: harbour.exe "P:\NovoMedc\CODE128.PRG" /q /o"P:\NovoMedc\CODE128.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CODE128.c:

Executando: harbour.exe "P:\NovoMedc\EAN13.PRG" /q /o"P:\NovoMedc\EAN13.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

EAN13.c:

Executando: harbour.exe "P:\NovoMedc\MACLIEN.prg" /q /o"P:\NovoMedc\MACLIEN.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

MACLIEN.c:

Executando: harbour.exe "P:\NovoMedc\REPORTS.PRG" /q /o"P:\NovoMedc\REPORTS.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

REPORTS.c:

Executando: harbour.exe "P:\NovoMedc\harbour.prg" /q /o"P:\NovoMedc\harbour.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

harbour.c:

Executando: harbour.exe "P:\NovoMedc\TWORD.PRG" /q /o"P:\NovoMedc\TWORD.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TWORD.c:

Executando: harbour.exe "P:\NovoMedc\CNT.PRG" /q /o"P:\NovoMedc\CNT.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

CNT.c:

Executando: harbour.exe "P:\NovoMedc\INI.PRG" /q /o"P:\NovoMedc\INI.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

INI.c:

Executando: harbour.exe "P:\NovoMedc\TVGET.PRG" /q /o"P:\NovoMedc\TVGET.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TVGET.c:

Executando: harbour.exe "P:\NovoMedc\VBTNBMP.PRG" /q /o"P:\NovoMedc\VBTNBMP.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

VBTNBMP.c:

Executando: harbour.exe "P:\NovoMedc\TMULTISE.PRG" /q /o"P:\NovoMedc\TMULTISE.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

TMULTISE.c:

Executando: harbour.exe "P:\NovoMedc\wbrowse.prg" /q /o"P:\NovoMedc\wbrowse.c" /M /N /P

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC

Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

WBROWSE.c:

Executando: ILINK32 @B32.BC

Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_WBRWSET' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWLINE' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWROWS' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWPANE' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWSCRL' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWHEIGHT' referenced from WBROWSE.OBJ

Error: Unresolved external '_HB_FUN_WBRWRECT' referenced from WBROWSE.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module CHECK.OBJ and FONDOS.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module CHECK.OBJ and INSERBMP.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module CHECK.OBJ and TESTBTN.OBJ

Warning: Public symbol '_HB_FUN_CPFCGCPIC' defined in both module CLIENTES.OBJ and MACLIEN.OBJ

Warning: Public symbol '_HB_FUN_ESTREPORT' defined in both module ESTOQUE.OBJ and LISTAGEM.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module FONDOS.OBJ and INSERBMP.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module FONDOS.OBJ and TESTBTN.OBJ

Warning: Public symbol '_HB_FUN_BRUSH' defined in both module FONDOS.OBJ and FUNCAO.OBJ

Warning: Public symbol '_HB_FUN_FONDOPANT' defined in both module FONDOS.OBJ and FUNCAO.OBJ

Warning: Public symbol '_HB_FUN_INSTERTBMP' defined in both module FUNCAO.OBJ and INSERBMP.OBJ

Warning: Public symbol '_HB_FUN_IMPRBOLETO' defined in both module FUNCAO.OBJ and CNT.OBJ

Warning: Public symbol '_HB_FUN_GO_CODE' defined in both module GO_CODE.OBJ and BGO_CODE.OBJ

Warning: Public symbol '_HB_FUN_MAIN' defined in both module INSERBMP.OBJ and TESTBTN.OBJ

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

alguem pode me ajudar ???

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

ÉÉÉ... Tá ficando cada vez mais dificil obter ajudar para classes de terceiros.. principalmente quando se muda de versão.

Sugiro vc. refazer o seu Browse usando a Classe Nativa ou troca-la pela xBrowse..

É só uma dica.. O tempo que a gente perde é muito alto.

Poucos estão usando classes de terceiros, a não ser aquelas de extrema necessidade, como é o caso da NFe do Gilmer.. o Resto tá ficando pra trás devido as classes nativas ficarem muito boas. Logo a manutenção fica mais dificil para essas classes de terceiros, fora que a gente nunca consegue resposta do autor.

Digamos que para a sua versão do FW que é uma das ultimas, a Twbrowse do Hernan percise ser alterada, como é que fica ???

Pense a respeito..

Desculpe não ajudar em nada.

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[AVInfo Sistemas]

deixa eu esclarecer algumas coisas. Bom primeiro o código não é meu é do meu chefe. Eu ainda estou dando os primeiros passos em Fivewin e observei aqui no forum que o correto seria usar classes nativas msm, mas o sistema que estou tentando converter é bastante antigo e foi desenvolvido originalmente em fw for clipper 2.2. Achu q ná época que ele fez a xbrowse não estava lá aquelas coisas.

Outra, eu não estaria pedindo a twbrowse d terceiros atoa, é q temos um prazo firmado com um cliente que está tendo problemas constantes com a versão 16 bits, para a conversão para 32 bits e a mudança da base d dados de dbf para sql.

Resumindo essa é a minha ardua tarefa, meu chefe usou várias classes d terceiros na época e devido a esse prazo tenho q compilar em 32 o mais rápido possivel e converter a base de dados. Atendendo a estes requisitos, migramos para as classes nativas na medida do possível.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[betovsp]

sdinfo, ve se essa te ajuda:

http://www.fivewin.info/html/downloads.php?category=FiveWin%20users%20contributions&id=260

Beto

Msn: betovsp@hotmail.com

FWH 9.08+xHarbour 1.2.1+Mymake+@Say

"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>

[Luiz Arruda (ICO)]

Entendi..

Não sei qual a versão da Twbrowse que vc Tá tentando compilar..

Mais essa desse link é a 1.7 e funciona até no FiveWin 10.6

Tente usa-la Talvez Resolva..

Para Baixar Clique aqui

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[Ale SB]

@sdinfo

Amigo acabei de gerar para vc a Lib e enviei neste email:

tominem@hotmail.com

Conferi ai...blz

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

"Minha mala é um saco, meu cadeado é um nó, minha casa é meu chapéu, por onde eu passo eu não fico só!"id=red>

[Ale SB]

A ja ia esquecendo...oque o Luiz Disse eh vero...

Houve muitas mudanças no xHarbour de uns tempos pra cá, e ninguem mais esta dando manutençao na Twbrowse do Herman.

Resumindo...a Lib ta ai gerada, sem erros e sem Warnning....mas..nao da para garantir a estabilidade dela...

qq forma testa ai..e reporta pra nos...

Obs.: Vc tem q compilar ela antes das Libs do Fivewin..ok.id=size4>

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

"Minha mala é um saco, meu cadeado é um nó, minha casa é meu chapéu, por onde eu passo eu não fico só!"id=red>

Editado por - Ale SB on 11/11/2010 17:44:28

[AVInfo Sistemas]

Obrigado Luiz ... compilou sem erros essa versão q vc me passou, criei a lib com o .bat e rodou, só q como nem tdo são flores ta dando um erro "cabulozo" agora ... rssss ... Segue o log:

Application

===========

Path and name: P:\NovoMedc\NovoMed.EXE (32 bits)

Size: 5,399,040 bytes

Time from start: 0 hours 0 mins 8 secs

Error occurred at: 11/11/2010, 17:47:19

Error description: Error BASE/1001 Undefined function: ORDKEYCOUNT

Args:

Stack Calls

===========

Called from: => ORDKEYCOUNT(0)

Called from: P:\NovoMedc\wbrowse.prg => (b)TWBROWSE:SETFILTER(2670)

Called from: P:\NovoMedc\wbrowse.prg => (b)TWBROWSE:SETFILTER(2671)

Called from: P:\NovoMedc\wbrowse.prg => TWBROWSE:SETFILTER(2707)

Called from: P:\NovoMedc\wbrowse.prg => TWBROWSE:REDEFINE(861)

Called from: P:\NovoMedc\MACLIEN.prg => MACLIEN(97)

Called from: P:\NovoMedc\CHECK.PRG => (b)MAIN(70)

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(463)

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(658)

Called from: => TWINDOW:HANDLEEVENT(0)

Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1464)

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1415)

Called from: .\source\classes\WINDOW.PRG => _FWH(3378)

Called from: => WINRUN(0)

Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(971)

Called from: P:\NovoMedc\CHECK.PRG => MAIN(181)

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Coloque isso no PRG depois das variaveis LOCAL.

REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS

RDDSETDEFAULT("DBFCDX")

id=code>id=code>

Veja se agora dá certo..

PS:veja o que tem na linha 97 do seu PRG

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 11/11/2010 18:01:02

[AVInfo Sistemas]

Luiz, vc é o kra. Deu certinho. Brigadaçu ....

Funfo q é uma beleuza .... rsssss...

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

gente me deparei com mais um problema. COnsegui rodar a tela com a twbrowse, porem quando tendo abrir um cadastro de cliente clicando duas vezes na linha para edição dos dados de um determinado cliente dá o erro:

Application

===========

Path and name: P:\NovoMedc\NovoMed.EXE (32 bits)

Size: 5,399,040 bytes

Time from start: 0 hours 0 mins 11 secs

Error occurred at: 12/11/2010, 17:12:39

Error description: Error FiveWin/1 Non defined Id: No: -2

Args:

Stack Calls

===========

Called from: .\source\classes\CONTROL.PRG => TCONTROL:INITIATE(386)

Called from: .\source\classes\SAY.PRG => TSAY:INITIATE(195)

Called from: => __OBJSENDMSG(0)

Called from: => HB_EXECFROMARRAY(0)

Called from: .\source\function\HARBOUR.PRG => OSEND(219)

Called from: => HB_EXECFROMARRAY(0)

Called from: .\source\function\HARBOUR.PRG => ASEND(197)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(662)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(920)

Called from: => CREATEDLG(0)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(302)

Called from: .\source\classes\FOLDER.PRG => TFOLDER:DEFAULT(442)

Called from: .\source\classes\FOLDER.PRG => TFOLDER:INITIATE(354)

Called from: => __OBJSENDMSG(0)

Called from: => HB_EXECFROMARRAY(0)

Called from: .\source\function\HARBOUR.PRG => OSEND(219)

Called from: => HB_EXECFROMARRAY(0)

Called from: .\source\function\HARBOUR.PRG => ASEND(197)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(662)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(920)

Called from: => DIALOGBOX(0)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)

Called from: P:\NovoMedc\MACLIEN.prg => ALTECLI(1057)

Called from: P:\NovoMedc\MACLIEN.prg => (b)MACLIEN(100)

Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1865)

Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1479)

Called from: P:\NovoMedc\wbrowse.prg => TWBROWSE:LDBLCLICK(1568)

Called from: => TWINDOW:HANDLEEVENT(0)

Called from: .\source\classes\CONTROL.PRG => TWBROWSE:HANDLEEVENT(1464)

Called from: .\source\classes\WINDOW.PRG => _FWH(3378)

Called from: => WINRUN(0)

Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(971)

Called from: P:\NovoMedc\CHECK.PRG => MAIN(181)

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Coloque o código.. é mais fácil pros usuários da Twb verem onde tá errado..Só com o Log de erro é mais complicado..

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[aferra]

Olá .

tire o control.prg, esse prg é de controle do fivewin... dever ter alterações neste seu, porem é aconselhavel. tira-lo, veja se resolve, ou senão, veja qual foi a alteração feita e coloque na control.prg do fwh

Alessandroid=blue>

FW20d+CL53b+Blk7+@Say+CDX

FW9.07+xHb121+PellesC+CDX

"Uma imaginação bem canalizada é fonte de grandes proezas"id=red>

[william]

bom dia, postei em dicas o WBROWSE do HERNAN versao 8.0 , creio que é a ultima versao.

http://www.fivewin.com.br/exibedicas.asp?id=1048

para gerar a lib:

make -f lib_fwxh.mak

abraço

William Adami

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0

[AVInfo Sistemas]

O código da classe que controla a tela da TWBrowse, segue abaixo:

#include "FiveWin.ch"

#include "tsbutton.ch"

#include "Fileio.ch"

#Include "VGet.Ch"

#Include "SSay.Ch"

#Include "Image.Ch"

#include "Folder.ch"

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

#Define CLR_LBLUE nRGB( 150, 150, 255 )

#Define CLR_LRED nRGB( 255, 200, 145 )

#Define CLR_CREME nRGB( 255, 255, 200 )

#Define CLR_ROXO nRGB( 150, 000, 255 )

#xcommand @ , SAY OF => :Say(, , )

//----------------------------------------------------------------------------//

FUNCTION Maclien()

local oMeter, oFnt, oDlg, oIcon, oCur, oSayFnt, oSayyFnt, oObsFnt

local oBt1, oBt2, oBt3, oBt4, oBt5, oBt6, oBt7, oGet, clNom, clAti, oObs

local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8, oSay9, oSay0

local fNormal,fBold,Arial12

local oText, lEnd, oCliDl, oLbx, cDesc, cCodi, cFant

public nlIndi, llObs := .F., oInd, clInd, nlInd

REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS

RDDSETDEFAULT("DBFCDX")

IF ! UsrFree(CliCons)

RETURN NIL

ENDIF

CursorWait()

SELECT 11

Clien01i->(DBCLEARFIL(NIL))

Clien01i->(DBSETORDER(2));Clien01i->(DBGOTOP())

clInd := "Nome"; nlInd := nlIndi := 2

DEFINE FONT fNormal NAME "MS Sans Serif"

DEFINE FONT fBold NAME "MS Sans Serif" BOLD

DEFINE FONT Arial12 NAME "ARIAL" SIZE 0,-12 BOLD

DEFINE FONT oFnt NAME "Arial" SIZE 0, -12

DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -16 BOLD

DEFINE FONT oSayyFnt NAME "Arial" SIZE 0, -10 BOLD

DEFINE FONT oObsFnt NAME "Arial" SIZE 0, -9

DEFINE CURSOR oCur RESOURCE "Finger"

DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg RESOURCE "CADCLI" ICON oIcon

oDlg:lHelpIcon := .F.

//TRANS(Clien01i->TelClie1,"@R (99)9999-9999"),;

// TRANS(Clien01i->FaxClie1,"@R (99)9999-9999"),;

// TRANS(Clien01i->CelClie1,"@R (99)9999-9999"),;

REDEFINE LISTBOX oLbx ;

FIELDS Clien01i->CodClie1,;

UPPER(Clien01i->NomClie1),;

UPPER(Clien01i->FanClie1),;

Clien01i->TelClie1,;

Clien01i->FaxClie1,;

Clien01i->CelClie1,;

Clien01i->AttClie1,;

Clien01i->EndClie1,;

Clien01i->BaiClie1,;

Clien01i->CidClie1,;

Clien01i->EstClie1,;

Clien01i->CepClie1,;

TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)),;

Clien01i->IesClie1,;

TRANS(Clien01i->LimClie1,"@R 99,999.99"),;

Clien01i->EleClie1,;

ProcVend(Clien01i->VenClie1) ;

ID 103 OF oDlg ;

ALIAS "Clien01i" ;

HEADERS OemToAnsi("C¢digo"),;

"Nome",;

"Fantasia",;

"Telefone",;

"Fax",;

"Celular",;

"Contato",;

OemToAnsi("Endere‡o"),;

"Bairro",;

"Cidade",;

"UF",;

"Cep",;

"CNPJ/CPF",;

"Insc.Est.",;

"Limite",;

"E_Mail",;

"Vendedor" ;

FIELDSIZES 45,280,175,90,90,90,100,280,190,190,30,60,125,125,65,300,175 ;

FONT oFnt ;

ON CHANGE ( TemObs(@llObs),oSay:Refresh(),oSay1:Refresh(),oSay2:Refresh(),oSay3:Refresh(),oSay4:Refresh(),oSay5:Refresh(),oSay6:Refresh(),oSay7:Refresh(),oSay8:Refresh(),oSay9:Refresh(),oSay0:Refresh(),oObs:Refresh() ) ;

ON RIGHT CLICK ShowPop( oLbx, nRow, nCol, oDlg, oLbx ) ;

ON DBLCLICK ( AlteCli(oDlg,oLbx) )

oLbx:nClrText := { || SetaCor(Clien01i->CodClie1) }

oLbx:lAdjLastCol := .F.

oLbx:lAdjBrowse := .F.

oLbx:nHeaderStyle := 3 // 6

oLbx:nHeaderHeight := 25

oLbx:aActions:={ {||MudaInd2("1",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("2",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("3",oLbx,@nlInd,@clInd,oInd)},,,,,{||MudaInd2("8",oLbx,@nlInd,@clInd,oInd)},,{||MudaInd2("10",oLbx,@nlInd,@clInd,oInd)},,,{||MudaInd2("13",oLbx,@nlInd,@clInd,oInd)} }

oLbx:bBkColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_CREME , ), ) }

oLbx:bTextColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_BLACK, ), ) }

oLbx:bFont :={|nRow,nCol,nStyleLine| pFonteBrowse( oDlg, oLbx, nRow, nCol, nStyleLine,fNormal,Arial12,fBold,IIF(oLbx:lFocused,fBold,fNormal) ) }

oLbx:nLineStyle := 6 // 11

oLbx:nLineHeight := 18

oLbx:bSeek := {|| oLbx:DbfSeek(.T.),oSay:Refresh(),oSay1:Refresh(),oSay2:Refresh(),oSay3:Refresh(),oSay4:Refresh(),oSay5:Refresh(),oSay6:Refresh(),oSay7:Refresh(),oSay8:Refresh(),oSay9:Refresh(),oSay0:Refresh(),oObs:Refresh(),oLbx:Refresh() }

oLbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbx:nClrPane := {|| IIF((oLbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbx:aJustify := {0,0,0,0,0,0,0,0,0,0,2,0,0,0,1,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbx:lMChange := .F. // Desabilta Mousemove

oLbx:bKeyChar = { | nKey, nFlags | ;

IF( nKey # 13, ;

( oLbx:Refresh(), ;

oLbx:SetFocus(),;

oLbx:DrawSelect() ),;

AlteCli(oDlg,oLbx) ) }

REDEFINE COMBOBOX oInd VAR clInd ITEMS {OemToAnsi("C¢digo"),"Nome","Fantasia","Cnpj/Cpf","Cidade",OemToAnsi("Endere‡o")} ID 63 ;

ON CHANGE ( MudaInd(clInd,oLbx,@nlInd),oLbx:SetFocus() ) OF oDlg

REDEFINE SBUTTON oBt1 ID 106 FILE ".\bitmaps\nouveau.Bmp" OF oDlg;

ACTION ( NovoCli(oDlg,oLbx,.T.), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Inclui" TOOLTIP "Novo Cliente - Alt+I";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt2 ID 107 FILE ".\bitmaps\abrir.Bmp" OF oDlg;

ACTION ( AlteCli(oDlg,oLbx,.T.), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Altera" TOOLTIP "Altera Cliente - Alt+A";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt3 ID 44 FILE ".\bitmaps\filt2.Bmp" OF oDlg;

ACTION ( FiltCli(oDlg,oLbx), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Filtrar" TOOLTIP "Filtrar - Alt+F";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt4 ID 45 FILE ".\bitmaps\trash2.Bmp" OF oDlg;

ACTION ( ApagaCli(oDlg,oLbx), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Exclui" TOOLTIP "Exclui - Alt+E";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt6 ID 47 FILE ".\bitmaps\entrar.Bmp" OF oDlg;

ACTION ( oDlg:End() ) ;

PROMPT "&Sair" TOOLTIP "Sair - Alt+S";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SAY oSay ID 50 PROMPT Clien01i->CodClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay1 ID 51 PROMPT Clien01i->NomClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay2 ID 52 PROMPT Clien01i->EndClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay3 ID 53 PROMPT Clien01i->BaiClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay4 ID 54 PROMPT Clien01i->CidClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay5 ID 55 PROMPT Clien01i->EstClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay6 ID 56 PROMPT LEFT(Clien01i->CepClie1,5)+"-"+RIGHT(Clien01i->CepClie1,3) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay9 ID 59 PROMPT TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay0 ID 61 PROMPT Clien01i->IesClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay7 ID 57 PROMPT VerAtivo(@clAti) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay8 ID 58 PROMPT RIGHT(Clien01i->DcdClie1,2)+"/"+SUBS(Clien01i->DcdClie1,5,2)+"/"+LEFT(Clien01i->DcdClie1,4) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE CHECKBOX oObs VAR llObs ID 49 OF oDlg UPDATE

REDEFINE SENSITIVE SAY PROMPT OemToAnsi(">> observa‡Æo <<") ID 60 OF oDlg;

COLOR CLR_RED COLOROVER CLR_HRED ;

ACTION (VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh()) ;

ON MOUSEOVER SndPlaySound("Click.Wav") ;

RIGHT TRANSPARENT

oDlg:bKeyDown := {|nKey| Sairrr(nKey,oDlg,oLbx,nlInd)}

ACTIVATE DIALOG oDlg NOMODAL CENTERED ON INIT MenuCli(oDlg,oLbx)

RETURN NIL

//---------------------------------------------------------------------------//

STATIC FUNCTION MudaInd( clInd, oLbx, nlInd )

IF clInd == "Nome"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 2, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 2, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(2));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 2

ELSEIF clInd == OemToAnsi("C¢digo")

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 1, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 1, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(1));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 1

ELSEIF clInd == "Fantasia"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 3, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 3, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(3));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 3

ELSEIF clInd == "Cnpj/Cpf"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 13, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 13, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(4));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 4

ELSEIF clInd == "Cidade"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 10, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 10, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(6));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 6

ELSEIF clInd == OemToAnsi("Endere‡o")

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 8, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 8, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(7));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

nlInd := 7

ENDIF

oLbx:UpStable(); oLbx:Refresh()

nlIndi := nlInd

RETURN NIL

//----------------------------------------------------------------------------//

STATIC FUNCTION MudaInd2(clTip,oLbx,nlInd,clInd,oInd)

// KEYBD_EVENT(13,,,)

IF clTip == "1"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 1, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 1, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(1));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := OemToAnsi("C¢digo"); nlInd := 1

ELSEIF clTip == "2"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 2, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 2, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(2));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := "Nome"; nlInd := 2

ELSEIF clTip == "3"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 3, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 3, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(3));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := "Fantasia"; nlInd := 3

ELSEIF clTip == "10"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 10, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 10, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(6));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := "Cidade"; nlInd := 6

ELSEIF clTip == "13"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 13, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 13, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(4));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := "Cnpj/Cpf"; nlInd := 4

ELSEIF clTip == "8"

oLbx:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 8, CLR_CREME , ), ) }

oLbx:bTextColor:= {|nRow,nCol,nStyle| IF( nStyle == 1, IF( nCol == 8, CLR_BLACK, ), ) }

Clien01i->(DBSETORDER(7));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

clInd := OemToAnsi("Endere‡o"); nlInd := 7

ENDIF

nlIndi := nlInd

oInd:Refresh()

RETURN .T.

//---------------------------------------------------------------------------//

STATIC FUNCTION VerAtivo( clAti )

IF Clien01i->AtiClie1 == "1"

clAti := "(A) Ativo"

ELSEIF Clien01i->AtiClie1 == "2"

clAti := "(I) Inativo"

ELSEIF Clien01i->AtiClie1 == "3"

clAti := "( Bloqueado"

ENDIF

RETURN clAti

//---------------------------------------------------------------------------//

FUNCTION NovoCli( oDlg, oLbx, llLoc )

LOCAL oDlg1, oIcon, oSayFnt, oCur, oFol, oBut1, oBut2, lSave := .F., oPes, oAti, oEst, oEs2

LOCAL oFolFnt1, oFolFnt2, llSai := .F., oCla, clCla

LOCAL clCod, clPes, clNom, clFan, clCgc, clIes, clEnd, clBai, clCid, clEst, clCep, clTel, clFax, clAti, clObs

LOCAL clCel, clAtt, clEml, clDtn, oCiv, clCiv, nlLim, clCad, clRf1, clRf2, clRf3, clRf4, clCven, clNven

LOCAL clPro, clPai, clMae, clCoj, clTra,oFntBut, clOut, clCrot, clNrot

LOCAL oSpc, oSer, oPtt, oCcf, llSpc, llSer, llPtt, llCcf, clDt1, clDt2, clDt3, clDt4, clOb1, clOb2, clOb3, clOb4

LOCAL oGt1,oGt2,oGt3,oGt4,oGt5,oGt6,oGt7,oGt8,oGt9,oGt10,oGt11,oGt12,oGt13

LOCAL oGt14,oGt15,oGt16,oGt17,oGt18,oGt19,oGt20,oGt21,oGt22,oGt23,oGt24,oGt25

LOCAL oGt26,oGt27,oGt28,oGt29,oGt30, oFoto, clFoto, clEn2, clBa2, clCi2, clEs2, clCe2, nlRen, nlFilh

LOCAL oGt31,oGt32,oGt33,oGt34,oGt35,oGt36,oGt37,oGt38,nlMensa, oGt57

LOCAL clArea := SELECT(), oSay, clInfo, oSay1, oSay2, clInfo1, clInfo2, oBut3, oBut4

LOCAL aEst := {"AC","AL","AM","AP","BA","CE","DF","ES","FN","GO",;

"MA","MG","MS","MT","PA","PB","PE","PI","PR","RJ","RN","RO",;

"RR","RS","SC","SE","SP","TO"}

LOCAL oBut7, clResp, clCrf, clAnvi, clVanvi, clSus, clVsus,clDbf,oDbf,clArq,clArq1,clCset,clNset,clMuni,clNume,;

oMuni, alMuni:={}

CursorWait()

SELECT 11

Clien01i->(DBCLEARFIL(NIL))

Clien01i->(DBSETORDER(1)); Clien01i->(DBGOBOTTOM())

clCod := STRZERO(VAL(Clien01i->CodClie1)+1,4)

Clien01i->(DBSKIP(1))

clNom := Clien01i->NomClie1; clFan := Clien01i->FanClie1; clCgc := Clien01i->CgcClie1

clIes := Clien01i->IesClie1; clEnd := Clien01i->EndClie1; clBai := Clien01i->BaiClie1

clCid := Clien01i->CidClie1; clEst := Clien01i->EstClie1; clCep := Clien01i->CepClie1

clTel := Clien01i->TelClie1; clFax := Clien01i->FaxClie1; clPes := Clien01i->PesClie1

clCel := Clien01i->CelClie1; clAtt := Clien01i->AttClie1; clEml := Clien01i->EleClie1

clCiv := Clien01i->CivClie1; nlLim := Clien01i->LimClie1; clRf1 := Clien01i->Co1Clie1

clRf2 := Clien01i->Co2Clie1; clRf3 := Clien01i->Bo1Clie1; clRf4 := Clien01i->Bo2Clie1

clCven := Clien01i->VenClie1; clObs := Clien01i->ObsClie1; clPro := Clien01i->ProClie1

clTra := Clien01i->TraClie1; clPai := Clien01i->PaiClie1; clMae := Clien01i->MaeClie1

clCoj := Clien01i->CojClie1; clOut := Clien01i->DocClie1

llSer := Clien01i->SerClie1; llSpc := Clien01i->SpcClie1; llPtt := Clien01i->PttClie1

llCcf := Clien01i->CcfClie1; clDt1 := Clien01i->Dt1Clie1; clDt2 := Clien01i->Dt2Clie1

clDt3 := Clien01i->Dt3Clie1; clDt4 := Clien01i->Dt4Clie1; clOb1 := Clien01i->Ob1Clie1

clOb2 := Clien01i->Ob2Clie1; clOb3 := Clien01i->Ob3Clie1; clOb4 := Clien01i->Ob4Clie1

clCla := Clien01i->ClaClie1; clEn2 := Clien01i->En2Clie1; clBa2 := Clien01i->Ba2Clie1

clCi2 := Clien01i->Ci2Clie1; clEs2 := Clien01i->Es2Clie1; clCe2 := Clien01i->Ce2Clie1

nlRen := Clien01i->RenClie1; clCrot := Clien01i->RotClie1; nlMensa := Clien01i->Mensal01

clResp := Clien01i->ResTec01; clCrf := Clien01i->NumCrf01; clAnvi := Clien01i->NumAnv01

clVanvi := Clien01i->ValAnv01; clSus := Clien01i->NumSus01; clVsus := Clien01i->ValSus01

clCset := Clien01i->SetClie1; clNume := Clien01i->NumEnd01; clMuni := Clien01i->CodMun01

clAti := "(A) Ativo"; clFoto := ".\BITMAPS\ERROFOTO.BMP"

clInfo := "Apelido"

clInfo1 := "CPF"

clInfo2 := "RG"

clPes := OemToAnsi("F¡sica"); clCla := " "; clNrot := SPACE(30)

clEst := "MG"; nlFilh := 0; clVanvi := clVsus := CTOD(" / / ")

clDtn := clDt1 := clDt2 := clDt3 := clDt4 := CTOD(" / / ")

clCad := DATE()

DEFINE FONT oFntBut NAME "Arial" SIZE 0, -9

DEFINE FONT oFolFnt1 NAME "Arial" SIZE 0,-10

DEFINE FONT oFolFnt2 NAME "Arial" SIZE 0,-12 BOLD

DEFINE CURSOR oCur RESOURCE "Finger"

DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -10 BOLD ITALIC

DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg1 RESOURCE "CADCLI1" ICON oIcon

oDlg1:lHelpIcon := .F.

REDEFINE SBUTTON oBut1 ID 106 FILE ".\bitmaps\forwa.Bmp" OF oDlg1;

ACTION ( llSai := .T., lSave := .T., oDlg1:End() ) ;

PROMPT "&Gravar" TOOLTIP "Grava o novo Cliente";

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBut2 ID 102 FILE ".\bitmaps\parar.Bmp" OF oDlg1;

ACTION ( llSai := .T., oDlg1:End() ) ;

PROMPT "&Cancelar" TOOLTIP "Cancela";

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE FOLDER oFol ID 101 OF oDlg1 ;

PROMPTS OemToAnsi("Dados &B sicos"), "Dados &Pessoais", OemToAnsi("&An lise de Cr‚dito"), "&Outros" ;

DIALOGS "CLIINC1","CLIINC2","CLIINC3","CLIINC4"

REDEFINE SAY oSay ID -2 PROMPT clInfo OF oFol:aDialogs[1] UPDATE

REDEFINE SAY oSay1 ID -3 PROMPT clInfo1 OF oFol:aDialogs[1] UPDATE

REDEFINE SAY oSay2 ID -4 PROMPT clInfo2 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt1 VAR clCod ID 33 OF oFol:aDialogs[1] UPDATE // VALID ( ChkCli(@clCod,oGt1) ) UPDATE

REDEFINE COMBOBOX oPes VAR clPes ITEMS {OemToAnsi("F¡sica"),OemtoAnsi("Jur¡dica")} ID 63 OF oFol:aDialogs[1] VALID VerificaAltera(clPes,oGt5,@clCgc,oSay,@clInfo,oSay1,@clInfo1,oSay2,@clInfo2)

REDEFINE COMBOBOX oCla VAR clCla ITEMS {" ","Grande",OemToAnsi("M‚dio"),"Pequeno"} ID 45 OF oFol:aDialogs[1]

REDEFINE GET oGt3 VAR clNom ID 34 OF oFol:aDialogs[1] VALID ( ChecaNome(clNom,oFol) ) UPDATE

REDEFINE GET oGt4 VAR clFan ID 35 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt5 VAR clCgc PICTURE CpfCgcPic(Clien01i->PesClie1) ID 36 OF oFol:aDialogs[1] VALID ChecaCnpj(@clCgc,clPes,clCod) UPDATE

REDEFINE GET oGt6 VAR clIes ID 37 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt39 VAR clOut ID 44 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt7 VAR clEnd ID 38 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt77 VAR clNume PICTURE "99999" ID 47 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt8 VAR clBai ID 39 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt9 VAR clCid ID 57 OF oFol:aDialogs[1] VALID( PesqCid(oFol,@clCid,@clEst,@clCep,1) ) UPDATE

REDEFINE BTNBMP oBut7 ID 60 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCid,@clEst,@clCep,2),oEst:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEst VAR clEst ITEMS aEst ID 41 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt11 VAR clCep PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[1] UPDATE

// REDEFINE COMBOBOX oMuni VAR clMuni ITEMS alMuni ID 48 OF oFol:aDialogs[1]

REDEFINE GET oGt76 VAR clMuni ID 48 OF oFol:aDialogs[1] UPDATE

REDEFINE BTNBMP oBut6 ID 49 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqMuni(oFol,@clMuni) ) TOOLTIP "Seleciona o Municipio"

REDEFINE IMAGE oFoto ID 43 OF oFol:aDialogs[1] FILENAME clFoto ADJUST

REDEFINE BTNBMP oBut5 ID 46 OF oFol:aDialogs[1] FILE ".\BITMAPS\lanterna.BMP" TOOLTIP "Seleciona a foto do cliente" ACTION ( BuscaFoto(oFol:aDialogs[2],@clFoto,oFoto))

REDEFINE GET oGt12 VAR clTel PICTURE "@R (99)9999-9999" ID 51 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt13 VAR clFax PICTURE "@R (99)9999-9999" ID 52 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt14 VAR clCel PICTURE "@R (99)9999-9999" ID 53 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt17 VAR clDtn PICTURE "99/99/9999" ID 56 OF oFol:aDialogs[2] UPDATE

REDEFINE COMBOBOX oCiv VAR clCiv ITEMS {"Casado(a)","Solteiro(a)","Divorciado(a)",OemToAnsi("Vi£vo(a)"),"Outro"} ID 57 OF oFol:aDialogs[2]

REDEFINE GET oGt50 VAR nlFilh PICTURE "@Z 99" ID 39 OF oFol:aDialogs[2] ;

SPINNER MIN 0 MAX 30 ;

UPDATE

REDEFINE GET oGt15 VAR clAtt ID 54 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt10 VAR clCset ID 58 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt24 VAR clNset ID 59 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 89 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqSet(oFol,@clCset,@clNset) ) TOOLTIP "Seleciona o setor"

REDEFINE VGet oGt16 VAR clEml ID 55 Color nRgb(0,0,0),nRgb(255,255,255) OF oFol:aDialogs[2] FILEACTION "BMP_EMAIL" ACTION EnviaMail(clEml)

REDEFINE GET oGt25 VAR clObs MEMO ID 110 OF oFol:aDialogs[2] VALID MudaPag(2,oFol) UPDATE

REDEFINE GET oGt78 VAR clCven ID 40 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt79 VAR clNven ID 41 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 42 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqVend(oFol,@clCven,@clNven) ) TOOLTIP "Seleciona o vendedor"

/*

REDEFINE BUTTON oBut10 ID 102 OF oFol:aDialogs[2] ACTION IncVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE BUTTON oBut11 ID 61 OF oFol:aDialogs[2] ACTION ExcVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE LISTBOX oLbbx ;

FIELDS TRANS(&(clArea)->CodVen90,"999"),;

&(clArea)->NomVen90,; // Nome do vendedor

&(clArea)->DesGru90 ;

ID 112 OF oFol:aDialogs[2] ;

ALIAS clArea ;

HEADERS OemToAnsi("C¢digo") ,;

"Nome",;

"Linha" ;

FIELDSIZES 60,200,200

oLbbx:lAdjLastCol := .F.

oLbbx:lAdjBrowse := .F.

oLbbx:nHeaderStyle := 3 // 6

oLbbx:nHeaderHeight := 16

oLbbx:nLineStyle := 6 // 11

oLbbx:nLineHeight := 16

oLbbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbbx:nClrPane := {|| IIF((oLbbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbbx:aJustify := {0,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbbx:lMChange := .F. // Desabilta Mousemove

*/

REDEFINE GET oGt18 VAR nlLim PICTURE "@R 99,999.99" ID 61 OF oFol:aDialogs[3] UPDATE

REDEFINE COMBOBOX oAti VAR clAti ITEMS {"(A) Ativo","(I) Inativo","( Bloqueado"} ID 67 OF oFol:aDialogs[3]

REDEFINE GET oGt19 VAR clCad PICTURE "99/99/9999" ID 62 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt51 VAR nlRen PICTURE "@R 99,999.99" ID 39 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt20 VAR clRf1 ID 63 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt21 VAR clRf2 ID 64 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt22 VAR clRf3 ID 65 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt23 VAR clRf4 ID 66 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt31 VAR clResp ID 58 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt32 VAR clCrf ID 36 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt33 VAR clAnvi ID 43 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt34 VAR clVanvi PICTURE "99/99/9999" ID 44 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt35 VAR clSus ID 40 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt36 VAR clVsus PICTURE "99/99/9999" ID 41 OF oFol:aDialogs[3] VALID MudaPag(3,oFol) UPDATE

REDEFINE GET oGt52 VAR clEn2 ID 38 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt53 VAR clBa2 ID 39 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt54 VAR clCi2 ID 57 OF oFol:aDialogs[4] VALID( PesqCid(oFol,@clCi2,@clEs2,@clCe2,1) ) UPDATE

REDEFINE BTNBMP oBut8 ID 60 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCi2,@clEs2,@clCe2,2),oEs2:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEs2 VAR clEs2 ITEMS aEst ID 41 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt55 VAR clCe2 PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt56 VAR clNrot ID 40 OF oFol:aDialogs[4] UPDATE

REDEFINE BTNBMP oBut9 ID 43 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqRot(oFol:aDialogs[4],@clCrot,@clNrot) ) TOOLTIP "Seleciona a rota"

oFoto:loadimage( , ".\BITMAPS\errofoto.JPG" )

oFoto:refresh()

oBut1:lCancel := .T.

oBut2:lCancel := .T.

oPes:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oCla:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oEst:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt11:SetFocus(),)}

oEs2:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt55:SetFocus(),)}

oGt9:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oEst:SetFocus(),)}

oCiv:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt50:SetFocus(),)}

oAti:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt20:SetFocus(),)}

oFol:aEnable := {.t.,.f.,.f.,.f.}

oFol:lWin95Look := .f.

oFol:oFont := oFolFnt1

oFol:oFont2 := oFolFnt2

oGt10:Disable(); oGt24:Disable(); oGt56:Disable()

oGt1:bGotFocus := {|| ( oGt1:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt1:bLostFocus := {|| ( oGt1:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt3:bGotFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt3:bLostFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt4:bGotFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt4:bLostFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt5:bGotFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt5:bLostFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt6:bGotFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt6:bLostFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt7:bGotFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt7:bLostFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt8:bGotFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt8:bLostFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt9:bGotFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt9:bLostFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt11:bGotFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt11:bLostFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt12:bGotFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt12:bLostFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt13:bGotFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt13:bLostFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt14:bGotFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt14:bLostFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt15:bGotFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt15:bLostFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt16:bGotFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt16:bLostFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt17:bGotFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt17:bLostFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt18:bGotFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt18:bLostFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt19:bGotFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt19:bLostFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt20:bGotFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt20:bLostFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt21:bGotFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt21:bLostFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt22:bGotFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt22:bLostFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt23:bGotFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt23:bLostFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt31:bGotFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt31:bLostFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt32:bGotFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt32:bLostFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt33:bGotFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt33:bLostFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt34:bGotFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt34:bLostFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt35:bGotFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt35:bLostFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt36:bGotFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt36:bLostFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt39:bGotFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt39:bLostFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt50:bGotFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt50:bLostFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt51:bGotFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt51:bLostFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt52:bGotFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt52:bLostFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt53:bGotFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt53:bLostFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt54:bGotFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt54:bLostFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt55:bGotFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt55:bLostFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt77:bGotFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt77:bLostFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt78:bGotFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt78:bLostFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt79:bGotFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt79:bLostFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oDlg1:bKeyDown := {|nKey| Sairr(nKey,@llSai,oDlg1,@lSave)}

ACTIVATE DIALOG oDlg1 CENTERED VALID llSai

IF lSave

WHILE ! Rlock() ; End

IF clAti == "(A) Ativo"

clAti := "1"

ELSEIF clAti == "(I) Inativo"

clAti := "2"

ELSEIF clAti == "( Bloqueado"

clAti := "3"

ENDIF

IF clCiv == "Casado(a)"

clCiv := "C"

ELSEIF clCiv == "Solteiro(a)"

clCiv := "S"

ELSEIF clCiv == "Separado(a)"

clCiv := "D"

ELSEIF clCiv == "Outro"

clCiv := "O"

ELSE

clCiv := "V"

ENDIF

IF LEFT(clPes,1) == "F"

clPes := "1"

ELSE

clPes := "2"

ENDIF

clCla := LEFT(clCla,1)

clDtn := DTOC(clDtn)

clDtn := RIGHT(clDtn,4)+SUBS(clDtn,4,2)+LEFT(clDtn,2)

clDt1 := DTOC(clDt1)

clDt1 := RIGHT(clDt1,4)+SUBS(clDt1,4,2)+LEFT(clDt1,2)

clDt2 := DTOC(clDt2)

clDt2 := RIGHT(clDt2,4)+SUBS(clDt2,4,2)+LEFT(clDt2,2)

clDt3 := DTOC(clDt3)

clDt3 := RIGHT(clDt3,4)+SUBS(clDt3,4,2)+LEFT(clDt3,2)

clDt4 := DTOC(clDt4)

clDt4 := RIGHT(clDt4,4)+SUBS(clDt4,4,2)+LEFT(clDt4,2)

clVanvi := DTOC(clVanvi)

clVanvi := RIGHT(clVanvi,4)+SUBS(clVanvi,4,2)+LEFT(clVanvi,2)

clVsus := DTOC(clVsus)

clVsus := RIGHT(clVsus,4)+SUBS(clVsus,4,2)+LEFT(clVsus,2)

clCad := DTOC(clCad)

clCad := RIGHT(clCad,4)+SUBS(clCad,4,2)+LEFT(clCad,2)

SELECT 11

Clien01i->(DBSETORDER(1)); Clien01i->(DBGOBOTTOM())

clCod := STRZERO(VAL(Clien01i->CodClie1)+1,4)

Clien01i->(DBAPPEND())

REPLACE Clien01i->CodClie1 WITH clCod, Clien01i->BaiClie1 WITH clBai,;

Clien01i->NomClie1 WITH clNom, Clien01i->EndClie1 WITH clEnd,;

Clien01i->CidClie1 WITH clCid, Clien01i->EstClie1 WITH clEst,;

Clien01i->CepClie1 WITH clCep, Clien01i->TelClie1 WITH clTel,;

Clien01i->AttClie1 WITH clAtt, Clien01i->FaxClie1 WITH clFax,;

Clien01i->CelClie1 WITH clCel, Clien01i->FanClie1 WITH clFan,;

Clien01i->CgcClie1 WITH clCgc, Clien01i->IesClie1 WITH clIes,;

Clien01i->PesClie1 WITH clPes, Clien01i->Co1Clie1 WITH clRf1,;

Clien01i->Co2Clie1 WITH clRf2, Clien01i->Bo1Clie1 WITH clRf3,;

Clien01i->Bo2Clie1 WITH clRf4, Clien01i->DtnClie1 WITH clDtn,;

Clien01i->LimClie1 WITH nlLim, Clien01i->EleClie1 WITH clEml,;

Clien01i->DcdClie1 WITH clCad, Clien01i->CivClie1 WITH clCiv,;

Clien01i->AtiClie1 WITH clAti, Clien01i->VenClie1 WITH clCven,;

Clien01i->ProClie1 WITH clPro, Clien01i->DocClie1 WITH clOut,;

Clien01i->TraClie1 WITH clTra, Clien01i->PaiClie1 WITH clPai,;

Clien01i->MaeClie1 WITH clMae, Clien01i->CojClie1 WITH clCoj,;

Clien01i->SpcClie1 WITH llSpc, Clien01i->SerClie1 WITH llSer,;

Clien01i->PttClie1 WITH llPtt, Clien01i->CcfClie1 WITH llCcf,;

Clien01i->Dt1Clie1 WITH clDt1, Clien01i->Dt2Clie1 WITH clDt2,;

Clien01i->Dt3Clie1 WITH clDt3, Clien01i->Dt4Clie1 WITH clDt4,;

Clien01i->Ob1Clie1 WITH clOb1, Clien01i->Ob2Clie1 WITH clOb2,;

Clien01i->Ob3Clie1 WITH clOb3, Clien01i->Ob4Clie1 WITH clOb4,;

Clien01i->FotClie1 WITH clFoto, Clien01i->ObsClie1 WITH clObs,;

Clien01i->ClaClie1 WITH clCla, Clien01i->En2Clie1 WITH clEn2,;

Clien01i->Ci2Clie1 WITH clCi2, Clien01i->Es2Clie1 WITH clEs2,;

Clien01i->Ce2Clie1 WITH clCe2, Clien01i->RenClie1 WITH nlRen,;

Clien01i->NfiClie1 WITH nlFilh, Clien01i->Ba2Clie1 WITH clBa2,;

Clien01i->RotClie1 WITH clCrot, Clien01i->Mensal01 WITH nlMensa,;

Clien01i->ResTec01 WITH clResp, Clien01i->NumCrf01 WITH clCrf,;

Clien01i->NumAnv01 WITH clAnvi, Clien01i->ValAnv01 WITH clVanvi,;

Clien01i->NumSus01 WITH clSus, Clien01i->ValSus01 WITH clVsus,;

Clien01i->SetClie1 WITH clCset,;

Clien01i->NumEnd01 WITH clNume, Clien01i->CodMun01 WITH clMuni

DbUnlock()

ENDIF

oDlg1:End()

// CLOSE &(clArea)

IF llLoc

Clien01i->(DBSETORDER(nlIndi));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

oDlg:Update()

ENDIF

RETURN NIL

//---------------------------------------------------------------------------//

STATIC FUNCTION AlteCli( oDlg, oLbx )

LOCAL oDlg1, oIcon, oSayFnt, oCur, oFol, oBut1, oBut2, lSave := .F., oPes, oAti, oEst, oEs2

LOCAL clCod, clPes, clNom, clFan, clCgc, clIes, clEnd, clBai, clCid, clEst, clCep, clTel, clFax, clObs

LOCAL clCel, clAtt, clEml, clDtn, oCiv, clCiv, nlLim, clCad, clRf1, clRf2, clRf3, clRf4, clAti, clCven, clNven

LOCAL clPro, clPai, clMae, clCoj, clTra, llSai := .F., clOut, oCla, clCla

LOCAL oFolFnt1, oFolFnt2, nlPag := 1, clDtina, clCrot, clNrot

LOCAL oSpc, oSer, oPtt, oCcf, llSpc, llSer, llPtt, llCcf, clDt1, clDt2, clDt3, clDt4, clOb1, clOb2, clOb3, clOb4

LOCAL oGt1,oGt2,oGt3,oGt4,oGt5,oGt6,oGt7,oGt8,oGt9,oGt10,oGt11,oGt12,oGt13

LOCAL oGt14,oGt15,oGt16,oGt17,oGt18,oGt19,oGt20,oGt21,oGt22,oGt23,oGt24,oGt25

LOCAL oGt26,oGt27,oGt28,oGt29,oGt30,oFntBut, oFoto, clFoto, nlMensa, oGt57

LOCAL oGt31,oGt32,oGt33,oGt34,oGt35,oGt36,oGt37,oGt38,oBut3,oBut4,oGt39,oGt40

LOCAL clArea := SELECT(), oSay, clInfo, oSay1, oSay2, clInfo1, clInfo2, clEn2, clBa2, clCi2, clEs2, clCe2, nlRen, nlFilh

LOCAL aEst := {"AC","AL","AM","AP","BA","CE","DF","ES","FN","GO",;

"MA","MG","MS","MT","PA","PB","PE","PI","PR","RJ","RN","RO",;

"RR","RS","SC","SE","SP","TO"}

LOCAL oBut7, clResp, clCrf, clAnvi, clVanvi, clSus, clVsus,clDbf,oDbf,clArq,clArq1,clCset,clNset, clNume, clMuni, oMuni, alMuni:={}

CursorWait()

/*

IF FILE( clArq1 ); FERASE( clArq1 ); ENDIF

CriaDbf(@clArq1,@clArq)

USE &(clArq) NEW

FLOCK()

IF !NETERR()

ZAP

ENDIF

UNLOCK

oDbf := SELECT()

clArea := (oDbf)->(ALIAS())

*/

clCod := Clien01i->CodClie1

clNom := Clien01i->NomClie1; clFan := Clien01i->FanClie1; clCgc := Clien01i->CgcClie1

clIes := Clien01i->IesClie1; clEnd := Clien01i->EndClie1; clBai := Clien01i->BaiClie1

clCid := Clien01i->CidClie1; clEst := Clien01i->EstClie1; clCep := Clien01i->CepClie1

clTel := Clien01i->TelClie1; clFax := Clien01i->FaxClie1; clPes := Clien01i->PesClie1

clCel := Clien01i->CelClie1; clAtt := Clien01i->AttClie1; clEml := Clien01i->EleClie1

clCiv := Clien01i->CivClie1; nlLim := Clien01i->LimClie1; clRf1 := Clien01i->Co1Clie1

clRf2 := Clien01i->Co2Clie1; clRf3 := Clien01i->Bo1Clie1; clRf4 := Clien01i->Bo2Clie1

clDtn := Clien01i->DtnClie1; clCad := Clien01i->DcdClie1; clAti := Clien01i->AtiClie1

clTra := Clien01i->TraClie1; clPai := Clien01i->PaiClie1; clMae := Clien01i->MaeClie1

clCoj := Clien01i->CojClie1; clPro := Clien01i->ProClie1; clCven := Clien01i->VenClie1

llSer := Clien01i->SerClie1; llSpc := Clien01i->SpcClie1; llPtt := Clien01i->PttClie1

llCcf := Clien01i->CcfClie1; clDt1 := Clien01i->Dt1Clie1; clDt2 := Clien01i->Dt2Clie1

clDt3 := Clien01i->Dt3Clie1; clDt4 := Clien01i->Dt4Clie1; clOb1 := Clien01i->Ob1Clie1

clOb2 := Clien01i->Ob2Clie1; clOb3 := Clien01i->Ob3Clie1; clOb4 := Clien01i->Ob4Clie1

clObs := Clien01i->ObsClie1; clOut := Clien01i->DocClie1; clCset := Clien01i->SetClie1

clDtina := Clien01i->InaClie1; clFoto := Clien01i->FotClie1; clCla := Clien01i->ClaClie1

nlFilh := Clien01i->NfiClie1; clEn2 := Clien01i->En2Clie1; clBa2 := Clien01i->Ba2Clie1

clCi2 := Clien01i->Ci2Clie1; clEs2 := Clien01i->Es2Clie1; clCe2 := Clien01i->Ce2Clie1

nlRen := Clien01i->RenClie1; clCrot := Clien01i->RotClie1; nlMensa := Clien01i->Mensal01

clResp := Clien01i->ResTec01; clCrf := Clien01i->NumCrf01; clAnvi := Clien01i->NumAnv01

clVanvi := Clien01i->ValAnv01; clSus := Clien01i->NumSus01; clVsus := Clien01i->ValSus01

clNume := Clien01i->NumEnd01; clMuni := Clien01i->CodMun01

clVanvi := RIGHT(clVanvi,2)+"/"+SUBS(clVanvi,5,2)+"/"+LEFT(clVanvi,4)

clVanvi := CTOD(clVanvi)

clVsus := RIGHT(clVsus,2)+"/"+SUBS(clVsus,5,2)+"/"+LEFT(clVsus,4)

clVsus := CTOD(clVsus)

IF clFoto == SPACE(80)

clFoto := ".\BITMAPS\ERROFOTO.BMP"

ENDIF

IF clAti == "1"

clAti := "(A) Ativo"

ELSEIF clAti == "2"

clAti := "(I) Inativo"

ELSE

clAti := "( Bloqueado"

ENDIF

IF clPes == "1"

clPes := OemToAnsi("F¡sica")

clInfo := "Apelido"

clInfo1 := "CPF"

clInfo2 := "RG"

ELSE

clPes := OemToAnsi("Jur¡dica")

clInfo := "Fantasia"

clInfo1 := "CNPJ"

clInfo2 := "Insc. Est."

ENDIF

IF clCiv == "C"

clCiv := "Casado(a)"

ELSEIF clCiv == "S"

clCiv := "Solteiro(a)"

ELSEIF clCiv == "D"

clCiv := "Separado(a)"

ELSEIF clCiv == "V"

clCiv := OemToAnsi("Vi£vo(a)")

ELSE

clCiv := "Outro"

ENDIF

IF clCla == " "

clCla := " "

ELSEIF clCla == "G"

clCla := "Grande"

ELSEIF clCla == "P"

clCla := "Pequeno"

ELSE

clCla := OemToAnsi("M‚dio")

ENDIF

clDtn := RIGHT(clDtn,2)+"/"+SUBS(clDtn,5,2)+"/"+LEFT(clDtn,4)

clDtn := CTOD(clDtn)

clDt1 := RIGHT(clDt1,2)+"/"+SUBS(clDt1,5,2)+"/"+LEFT(clDt1,4)

clDt1 := CTOD(clDt1)

clDt2 := RIGHT(clDt2,2)+"/"+SUBS(clDt2,5,2)+"/"+LEFT(clDt2,4)

clDt2 := CTOD(clDt2)

clDt3 := RIGHT(clDt3,2)+"/"+SUBS(clDt3,5,2)+"/"+LEFT(clDt3,4)

clDt3 := CTOD(clDt3)

clDt4 := RIGHT(clDt4,2)+"/"+SUBS(clDt4,5,2)+"/"+LEFT(clDt4,4)

clDt4 := CTOD(clDt4)

clCad := RIGHT(clCad,2)+"/"+SUBS(clCad,5,2)+"/"+LEFT(clCad,4)

clCad := CTOD(clCad)

clDtina := RIGHT(clDtina,2)+"/"+SUBS(clDtina,5,2)+"/"+LEFT(clDtina,4)

clDtina := CTOD(clDtina)

SELECT 12

Vende18i->(DBSETORDER(1));Vende18i->(DBGOTOP())

Vende18i->(DbSeek(clCven))

IF FOUND()

clCven := Vende18i->CodVen18

clNven := Vende18i->NomVen18

ELSE

clCven := " "; clNven := SPACE(40)

ENDIF

SELECT 60

Setor60i->(DBSETORDER(1));Setor60i->(DBGOTOP())

Setor60i->(DbSeek(clCset))

IF FOUND()

clCset := Setor60i->CodSet60

clNset := Setor60i->DesSet60

ELSE

clCset := " "; clNset := SPACE(40)

ENDIF

SELECT 56

Rotas01i->(DBSETORDER(1));Rotas01i->(DBGOTOP())

Rotas01i->(DbSeek(clCrot))

IF FOUND()

clCrot := Rotas01i->CodRot01

clNrot := Rotas01i->NomRot01

ELSE

clCrot := " "; clNrot := SPACE(30)

ENDIF

/*

SELECT 74

TabMu01i->(DBSETORDER(2)); TabMu01i->(DBGOTOP())

i := 1

DO WHILE !EOF()

IF TabMu01i->UF == "31" .OR. TabMu01i->UF == "35" .OR. TabMu01i->UF == "33"

AADD( alMuni, { SPACE(80) } )

alMuni := TabMu01i->Codigo+" - "+OemToAnsi(TabMu01i->Cidade)

IF TabMu01i->Codigo == clMuni

clMuni := alMuni

ENDIF

i++

ENDIF

TabMu01i->(Dbskip())

ENDDO

*/

SELECT 11

DEFINE FONT oFolFnt1 NAME "Arial" SIZE 0,-10

DEFINE FONT oFolFnt2 NAME "Arial" SIZE 0,-12 BOLD

DEFINE FONT oFntBut NAME "Arial" SIZE 0, -9

DEFINE CURSOR oCur RESOURCE "Finger"

DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -10 BOLD ITALIC

DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg1 RESOURCE "CADCLI1" ICON oIcon TITLE "Altera Cliente"

oDlg1:lHelpIcon := .F.

REDEFINE SBUTTON oBut1 ID 106 FILE ".\bitmaps\forwa.Bmp" OF oDlg1;

ACTION ( llSai := .T., lSave := .T., oDlg1:End() ) ;

PROMPT "&Gravar" TOOLTIP OemToAnsi("Grava as altera‡äes");

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBut2 ID 102 FILE ".\bitmaps\parar.Bmp" OF oDlg1;

ACTION ( llSai := .T., oDlg1:End() ) ;

PROMPT "&Cancelar" TOOLTIP OemToAnsi("Cancela as altera‡äes");

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE FOLDER oFol ID 101 OF oDlg1 ;

PROMPTS OemToAnsi("Dados &B sicos"), "Dados &Pessoais", OemToAnsi("&An lise de Cr‚dito"), "&Outros" ;

DIALOGS "CLIINC1", "CLIINC2","CLIINC3", "CLIINC4"

REDEFINE SAY oSay ID -2 PROMPT clInfo OF oFol:aDialogs[1] UPDATE

REDEFINE SAY oSay1 ID -3 PROMPT clInfo1 OF oFol:aDialogs[1] UPDATE

REDEFINE SAY oSay2 ID -4 PROMPT clInfo2 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt1 VAR clCod ID 33 OF oFol:aDialogs[1] UPDATE

REDEFINE COMBOBOX oPes VAR clPes ITEMS {OemToAnsi("F¡sica"),OemtoAnsi("Jur¡dica")} ID 63 OF oFol:aDialogs[1] VALID VerificaAltera(clPes,oGt5,@clCgc,oSay,@clInfo,oSay1,@clInfo1,oSay2,@clInfo2)

REDEFINE COMBOBOX oCla VAR clCla ITEMS {" ","Grande",OemToAnsi("M‚dio"),"Pequeno"} ID 45 OF oFol:aDialogs[1]

REDEFINE GET oGt3 VAR clNom ID 34 OF oFol:aDialogs[1] VALID ( ChecaNome(clNom,oFol) ) UPDATE

REDEFINE GET oGt4 VAR clFan ID 35 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt5 VAR clCgc PICTURE CpfCgcPic(Clien01i->PesClie1) ID 36 OF oFol:aDialogs[1] VALID ChecaCnpj(@clCgc,clPes,clCod) UPDATE

REDEFINE GET oGt6 VAR clIes ID 37 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt39 VAR clOut ID 44 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt7 VAR clEnd ID 38 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt77 VAR clNume PICTURE "99999" ID 47 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt8 VAR clBai ID 39 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt9 VAR clCid ID 57 OF oFol:aDialogs[1] VALID( PesqCid(oFol,@clCid,@clEst,@clCep,1) ) UPDATE

REDEFINE BTNBMP oBut7 ID 60 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCid,@clEst,@clCep,2),oEst:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEst VAR clEst ITEMS aEst ID 41 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt11 VAR clCep PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[1] UPDATE

// REDEFINE COMBOBOX oMuni VAR clMuni ITEMS alMuni ID 48 OF oFol:aDialogs[1]

REDEFINE GET oGt76 VAR clMuni ID 48 OF oFol:aDialogs[1] UPDATE

REDEFINE BTNBMP oBut6 ID 49 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqMuni(oFol,@clMuni) ) TOOLTIP "Seleciona o Municipio"

REDEFINE IMAGE oFoto ID 43 OF oFol:aDialogs[1] FILENAME clFoto ADJUST

REDEFINE BTNBMP oBut5 ID 46 OF oFol:aDialogs[1] FILE ".\BITMAPS\lanterna.BMP" TOOLTIP "Seleciona a foto do cliente" ACTION ( BuscaFoto(oFol:aDialogs[2],@clFoto,oFoto))

REDEFINE GET oGt12 VAR clTel ID 51 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt13 VAR clFax ID 52 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt14 VAR clCel ID 53 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt17 VAR clDtn PICTURE "@K,@D 99/99/9999" ID 56 OF oFol:aDialogs[2] UPDATE

REDEFINE COMBOBOX oCiv VAR clCiv ITEMS {"Casado(a)","Solteiro(a)","Separado(a)",OemToAnsi("Vi£vo(a)"),"Outro"} ID 57 OF oFol:aDialogs[2]

REDEFINE GET oGt50 VAR nlFilh PICTURE "@Z 99" ID 39 OF oFol:aDialogs[2] ;

SPINNER MIN 0 MAX 30 ;

UPDATE

REDEFINE GET oGt15 VAR clAtt ID 54 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt10 VAR clCset ID 58 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt24 VAR clNset ID 59 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 89 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqSet(oFol,@clCset,@clNset) ) TOOLTIP "Seleciona o setor"

REDEFINE VGet oGt16 VAR clEml ID 55 Color nRgb(0,0,0),nRgb(255,255,255) OF oFol:aDialogs[2] FILEACTION "BMP_EMAIL" ACTION EnviaMail(clEml)

REDEFINE GET oGt25 VAR clObs MEMO ID 110 OF oFol:aDialogs[2] VALID MudaPag(2,oFol) UPDATE

REDEFINE GET oGt78 VAR clCven ID 40 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt79 VAR clNven ID 41 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 42 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqVend(oFol,@clCven,@clNven) ) TOOLTIP "Seleciona o vendedor"

/*

REDEFINE BUTTON oBut10 ID 102 OF oFol:aDialogs[2] ACTION IncVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE BUTTON oBut11 ID 61 OF oFol:aDialogs[2] ACTION ExcVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE LISTBOX oLbbx ;

FIELDS TRANS(&(clArea)->CodVen90,"999"),;

&(clArea)->NomVen90,; // Nome do vendedor

&(clArea)->DesGru90 ;

ID 112 OF oFol:aDialogs[2] ;

ALIAS clArea ;

HEADERS OemToAnsi("C¢digo") ,;

"Nome",;

"Linha" ;

FIELDSIZES 60,200,200

oLbbx:lAdjLastCol := .F.

oLbbx:lAdjBrowse := .F.

oLbbx:nHeaderStyle := 3 // 6

oLbbx:nHeaderHeight := 16

oLbbx:nLineStyle := 6 // 11

oLbbx:nLineHeight := 16

oLbbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbbx:nClrPane := {|| IIF((oLbbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbbx:aJustify := {0,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbbx:lMChange := .F. // Desabilta Mousemove

*/

REDEFINE GET oGt18 VAR nlLim PICTURE "@R 99,999.99" ID 61 OF oFol:aDialogs[3] UPDATE

REDEFINE COMBOBOX oAti VAR clAti ITEMS {"(A) Ativo","(I) Inativo","( Bloqueado"} ID 67 OF oFol:aDialogs[3]

REDEFINE GET oGt19 VAR clCad PICTURE "99/99/9999" ID 62 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt51 VAR nlRen PICTURE "@R 99,999.99" ID 39 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt40 VAR clDtina PICTURE "99/99/9999" ID 37 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt20 VAR clRf1 ID 63 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt21 VAR clRf2 ID 64 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt22 VAR clRf3 ID 65 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt23 VAR clRf4 ID 66 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt31 VAR clResp ID 58 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt32 VAR clCrf ID 36 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt33 VAR clAnvi ID 43 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt34 VAR clVanvi PICTURE "99/99/9999" ID 44 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt35 VAR clSus ID 40 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt36 VAR clVsus PICTURE "99/99/9999" ID 41 OF oFol:aDialogs[3] VALID MudaPag(3,oFol) UPDATE

REDEFINE GET oGt52 VAR clEn2 ID 38 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt53 VAR clBa2 ID 39 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt54 VAR clCi2 ID 57 OF oFol:aDialogs[4] VALID( PesqCid(oFol,@clCi2,@clEs2,@clCe2,1) ) UPDATE

REDEFINE BTNBMP oBut8 ID 60 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCi2,@clEs2,@clCe2,2),oEs2:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEs2 VAR clEs2 ITEMS aEst ID 41 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt55 VAR clCe2 PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt56 VAR clNrot ID 40 OF oFol:aDialogs[4] UPDATE

REDEFINE BTNBMP oBut9 ID 43 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqRot(oFol:aDialogs[4],@clCrot,@clNrot) ) TOOLTIP "Seleciona a rota"

oBut1:lCancel := .T.

oBut2:lCancel := .T.

oPes:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oCla:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oEst:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt11:SetFocus(),)}

oEs2:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt55:SetFocus(),)}

oCiv:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt50:SetFocus(),)}

oAti:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt20:SetFocus(),)}

oGt9:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oEst:SetFocus(),)}

oFol:lWin95Look := .f.

oFol:oFont := oFolFnt1

oFol:oFont2 := oFolFnt2

oGt1:Disable(); oGt19:Disable(); oGt10:Disable(); oGt24:Disable(); oGt40:Disable(); oGt56:Disable()

oGt3:bGotFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt3:bLostFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt4:bGotFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt4:bLostFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt5:bGotFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt5:bLostFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt6:bGotFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt6:bLostFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt7:bGotFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt7:bLostFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt8:bGotFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt8:bLostFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt9:bGotFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt9:bLostFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt11:bGotFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt11:bLostFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt12:bGotFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt12:bLostFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt13:bGotFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt13:bLostFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt14:bGotFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt14:bLostFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt15:bGotFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt15:bLostFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt16:bGotFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt16:bLostFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt17:bGotFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt17:bLostFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt18:bGotFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt18:bLostFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt19:bGotFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt19:bLostFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt20:bGotFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt20:bLostFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt21:bGotFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt21:bLostFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt22:bGotFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt22:bLostFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt23:bGotFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt23:bLostFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt31:bGotFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt31:bLostFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt32:bGotFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt32:bLostFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt33:bGotFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt33:bLostFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt34:bGotFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt34:bLostFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt35:bGotFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt35:bLostFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt36:bGotFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt36:bLostFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt39:bGotFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt39:bLostFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt50:bGotFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt50:bLostFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt51:bGotFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt51:bLostFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt52:bGotFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt52:bLostFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt53:bGotFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt53:bLostFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt54:bGotFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt54:bLostFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt55:bGotFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt55:bLostFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt77:bGotFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt77:bLostFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt78:bGotFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt78:bLostFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt79:bGotFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt79:bLostFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oDlg1:bKeyDown := {|nKey| Sairr(nKey,@llSai,oDlg1,@lSave)}

ACTIVATE DIALOG oDlg1 CENTERED VALID llSai

IF lSave

WHILE ! Rlock() ; End

IF clAti == "(A) Ativo"

clAti := "1"

ELSEIF clAti == "(I) Inativo"

clAti := "2"

ELSEIF clAti == "( Bloqueado"

clAti := "3"

ENDIF

IF clCiv == "Casado(a)"

clCiv := "C"

ELSEIF clCiv == "Solteiro(a)"

clCiv := "S"

ELSEIF clCiv == "Separado(a)"

clCiv := "D"

ELSEIF clCiv == "Outro"

clCiv := "O"

ELSE

clCiv := "V"

ENDIF

IF LEFT(clPes,1) == "F"

clPes := "1"

ELSE

clPes := "2"

ENDIF

clCla := LEFT(clCla,1)

clDtn := DTOC(clDtn)

clDtn := RIGHT(clDtn,4)+SUBS(clDtn,4,2)+LEFT(clDtn,2)

clDt1 := DTOC(clDt1)

clDt1 := RIGHT(clDt1,4)+SUBS(clDt1,4,2)+LEFT(clDt1,2)

clDt2 := DTOC(clDt2)

clDt2 := RIGHT(clDt2,4)+SUBS(clDt2,4,2)+LEFT(clDt2,2)

clDt3 := DTOC(clDt3)

clDt3 := RIGHT(clDt3,4)+SUBS(clDt3,4,2)+LEFT(clDt3,2)

clDt4 := DTOC(clDt4)

clDt4 := RIGHT(clDt4,4)+SUBS(clDt4,4,2)+LEFT(clDt4,2)

clVanvi := DTOC(clVanvi)

clVanvi := RIGHT(clVanvi,4)+SUBS(clVanvi,4,2)+LEFT(clVanvi,2)

clVsus := DTOC(clVsus)

clVsus := RIGHT(clVsus,4)+SUBS(clVsus,4,2)+LEFT(clVsus,2)

Clien01i->(RLOCK())

REPLACE Clien01i->BaiClie1 WITH clBai,;

Clien01i->NomClie1 WITH clNom, Clien01i->EndClie1 WITH clEnd,;

Clien01i->CidClie1 WITH clCid, Clien01i->EstClie1 WITH clEst,;

Clien01i->CepClie1 WITH clCep, Clien01i->TelClie1 WITH clTel,;

Clien01i->AttClie1 WITH clAtt, Clien01i->FaxClie1 WITH clFax,;

Clien01i->CelClie1 WITH clCel, Clien01i->FanClie1 WITH clFan,;

Clien01i->CgcClie1 WITH clCgc, Clien01i->IesClie1 WITH clIes,;

Clien01i->PesClie1 WITH clPes, Clien01i->Co1Clie1 WITH clRf1,;

Clien01i->Co2Clie1 WITH clRf2, Clien01i->Bo1Clie1 WITH clRf3,;

Clien01i->Bo2Clie1 WITH clRf4, Clien01i->DtnClie1 WITH clDtn,;

Clien01i->LimClie1 WITH nlLim, Clien01i->EleClie1 WITH clEml,;

Clien01i->CivClie1 WITH clCiv, Clien01i->AtiClie1 WITH clAti,;

Clien01i->VenClie1 WITH clCven, Clien01i->ObsClie1 WITH clObs,;

Clien01i->ProClie1 WITH clPro, Clien01i->TraClie1 WITH clTra,;

Clien01i->PaiClie1 WITH clPai, Clien01i->MaeClie1 WITH clMae,;

Clien01i->CojClie1 WITH clCoj, Clien01i->DocClie1 WITH clOut,;

Clien01i->SpcClie1 WITH llSpc, Clien01i->SerClie1 WITH llSer,;

Clien01i->PttClie1 WITH llPtt, Clien01i->CcfClie1 WITH llCcf,;

Clien01i->Dt1Clie1 WITH clDt1, Clien01i->Dt2Clie1 WITH clDt2,;

Clien01i->Dt3Clie1 WITH clDt3, Clien01i->Dt4Clie1 WITH clDt4,;

Clien01i->Ob1Clie1 WITH clOb1, Clien01i->Ob2Clie1 WITH clOb2,;

Clien01i->Ob3Clie1 WITH clOb3, Clien01i->Ob4Clie1 WITH clOb4,;

Clien01i->FotClie1 WITH clFoto, Clien01i->ClaClie1 WITH clCla,;

Clien01i->En2Clie1 WITH clEn2, Clien01i->Ba2Clie1 WITH clBa2,;

Clien01i->Ci2Clie1 WITH clCi2, Clien01i->Es2Clie1 WITH clEs2,;

Clien01i->Ce2Clie1 WITH clCe2, Clien01i->RenClie1 WITH nlRen,;

Clien01i->NfiClie1 WITH nlFilh, Clien01i->RotClie1 WITH clCrot,;

Clien01i->Mensal01 WITH nlMensa, Clien01i->SetClie1 WITH clCset,;

Clien01i->ResTec01 WITH clResp, Clien01i->NumCrf01 WITH clCrf,;

Clien01i->NumAnv01 WITH clAnvi, Clien01i->ValAnv01 WITH clVanvi,;

Clien01i->NumSus01 WITH clSus, Clien01i->ValSus01 WITH clVsus,;

Clien01i->NumEnd01 WITH clNume, Clien01i->CodMun01 WITH clMuni

IF clAti == "2"

clDtina := DTOC(DATE())

REPLACE Clien01i->InaClie1 WITH RIGHT(clDtina,4)+SUBS(clDtina,4,2)+LEFT(clDtina,2)

ELSEIF clAti == "1"

REPLACE Clien01i->InaClie1 WITH SPACE(8)

ENDIF

DbUnlock()

ENDIF

oDlg1:End()

// CLOSE &(clArea)

Clien01i->(DBSETORDER(nlIndi));oLbx:Refresh()

oDlg:Update()

RETURN NIL

//---------------------------------------------------------------------------//

STATIC FUNCTION ChkCli(clCod,oGt1)

Clien01i->(DBSETORDER(1))

clCod := STRZERO(VAL(clCod),4)

IF clCod == "0000"

MsgStop(OemToAnsi("Inv lido c¢digo zero"),OemToAnsi("Aten‡Æo"))

Clien01i->(DBSETORDER(1))

Clien01i->(DBGOBOTTOM())

clCod := STRZERO(VAL(Clien01i->CodClie1)+1,4)

RETURN .F.

ELSEIF Clien01i->(DBSEEK(clCod))

MsgStop(OemToAnsi("C¢digo j  cadastrado"),OemToAnsi("Aten‡Æo"))

Clien01i->(DBSETORDER(1))

Clien01i->(DBGOBOTTOM())

clCod := STRZERO(VAL(Clien01i->CodClie1)+1,4)

RETURN .F.

ENDIF

oGt1:Disable()

RETURN .T.

//---------------------------------------------------------------------------//

STATIC FUNCTION ApagaCli( oDlg, oLbx )

/*

IF MsgNoYes( OemToAnsi( "Aten‡Æo :" ) + CRLF+CRLF+ ;

OemToAnsi( "Vocˆ est  certo em " + ;

"querer apagar este Cliente ?" )+CRLF+CRLF+ ;

OemToAnsi( "C¢digo : " + Clien01i->CodClie1 )+CRLF+ ;

"Nome : " + Clien01i->NomClie1, ;

"C u i d a d o !" ) = .T.

IF RLOCK()

DELETE

dbunlock()

ELSE

MsgInfo(OemToAnsi("Registro em uso por outra esta‡Æo de trabalho","Erro de exclusão em rede"))

ENDIF

ENDIF

*/

MsgInfo(OemToAnsi("NÆo permitido excluir um clientes","Erro"))

Clien01i->(DBSETORDER(nlIndi));Clien01i->(DBGOTOP());oLbx:GoTop();oLbx:Refresh()

oDlg:Update()

RETURN NIL

//---------------------------------------------------------------------------//

STATIC FUNCTION ChecaCnpj(clCgc,clPes,clCod)

LOCAL llOk := .T., nlRec := Clien01i->(RECNO())

IF EMPTY(clCgc)

RETURN .T.

ENDIF

llOk := VerCicCgc(clCgc,1)

IF !llOk

llOk := VerCicCgc(clCgc,2)

ENDIF

IF !llOk

IF LEFT(clPes,1) == "F"

MsgAlert(OemToAnsi('O n£mero do CPF informado est  ERRADO'),'Atenção' )

ELSE

MsgAlert(OemToAnsi('O n£mero do CNPJ informado est  ERRADO'),'Atenção' )

ENDIF

clCgc := SPACE(14)

RETURN .F.

ENDIF

Clien01i-&gt

[AVInfo Sistemas]

William, tentei gerar a Lib mas não consegui, como faço para que esse comando "make -f lib_fwxh.mak" que vc me passou funcione ? è necessário alguma pré configuração ? Desculpe se a pergunta parecer meio tosca mas é q estou começando com FiveWin.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

existe alguma luz no fim do túnel pra mim ??? rssss ...

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[william]

Sdinfo , sempre existe uma luz no final do tunel !

Ao descompactar o wbrowse8.zip que eu postei em dicas , verifique na pasta que esta o LIB_FWXH.MAK e pelo MS-DOS digite a linha de comando MAKE -F LIB_FWXH.MAK que vai ser gerada a lib. Lembre-se que o padrao é o fivewin estar instalado em c:\FWH e o xharbour em c:\xharbour e o bcc em c:\bcc55 . O make.exe esta dentro do c:\bcc55\bin

apos executar , a lib deve ser gerada na pasta LIB

Boa sorte

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0