AVInfo Sistemas

citação:esse é o arquivo de projeto seu, exemplo se vc salvou seu projeto como vendas.xdev, é esse arquivo que guarda a lista de libs de prg a serem compilados. qualquer coisa me add ai no msn msn ou skype que agente faz uma forca pra resolver. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 id=quote>id=quote>Gilmar t mandei um e-mail pra q eu possa t adicionar no MSN ou no SKype ... Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

citação:de uma comparada com esse meu arquivo xdev pra ve se ajuda. uso FWH 10.8+BCC5.82 E SQLLIB NESSE PROJETO. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 14/12/2010 13:02:36 id=quote>id=quote>amigão me diz ae como eu gero esse arquivo de configuração no xDev ? Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Olha gente, fiz o seguinte com o meu projeto. Anteriormente eu tinha as libs sqllib_xHB_121.lib e libMysql.lib adicionadas diretamente ao meu projeto. Resolvi tirá-las já que o diretório do XHarbour\lib onde estão essa libs já estava linkado. Bom alterei algumas configurações no xDev como: Libs Customizadas = não SQLLib antes do FW = sim RDDSqllib = sim Agora ocorre apenas 1 erro, segue o log 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.8.2 & FW 10.10 PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10 INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib Variaveis de Ambiente: PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include;P:\xHarbour12.1\include;P:\NovoMedc\include;P:\NovoMedc\\bcc582\include;P:\NovoMedc\fwh\include; LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib;P:\xHarbour12.1\lib;P:\FWH10.10\lib; Executando: ILINK32 @B32.BC Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_hb_set' referenced from P:\XHARBOUR12.1\LIB\SQLLIB_XHB_121.LIB|sqllib_api 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 id=code>id=code>Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

citação:IRMAO PARECE SER ERRO DE CONFIG DO PROJETO NA XDEV, ONDE VC ESCOLHE LIBS CUSTOMIZADAS IGUAL=SIM. TIVE ESSE TIPO DE PROBLEMA COM A SQLRDD ONDE SO OCORRIA QUANDO VC ESCOLHIA PARA SER LIB CUSTOMIZADA, DE UMA OLHA AI. PRA EVITAR ESSES TIPOS DE ERROS, PEGUE UM .BAT E DA PASTA SAMPLES DO FIVEWIN E COMPARE AS LIBS, DEPOIS VC ADICIONA AS DA SQLLIB, PQ FIZ TESTES COM A SQLLIB E FUNCIONA PERFEITAMENTE. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 id=quote>id=quote>Companheiro ... vc pode ser um pouco mais específico ? Como eu disse ainda sou iniciante, c puder ser um pouco mais detalhista eu agradeço ... Obrigado desde já. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

citação:Caro Amigo, Vc esta linkando a sqllib junto? Parece ser a falta da lib, e ela deve vir antes da lib do fivewin. Daniel Segura id=quote>id=quote>Bom eu adicionei as libs do sqllib ao meu projeto. E quando vc diz linkar, se refere as configurações do compilador onde vc seta as pastas include, lib e etc necessárias para a compilação ? Se for isso, na lib, ele chama primeiramente o diretório lib do xharbour, onde encontram-se as libs do sqllib, antes do FW. Se não for isso por favor me diga como fazer ... Uso o xDev Studio. Obrigado. Xharbour 1.2.1 - Fw 10.10 - WS e Pelles tominem@hotmail.com

Estou precisando alterar a base de dados de um programa cujo fonte não é meu para SQL. Consequi gerar as tabelas a partir dos arquivos DBF no servidor MySQL, porém quando vou tentar compilar a aplicação com algumas alterações no .prg tenhu vários erros. Não tenhu nem base por onde começar para reolvê-los estou perdido já que sou iniciante no FW. Será que alguem pode me ajudar ?? Segue o log de 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.8.2 & FW 10.10 PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10 INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib Variaveis de Ambiente: PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include;P:\NovoMedc\include;P:\NovoMedc\\bcc582\include;P:\NovoMedc\fwh\include;P:\xHb121\include; LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib;P:\xHarbour12.1\lib; Executando: harbour.exe "P:\NovoMedc\CHECK.000" /q /o"P:\NovoMedc\CHECK.c" /M /N /P xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6717) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ CHECK.000(1364) Warning W0027 Meaningless use of expression: 'NIL' Executando: BCC32 -M -c @B32.BC Borland C++ 5.82 for Win32 Copyright © 1993, 2005 Borland CHECK.c: Executando: ILINK32 @B32.BC Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_hb_set' referenced from LIBS\SQLLIB_XHB_V1.2.1_REV.6406.LIB|sqllib_api Error: Unresolved external 'SQLAllocEnv' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLAllocConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExecDirect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDriverConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLAllocStmt' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDescribeCol' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLError' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPrepare' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeStmt' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDisconnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeEnv' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLNumResultCols' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFetch' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetInfo' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetConnectOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetStmtOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetConnectOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetStmtOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetCursorName' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetCursorName' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLRowCount' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLCancel' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLTransact' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetParam' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExecute' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLParamData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPutData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExtendedFetch' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetPos' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPrimaryKeys' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetDiagRec' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLStatistics' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLColumns' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSpecialColumns' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLTables' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X 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 id=code>id=code>link para download do .PRG caso precisem, segue: http://www.megaupload.com/?d=H6M6W7YS Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 14/12/2010 08:51:54

