PC Toledo

Código: Selecionar todos

FUNCTION IndexBar
PARAM mfile, mkey, mrow, showcount
PRIVATE ret_val:=.f.,mpg
mkey = IF(PCOUNT() < 2, mfile, mkey)
IF ! TYPE(mkey) $ "UE"
   mpg=wvw_pgcreate(,17,22,17,67,,,rgb(112,112,250),.t.)
   SET INDEX TO
   IF LASTREC() > 0
      if substr(dtos(date()),7,2)="01" .or. substr(dtos(date()),7,2)="15"
         pack
      endif
      mfile = UPPER(mfile) + IF(! "CDX" $ UPPER(mfile), ".CDX", "")
      GO TOP
      INDEX ON &mkey TO (mfile) EVAL {||GFShowbar()} every reccount()/100
      SET INDEX TO
      SET INDEX TO (mfile)
      ret_val = .t.
   ELSE
      INDEX ON &mkey TO (mfile)
   ENDIF
   wvw_pgdestroy(,mpg)
ENDIF
RETURN ret_val


FUNCTION GFShowBar
local mpos
IF RECNO() <= RECCOUNT()
   IF RECNO() <> RECCOUNT()
      mpos=wvw_pggetpos(,mpg)
      wvw_pgsetpos(,mpg,mpos+1)
   ENDIF
ENDIF
RETURN .t.