FLAVIOF2

Grande Gilson, Baixe a dica do Elias em: http://www.fivewin.com.br/exibedicas.asp?id=314 Abraços. FLAVIO ITUIUTABA - MG

Percebi o seguinte: Se tiro a ctl3d.lib o erro para. Mas as telas do sistema ficam bem pequenas. A lib que tenho baixei do dbwide. Sera que preciso de outra versão ? FLAVIO

Kapiaba, se for possivel eu queriaseu email particular para te mandar todo meu sistema pra voce me dar uma ajuda com o erro do MOUSEWHELL. Mesmo depois de todos os ajustes que fiz, continua dando erro se pressiono o botao de scrool do mouse. Nao importa o lugar. Muda apenas a classe ora é TSAY:MOUSE... ora TMDICLIENTE:MOUSE.. Abraços. FLAVIO - F2INFO@MGT.COM.BR

Fiz o teste. Retornou o banco de dados correto. Flavio

Kapiaba, Bom dia ! Não é array. Como disse em qualquer lugar do sistema que eu clico no scrool do mouse dá esse erro. Muda de TLISTBOX: PARA TSAY: mas o MOUSEWHELL esta sempre presente. O codigo abaixo é executado antes mesmo de se criar a janela principal. O erro segue mais abaixo. Obrigado. FLAVIO FUNCTION SENHA(ntentativas) local oUsuario:={}, oRetorna:=NIL, oBotao:=.F. LOCAL oDlg, cSenha:=space(5), oNome, cNome:="" local oBtnCon, oBtnCan GO TOP AADD(oUsuario," ") DO WHIL .NOT. EOF() AADD(oUsuario,USUARIO->NOME) SKIP ENDDO DEFINE DIALOG ODLG RESOURCE "SENHA" COLOR RGB(192,192,192),RGB(136,192,184) REDEFINE BITMAP FILENAME "LOGOF2.BMP" ID 230 OF oDlg ADJUST REDEFINE SAY ID 10 OF ODLG COLOR RGB(000,000,128),RGB(136,192,184) REDEFINE SAY ID 20 OF ODLG COLOR RGB(000,000,128),RGB(136,192,184) REDEFINE COMBOBOX oNome VAR cNome ITEMS oUsuario ID 110 OF oDlg REDEFINE GET cSenha ID 120 OF ODLG REDEFINE SBUTTON oBtnCon ID 400 RESOURCE "B_OK" PROMPT "&Continuar" OF oDlg ACTION(oBotao:=.T.,ODLG:END()) REDEFINE SBUTTON oBtnCan ID 500 resource "B_CAN" PROMPT "C&ancelar " OF oDlg ACTION(oBotao:=.T.,ODLG:END()) ACTIVATE DIALOG ODlg CENTERED IF oBotao .and. !empty(cNome) .and. !empty(cSenha) SET EXACT ON cnome := oemtoansi(cnome) dbseek(cnome) IF USUARIO->SENHA=ALLTRIM(CSENHA) oRetorna:=.t. else MsgAlert( "Voce tem mais "+str(ntentativas,1,0)+" tentativas !",OemToAnsi("Atencao ! Senha Incorreta.")) oRetorna:=.f. endif endif SET EXACT OFF RETURN(oRetorna) Application =========== Path and name: D:\PRUDENTE\TEGGO.dwd (16 bits) Size: 0 bytes Max files handles permited: ( SetHandleCount() ) 200 Time from start: 0 hours 0 mins 1 secs Error occurred at: 09/06/2005, 08:53:22 Error description: Error Objects/6 No Exp. Method: TSAY:MOUSEWHEEL Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TSAY:MOUSEWHEEL(0) Called from TSAY:HANDLEEVEN(0) Called from TSAY:HANDLEEVEN(0) Called from DIALOGBOX(0) Called from TDIALOG:ACTIVATE(0) Called from SENHA(108) Called from MAIN(76) System ====== CPU type: Pentium Hardware memory: 224 megs Free System resources: 70 % GDI resources: 90 % User resources: 70 % Compiler version: Clipper ® 5.3 Intl. Windows and MsDos versions: 3.95, 7.10 Windows total applications running: 36 1 C:\WINDOWS\EXPLORER.EXE 2 C:\WINDOWS\SYSTEM\USER.EXE 3 C:\WINDOWS\SYSTEM\BROWSEUI.DLL 4 C:\ARQUIV~1\ALWILS~1\AVAST4\AAVM4H.DLL 5 C:\WINDOWS\SYSTEM\COMCTL32.DLL 6 D:\PRUDENTE\TEGGO.dwd 7 C:\WINDOWS\SYSTEM\OLE32.DLL 8 C:\WINDOWS\SYSTEM\WINOA386.MOD 9 C:\WINDOWS\NOTEPAD.EXE 10 C:\WINDOWS\SYSTEM\MSHTML.DLL 11 C:\WINDOWS\SYSTEM\URLMON.DLL 12 C:\WINDOWS\SYSTEM\DDEML.DLL 13 C:\ARQUIV~1\ALWILS~1\AVAST4\ASHSERV.EXE 14 C:\ARQUIV~1\ALWILS~1\AVAST4\ASWMON9X.DLL 15 C:\WINDOWS\SYSTEM\RPCRT4.DLL 16 C:\WINDOWS\SYSTEM\SENS.DLL 17 C:\WINDOWS\SYSTEM\RNAAPP.EXE 18 C:\ARQUIV~1\ALWILS~1\AVAST4\ASHMAISV.EXE 19 C:\WINDOWS\SYSTEM\UNIMDM.TSP 20 C:\WINDOWS\SYSTEM\WAN.TSP 21 C:\WINDOWS\SYSTEM\TSP3216L.TSP 22 C:\WINDOWS\SYSTEM\SYSTRAY.EXE 23 C:\WINDOWS\SYSTEM\STIMON.EXE 24 C:\WINDOWS\LOADQM.EXE 25 C:\WINDOWS\PTSNOOP.EXE 26 C:\WINDOWS\TASKMON.EXE 27 C:\WINDOWS\SYSTEM\SHLWAPI.DLL 28 C:\WINDOWS\SYSTEM\MSTASK.EXE 29 C:\WINDOWS\SYSTEM\MMSYSTEM.DLL 30 C:\WINDOWS\SYSTEM\KB891711\KB891711.EXE 31 C:\WINDOWS\SYSTEM\MSGSRV32.EXE 32 C:\WINDOWS\SYSTEM\WEBCHECK.DLL 33 C:\WINDOWS\SYSTEM\TAPISRV.EXE 34 C:\WINDOWS\SYSTEM\TAPI32.DLL 35 C:\ARQUIV~1\ADOBE\ACROBA~1.0\READER\ACTIVEX\ACROIE~1.DLL 36 C:\WINDOWS\SYSTEM\SHDOC401.DLL Variables in use ================ Procedure Type Value ========================== LOCKERRHAN Param 1: O Class: ERROR Param 2: B { || ... } CodeBlock (b)INITHANDL$ Param 1: O Class: ERROR TSAY:MOUSEWHEEL Param 1: N 0 Param 2: N 0 Param 3: N 385 Param 4: N 329 TSAY:HANDLEEVEN Param 1: N 522 Param 2: N 0 Param 3: N 21561729 TSAY:HANDLEEVEN Param 1: N 522 Param 2: N 0 Param 3: N 21561729 Local 1: O Class: TSAY DIALOGBOX Param 1: N 20846 Param 2: C "SENHA" Param 3: N 0 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .T. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Local 1: O Class: TDIALOG Local 2: N 0 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG SENHA Param 1: N 2 Local 1: A Len: 4 Local 2: U Local 3: L .F. Local 4: O Class: TDIALOG Local 5: C " " Local 6: O Class: TCOMBOBOX Local 7: C "" Local 8: O Class: TSBUTTON Local 9: O Class: TSBUTTON MAIN Local 1: L .F. Local 2: N 0 Local 3: U Local 4: U Local 5: U Local 6: U Local 7: U Local 8: U Local 9: U Linked RDDs =========== DBF DBFNTX _DBFCDX DBFCDX DataBases in use ================ 1: => USUARIO RddName: _DBFCDX ============================== RecNo RecCount BOF EOF 4 3 .F. .T. Indexes in use TagName => oemtoansi(USUARIO->NOME) NOME Relations in use Classes in use: =============== 1 TDATABASE 2 TWINDOW 3 TDIALOG 4 TBRUSH 5 TCONTROL 6 TBITMAP 7 TSAY 8 TCOMBOBOX 9 TGET 10 GET 11 TSBUTTON 12 ERROR 13 TFONT 14 TSTRUCT Memory Analysis =============== Static memory: data segment: 64k Initial size: 51328 bytes (SYMP=1208, Stack=15500, Heap=8540) PRG Stack: 13997 bytes 15 Static variables: 210 bytes Dynamic memory consume: Actual Value: 409286 bytes Highest Value: 561862 bytes

