rubensma

Victor, meus sinceros sentimentos, desejo a você muita força para seguir em frente. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Valew, vou usar corget. Gratos pelas respostas, abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Jão, essa func não roda no FWH 6.12? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Detalhe, o "function main()" é somente para o módulo principal. Nos demais prgs use suas funções normais. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa noite Primeiramente seja bem vindo ao forum. Aqui vc poderá encontrar tudo que precisa para migrar seu programa em clipper para a plataforma windows. Com certeza é a melhor opção. Coloque em todos os seus prg como primeira linha de código: #INCLUDE "Fivewin.ch" function main() ..... .... return nil Não esqueça de definir o prg principal como módulo principal, como ocorreu acima. No mais, dê uma olhada em dicas ( na home ) e vá perguntando suas dúvidas, que sempre terá uma solução. Boa sorte e inclua na sua assinatura qual versão está usando do FiveWin. Abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa noite Tião, boa a sua dica. Fiz como disse e descobri o cara que está dando o erro: oLbx:nColAct := 2 Nem sei pra que serve , apenas copiei de algum exemplo que achei por ai. Grato pela ajuda. E ai vai vir no próximo encontro. Dessa vez não vou te ligar 1 hora da madruga. Abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa tarde, Error Base/1132 Bound error:array access from Errorsys, line: 0 No listbos mostro uma tabela dbf. O erro aparece quando der scrol (clicando na seta para baixo)até o fim da lista (20 registros) e volto com a roda do mouse, ai aparece esse erro e aborta (o erro somente ocorre desse jeito) REDEFINE LISTBOX oLbx ; FIELDS &cAlia->data , &cAlia->hora , &cAlia->usuario , ; strzero(&cAlia->lote,3) , ; strzero(&cAlia->quant,5) , ; strzero(&cAlia->docini,5) , ; strzero(&cAlia->docfim,5) , ; transform(&cAlia->valor , "9,999,999,999.99" ) , ; &cAlia->histor ; ALIAS cAlia ; HEADER " DATA" , " HORA" , " USUARIO" , ; "LOTE " , "QUANT " , "DOC 1º " , ; "DOC FIM" , "VALOR " , ; space(15)+"HISTORICO" ; FIELDSIZES 60,60,80,60,60,60,60,120,300 ; ID 100 OF oDlg ; ON DBLCLICK (if ( &cAlia->usuario = cUsuario , acertacampo(oLbx) , ),oLbx:refresh()) ; ON CLICK if( ( cAlia )->usuario=cUsuario .and. recno() == reccount() , btnDel:enable() , btnDel:disable() ) oLbx:nClrBackHead := CLR_LGREEN oLbx:nClrText = { || IIF(( cAlia )->usuario=cUsuario,sColor(0), sColor(1)) } oLbx:nClrBackFocus := CLR_BOMBOM oLbx:nClrForeFocus := CLR_AMARELO oLbx:nClrForeHead := CLR_BLACK oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } oLbx:nColAct := 2 oLbx:nLineStyle := 3 oLbx:lCellStyle := .f. oLbx:aJustify := { .F., .F., .F., .T., .T., .T., .T., .T., .F. } oLbx:SetFocus() oLbx:Refresh() oLbx:aActions :={ {||Ordena("cNome",olbx)},{||Ordena("cLote",olbx)} } nQuant := 1 REDEFINE GET oGet1 VAR nQuant ID 101 OF oDlg picture "@E 99999" VALID nQuant > 0; ON CHANGE ( oBmp1:enable() , oGet1:setfocus() ) oGet1:cTooltip := "Informe a quantidade de documentos que irá compor o Lote" oGet1:bGotFocus := { || oGet1:SelectAll() } // manter selecionado REDEFINE GET oGet2 VAR nValor ID 102 OF oDlg UPDATE picture "@E 9999,999,999.99"; ON CHANGE ( oBmp1:enable() , oGet2:setfocus() ) oGet2:cTooltip := "Informe o valor do Lote" oGet2:bGotFocus := { || oGet2:SelectAll() } REDEFINE GET oGet3 VAR cHistor ID 103 OF oDlg UPDATE ; ON CHANGE ( oBmp1:enable() , oGet3:setfocus() ) oGet3:cTooltip := "Escreva um breve historico do Lote" REDEFINE BUTTON oBmp1 ID 210 OF oDlg ACTION ( geralote( Olbx ) , oBmp1:disable() ) oBmp1:disable() REDEFINE BUTTON oBmp2 ID 220 OF oDlg ACTION ( lAtiva := .f. , oDlg:End() ) REDEFINE BUTTON btnDel ID 230 OF oDlg btnDel:disable() oLbx:bKeyDown := { |nKey| if (nKey == 13 .and. &cAlia->usuario = cUsuario , acertacampo(oLbx) , ) } oDlg:bGotFocus := { || oGet2:disable() , oGet2:refresh() , oGet2:enable() , oGet2:setfocus() } btnDel:bAction = if( bDel != NIL , {|| Eval( bDel ) , oLbx:Refresh() , oLbx:SetFocus() , btnDel:disable() , ajustar() } , ) No mais tudo funciona, alguma luz Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa tarde, Error Base/1132 Bound error:array access from Errorsys, line: 0 No listbos mostro uma tabela dbf. O erro aparece quando der scrol (clicando na seta para baixo)até o fim da lista (20 registros) e volto com a roda do mouse, ai aparece esse erro e aborta (o erro somente ocorre desse jeito) REDEFINE LISTBOX oLbx ; FIELDS &cAlia->data , &cAlia->hora , &cAlia->usuario , ; strzero(&cAlia->lote,3) , ; strzero(&cAlia->quant,5) , ; strzero(&cAlia->docini,5) , ; strzero(&cAlia->docfim,5) , ; transform(&cAlia->valor , "9,999,999,999.99" ) , ; &cAlia->histor ; ALIAS cAlia ; HEADER " DATA" , " HORA" , " USUARIO" , ; "LOTE " , "QUANT " , "DOC 1º " , ; "DOC FIM" , "VALOR " , ; space(15)+"HISTORICO" ; FIELDSIZES 60,60,80,60,60,60,60,120,300 ; ID 100 OF oDlg ; ON DBLCLICK (if ( &cAlia->usuario = cUsuario , acertacampo(oLbx) , ),oLbx:refresh()) ; ON CLICK if( ( cAlia )->usuario=cUsuario .and. recno() == reccount() , btnDel:enable() , btnDel:disable() ) oLbx:nClrBackHead := CLR_LGREEN oLbx:nClrText = { || IIF(( cAlia )->usuario=cUsuario,sColor(0), sColor(1)) } oLbx:nClrBackFocus := CLR_BOMBOM oLbx:nClrForeFocus := CLR_AMARELO oLbx:nClrForeHead := CLR_BLACK oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } oLbx:nColAct := 2 oLbx:nLineStyle := 3 oLbx:lCellStyle := .f. oLbx:aJustify := { .F., .F., .F., .T., .T., .T., .T., .T., .F. } oLbx:SetFocus() oLbx:Refresh() oLbx:aActions :={ {||Ordena("cNome",olbx)},{||Ordena("cLote",olbx)} } nQuant := 1 REDEFINE GET oGet1 VAR nQuant ID 101 OF oDlg picture "@E 99999" VALID nQuant > 0; ON CHANGE ( oBmp1:enable() , oGet1:setfocus() ) oGet1:cTooltip := "Informe a quantidade de documentos que irá compor o Lote" oGet1:bGotFocus := { || oGet1:SelectAll() } // manter selecionado REDEFINE GET oGet2 VAR nValor ID 102 OF oDlg UPDATE picture "@E 9999,999,999.99"; ON CHANGE ( oBmp1:enable() , oGet2:setfocus() ) oGet2:cTooltip := "Informe o valor do Lote" oGet2:bGotFocus := { || oGet2:SelectAll() } REDEFINE GET oGet3 VAR cHistor ID 103 OF oDlg UPDATE ; ON CHANGE ( oBmp1:enable() , oGet3:setfocus() ) oGet3:cTooltip := "Escreva um breve historico do Lote" REDEFINE BUTTON oBmp1 ID 210 OF oDlg ACTION ( geralote( Olbx ) , oBmp1:disable() ) oBmp1:disable() REDEFINE BUTTON oBmp2 ID 220 OF oDlg ACTION ( lAtiva := .f. , oDlg:End() ) REDEFINE BUTTON btnDel ID 230 OF oDlg btnDel:disable() oLbx:bKeyDown := { |nKey| if (nKey == 13 .and. &cAlia->usuario = cUsuario , acertacampo(oLbx) , ) } oDlg:bGotFocus := { || oGet2:disable() , oGet2:refresh() , oGet2:enable() , oGet2:setfocus() } btnDel:bAction = if( bDel != NIL , {|| Eval( bDel ) , oLbx:Refresh() , oLbx:SetFocus() , btnDel:disable() , ajustar() } , ) No mais tudo funciona, alguma luz Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Obrigado pessoal pelos exemplos, show de bola. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Tenho um campo com 200 posições. Preciso saber quantas foram digitadas a medida que for digitando, atualizando em um get ao lado. Fiz assim mas somente mostra o total e não atualiza. REDEFINE GET oVar4[7] VAR cCnd_roteiro MULTILINE MEMO TEXT ID 230 OF oFld:aDialogs[4] UPDATE ; ON CHANGE ( oBtnsalv:enable() , cLetras := strzero(len(alltrim(cCnd_roteiro)),3) , oSaylt:refresh() , oVar4[7]:setfocus() ) cLetras := strzero(len(alltrim(cCnd_roteiro)),3) REDEFINE SAY oSaylt VAR cLetras ID 250 OF oFld:aDialogs[4] UPDATE oSaylt:disable() Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Tenho um campo com 200 posições. Preciso saber quantas foram digitadas a medida que for digitando, atualizando em um get ao lado. Fiz assim mas somente mostra o total e não atualiza. REDEFINE GET oVar4[7] VAR cCnd_roteiro MULTILINE MEMO TEXT ID 230 OF oFld:aDialogs[4] UPDATE ; ON CHANGE ( oBtnsalv:enable() , cLetras := strzero(len(alltrim(cCnd_roteiro)),3) , oSaylt:refresh() , oVar4[7]:setfocus() ) cLetras := strzero(len(alltrim(cCnd_roteiro)),3) REDEFINE SAY oSaylt VAR cLetras ID 250 OF oFld:aDialogs[4] UPDATE oSaylt:disable() Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Valew Luiz, é isso mesmo. Grato, abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Preciso saber qual o item escolhido em número do item não o conteúdo: 1, 2, 3 etc.. qual o número do item escolhido. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Preciso saber qual o item escolhido em número do item não o conteúdo: 1, 2, 3 etc.. qual o número do item escolhido. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Ok, usei dessa forma REDEFINE GET oVar4[7] VAR cCnd_roteiro MULTILINE MEMO TEXT ID 230 OF oFld:aDialogs[4] grato. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Prezados, tenho um campo c/200 posições e fica muito ruim a digitação nesse controle (edit text) em uma caixa com várias linhas. Teria uma outra forma? REDEFINE GET oVar4[7] VAR cCnd_roteiro ID 230 OF oFld:aDialogs[4] UPDATE ; ON CHANGE ( oBtnsalv:enable() , oVar4[7]:setfocus() ) Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Prezados, tenho um campo c/200 posições e fica muito ruim a digitação nesse controle (edit text) em uma caixa com várias linhas. Teria uma outra forma? REDEFINE GET oVar4[7] VAR cCnd_roteiro ID 230 OF oFld:aDialogs[4] UPDATE ; ON CHANGE ( oBtnsalv:enable() , oVar4[7]:setfocus() ) Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

