fafranca

Pessoal, o gilmer resolveu para mim o codigo ficou dessa forma: Function main() *-------------- PRIVATE oDlq, oSay1, oSay2, oSay3, oMeter, oGet PRIVATE cPass := space(5) PRIVATE cConta := "000/000" PRIVATE cCdx := space(13) PRIVATE cDbf := space(12) PRIVATE nMeter := 100 DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine METER oMeter VAR nMeter TOTAL 100 ID 4012 OF oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg oDlg:bStart:={|| MostraCheck()} ACTIVATE DIALOG oDlg CENTERED //ON INIT oDlg:End() return .t. Func MostraCheck() use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno()),3)+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:SetText(cConta) oSay2:SetText(cDbf) oSay3:SetText(cCdx) //oSay1:refresh() //oSay2:refresh() //qqoSay3:refresh() //xRefreshDLG(oDlg) inkey(0.5) SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return .t. id=code>id=code>A linha que mostrou os dados no loop foi: oDlg:bStart:={|| MostraCheck()} Obrigado a todos pela ajuda! Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Fiz dessa maneira mas ainda não mostra os dados do loop no dialog: DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine METER oMeter VAR nMeter TOTAL 100 ID 4012 OF oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg ACTIVATE DIALOG oDlg CENTERED ON INIT MostraCheck() oDlg:End() return .t. Func MostraCheck() use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno()),3)+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:refresh() oSay2:refresh() oSay3:refresh() SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return .t. o SysRefresh() não deveria estar atualizando os dados no Dialog ?? Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Trocando o nil pelo .t. no Return ele para no get, porem o loop ele não mostra, só monta a tela ao final do while e mostra o ultimo registro do arquivo. Vou fazer mais alguns testes Obrigado Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, Peguei como exemplo esse codigo para tentar entender como funciona a apresentação dos dados do dialog na tela: quando eu coloco no DIALOG a opcão NOWAIT os dados do While são mostrados mas não para o prompt no GET DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg ACTIVATE DIALOG oDlg CENTERED NOWAIT use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno())+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:refresh() oSay2:refresh() oSay3:refresh() SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return(NIL) id=code>id=code>quando eu não no DIALOG a opcão NOWAIT os dados do While não são mostrados mas o prompt no para no GET DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg ACTIVATE DIALOG oDlg CENTERED NOWAIT use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno())+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:refresh() oSay2:refresh() oSay3:refresh() SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return(NIL) id=code>id=code>Minha duvida é: como fazer para mostrar os dados do while e apos o loop parar no get? Abraço Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C Editado por - fafranca on 21/07/2008 18:09:24