Turma, Em qualquer local do sistema que eu clico ou rolo o scrool do mouse aparece o erro acima, exceto dentro do browse. Tem como parar com esse erro ? FLAVIO SANTOS ITUIUTABA - MG

Estou usando dll no meu sistema. Alem de compilar junto, qual a vantagem do arquivo .rc Como converter a dll para rc. Tentei salvar como, mas na hora de compilar da erro. Valeu. FLAVIO

Kapiaba, Tirei a barra de mensagens com meter que o Vagner fez, e parou com o erro na window. De qualquer forma o estranho é que de manhã tava legalzinho. Poderia me mandar sua fwctrls.dll por favor para eu fazer um teste aqui. Obrigado Por tudo. FLAVIO - f2info@mgt.com.br ITUIUTABA - MG

Inclua um VALID (lsair) depois do seu activate dialog Crie a variavel como .f. e só passe para .t. quando clicar no botao de sair. FLAVIO SANTOS ITUIUTABA - MG

Kapiaba, Nao achei a vmw.obj e nem a ctl3d.lib compilei e linkei com os ajustes usando o blinker 7 e aquele erro da windows continua. Se tiver mais alguma sugestão, agradeço. FLAVIO

Eu faço assim. Inclua o image.ch e use da seguinte forma: if file(nArqlogo) @ nLinlogo, nCollogo IMAGE oImage SIZE 799, 201 OF OWND:oWndClient NOBORDER oImage:Progress( .f. ) oImage:LoadBmp( nArqlogo ) endif FLAVIO SANTOS ITUIUTABA - MG

