Luiz Fernando

Colegas estou ficando de cabelo branco com esta rotina, tenho três banco de dados aberto em minha tela de dialog, um DBCOMBO que mostra o primeiro arquivo, depois outro DBCOMBO que mostra o segunda arquivo com filtragem de um parâmetro passado pelo primeiro DBCOMBO , depois um listbox com o terceiro arquivo, que e filtrado com parâmetro do primeiro e do segundo DBCOMBO, mas aqui só funciona se eu tirar o filtro do DBCOMBO do segundo arquivo função chamada FILTRACAMBO, caso contrario não da certo abaixo segue a rotina...tentei de toda forma.... REDEFINE DBCOMBO oGru1 VAR cGru1 ID 107 OF oDlg ; ALIAS "DE1" ; ITEMFIELD "CODI_CLA" ; LISTFIELD "NOME_CLA" REDEFINE BUTTON ID 108 OF oDlG ACTION(oDlg:Cargo=.T.,FiltraCampo(cGru1,oGru2)) REDEFINE DBCOMBO oGru2 VAR cGru2 ID 109 OF oDlg ; ALIAS "DE2" ; ITEMFIELD "CODI_SUB" ; LISTFIELD "NOME_SUB" REDEFINE BUTTON ID 110 OF oDlg ACTION(oDlg:Cargo:=.T.,P_GRUPO2(oLbx,cGru1,cGru2)) REDEFINE LISTBOX oLbx ; FIELDS de3->codi_sub3,de3->nome_sub3 ; sizes 100,150 ; HEADERS "CODIGO","DESCRICAO" ; ID 101 OF oDlg function p_grupo2(oLbx,VARI2,VARI3) DE3->(ORDSCOPE(0)) DE3->(ORDSCOPE(1)) DE3->(ORDSCOPE(0,VARI2+VARI3)) DE3->(ORDSCOPE(1,VARI2+VARI3)) DE3->(DBGOTOP()) oLbx:refresh() retu .t. Function FiltraCampo Parameters cFiltro,oGru2 Local aItemFld := {} Local aItemList := {} dbSelectArea( 2 ) dbSetOrder( 1 ) Set Filter To de2->codi_cla == cFiltro dbGotop() While ! Eof() aAdd( aItemFld , nome_sub ) aAdd( aItemList, nome_sub ) dbSkip() end oGru2:SetItems( aItemFld, aItemList ) oGru2:Refresh() SysRefresh() retu(.t.) FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colegas estou ficando de cabelo branco com esta rotina, tenho três banco de dados aberto em minha tela de dialog, um DBCOMBO que mostra o primeiro arquivo, depois outro DBCOMBO que mostra o segunda arquivo com filtragem de um parâmetro passado pelo primeiro DBCOMBO , depois um listbox com o terceiro arquivo, que e filtrado com parâmetro do primeiro e do segundo DBCOMBO, mas aqui só funciona se eu tirar o filtro do DBCOMBO do segundo arquivo função chamada FILTRACAMBO, caso contrario não da certo abaixo segue a rotina...tentei de toda forma.... REDEFINE DBCOMBO oGru1 VAR cGru1 ID 107 OF oDlg ; ALIAS "DE1" ; ITEMFIELD "CODI_CLA" ; LISTFIELD "NOME_CLA" REDEFINE BUTTON ID 108 OF oDlG ACTION(oDlg:Cargo=.T.,FiltraCampo(cGru1,oGru2)) REDEFINE DBCOMBO oGru2 VAR cGru2 ID 109 OF oDlg ; ALIAS "DE2" ; ITEMFIELD "CODI_SUB" ; LISTFIELD "NOME_SUB" REDEFINE BUTTON ID 110 OF oDlg ACTION(oDlg:Cargo:=.T.,P_GRUPO2(oLbx,cGru1,cGru2)) REDEFINE LISTBOX oLbx ; FIELDS de3->codi_sub3,de3->nome_sub3 ; sizes 100,150 ; HEADERS "CODIGO","DESCRICAO" ; ID 101 OF oDlg function p_grupo2(oLbx,VARI2,VARI3) DE3->(ORDSCOPE(0)) DE3->(ORDSCOPE(1)) DE3->(ORDSCOPE(0,VARI2+VARI3)) DE3->(ORDSCOPE(1,VARI2+VARI3)) DE3->(DBGOTOP()) oLbx:refresh() retu .t. Function FiltraCampo Parameters cFiltro,oGru2 Local aItemFld := {} Local aItemList := {} dbSelectArea( 2 ) dbSetOrder( 1 ) Set Filter To de2->codi_cla == cFiltro dbGotop() While ! Eof() aAdd( aItemFld , nome_sub ) aAdd( aItemList, nome_sub ) dbSkip() end oGru2:SetItems( aItemFld, aItemList ) oGru2:Refresh() SysRefresh() retu(.t.) FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

