* * RNKGERAL.PRG - Gerar Planilha de Ranking Completa * set device to print target="rankg"+lower(msigla)+'.htm' set printer to \internet\&target * @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say ''+mtitulo+'' @ prow()+1,00 say '' @ prow()+1,00 say '' * select g seek msigla select i seek msigla * @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '
' @ prow()+1,00 say '

Voltar ' @ prow()+1,00 say '

' @ prow()+1,00 say '		' @ prow()+1,00 say '

'+j->ranking+' '+g->categoria+'

' @ prow()+1,00 say '
' * @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' for k = 1 to val(j->num_etapa) if k = 9 @ prow()+1,00 say '' else if k <= 9 @ prow()+1,00 say '' else @ prow()+1,00 say '' endif endif next @ prow()+1,00 say '' ptos=0 do while .not. eof() .and. sigla=msigla .and. ptoatual > 0 @ prow()+1,00 say '' if ptoatual <> ptos cls=str(colatual,3,0)+"º" else cls=" " endif @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' for k = 1 to val(j->num_etapa) if k <= 9 colx='coloc0'+str(k,1,0) ptox='pontos0'+str(k,1,0) else colx='coloc'+str(k,2,0) ptox='pontos'+str(k,2,0) endif * if k = 9 col=str(&ptox,4,0) else if &colx > 0 col=str(&colx,3,0)+' - '+str(&ptox,4,0) else col=' - ' endif endif @ prow()+1,00 say '' next @ prow()+1,00 say '' ptos=ptoatual skip enddo @ prow()+1,00 say '
ClsPontosCompetidorEtapa BEtapa0'+str(k,1,0)+'Etapa'+str(k,2,0)+'
'+cls+' '+str(ptoatual,5,0)+''+nome+' '+estado+''+col+'
' @ prow()+1,00 say '' @ prow()+1,00 say '' set device to screen set printer off return