Estou usando dll. Segue o arquivo.lnk blinker incremental off blinker clipper symbol off BLINKER EXECUTABLE CLIPPER=//F:145 //SwapPath:"c:\windows\temp" //Swapk:65535 //Dynf:8 //TempPath:"c:\windows\temp" BLINKER EXECUTABLE COMPRESS nobell packcode packdata nodeflib File teggo, estoque, funcoes, relcli, empresas, relfor, pagar, relFLU File tdosprn, relpag, receber, relrec, relest,grafico, tgraph, RELCAI, relcom file txtprev, modulo, movent, relent, movsai, relsai, reltit, caixa, relcen file predat, relpre, Funcio, relinv, CRIACDX, BANCO, CONTA, centro file relani, servico, moviment, movser, confet, etiqueta, depende file agenda, tvget, vbtnbmp, BACKGRND, procedi, tabela, profi file TMsgItem, MsgBar, TsBar, dsay, ssay, grupos DEFBEGIN name FiveWin description 'Clipper for Windows library' exetype Windows code moveable discardable preload data preload moveable stacksize 12500 heapsize 4096 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND file \fw23\classes\alloc.obj file \fw23\classes\mpar.obj file msgtools lib folder.LIB Lib SButton lib \tsbrowse\lib\Sbrowse.lib lib btnget.lib lib \FW23\LIB\five.lib lib \FW23\LIB\fivec.lib lib \FW23\LIB\objects.lib lib \FW23\LIB\winapi.lib lib dbuttons.lib lib \clip53w\lib\clipper.lib lib \clip53w\lib\extend.lib lib \clip53w\lib\dbfcdx.lib lib \clip53w\lib\_dbfcdx.lib lib \clip53w\lib\dbfntx.lib lib \clip53w\lib\terminal.lib

