- Code: Select all Expand view
@ 6,120 SAY "Dal :" SIZE 20,11 PIXEL OF oFolder:aDialogs[1] TRANSPARENT FONT oBold
@ 3, 140 DTPICKER aGet[3] VAR ddcheckin SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
PICTURE "ddd dd mmm yyyy"
WITH OBJECT aGet[3]
:lNoToday := .t.
:lNoTodayCircle := .t.
:SetRange( dStagioneMin,dStagioneMax )
END
@ 23,120 SAY "al :" SIZE 20,11 PIXEL OF oFolder:aDialogs[1] TRANSPARENT FONT oBold
@ 22,140 DTPICKER aGet[4] VAR ddcheckout SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
PICTURE "ddd dd mmm yyyy" UPDATE
WITH OBJECT aGet[4]
:lNoToday := .t.
:lNoTodayCircle := .t.
:SetRange( ddcheckin, dStagioneMax )
END
If I use directly oPrenotazione:check_in instead of aGet[3] VAR ddcheckin
or oPrenotazione:chek_out instead of aGet[4] VAR ddcheckout
- Code: Select all Expand view
@ 6,120 SAY "Dal :" SIZE 20,11 PIXEL OF oFolder:aDialogs[1] TRANSPARENT FONT oBold
@ 3, 140 DTPICKER oPrenotazione:check_in SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
PICTURE "ddd dd mmm yyyy"
WITH OBJECT oPrenotazione:check_in
:lNoToday := .t.
:lNoTodayCircle := .t.
:SetRange( dStagioneMin,dStagioneMax )
END
@ 23,120 SAY "al :" SIZE 20,11 PIXEL OF oFolder:aDialogs[1] TRANSPARENT FONT oBold
@ 22,140 DTPICKER oPrenotazione:check_out SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
PICTURE "ddd dd mmm yyyy" UPDATE
WITH OBJECT oPrenotazione:check_out
:lNoToday := .t.
:lNoTodayCircle := .t.
:SetRange(oPrenotazione:check_in, dStagioneMax )
END
the dialog make this error
Error description: Error BASE/1005 Variabile non disponibile: LNOTODAY
Args:
[ 1] = D - -
[ 2] = L .T.
Stack Calls
===========
Called from: => _LNOTODAY( 0 )
Called from: test.prg => PRENOTAZIONE( 778 )
at line 778 there is
WITH OBJECT oPrenotazione:check_in
:lNoToday := .t.
obviously oPrenotazione is oPrenotazione: = oReservations: record (.t.) or record()
How I can resolve it ?