citação: citação: citação:Realmente esse é o mesmo CD, ainda estão com as minhas classes e com meu nome alterado ainda por cima Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Colega mais pelo pouco que vi do conteudo parece que os comentarios das classes , esta todo escrito em espanhol...e esta disponivel numa pagina da espanha tb... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0 id=quote>id=quote>Foi exatamente o que eu disse ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/Visual%20Bar/ ->VBar ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/Visual%20Box/ ->VBox ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/Visual%20Get/ ->VGet ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/Visual%20Meter/ -> VMeter ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/VMeter%20sin%20parpadeos/ -> Minha VMeter modificada, não me lembro o nome do programador ftp://ftp.quiquesoft.com/fivewin/utilidades/Clases/tVFolder/ -> VFolder Isso, foi o que fez com que eu deixasse de montar minhas classes e postar gratuitamente para o pessoal, além de uma que está no site do Patrick Master, onde ele discaradamente colocou como se fosse ele que tivesse desenvolvido, e eu tive que mandar um e-mail para ele para que ele alterasse o nome do desenvolvedor Abraços Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Realmente muita sacanagem... FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

citação:Realmente esse é o mesmo CD, ainda estão com as minhas classes e com meu nome alterado ainda por cima Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Colega mais pelo pouco que vi do conteudo parece que os comentarios das classes , esta todo escrito em espanhol...e esta disponivel numa pagina da espanha tb... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega uso a versao vo.47c,apos localizar o arquivo aperto o botao do lado direito e escolha a opcao download, dentro da opcao transferencia dar um clique em cima do arquivo arquivo e escolher a opcao prioridade ALTA, dai tem que deixar ele quentinho la ate conseguir conexao com algum usuario, apertando o botao do lado direito no icone que fica na barra de ferramenta tb tem uma opcao para acelerar o download... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

ftp://ftp.quiquesoft.com/fivewin/utilidades/ nao sei se este conteudo e do cd mais o que tem aqui e free... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

