pasim

on dblclick suafuncao() Paulo Simplicio "O mundo é um livro, e quem fica sentado em casa lê somente uma página." Santo Agostinho Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Lia eu faço assim para abri a minha serial e funciona bacana obteve sucesso... tente e vai ver que funciona. local cDcb, nBytes local nError local quant,ini, nComm,Serial serial = "1" nComm := OpenComm("COM"+serial, 1024, 128) if BuildCommDcb("COM"+serial+":9600,n,8,1", @cDcb ) if !SetCommState(cDcb) msginfo('Erro ao abrir porta serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(13))) < 0 msginfo('Erro ao gravar comando 13 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(29))) < 0 msginfo('Erro ao gravar comando 29 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(5))) < 0 msginfo('Erro ao gravar comando 5 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if FlushComm(nComm,0 ) != 0 msginfo('Erro ao fixar gravação na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif msginfo('Porta serial '+serial+' conectada com sucesso','Atenção') else msginfo('Porta serial não conectada','Atenção') CloseComm(nComm) return .f. endif Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 10/06/2005 18:41:46

Bom dia amigos! Bem peguei este exemplo: http://www.fivewin.com.br/exibedicas.asp?id=473 e funcionou bonitinho, apenas com um detalhe tinha uma busca de código assim: redefine get oget01 var cod id 101 of ofol:adialogs[1] picture '@k!!!!!!' when inn valid(locakey(2,cod,0)) color CLR_BLACK,nrgb(255,255,235) redefine btnbmp obcc resource "interroga" id 301 of ofol:adialogs[1] action consc() tooltip "Procura de Clientes" Este Redefine btnbmp acionava a funcao consc(), agora só aciona quando já validei o cliente, pergunta-se: Será que tem haver com as modificações que coloquei? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Bom dia! Como faço para identificar em tempo de execução qual sistema operacional está instalado no meu micro? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Olá Aldreks, estava com este problema tmb, isto dá quando tenho muitos includes no fonte, uma solução que o Marcelo Gomes me indicou: trocar somente o executável do clipper5.3b para o do clipper5.2e funcionou e até o momento não deu mais problema, ou verificar se tens algun include que não está usando e comentá-lo. Desculpe pela minha intromissão pois o tópico era pro Kapiaba, mas espero ter ajudado. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 01/06/2005 09:53:07

ALGUÉM PODE ME EXPLICAR COMO TRATAR ESTES ARQUIVOS É QUE HUMILDEMENTE FALANDO: NÃO SEI COMO LIDAR COM ELES E FICO BOIANDO NA HORA DE COMPILAR E LINKEDITAR OS EXEMPLOS. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

POR FAVOR ALGUÉM PODE ME DAR UMA EXPLICADA SOBRE ARQUIVOS .RC E ARQUIVOS .RMK. É QUE EM ALGUNS EXEMPLOS VÊM ESTES ARQUIVOS E COMO NÃO OS CONHEÇO E NÃO SEI TRATÃ-LOS FICO BOIANDO. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Define SButtonBar oBar Size 50,45 Of ownd Top 3D CorBar {nRgb(160,160,164),nRgb(192,192,192)} //{nRgb(248,211, 86),nRgb(132,112, 32)} Define SButton oBut1 resource "client2" Of oBar Message "Cadastro de cliente" NoBorder ToolTip "Cadastro de cliente" Color nRgb(0,0,0),{CLR_GRAY,CLR_WHITE,1} W97 action cada02() ... Define SButton oBut12 resource "exit" Of oBar Message "Sai do Sistema" NoBorder Group ToolTip "Sair do Sistema" Color nRgb(0,0,0),{nRgb(132,112, 32),nRgb(248,211, 86),1} W97 action iif( msgyesno( "Sai do sistema ?","Confirmação"),Ownd:end(),) Flávio eu faço como o exemplo acima e funciona normalmente... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 28/05/2005 10:02:09

Kapiaba meu Rei! (Não querendo plagiá-lo) Não entendi bulhufas de como compilar e linkar tudo aquilo. Na verdade gostaria de ver funcionando, mas confesso que não entendo desses build, comp, fazer o quê se sou um simples mortal no mundo Fivewin. (o detalhe é que já foi discutido essa forma de ajuda, pois muita gente não entende desses builds da vida) Meu Dinossauro do WS, poderia me mostrar um exemplinho que pudesse ser acompanhado pela minha humilde massa cinzenta! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 25/05/2005 10:06:34

O Homem é modesto mesmo... Valeu Kapiaba! Vou testar e com certeza reportarei. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Olá amigos, alguém poderia postar um exemplo desta classe para me ajudar, comecei a usá-la e estou perdidão... Kapiba mestre do WS, coloca um exemplo aí... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 24/05/2005 12:50:41

Se puder, mande pra mim tmb! Obrigado. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Veja se ajuda... http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3271 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=2974 Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 23/05/2005 10:22:53

Amigo Kapiaba eu uso assim... setkey(VK_F9,{|| waitrun( caixa(3) )}) omitir o nKey e estou uso waitrun...(assim me passaram) mas tá funcionando legal, vou ter problemas futuros??? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 19/05/2005 14:57:13

Oh! Paulo... chato que nada! já fiz do jeito que orientastes e ficou bacana! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Amigos, Obrigado a todos, fiz assim: STATIC FUNCTION Campomes( Mea ) IF Mea = ' / ' .or. (Empty(Substr(Mea,1,2))) .or. (Empty(Substr(Mea,4,2))) MsgStop( "Digite o mês e ano corretos!","Atenção") RETURN(.F.) ENDIF ...e retornou o resultado que eu queria. "Xará" vc tem razão vou melhorar se preciso... Valew a todos! Editado por - pasim on 19/05/2005 09:09:54

Amigos me ajudem nesta também. Coloquei a seguinte máscara picture "99/99" quero forçar o usuário digitar os números, ou seja não deixar sair do get se ele não digitar alguma coisa, parece pergunta boba, deve ser mesmo... para quem sabe! Já tentei de diversas formas e não consegui... Paulo.

Eu indexo da mesma forma e nunca deu erro: Poste o "error.log" se deu erro ele foi gerado no diretório do seu programa, assim ficará mais fácil... Editado por - pasim on 10/05/2005 18:28:34

Quando disse: citação:Valeu vagner, é uma pena, não sei qual a percentagem de quem usa só @say ou só WS na linguagem, mas quando existe algo só para uma delas, uma das partes lamentam, pois sua classes sempre deixam nossos sistemas mais atraentes e práticos. id=quote>id=quote>estava só realmente lamentando pelos que, como eu, usam WS e não podem usufruir das classes que infelizmente não o atendem, e o Vagner tem todo o direito de desenvolver classes para o seu próprio modo de trabalhar, mas se disponibiliza a classe desenvolvida para a comunidade não custa nada tentar atender ambas as partes. De qualquer forma ainda bem que ele ainda disponibiliza para a comunidade suas classes, acho que essa atitude só faz a linguagem crescer mais ainda. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Valeu vagner, é uma pena, não sei qual a percentagem de quem usa só @say ou só WS na linguagem, mas quando existe algo só para uma delas, uma das partes lamentam, pois sua classes sempre deixam nossos sistemas mais atraentes e práticos. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 07/05/2005 15:49:42 Editado por - pasim on 07/05/2005 16:07:13

Esta classe funciona com Workshop? você usa assim Carlos, pois na minha função não chamo este Id, ele está vido da Vdialog. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Vagner estou tentando usar a Vdialog e está dando o seguinte erro: Se além do Vagner que é o autor, alguém puder me ajudar fico agradecido... Olá... Consegui, "fuçando" percebi que não tinha colocado no meu lnk todas as informações necessárias... Mas na hora de entrar no sistema(abro uma dialog de seleção de empresa) : Application =========== Path and name: C:\LINEAR\SCV\SCVW.EXE (16 bits) Size: 2,143,744 bytes Max files handles permited: ( SetHandleCount() ) 255 Time from start: 0 hours 0 mins 4 secs Error ocurred at: 07/05/05, 15:16:17 Error description: Error FiveWin/1 Non defined Id: No: 103 Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TCABECA:INITIATE(0) Called from ASEND(0) Called from TVDIALOG:INITIATE(589) Called from TVDIALOG:HANDLEEVEN(0) Called from DIALOGBOX(0) Called from TVDIALOG:VACTIVATE(276) Called from SELFI(69) Called from DANGER(1031) Called from (b)MAIN(337) Called from TWINDOW:ACTIVATE(0) Called from MAIN(337) Será se é pq estou usando WS, só funciona com @say ? Estou fazendo assim: Define VDialog t_cadas resource "c_selec" of ownd Title "Selecionar Filiais" PosTitle 2 Color nRgb(0,0,0),nRgb(255,255,255) redefine listbox lbox fields empre->codem,empre->nomem,empre->cidem headers "Codigo","Filial","Cidade" id 101 of t_cadas on click locakey(0,empre->codem,0) color CLR_BLACK,nrgb(255,255,235) lbox:nClrPane := {||if(empre->(OrdKeyNo())%2==0,RGB(182,218,218),RGB(255,255,255))} lbox:BkeyDown:={|nKey|locakey(0,empre->codem,0)} lbox:nClrForeFocus:={||branco } // cor da letra barra ativa lbox:nClrBackFocus:={||azul } // cor do fundo barra ativa redefine get oget01 var nem id 102 of t_cadas when aex color CLR_BLACK,nrgb(255,255,235) redefine button obto id 1 of t_cadas when inc action criando() redefine button obtc id 2 of t_cadas when inc action volta(1) Activate VDialog t_cadas Center Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 07/05/2005 15:10:42 Editado por - pasim on 07/05/2005 15:17:56

Valeu Vagner! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Bom dia! Amigos... Tenho um campo para digitação de n° de contrato, e este contrato tem um formato padrão assim T9999F quero fazer uma máscara que impeça do usuário digitar errado... Ou seja, no lugar da letra não aceite n° e vice-versa... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 04/05/2005 12:14:11

Veja aqui... http://www.fivewin.com.br/exibedicas.asp?id=387 Não uso. É só uma dica Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 29/04/2005 16:24:35