* * VERTICAL.PRG - Gerar o Placar de Scores Vertical p/ Internet * declare somak[20],somadork[20] * select f use &caminho\asputl02 * select e use &caminho\asprnk01 index on sigla+nome to &caminho\ispgerad * select c use &caminho\asptrl01 index &caminho\isptrl11 seek esc_ord @ 18,02 say categoria @ 19,02 say substr(fase_car,1,15) @ 20,02 say Bateria #+bateria setcolor(CorAmare) @ 21,02 say Tempo +substr(esc_tmp,4,5)+ min * select b use &caminho\asptrl07 index &caminho\isptrl72 seek esc_ord * select a use &caminho\asptrl02 index &caminho\isptrl25 seek esc_ord * delete file \internet\spplacar.htm set device to print set printer to \internet\spplacar.htm * select b declare nomejuiz[6] for nj = 1 to 6 nomejuiz[nj]= next for nj = 1 to c->num_juizes numerojuiz=val(juiz) if numerojuiz > 0 select f go numerojuiz nomejuiz[nj]=Juiz +b->juiz+ +njuiz endif select b skip next seek esc_ord * if c->head_judge > 00 select f go val(c->head_judge) nomejuiz[6]=Head Judge +njuiz endif select f use * ----------------------------------------------- * @ 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 'fdf surfpro.com.br ::- Floripa - SC ' @ 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 '
' @ 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 ' ' @ 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 ' ' @ 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 ' ' @ 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 ' ' @ prow()+1,00 say '

 

' @ prow()+1,00 say '

Circuito Petrobras

' @ prow()+1,00 say '

Open Round #1 Bateria #2  Restando 01:00 minutos

' @ prow()+1,00 say '

Quarta, 24 de Agosto de 2005  22:45 Horas

' @ 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 ' ' @ 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 ' ' @ prow()+1,00 say '
Cls

Competidor

Int

Pontos

Falta

3º

Pedro Anderson

110.312,72
Ondas somadas : 2
' @ 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 '
' @ 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 '
J.Laudir
2,30
' @ 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 ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say '

J.Eduardo

2,40

' @ 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 ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say '

J.Barnabe

2,50

' @ 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 ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say '

J.Policarpo

2,60

' @ 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 ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say '
Resultado Anterior Proxima Bateria
Juizes da BateriaSetup da Bateria
' @ prow()+1,00 say '

 Passe o mouse Aqui para maiores informações

' @ 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 '' close databases return