FiveTech Support Forums

#include 'fivewin.ch'
#include 'xbrowse.ch'
#include 'tdolphin.ch'

static cHost := "localhost", cUser := "root", cPwd := "", cDB := "test"

FUNCTION Main()

LOCAL oCn, oDlg, oQry, oBrw1, oBot

   FWCONNECT oCn HOST cHost USER cUser PASSWORD cPwd DATABASE cDB

   oQry := oCn:Query("SELECT * FROM citas WHERE alerta = TRUE AND estado = FALSE AND usuario = 'MARKET'" + ;
                     " AND fecha = " + ClipValue2Sql(DATE()) + " AND hora <=  " + ClipValue2Sql(LEFT(TIME(),5)) )

   DEFINE DIALOG oDlg TITLE "Alertas para el dia " + DTOC(DATE()) FROM 09,15 TO 28,135 
   oDlg:lHelpIcon := .f.

   @ 01,080 XBROWSE oBrw1 DATASOURCE oQry SIZE 325,140 OF oDlg PIXEL ;
       COLUMNS "id","fecha","hora","horafin","motivo","estado","alerta";
       HEADERS "id","Fecha","Hora","Hasta","Motivo","Hecha?","Alerta?";
       SIZES   65,65,45,45,250,55,55   
 
   oBrw1:aCols[6]:SetCheck(,.t.)
   oBrw1:aCols[7]:SetCheck(,.t.)
   oBrw1:nFreeze := 7 
   oBrw1:CreateFromCode()
 
   @01,408 GROUP TO 140,468  PIXEL OF oDlg 
 
   @10,423 BUTTON oBot PROMPT "&Salir" OF oDlg SIZE 30,10 ACTION oDlg:End() PIXEL
   // Activo el dialog
   ACTIVATE DIALOG oDlg CENTER 
   
RETURN nil

   //:aCols[ 6 ]:cDataType := 'L'
   :aCols[ 6 ]:bEditValue := { || oQry:estado = .T. }