01 - Christiano A. Silveira - CTOAS - São Paulo - christiano.silveira@gmail.com 02 - Rubens Martins - rubensma - São Paulo - rumarti@gmail.com 03 - Luis Antonio da Paixao - Sao Sebastiao do Paraiso - Minas Gerais - luispaixao13@hotmail.com 04 - Luiz Roberto Servulo - Diadema - São Paulo - lrservulo@terra.com.br 05 - eduardo mazur - Sao Paulo 06 - Vailton Renato - São Paulo (vailtom@gmail.com) 07 - Charles - Palmas - TO integresis@brturbo.com.br 08 - Evandro G. de Paula - MG (imortal@skillnet.com.br) 09 - Kleyber Derick Batalha Ribeiro - Kleyber - São Luis - Ma - (kleyber.ribeiro@grupoferraz.com.br) 10 - vitor s.b.c. vitor.reis@terra.com.br 11 - Vagner Wirts (vwirts@terra.com.br) 12 - Gilmer Luiz Orro Tavares (gilmer@fivewin.com.br) 13 - Antenor Trufelli Filho (trufelli@uol.com.br) - São Paulo 14 - Eduardo Motta - eduardo@emotta.com.br 15 - EMPRESOFT(Luiz Fernando) - empresoft@globo.com 16 - Herberson Carlos Gontijo - hergon - BH/MG - (herberson@ponteware.com.br) 17 - Atenilto Marinho + um acompanhante -atenilto@itksoft.com.br 18 - Carlos Leÿen - decker - celeyendecker@hotmail.com 19 - Alexandre Zilves - azilves - RJ - azilves@hotmail.com 20 - Jackson Douglas Cavalcante Brito - RR - miragerr@osite.com.br Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

01 - Christiano A. Silveira - CTOAS - São Paulo 01 - Rubens Martins - rubensma - São Paulo christiano.silveira@gmail.com ------------------------------------------------------ Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Valew brother, usei msgwait() no on paint, atende o propósito. Muito obrigado pela dica Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa tarde, Quero mostrar o balão do tooltip da Tray, assim que entrar na tray, para o usuário ver que já instalou, como acontece em alguns software, alguém já fez? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa tarde, Quero mostrar o balão do tooltip da Tray, assim que entrar na tray, para o usuário ver que já instalou, como acontece em alguns software, alguém já fez? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Rubens Martins, 58 anos São Paulo - SP - Ipiranga Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Perfeito, grato Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Ok, obrigado. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop