Mira se ayuda:
http://forums.fivetechsupport.com/viewtopic.php?p=76308
#include "fivewin.ch"
#include "xbrowse.ch"
#include "dtpicker.ch"
Function main()
local oWnd, oBrw, oBrw2, oFld
local aArray := { {"one",time(),DATE()},;
{"two",time(),DATE()},;
{"three",time(),DATE()},;
{"four",time(),DATE()},;
{"five",time(),DATE()} }
set date format to "mm/dd/yyyy"
use customer alias customer new
define window oWnd title "Test DatePick and TimePick on xBrwose"
@ 0,0 FOLDER oFld OF oWnd size 300,300;
PROMPTS "Array", "Dbf"
@ 0,0 xbrowse oBrw columns {1,2,3} array aArray of oFld:aDialogs[ 1 ] fastedit
oBrw:nRowHeight := 25
oBrw:aCols[ 1 ]:nEditType := EDIT_GET
oBrw:aCols[ 2 ]:nEditType := EDIT_TIME
oBrw:aCols[ 2 ]:nWidth := 130
oBrw:aCols[ 3 ]:nEditType := EDIT_DATE
oBrw:aCols[ 3 ]:nWidth := 130
oBrw:lAutoappend := .f.
oBrw:CreateFromCode()
@ 0,0 xbrowse oBrw2 columns "first", "last", "hiredate" alias "customer" of oFld:aDialogs[ 2 ] fastedit
oBrw2:nRowHeight := 25
oBrw2:aCols[ 3 ]:nEditType := EDIT_DATE
oBrw2:aCols[ 3 ]:nWidth := 130
oBrw2:lAutoappend := .f.
oBrw2:CreateFromCode()
oWnd:oClient := oFld
oFld:aDialogs[ 1 ]:oClient := oBrw
oFld:aDialogs[ 2 ]:oClient := oBrw2
activate window oWnd on init (oFld:aDialogs[ 1 ]:resize())
return nil
Saludos.