citação:instale o emule e procure que voce acha ele id=quote>id=quote>colega ontem depois que postei esta mensagem fiz isto, e achei varios inclusive ja esta baixando, grato Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colegas pesquisando no google sobre fivewin pelo mundo afora, descobri um cd de utilidades em fivewin com o valor de 170,00 dolar, gostaria de saber se alguem ja comprou...se sim se vale a pena... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colegas pesquisando no google sobre fivewin pelo mundo afora, descobri um cd de utilidades em fivewin com o valor de 170,00 dolar, gostaria de saber se alguem ja comprou...se sim se vale a pena... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega tenho um PDV Frente de Caixa feito em delphi, e minha retaguarda e em clipper(dos),faço comunicao através de uma nome que dou em cada terminal tipo SET MAQ=MAQ001, sempre que atualizo o preço na retaguarda mando um comando para dar a carga nos terminais, se tiver quadro terminais cadastrado ele da carga em todos eles ,caso algum tiver offline, ele fica tentando dar carga a cada trinta minuto ate conseguir,cada carga tem um numero por isto mesmo se um terminal ficar desligado dias ele fará todo processo, e sempre qdo fecho o PDV nos terminais ele gera um arquivo TXT onde manda para o servidor com data e hora mais numero do terminal da geração do arquivo, entrando no sistema da retaguarda a primeira coisa que ele faz e ver se tem um arquivo TXT para atualizar caso sim ele atualiza e já elimina ele em seguida...e meio trabalhoso mas foi a forma que consegui fazer...com five da para trabalhar com ip fica muito mais fácil... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega a forma que vc descreveu abaixo ela exatamente do jeito que eu estava fazendo, tendo certeza disto com sua resposta dei uma olhada no restante da estrutura e percebi que uma função para filtrar um dbcombo que esta causando o problema na hora de filtrar o listbox se eu tirar a rotina FILTRACAMPO a filtragem no listbox da certo, veja a sintaxe abaixo para ver se vc ou alguém pode me dar uma luz.... REDEFINE DBCOMBO oGru1 VAR cGru1 ID 107 OF oDlg ; ALIAS "DE1" ; ITEMFIELD "CODI_CLA" ; LISTFIELD "NOME_CLA" ; when oDlg:Cargo=.F. REDEFINE BUTTON ID 108 OF oDlG ACTION(oDlg:Cargo=.T.,FiltraCampo(cGru1,oGru2)) ; when oDlg:Cargo=.f. REDEFINE DBCOMBO oGru2 VAR cGru2 ID 109 OF oDlg ; ALIAS "DE2" ; ITEMFIELD "CODI_SUB" ; LISTFIELD "NOME_SUB" ; when oDlg:Cargo=.F. REDEFINE BUTTON ID 110 OF oDlg ACTION(oDlg:Cargo:=.T.,P_GRUPO2(oLbx,cGru1,cGru2)) REDEFINE LISTBOX oLbx ; FIELDS de3->codi_sub3,de3->nome_sub3 ; sizes 100,150 ; HEADERS "CODIGO","DESCRICAO" ; ID 101 OF oDlg function p_grupo2(oLbx,VARI2,VARI3) DE3->(ORDSCOPE(0)) DE3->(ORDSCOPE(1)) DE3->(ORDSCOPE(0,VARI2+VARI3)) DE3->(ORDSCOPE(1,VARI2+VARI3)) DE3->(DBGOTOP()) oLbx:refresh() retu .t. Function FiltraCampo Parameters cFiltro,oGru2 Local aItemFld := {} Local aItemList := {} dbSelectArea( 2 ) dbSetOrder( 1 ) Set Filter To de2->codi_cla == cFiltro dbGotop() While ! Eof() aAdd( aItemFld , nome_sub ) aAdd( aItemList, nome_sub ) dbSkip() end oGru2:SetItems( aItemFld, aItemList ) oGru2:Refresh() SysRefresh() retu(.t.) Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0 Editado por - empresoft on 15/01/2007 08:57:45

Caso tiver um curso,que seja virtual, estou dentro... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega tem este arquivo em dicas, testei ele e funciona ok, ve se de ajuda em alguma coisa http://www.fivewin.com.br/exibedicas.asp?id=668 Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega na verdade abaixei a do seu link, tentei usar a do xp, e realmente esta tando erro...se tiver como agradeco... Luiz fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega nao estou conseguindo, descompactar o arquivo tentei com o winzip,e com o WinAr... Grato Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colegas a pouco tempo postei um duvida sobre filtrar dados com o listbox, com a ajuda de vcs consegui conforme modelo abaixo, mas agora estou precisando filtrar dois campos do mesmo registro e não esta dando certo... De2->(ordscope(0)) De2->(ordscope(1)) De2->(ordscope(0,vari2)) De2->(ordscope(1,vari2)) De2->(dbgotop()) Obs. Vari2 e variável que vai fazer o filtro do banco de dados, mais agora precisava fazer do mesmo jeito em outro banco de dados mais seria duas variáveis e o banco de dados esta indexado com as duas variáveis tentei assim mais não deu certo. De2->(ordscope(0)) De2->(ordscope(1)) De2->(ordscope(0,vari2+vari3)) De2->(ordscope(1,vari2+vari3)) De2->(dbgotop()) Grato pela Atencao de todos... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0 Editado por - empresoft on 14/01/2007 19:53:08