Pessoal, Peguei como exemplo esse codigo para tentar entender como funciona a apresentação dos dados do dialog na tela: quando eu coloco no DIALOG a opcão NOWAIT os dados do While são mostrados mas não para o prompt no GET DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg ACTIVATE DIALOG oDlg CENTERED NOWAIT use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno())+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:refresh() oSay2:refresh() oSay3:refresh() SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return(NIL) id=code>id=code>quando eu não no DIALOG a opcão NOWAIT os dados do While não são mostrados mas o prompt no para no GET DEFINE DIALOG oDlg RESOURCE "#8001" Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE Redefine get oGet VAR cPass ID 4004 OF oDlg ACTIVATE DIALOG oDlg CENTERED NOWAIT use ArqIndex alias ArqIndex exclusive new ArqIndex->(dbGoTop()) while ArqIndex->(!eof()) cConta := strzero(ArqIndex->(Recno())+"/"+strzero(ArqIndex->(Lastrec()),3) cDbf := ArqIndex->Arquivo cCdx := alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem oSay1:refresh() oSay2:refresh() oSay3:refresh() SysRefresh() ArqIndex->(dbSkip()) end DbCloseAll() return(NIL) id=code>id=code>Minha duvida é: como fazer para mostrar os dados do while e apos o loop parar no get? Abraço Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C Editado por - fafranca on 21/07/2008 18:09:24

Luiz, obrigado pela dica! Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, Alguem teria um exemplo de como colocar um Buttonbar no Dialog? Estou tentando deixar meu Dialog com mesmo aspecto da Window. Abs Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, Alguem teria um exemplo de como colocar um Buttonbar no Dialog? Estou tentando deixar meu Dialog com mesmo aspecto da Window. Abs Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Para cada Redefine say eu tenho que identificar com um oSay? Exemplo: Redefine say oSay1 VAR cConta ID 4007 of oDlg UPDATE Redefine say oSay2 VAR cDbf ID 4009 of oDlg UPDATE Redefine say oSay3 VAR cCdx ID 4011 of oDlg UPDATE cConta := "01/10" cDbf := "Arquivo.dbf" cCdx := "Arquivo.cdx" oSay1:=refresh() oSay2:=refresh() oSay3:=refresh() Abs Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Opa! Acho q estava esqucendo do oSay:refrech() vou continuar tentando! Abraço e obrigado Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, Estou desde manhã batendo cabeça, tentando entender como atualizar um dialog com redefine say utilizando o while. O bicho tá pegando na hora de converter os "@ say" do clipper para o "redefine say". vou postar um while de reorganização de arquivos e peço encarecidamente um help de como faze-lo com "redefine say" while ArqIndex->(!eof()) @ 09,50 say strzero(ArqReo,3) @ 09,60 say strzero(TTAR,3) @ 11,56 say ArqIndex->Arquivo cArquivo :=alltrim(ArqIndex->Arquivo) cAlias :=cArquivo cInd :=cArquivo+".cdx" delete file &cInd while .t. use &cArquivo alias &cArquivo exclusive new if !NetErr() exit endif NTE++ inkey(1) end cArq:=alltrim(ArqIndex->Arquivo) x:=1 while alltrim(ArqIndex->Arquivo)=cArq setcolor("n/w") @ 09,50 say strzero(ArqReo,3) @ 09,60 say strzero(TTAR,3) @ 11,56 say ArqIndex->Arquivo cChave := alltrim(ArqIndex->Chave) cIndice := alltrim(ArqIndex->Indicecdx) cCondition := alltrim(ArqIndex->Condicao) cTagOrd := ArqIndex->Ordem nEvRec := int(lastrec()/100) nEvRec := if(nEvRec<1,1,nEvRec) if x=1 pack x++ endif @ 13,56 say "OK" @ 15,56 say alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem if ArqIndex->Condicao=space(30) index on &cChave Tag &cTagOrd to &cIndice. eval MostraIndex(17,44,lastrec()) every nEvRec else index on &cChave Tag &cTagOrd to &cIndice. FOR &cCondition. eval MostraIndex(17,44,lastrec()) every nEvRec endif ArqIndex->(dbSkip()) end (cAlias)->(dbCloseArea()) ArqReo++ end DbCloseAll() return(NIL) id=code>id=code>Agradeço a todos atenção dispensada. Abraço Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, Estou desde manhã batendo cabeça, tentando entender como atualizar um dialog com redefine say utilizando o while. O bicho tá pegando na hora de converter os "@ say" do clipper para o "redefine say". vou postar um while de reorganização de arquivos e peço encarecidamente um help de como faze-lo com "redefine say" while ArqIndex->(!eof()) @ 09,50 say strzero(ArqReo,3) @ 09,60 say strzero(TTAR,3) @ 11,56 say ArqIndex->Arquivo cArquivo :=alltrim(ArqIndex->Arquivo) cAlias :=cArquivo cInd :=cArquivo+".cdx" delete file &cInd while .t. use &cArquivo alias &cArquivo exclusive new if !NetErr() exit endif NTE++ inkey(1) end cArq:=alltrim(ArqIndex->Arquivo) x:=1 while alltrim(ArqIndex->Arquivo)=cArq setcolor("n/w") @ 09,50 say strzero(ArqReo,3) @ 09,60 say strzero(TTAR,3) @ 11,56 say ArqIndex->Arquivo cChave := alltrim(ArqIndex->Chave) cIndice := alltrim(ArqIndex->Indicecdx) cCondition := alltrim(ArqIndex->Condicao) cTagOrd := ArqIndex->Ordem nEvRec := int(lastrec()/100) nEvRec := if(nEvRec<1,1,nEvRec) if x=1 pack x++ endif @ 13,56 say "OK" @ 15,56 say alltrim(ArqIndex->Indicecdx)+ArqIndex->Ordem if ArqIndex->Condicao=space(30) index on &cChave Tag &cTagOrd to &cIndice. eval MostraIndex(17,44,lastrec()) every nEvRec else index on &cChave Tag &cTagOrd to &cIndice. FOR &cCondition. eval MostraIndex(17,44,lastrec()) every nEvRec endif ArqIndex->(dbSkip()) end (cAlias)->(dbCloseArea()) ArqReo++ end DbCloseAll() return(NIL) id=code>id=code>Agradeço a todos atenção dispensada. Abraço Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev + Pelles C

Pessoal, boa tarde! Estou iniciando com o FWH, e estou a procura de alguns exemplos de .rc feitas no Pelles, alguem pode indicar algum link onde eu possa encontrar? Abs. Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev

Pessoal, boa tarde! Estou iniciando com o FWH, e estou a procura de alguns exemplos de .rc feitas no Pelles, alguem pode indicar algum link onde eu possa encontrar? Abs. Fabio A. França fafranca@gmail.com Franco da Rocha / SP xHarbour 1.1 + Fwh 8.06 + Bcc 5.5.1 + xDev

Obrigado Marcelo! Só faltou 1 virgula,rsrsrs eu estava tentando assim e dava errado: oTestmenu:Add( TMenuItem():New( "Test 1",,,, { || MsgInfo( "Test 1" ) },,,,,,,.t. ), .f. ) Mas agora entendi que o SEPARATOR é um item a mais no menu. Abs Fabio A. França