pasim

Já foi... é só compilar e declarar o include no *.prg e no *.lnk (o corget.prg), simples assim... (só pra efeito de informação, foi o Kleiton que me passou tempos atrás) Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS/Fwh2.5/xHarbour 0.99.3(SimpLex)/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Volte atrás,sim, se for preciso. Com o erro não há compromisso." (Jucelino Kubistchek) Editado por - pasim on 02/08/2005 14:46:35

Foi pra conta Betão... Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS/Fwh2.5/xHarbour 0.99.3(SimpLex)/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Volte atrás,sim, se for preciso. Com o erro não há compromisso." (Jucelino Kubistchek)

E eu tmb... ehehehe... Foi pra conta José Carlos... jcleoner@msn.com Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS/Fwh2.5/xHarbour 0.99.3(SimpLex)/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Volte atrás,sim, se for preciso. Com o erro não há compromisso." (Jucelino Kubistchek) Editado por - pasim on 02/08/2005 14:31:04

Veja isto... http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3448&ARCHIVE=&whichpage=1 Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS/Fwh2.5/xHarbour 0.99.3(SimpLex)/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Volte atrás,sim, se for preciso. Com o erro não há compromisso." (Jucelino Kubistchek)

Pô Kapiaba, brigadaummm por lembrar de mim! Deixa eu entrar só pra mostra que os Paulo's estão por aqui tmb! Luiz (o Fernandes), da forma como o Paulo ( o Araujo) lhe falou funciona, pois faço exatamente assim, veja se você não está esquencendo de dar um refresh() no Objeto do total toda vez que alterar o valor... Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS/Fwh2.5/xharbour/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O melhor não é o que se tem, mas o que se busca!" (Petrônio) Editado por - pasim on 29/07/2005 13:44:56

. Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS Fwh2.5/xharbour/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O melhor não é o que se tem, mas o que se busca!" (Petrônio) Editado por - pasim on 14/07/2005 18:25:27

Olá Gilmer, quando compilo está dando um erro justamente aqui: DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" sintaxe error:"parse error at 'FUNCTION'" Paulo Simplicio Clipper 5.2e/lib Clipper 5.3b/FW2.4/WS Fwh2.5/xharbour/xMate pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O melhor não é o que se tem, mas o que se busca!" (Petrônio)

Será que é +- assim...????????? #include "FiveWin.ch" function main() ... Request DBFCDX RddSetDefault("DBFCDX") hBorland := LoadLibrary("BWCC32.DLL") BWCCRegister( GetResources() ) DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Bom dia amigos, será que alguém poderia postar aqui os passos para se iniciar um programa em FWH... Ficarei muito agradecido. Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Cristiano não sei pq o seu não funciona, eu acho que o Xará tem razão pois não coloco ";" ... eu coloco assim e funciona... //Define figura para área de trabalho DEFINE BITMAP oBmp FILE ("scvbtl.bmp") ADJUST oWnd:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitMap ) } Espero ter ajudado... Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Veja se as dll's estão no mesmo diretório do executável. Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Olá Marcelo, foi pra conta. Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Acessei este tópico e ele ficou sem solução. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3654 desculpe talvez não seja a mesma coisa. **************** Estou com este mesmo problema no listbox abaixo: REDEFINE Listbox lAux FIELDS PRODU->CODPR+'-'+PRODU->NOMPR+space(20),Trans(PRODU->SATPR,"@e 9999.99"),Trans(PRODU->VENPR,"@e 9,999.99"),Trans(PRODU->PRCP1,"@e 9999.99"),Trans(PRODU->PRCPR,"@e 9,999.99") HEADERS "Produto","Quant.","Venda","Custo","Custo NF" id 101 of T_AU6BA On Right Click LocaBalca(2) COLOR CLR_BLACK,nrgb(255,255,235) lAux:nClrPane := { || if(PRODU->(OrdKeyNo())%2=0, RGB( 182,218,218 ),RGB( 255,255,2552 ) ) } lAux:ajustify:={.f.,.t.,.t.,.t.,.t.} ACTIVATE Dialog T_AU6BA Centered Quero quero utilizar o scroll horizontal, mas quando aumento(estou colocando o space(20) para forçar o scroll horizontal) não faz o desejado. Uso WS, já marquei scroll horizontal e vertical. Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé) Editado por - pasim on 05/07/2005 13:25:05

