* ----------------------------------------------------------
* GERNET.PRG - Gerador de Arquivos Html p/ Internet
* Versao: GerNet.exe v.Mar.2006           
* Autor: Jose Laudir Vefago
* Copyright: www.surfpro.com.br
* ----------------------------------------------------------
set exclusive off
set escape off
set wrap on
set score off
set date british
set deleted on
set exact off
set cursor off
*
* Cores Padrao p/ Video e Internet
*
CorAmr   = "gr+/n"
CorRnd   = "g+/n"
CorBox   = "w+/r"
CorLau   = "w+/n"
alarme   = "n/r"
alerta   = "r+/n"
aceso    = "w+/n"
CorNormal= "w+/n"
CorVdePr = "w+/g"
*
CorVerm  = "red"
CorBran  = "white"
CorAmar  = "yellow"
CorPret  = "black"
CorVerd  = "green"
CorAzul  = "blue"
CorLara  = "orange"
*
CorRed   = "red"
CorWhit  = "white"
CorYell  = "yellow"
CorBlac  = "black"
CorGree  = "green"
CorBlue  = "blue"
CorOran  = "orange"
*
Verm     = "#FFB9B9"
Bran     = "#F7F7F7"
Amar     = "#FFFFB0"
Pret     = "#ADADAD"
Verd     = "#BBEEBB"
Azul     = "#B8B8Ed"
Lara     = "#FFD08A"
*
Red      = "red"
Whit     = "white"
Yell     = "yellow"
Blac     = "black"
Gree     = "green"
Blue     = "blue"
Oran     = "orange"
*
* Cores Standarts
*
CorCrono = "r+/bg"
CorFAzul = "gr+/b"
CorFPret = "n/b"
CorFunca = "gr+/bg"
CorPalha = "w+/gr+"
CorVerme = "w+/r" 
CorAVerm = "gr+/r"
CorPVerm = "n/r" 
CorVerde = "w+/g"
CorAzul  = "w+/b"
CorBranc = "n/w"
CorAmare = "gr+/bg"
CorPreto = "w+/n"
CorCalci = "n/bg"
CorFundo = "w+/bg"
CorPulso = "r/bg"
*
* Variaveis Graficas
*
ht = chr(196)
hb = chr(194)
hc = chr(193)
*
vt = chr(179)
vd = chr(195)
ve = chr(180)
*
sd = chr(218)
se = chr(191)
id = chr(192)
ie = chr(217)
cz = chr(197)
st = chr(272)
q =  chr(34)
*
public fazcron,fazstat,fazaber,fazequi,fazgrad,fazrank,fazplus,fazresu,fazplan,fazhist,hospede,arq_vid,arq_som,caminho,mtitulo
do abrepath
do refresha
do abrefile
*
repetoco = .t.
faixinha=0
set cursor off
ativa=-1
do while repetoco
   *
   if ativa = 1
      faixinha=faixinha+1
      if faixinha > 15
         faixinha=1
      endif
      difaixa=15-faixinha
      setcolor(CorPulso)
      @ 22,02 say replicate(chr(219),faixinha)+replicate(" ",difaixa)
      setcolor(CorCalci)
   else
      setcolor(CorVerme)
      @ 22,02 say chr(16)+chr(16)+chr(16)+" Gerador OFF"
      setcolor(CorCalci)
   endif
   *
   opcao=inkey(0.5)
   *
   select d
   go top
   esc_ord=ordem
   if valida .and. ativa = 1
      *
      if rlock()
         replace valida with .f.
         unlock
      else
         do pspaviso
      endif
      *
      msigla=substr(esc_ord,1,3)
      esc_tmp=tempo
      validas=ondas
      encerrou=final_bat
      *
      do spplacar
      do resumido
      do vertical
      *do tripeta
      *
      if encerrou
         rnd=substr(d->ordem,4,2)
         do planvivo
         *
         select g
         use &caminho\asptrl01 index &caminho\isptrl11
         chave=msigla+rnd
         seek chave
         do while .not. eof() .and. sigla+fase = chave
            skip
         enddo
         if .not. eof() .and. sigla = msigla
            rnd=fase
            do planvivo
            * 
            do gc_anter
            *
            select f
            use &caminho\aspout03
            locate for chave=esc_ord
            if found()
               skip 2
               if .not. eof()
                  bproxi=chave
               else
                  bproxi=space(7)
               endif
            else
               bproxi=space(7)
            endif
            use
            ch_proxi=bproxi
            *
            do gc_proxi
            *
         endif
         select g
         use
         *
         do estatviv
         do cronomix
         do climager
         do ondaonda
         do pspinter
         if fazequi
            do equivivo
         endif
      endif
      *
   endif
   do case
      case opcao = -1
         do editpath
      case opcao = -2
         do editprin
      case opcao = -3
         do editstat
      case opcao = -4
         do fantvert
      case opcao = -5
         do fantasma
      case opcao = -6
         do geratudo
      case opcao = -7
          ativa=ativa*-1
      case opcao = 27
         set cursor on
         telinha=savescreen(10,20,14,57)
         painel(11,20,13,57,.f.,"Encerramento","",CorCalci,CorVerme)
         setcolor(CorFundo)
         confirma="N"
         @ 12,21 say " Confirma fim do Programa (s/n) [ ] "
         set color to "w+/bg,w+/bg"
         @ 12,54 get confirma picture "!"
         read
         if confirma="S"
            repetoco = .f.
         endif
         restscreen(10,20,14,57,telinha)
         set cursor off
      otherwise
   endcase
enddo
close databases
clear all
clear
@ 00,00 say "Fim do Programa"
set cursor on
return
*
* ---- Funcao Painel ---- *
*
function painel 
parameters topo,esq,dir,baixo,duplo,texto,texto2,tinta,tinta2
if pcount() < 8
   @ 23,10 say "Numero de parametros Invalidos"
   return(0)
endif
setcolor(tinta)
if duplo
   @ topo,esq clear to dir,baixo
   @ topo,esq to dir,baixo double
else
   @ topo,esq clear to dir,baixo
   @ topo,esq to dir,baixo
endif
if len(texto) > 0
   tam=baixo-esq
   novapos=((tam-len(texto))/2)+1
   esquerda=esq+novapos-1
   direita =esquerda+len(texto)+1
   @ topo,esquerda say ve
   @ topo,direita  say vd
   setcolor(tinta2)
   @ topo,esq+novapos say texto
endif
if len(texto2) > 0
   esquerda=esq+3
   direita =esquerda+len(texto2)+1
   setcolor(tinta)
   @ dir,esquerda say ve
   @ dir,direita say vd
   setcolor(CorAmare)
   @ dir,esquerda+1 say texto2
endif
setcolor(CorCalci)
return(0)
*
* ---- Fim Painel ----*
*
function datacor
declare mes[12]
mes[ 1]="Janeiro"
mes[ 2]="Fevereiro"
mes[ 3]="Marco"
mes[ 4]="Abril"
mes[ 5]="Maio"
mes[ 6]="Junho"
mes[ 7]="Julho"
mes[ 8]="Agosto"
mes[ 9]="Setembro"
mes[10]="Outubro"
mes[11]="Novembro"
mes[12]="Dezembro"
*
sunday="Domingo"
monday="Segunda"
tuesday="Terca"
wednesday="Quarta"
thursday="Quinta"
friday="Sexta"
saturday="Sabado"
*
dia=rtrim(cdow(date()))
mec=month(date())
datac=&dia+", "+ltrim(str(day(date()),2,0))+" de "+mes[mec]+" de "+str(year(date()),4,0)
return(datac)