*----------------------------------------------------------------------------* 
 FUNCTION nUx2cDts( nUx, lDts )		// nUx := 1508186400 
 *----------------------------------------------------------------------------* 
 	LOCAL dDate, cDate, cTime 
 	DEFAULT lDts := .F. 
  
 	tDate := hb_datetime( 1970, 1, 1 ) + nUx / 86400 
  
 	IF lDts ; RETURN tDate 
 	ENDIF 
  
 	cDate := DtoS( hb_TtoD( tDate ) ) 
 	cTime := hb_TtoC( tDate ) 
 	cTime := Subs( cTime, At(" ", cTime) + 1 ) 
 	cTime := StrTran( cTime, ":", "" ) 
 	cTime := StrTran( cTime, ".", "" ) 
  
 RETURN ( cDate + cTime ) 
  
 *----------------------------------------------------------------------------* 
 FUNCTION Gmt2Utc( cDate, lTrans, nHour ) 
 *----------------------------------------------------------------------------* 
 	LOCAL tDtm, tUtc, cTm1, cTm2 
 	LOCAL dDat, dNew, cTim 
 	LOCAL nTime, cTime 
 	LOCAL lHour := .T.					 // "+" 
 	LOCAL lDate := Empty(cDate) 
 	STATIC s_nHour 
 	DEFAULT cDate := DtoS(Date())+StrTran(Time(), ":", "") 
  
 	IF  ISLOGICAL(nHour) ; lHour := nHour ; nHour := Nil 
 	ELSEIF ISCHAR(nHour) ; lHour := "+" $ nHour ; nHour := Nil 
 	ENDIF 
  
 	dDat  := StoD(left(cDate, 8)) 
 	dNew  := dDat 
 	cTim  := Transform(Val(subs(cDate, 9, 6)), "99:99:99") 
  
 	IF s_nHour == Nil .or. lDate 
 	   cTm1 := cTm2 := "" 
 	   tDtm := hb_DateTime() 
 	   tUtc := hb_TSToUTC( tDtm ) 
 	   HB_TTOD( tDtm, @cTm1, "hh:mm:ss" ) 
 	   HB_TTOD( tUtc, @cTm2, "hh:mm:ss" ) 
 	   s_nHour := Val(cTm1) - Val(cTm2) 
 	ENDIF 
  
 	DEFAULT nHour := iif( lHour, s_nHour, -(s_nHour) ) , lTrans := .T. 
  
 	nTime := Secs(cTim) + nHour*60*60 
 	cTime := SecToTime(nTime + iif( nTime < 0, 24*60*60, 0 )) 
  
 	IF nHour < 0 ; dNew -= iif( Secs(cTime) > Secs(cTim ), 1, 0 ) 
 	ELSE	     ; dNew += iif( Secs(cTim ) > Secs(cTime), 1, 0 ) 
 	ENDIF 
  
 	cDate := DtoS( dNew ) + StrTran( cTime, ":", "" ) 
  
 	IF lTrans ; cDate := Transform( cDate, "@R 9999-99-99 99:99:99" ) 
 	ENDIF 
  
 RETURN cDate 
 

 
       @ y, x LABEL Period VALUE ot:cPer+":" WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr 
         x += This.Period.Width 
       @ y, x LABEL PerFrom VALUE ot:cPers WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr CENTERALIGN 
         x += This.PerFrom.Width + 2 
       @ y, x GETBOX PeriodFrom OBJ oGet     WIDTH oDlu:D3 HEIGHT h  VALUE CtoD("") ; 
              ACTION {|| _wPost(5, , This.Name) } IMAGE "view" PICTURE Nil ; 
              BUTTONWIDTH h FONT "FormNorm" BACKCOLOR BClr ; 
              ON INIT {|og| og:lOnGotFocusSelect := .T. } 
              oGet:OnF5 := {|og| _wPost(5, , og:cControlName) }                // VK_F5 
         x += This.PeriodFrom.Width + 2 
       @ y, x LABEL PerTo VALUE ot:cPerp     WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr CENTERALIGN 
         x += This.PerTo.Width + 2 
       @ y, x GETBOX PeriodTo  OBJ oGet   WIDTH oDlu:D3 HEIGHT h  VALUE CtoD("") ; 
              ACTION {|| _wPost(6, , This.Name) } IMAGE "view" PICTURE Nil ; 
              BUTTONWIDTH h FONT "FormNorm" BACKCOLOR BClr ; 
              ON INIT {|og| og:lOnGotFocusSelect := .T. } 
              oGet:OnF5 := {|og| _wPost(6, , og:cControlName) }                // VK_F5 
  
         y := This.Period.Row + This.Period.Height + nGh 
         x := This.Period.Col 
       @ y, x LABEL Times VALUE ot:cTime+":" WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr 
         x += This.Times.Width 
       @ y, x LABEL TimeFrom VALUE ot:cPers  WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr CENTERALIGN 
         x += This.TimeFrom.Width + 2 
       @ y, x GETBOX TimesFrom OBJ oGet    WIDTH oDlu:D3 HEIGHT h  VALUE space(6) ; 
              PICTURE "@R 99:99:99" VALID {|og,hw2| bValid(og, hw2) } ; 
              BUTTONWIDTH h FONT "FormNorm" BACKCOLOR BClr ; 
              ON INIT {|og| og:lOnGotFocusSelect := .T. } 
         x += This.TimesFrom.Width + 2 
       @ y, x LABEL TimeTo VALUE ot:cPerp   WIDTH oDlu:W1 HEIGHT h FONT "FormNorm" BACKCOLOR aBClr CENTERALIGN 
         x += This.TimeTo.Width + 2 
       @ y, x GETBOX TimesTo   OBJ oGet    WIDTH oDlu:D3 HEIGHT h  VALUE space(6) ; 
              PICTURE "@R 99:99:99" VALID {|og,hw2| bValid(og, hw2) } ; 
              BUTTONWIDTH h FONT "FormNorm" BACKCOLOR BClr ; 
              ON INIT {|og| og:lOnGotFocusSelect := .T. } 
 ... 
       :Event(10, {|ow,ky,cn|               // OK button 
                    LOCAL o := Sys.Cargo, ot := Sys.Cargo:oBaseText 
                    LOCAL oObj := ow:Cargo:oObject, aTmp, cTmp, cDt1, cDt2, cFil, cObj 
                    LOCAL aObj := {}, cGm1 
                    LOCAL aNam := {}, cGm2 
                    LOCAL cNam := This.Events.Value 
                    LOCAL dDt1 := This.PeriodFrom.Value 
                    LOCAL dDt2 := This.PeriodTo.Value 
                    LOCAL cTm1 := This.TimesFrom.Value 
                    LOCAL cTm2 := This.TimesTo.Value 
                    LOCAL oBuf := oKeyData() 
                    oBuf:cOwn := "" 
                    oBuf:cObj := "" 
                    oBuf:cPer := "" 
                    oBuf:cTim := "" 
                    oBuf:lRowId := This.RowID.Value 
                    FOR EACH aTmp IN oObj:GetAll() ; AAdd(aObj, aTmp[1]) 
                    NEXT 
                    IF Empty(aObj) 
                       cObj := This.ObjNum.Value 
                       IF Empty(cObj) 
                          MsgStop("Empty objects !", "ERROR") 
                          This.ObjNum.SetFocus 
                          DO EVENTS 
                          RETURN Nil 
                       ELSE 
                          aObj := { Tr0(cObj, 12) } 
                       ENDIF 
                    ENDIF 
                    DO EVENTS 
                    IF Empty(dDt1) 
                       MsgStop("Period: Date error or empty date from !", "ERROR") 
                       This.PeriodFrom.SetFocus 
                       DO EVENTS 
                       RETURN Nil 
                    ENDIF 
                    IF Empty(dDt2) 
                       MsgStop("Period: Date error or empty date to !", "ERROR") 
                       This.PeriodTo.SetFocus 
                       DO EVENTS 
                       RETURN Nil 
                    ENDIF 
                    IF dDt1 > dDt2 
                       MsgStop("Period: Date from > Date to !", "ERROR") 
                       This.PeriodFrom.SetFocus 
                       DO EVENTS 
                       RETURN Nil 
                    ENDIF 
                    cTm1 := left(trim(cTm1)+repl("0", 6), 6) 
                    cTm2 := left(trim(cTm2)+repl("0", 6), 6) 
                    cDt1 := hb_DtoC(dDt1, "YYYYMMDD")+cTm1 
                    cDt2 := hb_DtoC(dDt2, "YYYYMMDD")+cTm2 
                    lEmpty := Empty(Val(cTm1)) .and. Empty(Val(cTm2)) 
                    IF lEmpty 
                       cGm1 := Gmt2Utc(cDt1  , .F., .F.) 
                       cDt2 := hb_DtoC(dDt2+1, "YYYYMMDD")+cTm2 
                       cGm2 := Gmt2Utc(cDt2  , .F., .F.) 
                    ELSE 
                       cGm1 := Gmt2Utc(cDt1, .F., .F.) 
                       cGm2 := Gmt2Utc(cDt2, .F., .F.) 
                    ENDIF 
                    cNam := trim(cNam) 
                    IF !Empty(cNam) 
                       FOR EACH cTmp IN hb_ATokens(cNam, ";") 
                           IF !Empty(cTmp) ; AAdd( aNam, upper(alltrim(cTmp)) ) 
                           ENDIF 
                       NEXT 
                    ENDIF 
                    IF Len(aObj) > 1 ; aObj := ASort(aObj) 
                    ENDIF 
                    oBuf:aObj := aClone(aObj) 
                    oBuf:cOwn := "" 
                    oBuf:cObj := "" 
                    oBuf:cPer := hb_DtoC(dDt1, "DD.MM.YYYY")+"."+" - "+hb_DtoC(dDt2, "DD.MM.YYYY")+"." 
                    IF !Empty(Val(cTm1)) .and.  !Empty(Val(cTm2)) 
                       oBuf:cTim := Transform(cTm1, "@R 99:99:99")+" - "+Transform(cTm2, "@R 99:99:99") 
                    ENDIF 
                    oMain:StatusBar:Say(ot:cWait, 1) ; DO EVENTS 
                    cFil := Select_God( cGm1, cGm2, aObj, aNam, lEmpty ) 
                    oMain:StatusBar:Say("", 1) ; DO EVENTS 
                    IF !Empty(cFil) .and. hb_FileExists(cFil+".dbf") 
                       wSelectEvent(cFil, oBuf) 
                    ENDIF 
                    RETURN Nil 
                  }) 
 ...