Boa noite Vagner, fica frio tô só mantendo o tópico no top para quando acessares... tô no aguardo! Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Carlos faço assim: REDEFINE get oCai10 var troco picture '999,999.99' id 110; Of oDlg Font oTroc color CLR_BLACK,nrgb(255,255,235) When (.f.) Depois de calcular o preço não esqueça de dar o refresh() nos devidos get's. PS: Esta linha é só pra mostrar o valor do troco verifique se vc está passando pela rotina de calculo do troco, tipo colocando ums msginfo('passei aqui'). Espero ter ajudado Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé) Editado por - pasim on 27/06/2005 11:18:04 Editado por - pasim on 27/06/2005 11:19:42

Bom dia Vagner, tô no aguardo... Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé)

Na classe Tsbar que vem com vBarMeter do Vagner está dando o seguinte erro de compilação: Clipper ® 5.2e Copyright © 1985-1995, Computer Associates International, Inc. Microsoft C Floating Point Support Routines Copyright © Microsoft Corp 1984-1987. All Rights Reserved. 297K available Compiling TSBAR.PRG TSBAR.PRG(809) Error C2001 Syntax error: 'OINI' TSBAR.PRG(811) Error C2005 Statement not recognized, match failed at: 'SECTION' TSBAR.PRG(812) Error C2005 Statement not recognized, match failed at: 'SECTION' TSBAR.PRG(826) Error C2005 Statement not recognized, match failed at: 'SECTION' TSBAR.PRG(828) Error C2002 Incomplete statement or unbalanced delimiters 5 errors No code generated Alguém que use clipper e tenha essa classe compilando sem erro pode me enviar, ou me dizer o pq deste erro? Obrigado antecipadamente. Paulo Simplicio Clipper 5.2e/Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "Uma longa viagem começa com um único passo".(Lao-Tsé) Editado por - pasim on 25/06/2005 09:21:40

olbx:bKeyDown = { | nkey |If(nKey=13,SuaFunção()) } Tô chegando atrasado, tô pior que Rubinho "Pé de Chinelo"... Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho Editado por - pasim on 24/06/2005 13:39:32

citação: O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo AgostinhoMe engana ke eu gosto... Me coloca em casa com umas 3 MULATAS, pra ver quantas 'paginas' eu leio... hehehehehe. Mas santo é santo, não entende nada de páginas... Né? id=quote>id=quote>Kapiaba só vc para brincar com o pobre do Santo. eh,eh,eh. Ah! só pra efeito de informação Santo Agostinho está entre os maiores filósofos da história. Mas o meu problema continua, será que vou ter que apelar pro Santo, o ruim é que na época dele nem se pensava ainda em informática, escapavam no ábaco. Manda aí Kapiba! Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho

citação:Paulo, Boa Tarde Qual é o STACKSIZE que voce usa no LNK?? id=quote>id=quote>Xará, veja só: defbegin name FiveWin description 'Ca-Clipper for Windows library' exetype Windows 3.1 code preload moveable discardable data preload moveable stacksize 18500 heapsize 8192 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 citação:Action( Caiger(cItem), t:SetFocus() );Quem é "T"??? id=quote>id=quote>Olá meu mestre Kapiba, desculpe ter postado errado: é o oGet01, get inicial. Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho

Olá amigos, Quero aproveitar o tópico para também resolver um problema que estou tento na classe em questão. REDEFINE SBUTTON oBgrav ID 305 RESOURCE "ok1" OF oDlg ; FONT oFont PROMPT "&Grava" Action Caiger(cItem)t:SetFocus(); MESSAGE "Grava informações e volta para o get inicial" ; TOOLTIP "Grava Registro" ; LOOK W97 CANCEL Tá tudo bonitinho mas quando o foco vai para o botão em questão dá este erro: ERRORDIALO (0) Unrecoverable error 667: Eval stack fault ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 TSBUTTON:GETDLGCODE 1014 TSBUTTON:HANDLEEVEN 0000 TSBUTTON:HANDLEEVEN 1152 DIALOGBOXI 0000 TDIALOG:ACTIVATE 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 TSBUTTON:GOTFOCUS 1119 TSBUTTON:HANDLEEVEN 0000 TSBUTTON:HANDLEEVEN 1152 SETFOCUS 0000 TDIALOG:GONEXTCTRL 0000 TVGET:KEYCHAR 0758 TVGET:HANDLEEVEN 0000 DIALOGBOX 0000 TDIALOG:ACTIVATE 0000 CAIXAGERAL 3119 (b)RELPOP 1126 TMENU:COMMAND 0000 TWINDOW:COMMAND 0000 TWINDOW:HANDLEEVEN 0000 WINRUN 0000 TWINDOW:ACTIVATE 0000 MAIN 0394 Obs: Estou usando clipper5.2 com lib do clipper5.3b. Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho Editado por - pasim on 22/06/2005 15:06:16