Estou precisando alterar a base de dados de um programa cujo fonte não é meu para SQL. Consequi gerar as tabelas a partir dos arquivos DBF no servidor MySQL, porém quando vou tentar compilar a aplicação com algumas alterações no .prg tenhu vários erros. Não tenhu nem base por onde começar para reolvê-los estou perdido já que sou iniciante no FW. Será que alguem pode me ajudar ?? Segue o log de 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.8.2 & FW 10.10 PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10 INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib Variaveis de Ambiente: PATH ... P:\xHarbour12.1\bin;P:\bcc582\bin;P:\FWH10.10;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem INCLUDE. P:\xHarbour12.1\include;P:\bcc582\include;P:\FWH10.10\include;P:\bcc582\include;P:\FWH10.10\include;P:\NovoMedc\include;P:\NovoMedc\\bcc582\include;P:\NovoMedc\fwh\include;P:\xHb121\include; LIB .... P:\xHarbour12.1\lib;P:\bcc582\lib\psdk;P:\bcc582\lib;P:\bcc582\lib\psdk;P:\FWH10.10\lib;P:\xHarbour12.1\lib; Executando: harbour.exe "P:\NovoMedc\CHECK.000" /q /o"P:\NovoMedc\CHECK.c" /M /N /P xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6717) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ CHECK.000(1364) Warning W0027 Meaningless use of expression: 'NIL' Executando: BCC32 -M -c @B32.BC Borland C++ 5.82 for Win32 Copyright © 1993, 2005 Borland CHECK.c: Executando: ILINK32 @B32.BC Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_hb_set' referenced from LIBS\SQLLIB_XHB_V1.2.1_REV.6406.LIB|sqllib_api Error: Unresolved external 'SQLAllocEnv' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLAllocConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExecDirect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDriverConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLAllocStmt' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDescribeCol' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLError' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPrepare' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeStmt' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLDisconnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeConnect' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFreeEnv' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLNumResultCols' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLFetch' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetInfo' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetConnectOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetStmtOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetConnectOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetStmtOption' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetCursorName' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetCursorName' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLRowCount' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLCancel' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLTransact' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetParam' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExecute' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLParamData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPutData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLExtendedFetch' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSetPos' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLPrimaryKeys' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetDiagRec' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLStatistics' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLColumns' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLSpecialColumns' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLTables' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X Error: Unresolved external 'SQLGetData' referenced from P:\FWH10.10\LIB\FIVEHC.LIB|ODBC32X 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 id=code>id=code>link para download do .PRG caso precisem, segue: http://www.megaupload.com/?d=H6M6W7YS Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 14/12/2010 08:51:54

Opa Luiz. Mandei os arquivos no seu e-mail pra q dê uma olhada. Agradeço desde já a ajuda e desculpe não ter mandado antes, mas é q fiquei um tanto atarefado esse fds. Obrigado mais uma vez Luiz. Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

o efeito foi o mesmo de quando coloquei o refresh no on change Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

bom Willian, fiz o q me pediu, mas sem efeito, ao tirar o refresh do on change voltou como estava antes, com a wbrowse ficando negra. E verifiquei no meu resource e está como TWBrowse msm. Então persiste o problema. Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

tem ON CHANGE, Segue a linha como alterei com o oLbx:refresh() ao final da linha, e a piscada é só no Browse: id=code>id=code>Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com Editado por - sdinfo on 18/11/2010 10:33:36

Opa ... eu não tinha visto a dica do Willian, bom ela funcionou, mas eu achu q ainda não ficou legal, ele dá o refresh na tabela após as ações de teclado e navegando pela barra de rolagem só q ela dá uma piscada a cada evento, que fica muito evidente. Tem como diminuir o tempo dessas piscadas para que não fiquem tão aparentes, ou vou ter q me contentar com isso ??? Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

comentei e mesmo assim o problema persiste ... Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

então meus amigos o problema anterior foi resolvido .... a unica coisa agora pendente é o fato de q a wbrowse do Hernan dá um problema quando navego pela twbrowse com as teclas do teclado (para baixo e para cima) ou desloco a barra de rolagem da mesma, o restante das linhas ficam todas negras, inclusive o cabeçalho, ficando visível somente a linha selecionada e sempre uma acima, voltando a normal quando se clicka em uma coluna do cabeçalho. Alguém sabe me dizer o que pode ser isso ?? Segue Imagem: Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

Essa função é a função de alteração do cliente, identifiquei as linhas com erro, achu q são as linhas que criam as tabs. O q vcs sugerem para q funcione adequadamente ? As linhas encontradas estao com ### na frente para identificar ... 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 id=code>id=code>Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

função que cria a wbrowse no cadastro de clientes: segue 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 id=code>id=code>Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

Willian to tendo um problema que eu não tinha detectado antes. Na tabela da TWBrowse, quando tento navegar entre as linhas usando a tecla "seta pra baixo" no teclado ou simplesmente clicar na seta da barra de rolagem para deslocar as linhas para baixo, simplesmente as linhas e o cabeçalho ficam negros, ficando aparente somente duas linhas, a linha selecionada e uma acima dela, o q pode ser isso ??w Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

Willian muito obrigado pela ajuda. Funcionou perfeitamente a os arquivos que vc me mandou, porém o erro persiste. Deve ser algum problema no código em si e não com a wbrowse. De qualquer forma muito obrigado mesmo pela ajuda. Sem querer abusar da sua boa vontade, vc tem alguma idéia do q pode ser o meu problema ?? Só falta isso pra terminar a conversão da minha aplicação. Xharbour 1.2.1 - Fw 10.2 - WS e Pelles tominem@hotmail.com

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

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

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

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

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