FiveTech Support Forums

james,

if you call datepick control you make

@x,y DATEPICK oPrenotazione:check_in .....

so the field is oPrenotazione:check_in on tdatabase because
oPrenotazione is the single record

oPrenotazione:= oReservations:record(.t.)

as (exlusive) RESERVA->CHECK_IN

WITH OBJECT oPrenotazione:check_in
:lNoToday := .t.

obviously oPrenotazione is oPrenotazione: = oReservations: record (.t.) or record()

nageswaragunupudi wrote:Please revise this code

Code (fw): Select all Collapse

@  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

as

Code (fw): Select all Collapse

@  3, 140 DTPICKER oDtpIn VAR oPrenotazione:check_in SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
   PICTURE "ddd dd mmm yyyy"

WITH OBJECT oDtpIn
   :lNoToday         := .t.
   :lNoTodayCircle   := .t.
   :SetRange( dStagioneMin,dStagioneMax )
END

@  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

@  3, 140 DTPICKER oDtpIn VAR oPrenotazione:check_in SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;
   PICTURE "ddd dd mmm yyyy"

WITH OBJECT oDtpIn         // the datepicker control object name, NOT the variable name
   :lNoToday         := .t.      // The next three are data of the datepicker object oDtpin
   :lNoTodayCircle   := .t.
   :SetRange( dStagioneMin,dStagioneMax )
END

as I did before when I used the exclusive way
and then when I have to save I can't just use oCust:Save ()

but I must save all fields with

oCust: first := cFirst
oCust: Last:= cLast

Silvio,

>or should I just use the object only for the Datepick? -No

>I ask you because you always told me not to put the objects ( Type ie. @x,y GET aGET[x] VAR field ....)

You should use it for everything. Because the record object has it's own set of field variables, you don't need to code scatter/gather routines. Just use the object syntax for any field you want to edit, then call the save method when you are done.

Here is an example using a record object (not a table object):

oReservation:StartDate:= date()
oReservation:EndDate:= date() + nDays
oReservation:save()

It doesn't get any easier than that.

Silvio,

@ 94, 175 GET aGet[8] VAR oTariffa:sconto OF oDlgMod SIZE 60, 12 ;
PIXEL PICTURE '@ €99,999.99' RIGHT FONT oFont UPDATE ;
ON CHANGE ((nTotale:= oTariffa:costo-oTariffa:sconto),oTariffa:totale:=ntotale ,aGet[9]:refresh())

The problem exists because the object, oTariffa, is not visible inside the get object. There are ways to solve this, but since your solution only requires 6 lines of code it is probably less work than figuring out the syntax that will work.

Otherwise you might try:

aGet[8]:bChange := {| oTariffa | (nTotale:= oTariffa:costo-oTariffa:sconto),oTariffa:totale:=ntotale ,aGet[9]:refresh() }

This passes the object (oTariffa) to the bChange codeblock so it is visible inside the codeblock.

To make it even shorter you could add a method Total to the TTeriffa class. Then bChange would look like this:

aGet[8]:bChange := {| oTariffa | oTariffa:totale:= oTariffa:Total(), aGet[9]:refresh() }

You might also have to pass aGet[9].

If you add the Method Total to the TTariffa class, then you should probably add these lines to the TTariffa class, then you should also create a new Save() method:

Method Save() Class TTariffa
::totale:= ::Total()
Return ::Save()

This insures that the totale field will always be correct.

Looking at the preprossor output will help understanding how to solve problems like this.

There are lots of things to try if you are so inclined. Otherwise just use what you already have.

James

James Bott wrote:Silvio,

@ 94, 175 GET aGet[8] VAR oTariffa:sconto OF oDlgMod SIZE 60, 12 ;
PIXEL PICTURE '@ €99,999.99' RIGHT FONT oFont UPDATE ;
ON CHANGE ((nTotale:= oTariffa:costo-oTariffa:sconto),oTariffa:=ntotale ,aGet[9]:refresh())

The problem exists because the object, oTariffa, is not visible inside the get object. There are ways to solve this, but since your solution only requires 6 lines of code it is probably less work than figuring out the syntax that will work.

Otherwise you might try:

aGet[8]:bChange := {| oTariffa | (nTotale:= oTariffa:costo-oTariffa:sconto),oTariffa:=ntotale ,aGet[9]:refresh() }

This passes the object (oTariffa) to the bChange codeblock so it is visible inside the codeblock.

To make it even shorter you could add a method Total to the TTeriffa class. Then bChange would look like this:

aGet[8]:bChange := {| oTariffa | oTariffa:= oTariffa:Total(), aGet[9]:refresh() }

You might also have to pass aGet[9].

If you add the Method Total to the TTariffa class, then you should probably add these lines to the TTariffa class, then you should also create a new Save() method:

Method Save() Class TTariffa
::= ::Total()
Return ::Save()

This insures that the totale field will always be correct.

Looking at the preprossor output will help understanding how to solve problems like this.

There are lots of things to try if you are so inclined. Otherwise just use what you already have.

James

even if you tell me it's wrong to do it this way

ok ok ok received the message