citação:If MsgYesNo("Deseja Realmente Excluir ?" + chr(13) +;" " + chr(13) +; "Código.: " + CLIENTES->(STRZERO (CLICOD,06,0)) + " " + CLIENTES->CLINOM,; " ","Exclusão") RECLOCK() DELETE RECORD RECNO() FINALI() && Finaliza a Transa‡„o EndIf Ou seja gostaria que o foco ficasse no NÃO, pois ele está ficando no SIM id=quote>id=quote>Bom dia Márcio, é só inverter assim: If MsgNoYes("Deseja Realmente Excluir ?" Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho

Bom dia amigos... Estou tentando usar a Txtprev e não sei o que estou fazendo de errado pois segui o exemplo postado em dicas, se os amigos que a utilizam puderem me ajudar ficarei muito grato. Eis algumas questões: 1.Porque quando coloco o EJECT dá o seguinte erro? Application =========== Path and name: F:\APLS\FINANCA\SCVW.EXE (16 bits) Size: 2,314,816 bytes Max files handles permited: ( SetHandleCount() ) 255 Time from start: 0 hours 0 mins 20 secs Error ocurred at: 17/06/05, 10:04:39 Error description: Error Objects/8 No Object Msg.: LOGICAL:_EJECT Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from UNDEFINED:_EJECT(0) Called from CCRE66(1657) Called from (b)RELATORIO(2181) Called from (b)MSGRUN(0) Called from (b)TDIALOG(0) Called from TDIALOG:HANDLEEVEN(0) Called from DIALOGBOXI(0) Called from TDIALOG:ACTIVATE(0) Called from MSGRUN(0) Called from RELATORIO(2181) Called from (b)RELAT3(1628) Called from TBUTTON:CLICK(0) Called from TBUTTON:HANDLEEVEN(0) Called from SENDMESSAG(0) Called from TDIALOG:COMMAND(0) Called from TDIALOG:HANDLEEVEN(0) Called from DIALOGBOX(0) Called from TDIALOG:ACTIVATE(0) Called from RELAT3(1629) Called from (b)RELPOP(1206) Called from TMENU:COMMAND(0) Called from TWINDOW:COMMAND(0) Called from TWINDOW:HANDLEEVEN(0) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(0) Called from MAIN(394) 2.Quando tiro o EJECT imprime, mas imprime 1ª linha do cabeçalho numa página, 2ª em outra e o corpo do relatório numa página só. 3.Tem como ao visualizar o relatório gera o arquivo em questão? 4.Abaixo está o dito cujo, é um relatório simples, sem mistério por favor me indiquem os erros que estou cometendo. local oPrn, cPorta, cFile, cTitulo SetMTxtPreview( .t., 5, 1, .f., .t. ) cPorta := "LPT1" cFile := "CLIENTES.PRN" nLin := 60 cTitulo := ttw lModal := .t. oPrn:= TDosPrn():New( cFile ) Pag = 0 Tob = 0 Sele CLIEN Go top If oRac = 1 Set Order To 2 If leIn # ' ' Set Filter To Upper(Substr(NOMCL,1,1)) >= Upper(leIn) .And. Upper(Substr(NOMCL,1,1)) <= Upper(leFi) endif Else Set Order to 1 If coIn # ' ' Set Filter To CODCL >= coIn .And. CODCL <= coFi Endif Endif begin sequence oPrn:StartPage() Do While .Not. Eof() If nLin > 55 oPrn:Command( oPrn:cNormal ) oPrn:Say( nLin, 00, PadC( cTitulo, 79 ) ) oPrn:Command( oPrn:cCompress ) Pag = Pag + 1 oPrn:say(001,125,'Linear') oPrn:say(001,001,NOMEST) oPrn:say(001,116,'Data :') oPrn:say(001,124,DATE()) oPrn:say(001,001,'Sistema Financeiro Integrado') oPrn:say(001,116,'Hora :') oPrn:say(001,124,TIME()) oPrn:say(002,001,Ttw) oPrn:say(002,115,'Folha :') oPrn:say(002,126,Strzero(Pag,6,0)) oPrn:say(003,001,REPLICATE('=',131)) oPrn:say(004,001,'NOME DO CLIENTE ENDERECO CPF') oPrn:say(005,001,REPLICATE('-',131)) nLin = 7 Sele CLIEN Endif oPrn:say(nLin,001,CODCL+'-'+NOMCL) oPrn:say(nLin,059,ENDCL) oPrn:say(nLin,120,CICCL) Sele CLIEN Tob = Tob + 1 nLin = nLin + 1 DbSkip() If Eof() Exit Endif Enddo EJECT oPrn:EndPage() oPrn:End() End Sequence oPrn:say(nLin,001,REPLICATE('-',131)) nLin = nLin + 1 oPrn:say(nLin,001,'Total :') oPrn:say(nLin,020,Trans(Tob,"@e 99,999.99")) TxtPreview( cFile, cTitulo, lModal,,, oPrn ) Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho

citação:oValue:nclrpane:={||iif(oValue:nAt % 2 <> 0, nrgb(255,255,255), nrgb(255,255,245))} id=quote>id=quote> citação:lbox:nClrPane := {||if(empre->(OrdKeyNo())%2==0,RGB(182,218,218),RGB(255,255,255))} id=quote>id=quote>Vagner, por favor me explique a diferença entre estes dois exemplos, pois no primeiro não está sendo usado o alias? Eu troquei o segundo pelo primeiro e deu na mesma,(ou melhor na mesma não pois são cores diferentes, o mesmo resultado) será que o segundo está condicionado ao banco de dados e primeiro não? Diga aí mestre. Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho Editado por - pasim on 14/06/2005 10:41:22

Bom dia Rossine! citação:REDEFINE Listbox lBox Fields FORNE->NOMCL,FORNE->CGCCL Headers "Fornecedor","CNPJ/CPF" Id 121 On DblClick SUAFUNCAO()id=quote>id=quote> citação:oLbx:bLDblClick := { |nrow,ncol| SUA_FUNCAO(nrow,ncol) }id=quote>id=quote>Tem diferença entre as duas formas? Paulo Simplicio Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho Editado por - pasim on 13/06/2005 09:26:18