PC Toledo

Código: Selecionar todos

PROCEDURE pAdminLog

   LOCAL cDbf, cnMySql := ADOClass():New( AppConexao() )

   IF AppConexao() == NIL
      IF ! AbreArquivos( "jpreguso" )
         RETURN
      ENDIF
   ELSE
      cnMySql:cSql := "SELECT * FROM JPREGUSO ORDER BY RUINFINC DESC LIMIT 5000"
      cDbf := cnMySql:SqlToDbf()
      USE ( cDbf ) ALIAS jpreguso
   ENDIF
   SELECT jpreguso
   SET ORDER TO 0
   GOTO TOP
   SKIP -15
   FazBrowse( { ;
      { "HORÁRIO",   { || Substr( jpreguso->ruInfInc, 1, 26 ) } }, ;
      { "DESCRIÇÃO", { || jpreguso->ruTexto } }, ;
      { "ARQUIVO",   { || jpreguso->ruArquivo } }, ;
      { "CÓDIGO",    { || jpreguso->ruCodigo } }, ;
      { "INFINC",    { || jpreguso->ruInfInc } } } )
   CLOSE DATABASES

   RETURN

Código: Selecionar todos

PROCEDURE pAdminLog

   LOCAL oTBrowse, cnMySql := ADOClass():New( AppConexao() )

   IF AppConexao() == NIL
      RETURN
   ENDIF
   WITH OBJECT cnMySql
      :cSql := "SELECT * FROM JPREGUSO ORDER BY IDREGUSO DESC LIMIT 50000"
      :Execute()
      oTBrowse := { ;
         { "HORARIO",   { || :String( "RUINFINC", 26 ) } }, ;
         { "DESCRIÇÃO", { || :String( "RUTEXTO", 100 ) } }, ;
         { "ARQUIVO",   { || :String( "RUARQUIVO", 15 ) } }, ;
         { "CÓDIGO",    { || :String( "RUCODIGO", 9 ) } }, ;
         { "RUINFINC",  { || :String( "RUINFINC", 80 ) } } }
      BrowseADO( cnMySql, oTBrowse, "RUTEXTO" )
      :CloseRecordset()
   ENDWITH

   RETURN