Pessoal, Relatei a alguns dias o problema do Cannot Create dialog Box. Mudei o arquivo fwcrtls.dll e funcionou. Hoje tive que voltar pra outra versao pois meu bitmap nao esta deixando criar outra dialog. Agora a tarde nao consigo criar a janela principal do sistema. O erro segue abaixo, se puderem me ajudar agradeço. De manhã tava tudo legal. Application =========== Path and name: D:\PRUDENTE\TEGGO.EXE (16 bits) Size: 710,080 bytes Max files handles permited: ( SetHandleCount() ) 200 Time from start: 0 hours 0 mins 2 secs Error occurred at: 08/06/2005, 13:40:50 Error description: Error FiveWin/6 Cannot create window or control: Class: TMDIFRAME Caption: Controle de Convênios PRUDENTE 1.0 Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from WNDCREATEE(0) Called from TMDIFRAME:CREATE(0) Called from TMDIFRAME:NEW(0) Called from MAIN(125) System ====== CPU type: Pentium Hardware memory: 224 megs Free System resources: 66 % GDI resources: 74 % User resources: 66 % Compiler version: Clipper ® 5.3 Intl. Windows and MsDos versions: 3.95, 7.10 Windows total applications running: 34 1 C:\WINDOWS\EXPLORER.EXE 2 C:\ARQUIVOS DE PROGRAMAS\MSN MESSENGER\MSNMSGR.EXE 3 C:\WINDOWS\SYSTEM\BROWSEUI.DLL 4 C:\WINDOWS\SYSTEM\user.exe 5 C:\WINDOWS\SYSTEM\SHLWAPI.DLL 6 C:\WINDOWS\SYSTEM\COMCTL32.DLL 7 C:\ARQUIVOS DE PROGRAMAS\ALWIL SOFTWARE\AVAST4\AAVM4H.DLL 8 C:\WINDOWS\SYSTEM\WINOA386.MOD 9 C:\WORKSHOP\WORKSHOP.EXE 10 C:\WINDOWS\SYSTEM\URLMON.DLL 11 C:\WINDOWS\SYSTEM\SENS.DLL 12 C:\WINDOWS\SYSTEM\RPCRT4.DLL 13 C:\WINDOWS\SYSTEM\OLE32.DLL 14 C:\WINDOWS\SYSTEM\RNAAPP.EXE 15 C:\WINDOWS\SYSTEM\UNIMDM.TSP 16 C:\WINDOWS\SYSTEM\WAN.TSP 17 C:\WINDOWS\SYSTEM\TSP3216L.TSP 18 C:\WINDOWS\LOADQM.EXE 19 C:\WINDOWS\ptsnoop.exe 20 C:\WINDOWS\SYSTEM\SYSTRAY.EXE 21 C:\WINDOWS\TASKMON.EXE 22 C:\WINDOWS\SYSTEM\DDEML.DLL 23 C:\ARQUIVOS DE PROGRAMAS\ALWIL SOFTWARE\AVAST4\ASHSERV.EXE 24 C:\ARQUIVOS DE PROGRAMAS\ALWIL SOFTWARE\AVAST4\ASWMON9X.DLL 25 C:\WINDOWS\SYSTEM\MSTASK.EXE 26 C:\WINDOWS\SYSTEM\KB891711\KB891711.EXE 27 C:\WINDOWS\SYSTEM\mmsystem.dll 28 C:\WINDOWS\SYSTEM\MSGSRV32.EXE 29 C:\WINDOWS\SYSTEM\WEBCHECK.DLL 30 C:\WINDOWS\SYSTEM\STIMON.EXE 31 C:\WINDOWS\SYSTEM\TAPISRV.EXE 32 C:\WINDOWS\SYSTEM\TAPI32.DLL 33 C:\ARQUIVOS DE PROGRAMAS\ALWIL SOFTWARE\AVAST4\ASHMAISV.EXE 34 C:\WINDOWS\SYSTEM\SHDOC401.DLL Variables in use ================ Procedure Type Value ========================== LOCKERRHAN Param 1: O Class: ERROR Param 2: B { || ... } CodeBlock (b)INITHANDL$ Param 1: O Class: ERROR WNDCREATEE Param 1: O Class: TMDIFRAME Local 1: C " Class: TMDIFRAME Caption: Controle de Convênios PRUDENTE 1.0 " TMDIFRAME:CREATE Local 1: C "TMDIFRAME" Local 2: O Class: TMDIFRAME TMDIFRAME:NEW Param 1: U Param 2: U Param 3: U Param 4: U Param 5: C "Controle de Convênios PRUDENTE 1.0 " Param 6: N 47120384 Param 7: O Class: TMENU Param 8: U Param 9: O Class: TICON Param 10: N 16777215 Param 11: N 16777215 Param 12: L .F. Param 13: L .F. Param 14: N 3 Param 15: U Param 16: U Param 17: L .F. Local 1: O Class: TMDIFRAME MAIN Local 1: L .T. Local 2: N 0 Local 3: O Class: TFONT Local 4: U Local 5: U Local 6: N 7 Local 7: N 0 Local 8: U Local 9: N 192223491 Local 10: U Local 11: U Linked RDDs =========== DBF DBFNTX _DBFCDX DBFCDX DataBases in use ================ Classes in use: =============== 1 TDATABASE 2 TWINDOW 3 TDIALOG 4 TBRUSH 5 TCONTROL 6 TBITMAP 7 TSAY 8 TCOMBOBOX 9 TGET 10 GET 11 TSBUTTON 12 ERROR 13 TFONT 14 TTIMER 15 TICON 16 TMDIFRAME 17 TMENU 18 TMENUITEM 19 TSTRUCT Memory Analysis =============== Static memory: data segment: 64k Initial size: 39008 bytes (SYMP=1216, Stack=12500, Heap=4100) PRG Stack: 26345 bytes 13 Static variables: 182 bytes Dynamic memory consume: Actual Value: 547590 bytes Highest Value: 566022 bytes