Colegas a pouco tempo postei um duvida sobre filtrar dados com o listbox, com a ajuda de vcs consegui conforme modelo abaixo, mas agora estou precisando filtrar dois campos do mesmo registro e não esta dando certo... De2->(ordscope(0)) De2->(ordscope(1)) De2->(ordscope(0,vari2)) De2->(ordscope(1,vari2)) De2->(dbgotop()) Obs. Vari2 e variável que vai fazer o filtro do banco de dados, mais agora precisava fazer do mesmo jeito em outro banco de dados mais seria duas variáveis e o banco de dados esta indexado com as duas variáveis tentei assim mais não deu certo. De2->(ordscope(0)) De2->(ordscope(1)) De2->(ordscope(0,vari2+vari3)) De2->(ordscope(1,vari2+vari3)) De2->(dbgotop()) Grato pela Atencao de todos... Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0 Editado por - empresoft on 14/01/2007 19:53:08

sim verdade seria mais pratica do que a rotina citada pelo colega silva, mais pq o combobox, o dbcompo nao trabalha com vetores? Luiz Fernando FW 24,CLIPPER5 5.3e,DBASE,CDX,WS,BLINKER 7.0

Colega valeu pela dica vou tentar utilizar este metodo... Luiz Fernando FW 24, CLIPPER5.3, WS, DBASE, CDX, BLINKER 7.0

Colegas qdo utilizo o dbcombo para exibir conteúdo de um banco de dados o primeiro campo aparece sempre o primeiro registro queria que ele deixasse sempre em branco, criei um registro em banco daí da certo, mais gostaria de saber se não tem outra forma de fazer isto... Grato Luiz Fernando FW 24, CLIPPER5.3, WS, DBASE, CDX, BLINKER 7.0

Colegas qdo utilizo o dbcombo para exibir conteúdo de um banco de dados o primeiro campo aparece sempre o primeiro registro queria que ele deixasse sempre em branco, criei um registro em banco daí da certo, mais gostaria de saber se não tem outra forma de fazer isto... Grato Luiz Fernando FW 24, CLIPPER5.3, WS, DBASE, CDX, BLINKER 7.0

citação:OlA A Melhor solucao amigaum 'e migrar teus aplicativos para 32bits! Mesmo os teus clipper migre para xharbour que ele vai rodar que nem uma bala no XP. Rodar 16bits no XP 'e besteira...ja tentei at'e compatibilidade como postado... porem em arrays fica lento como sempre no XP. Migre, 32bits 'e a melhor solucao! flow Um Xharbraço. Uso Fwh 2.5 (xharbour 0.99.3) e Xmate Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-32387012 Belem-PA id=quote>id=quote>Colega ainda nao mexi com xharbour, mais consigo compilar meus programas em clipper(dos) sem mudar as estrutura deles com xharbour... Luiz Fernando FW 24, CLIPPER 5.3, BLINKER 7.0, DBASE, CDX, WS

Colega em fivewin ainda nao sei como e pois estou comecando a programar agora, mais em clipper(dos) tem um arquivo obj chamado timeslic.obj se vc compilar junto a sua aplicacao e nao primeira linha de comando da sua estrutura colocar o comando freetslice() o uso de seu cpu de 100% cai para uns 10 a 7%...qualquer coisa me passa um email que mando para vc... Luiz Fernando FW 24, CLIPPER 5.3, BLINKER 7.0, WS, DBASE, CDX

Valeu colega grato,deu certinho esta linha de comando.... Luiz Fernando FW 2.4, CLIPPER 5.3, BLINKER 7.0, WORKSHOP, DBASE, CDX

Colegas estou tentando usar um button com a condição if mais não esta tanto certo, tenho um variável oDlg:ca, queria que qdo pressionar o button ela verifica se o valor da variável e .T. ,se sim dar o valor de .F. e se for .F. finalizar o dialog...tentei assim mais não esta tanto certo. REDEFINE BUTTON ID 106 if(oDlg:ca=.T.,ACTION(oDlg:ca=.F.),ACTION(oDlg:eND())). Luiz Fernando FW 2.4, CLIPPER 5.3, BLINKER 7.0, WORKSHOP, DBASE, CDX