Code: Select all
uData := oRs:Fields( "CHECKTIME" ):Value
uData := ttos( uData )
cFecha := STod(Substr(uData,1,8))
cHora := Substr(uData,9,2)+":"+Substr(uData,11,2)+":"+Substr(uData,13,2)
Code: Select all
uData := oRs:Fields( "CHECKTIME" ):Value
uData := ttos( uData )
cFecha := STod(Substr(uData,1,8))
cHora := Substr(uData,9,2)+":"+Substr(uData,11,2)+":"+Substr(uData,13,2)
Code: Select all
oBrow2:lColChangeNotify := .T.
oBrow2:bChange := {|nRow,nCol| IF(oBrow2:nColSel<>3, (oBrow2:nColSel:=3,oBrow2:Refresh()),"") }