Mandei pro seu email Abracos, FLAVIO SANTOS ITUIUTABA - MG

Use a opção Set Order do WS ou aquele botao 1,2. Va clicando na ordem que voce desejar. Abracos, FLAVIO SANTOS ITUIUTABA - MG

Kapiaba, Realmente é na tsbrowse que o erro esta ocorrendo. Se a tiro da dll funciona. O estranho é que ainda nem fiz referencia e ela dentro do sistema, existe apenas na dll. E tá como tsbrowse mesmo. Mais estranho é que nos outros modulos do sistema está legal. Sera problema no WS The Best ! FLAVIO ITUIUTABA - MG

Pessoal, Em apenas um modulo do meu sistema, esta mensagem aparece. Se estou com o ws aberto nao da o erro. Verifiquei os controles e nao tem nenhum da borland na dialog. Isso tambem acontece quando quero usar o dinamic say, com o controle generic do ws. Qualquer ajuda sera bem vinda. FLAVIO SANTOS ITUIUTABA - MG

Baixe ai. Junto tem o testbar.prg que serve como exemplo. É muito boa. http://www.fivewin.com.br/exibedicas.asp?id=306 FLAVIO SANTOS] ITUIUTABA - MG

Pessoal, Nao to conseguindo colocar os sbutton na barra usando resource. O primeiro fica legal mas os demais se truncam. Alguem sabe porque ? Mesmo usando o testbar.prg, acrescentando uma dll e usando resource nao funciona. Abraços FLAVIO SANTOS

Valeu Paulo; Funcionou assim: oGets[3]:bGotFocus = { || oGets[3]:Setpos( 4 ) } Obrigado. FLAVIO SANTOS ITUIUTABA - MG

Pessoal, tenho um campo codigo que tem seis digitos. Quando vou entrar nele, ele ja tera´ os tres primeiros digitos preenchidos. como fazer para o cursor ja iniciar na posicao correta do get, ou seja na quarta posicao. Obrigado a todos. FLAVIO SANTOS ITUIUTABA - MG

Melhor usar o Wordpad.exe se o relatorio for grande. A desvantagem quanto a txtpreview do Ednaldo é que os caracteres de formatação ficam aparecendo na tela. Flavio

Caros amigos, como relatei anteriormente eu usava uma Tdos modificada pelo Ednaldo. Ela tinha um parametro para informar se chamaria ou não a txtpreview do mesmo. Pois bem. Sem explicação parou de funcionar. Baixei a versão da seção dicas e resolveu meu problema com a impressão. O que ocorre é que em alguns relatorios, mesmo eu colocando: IF tempreview txtpreview(cfile) endif me mostra um arquivo vazio. O curioso é que se alterno para o prompt e edito o arquivo test.prn, o relatorio está lá. Pior ainda é que funciona em alguns e em outros não e não consigo achar o que ocorre. Se puderem me ajudar mais uma vez fico grato. Postei os prgs no grupo de noticias. Abraços FLAVIO

Kapiana. Com a tdosprn modificada que esta na seção dicas, funciona sem erro algum. O que reparei e que ela nao tem a parte da chamada da txtpreview, para mostrar o relatorio no video. Se tiver como fazer esta modificacao, ou se voce usa o video de outra maneira me avisa. Mandei a minha versao da tdos para sua caixa. Obrigado FLAVIO SANTOS

O erro ocorre quando dou ok para o relatorio. A if oK oPrn:= TDosPrn():New( "LPT1","",.F.,.F.,"EPSON") oPrn:StartPage() cFormfeed:=NIL ... Uso assim há tempos. Só agora comecou o problema. Acho que deve ser alguma coisa com o win98. Se tiverem uma versao mais nova da tdos. Me mandem. Obrigado. FLAVIO