kleyber Posted December 14, 2006 Report Share Posted December 14, 2006 Olá Pessoal, Agora sou eu que preciso de ajuda (e urgente por sinal!). Eu uso a TReport faz bastante tempo, mas me deparei com uma situação agora que ainda não consegui resolver. O problema é o seguinte: Quando eu vou listar os dados, eu crio um GROUP ON. Até ai tudo bem. Eu posso usar o oReport:aGroups[1]:nCounter pra me dar o total de Ãtens desse grupo. Mas durante a impressão desse grupo, existem Ãtens zerados e Ãtens com valor e eu preciso QUANTIFICAR esses Ãtens com valor diferente de zero, para colocar na função que tenho declarada no ON ENDGROUP. Só que não consigo quantificar isso. Alguém sabe como fazer? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
kleyber Posted December 14, 2006 Author Report Share Posted December 14, 2006 Olá Pessoal, Agora sou eu que preciso de ajuda (e urgente por sinal!). Eu uso a TReport faz bastante tempo, mas me deparei com uma situação agora que ainda não consegui resolver. O problema é o seguinte: Quando eu vou listar os dados, eu crio um GROUP ON. Até ai tudo bem. Eu posso usar o oReport:aGroups[1]:nCounter pra me dar o total de Ãtens desse grupo. Mas durante a impressão desse grupo, existem Ãtens zerados e Ãtens com valor e eu preciso QUANTIFICAR esses Ãtens com valor diferente de zero, para colocar na função que tenho declarada no ON ENDGROUP. Só que não consigo quantificar isso. Alguém sabe como fazer? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
aferra Posted December 14, 2006 Report Share Posted December 14, 2006 olá Kleyber, blz!!! acho que ficaria mais ou menos assim: PRIVATE nContaZero:=0 GROUP ON -> FOOTER "Soma Total de Zerados "+STR(nContaZero) FONT 2 ACTIVATE REPORT oRpt ON STARTGROUP MontaPg1(oRpt) STATIC FUNCTION MontaPg1(oRpt) IF !oRpt:bEndGroup IF ->==0 nContaZero++ END ELSE nContaZero:=0 END id=code>id=code>RETURN(.T.) Um Grande Abraço Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP Editado por - aferra on 14/12/2006 12:18:47 Quote Link to comment Share on other sites More sharing options...
kleyber Posted December 14, 2006 Author Report Share Posted December 14, 2006 Grande Alessandro, Obrigado por responder. A tua resposta bateu na trave!! (hehehe). Se o bEndGroup fosse LOGICAL tava resolvido o problema. Só que ele é um bloco de código, daà como está dá erro. Alguma outra idéia? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
kleyber Posted December 14, 2006 Author Report Share Posted December 14, 2006 Resolvido!!! (Graças a Deus!) Ao invés de colocar a função MontaPg1(oRpt)no STARTGROUP, eu coloquei dentro do oReport:bSkip e resolveu. Valeu pela força Alessandro. Grande Abraço Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
kleyber Posted December 14, 2006 Author Report Share Posted December 14, 2006 Resolvido!!! (Graças a Deus!) Ao invés de colocar a função MontaPg1(oRpt)no STARTGROUP, eu coloquei dentro do oReport:bSkip e resolveu. Valeu pela força Alessandro. Grande Abraço Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
aferra Posted December 14, 2006 Report Share Posted December 14, 2006 Fala Kleyber!!! agora está tudo bem né? hehehehehehe eu não havia percebido que era um bloco o que tinha te passado, na próxima presto mais atenção, hehehe, estamos neste forum é para isso mesmo né? Um Grande Abraço Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP 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.