FiveTech Support Forums

#include "dtpicker.ch"

STATIC FUNCTION PRENOTAZIONE( oBtn )
   LOCAL oDlg, lReg:=.F.
   LOCAL cCustomer :=Space(40),oCustomer
   LOCAL oFont1,aOra,aVar:= Hora()

   DEFINE DIALOG oDlg ;
       FROM 317, 412 TO 475, 732 PIXEL ;
       TITLE "Prenotazione!"
          @ 1,  2 SAY " Sig./ra : " OF oDlg
          @ 1.3,  6 GET oCustomer VAR cCustomer OF oDlg SIZE 100, 10  VALID ! Empty(cCustomer)picture "@!"
          @ 2.6,  6 SAY "Alle ore  : " OF oDlg
          @ 2,  12  TMPicker aOra Var aVar SIZE 40, 10 Update of oDlg
          @ 3,  7 BUTTON "&Conferma" OF oDlg SIZE 30, 12 ACTION(lReg:=.T., oDlg:End())
          @ 3, 16 BUTTON "&Annula" OF oDlg  SIZE 30, 12 ACTION(lReg:=.F., oDlg:End()) CANCEL
          ACTIVATE DIALOG oDlg
return nil


STATIC FUNCTION Hora()

  local nAux, nMin, nHor, nSec, cMin, cHor, cSec
  nSec := Seconds()
  nAux := Int(nSec) / 3600
  nHor := Int(nAux)
  nAux := (nAux - nHor) * 60
  nMin := Int(nAux)
  nSec := Int( (nAux - nMin) * 60 )
  cHor := Padl( alltrim(str(nHor)), 2, '0')
  cMin := Padl( alltrim(str(nMin)), 2, '0')
  cSec := Padl( alltrim(str(nSec)), 2, '0')

  return cHor + cMin + cSec