Kbelo Posted December 27, 2007 Report Share Posted December 27, 2007 Pessoal bom dia. Quero fazer uma tela de Relatorios padrão. Onde 80% é padrão só mudaria a parde de filtros. A duvida é a Seguinte se eu Desenhar minha tela com Recursos e depois criar os gets de Filtros com @ GET. Sei que funciona mas queria saber pode ocorrer algum problema? Marcelo Michels marcelo@infototal.com.br "Total Informatica" Quote Link to comment Share on other sites More sharing options...
Kbelo Posted December 27, 2007 Author Report Share Posted December 27, 2007 Pessoal bom dia. Quero fazer uma tela de Relatorios padrão. Onde 80% é padrão só mudaria a parde de filtros. A duvida é a Seguinte se eu Desenhar minha tela com Recursos e depois criar os gets de Filtros com @ GET. Sei que funciona mas queria saber pode ocorrer algum problema? Marcelo Michels marcelo@infototal.com.br "Total Informatica" Quote Link to comment Share on other sites More sharing options...
wmsoft Posted December 27, 2007 Report Share Posted December 27, 2007 Bom dia, Não tem problemas não, eu geralmente faço isso em meus sistemas, sendo que vc pode usar os GET´s nos próprios recursos (ganhar tempo). Abraços e Feliz Natal Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 2.7, xHarbour 0.99.61 (Simplex) Quote Link to comment Share on other sites More sharing options...
Kbelo Posted December 27, 2007 Author Report Share Posted December 27, 2007 citação:Bom dia, Não tem problemas não, eu geralmente faço isso em meus sistemas, sendo que vc pode usar os GET´s nos próprios recursos (ganhar tempo). Abraços e Feliz Natal Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 2.7, xHarbour 0.99.61 (Simplex) id=quote>id=quote>No caso de Usar GETs nos Recursos isso eu ja sei mas no meu caso tenho mais de 100 relatorios parecidos no DOS. Na conversão queria fazer uma tela padrão com Recursos e a parte dos filtros que é o que muda de um relatorios para outro eu faria com @ GET. Mas eu ja imaginava que isso funcionava mas só queria ter certeza. Valeu... Marcelo Michels marcelo@infototal.com.br "Total Informatica" Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 4, 2008 Author Report Share Posted January 4, 2008 a primeira tela esta Vazia que seria Filtro. quando vou inclui o GET como consta abaixo em Vermelho da erro Error description: Error FiveWin/3 Cannot create Dialog Box: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: YRELPAR Stack Calls =========== Called from CREATEDLGERROR(0) Called from TDIALOG:ACTIVATE(0) Called from RELATORIO(123) DEFINE DIALOG oDLG TITLE "Teste de Relatorios" RESOURCE "YRELPAR" REDEFINE FOLDER oFld1 ID 101 OF oDlg ; PROMPT "&Filtros", "&Parametros"; DIALOGS "FILTRO", "PARAMETRO" REDEFINE BUTTON ID 102 OF oDlg ACTION msginfo('Aqui Vai imprimir modo Texto') REDEFINE BUTTON ID 103 OF oDlg ACTION msginfo('Aqui Vai imprimir modo Grafico') REDEFINE BUTTON ID 104 OF oDlg ACTION oDlg:End() @ 10,10 Get oytxt6 VAR ytxt6 OF oFld1:aDialogs[ 1 ] Picture '99999'id=red> REDEFINE GROUP oGROUP3 ID 114 OF oFld1:aDialogs[ 2 ] REDEFINE GROUP oGROUP4 ID 115 OF oFld1:aDialogs[ 2 ] REDEFINE GROUP oGROUP5 ID 116 OF oFld1:aDialogs[ 2 ] REDEFINE GROUP oGROUP6 ID 117 OF oFld1:aDialogs[ 2 ] REDEFINE Get oyPagini VAR yPagini ID 101 OF oFld1:aDialogs[ 2 ] picture '999' SPINNER MIN 1 MAX 999 REDEFINE Get oyPagfin VAR yPagfin ID 102 OF oFld1:aDialogs[ 2 ] picture '999' SPINNER MIN 1 MAX 999 REDEFINE Get oyNumPag VAR yNumPag ID 103 OF oFld1:aDialogs[ 2 ] Picture '9999' REDEFINE Get odDatEmi VAR dDatEmi ID 104 OF oFld1:aDialogs[ 2 ] //@ 02 ,1 Get oyPagfin1 VAR yPagfin1 OF oFld1:aDialogs[ 2 ] Picture '999' SPINNER ON UP 1 ON DOWN -1 MIN 1 MAX 999 REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "Epson Lx", "Alice", "Teste" } ; ID 105 OF oFld1:aDialogs[ 2 ] REDEFINE Get oyPorSai VAR yPorSai ID 106 OF oFld1:aDialogs[ 2 ] Picture '9' SPINNER MIN 1 MAX 8 REDEFINE RADIO oyRADtip VAR yRADtip OF oFld1:aDialogs[ 2 ] ; ID 107, 108 REDEFINE RADIO oyRADimp VAR yRADimp OF oFld1:aDialogs[ 2 ] ; ID 109, 110,111 REDEFINE Get oyARQdis VAR yARQdis ID 112 OF oFld1:aDialogs[ 2 ] Picture '@!' ODLG:LHELPICON := .F. ACTIVATE DIALOG oDLG CENTER id=code>id=code>Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com FW 2.4 + xHarbour + 0.99.2 + Bcc 5.5 xHarbour 0.99.71 console + Bcc 5.8.2 + WvwTools + hwgui + SQLRDD. WorkShop Quote Link to comment Share on other sites More sharing options...
Eric.Developer Posted January 4, 2008 Report Share Posted January 4, 2008 Quando vão aprender a escrever menos e serem mais objetivos. Se tivesse colocado o código logo na primeira postagem.......bla...bla...bla... K-Bra, As instruções @...get... dentro de janelas criadas com resource, devem ser chamadas dentro do ON INIT, assim: ACTIVATE DIALOG oDlg CENTER ON INIT SuaFuncao() function SuaFuncao() ... ... @ 10,10 Get oytxt6 VAR ytxt6 OF oFld1:aDialogs[ 1 ] Picture '99999' ... ... return nil id=code>id=code>Virtualmente, Éric xHarbour.org 1.0.0 + FiveWin 6.12/2.8 + Pelles C + HBMake + ADS Roubaram as pernas do meu bode, tô nem aÃ, quero ver o bicho de pé e pulando! Meia Boca/Quebra-Galho, aprenda primeiro, depois me conteste se conseguir Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 4, 2008 Author Report Share Posted January 4, 2008 Deu certinn Valeu Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com FW 2.4 + xHarbour + 0.99.2 + Bcc 5.5 xHarbour 0.99.71 console + Bcc 5.8.2 + WvwTools + hwgui + SQLRDD. WorkShop Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 5, 2008 Report Share Posted January 5, 2008 Só uma duvidazinha.. Se tem uma tela criada pq. não por o get e trata-lo c/ hide() e show() ??? .. acho que seu código seria menor.. me corrija se eu estiver errado.. FELIZ 2008 id=blue> Luiz Arruda - Corumbá/MS FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65 ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.