topic-25155

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

refreshing on a get
Posted: Wed Nov 07, 2012 04:41 PM

I have a strange error or I not remeber as refresh a numeric get control after I insert another get

I wish refresh the second get with the value of first get , any help please ?

the minimal test

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "constant.ch"
#include "Report.ch"

Function test()
   LOcal  oDlg
Local aGet[20]
Local nApimpneto:=0
Local nApimptotal:=0


   Local nBottom   := 26.9
   Local nRight    := 46
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H
   Local  oFont  := TFont():New( "Lucida Console", 0, 12,, )

 DEFINE DIALOG oDlg        ;
   TITLE "test refresh"   ;
   SIZE nWidth, nHeight  TRANSPARENT PIXEL               
     

  @ 92, 10 SAY "Importo:" OF oDlg SIZE 35, 8 PIXEL FONT oFont
  @ 90, 56 GET aGet[8] VAR nApimpneto  OF oDlg SIZE 40, 10 RIGHT PIXEL PICTURE  "@E999,999.99"  FONT oFont ;
                    ON CHANGE  (nApimptotal:= nApimpneto ,aGet[13]:refresh())



   @ 128, 10 SAY "Totale:" OF oDlg SIZE 35, 8 PIXEL FONT oFont
   @ 126, 56 GET aGet[13] VAR nApimptotal OF oDlg SIZE 40, 10 PIXEL PICTURE  "@E999,999.99" FONT oFont RIGHT   READONLY



ACTIVATE DIALOG oDlg

retu nil

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: refreshing on a get
Posted: Wed Nov 07, 2012 06:09 PM

Excuse, i dont speake english, try again use UPDATE en los GET...

REDEFINE GET aGet[2] VAR aVar[2] ID 102 OF oDlg UPDATE READONLY // NOMB.CLIENTE

saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: refreshing on a get
Posted: Wed Nov 07, 2012 06:20 PM

NOT RUN OK

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: refreshing on a get
Posted: Wed Nov 07, 2012 06:40 PM

Code (fw): Select all Collapse

ON CHANGE  (aGet[8]:Assign(),nApimptotal:= nApimpneto ,aGet[13]:refresh())

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: refreshing on a get
Posted: Wed Nov 07, 2012 06:41 PM

Silvio, because you do not use the valid

@ 90, 56 GET aGet[8] VAR nApimpneto OF oDlg SIZE 40, 10 RIGHT PIXEL PICTURE "@E999,999.99" FONT oFont ;
valid( iif( nApimpneto > o, ( nApimptotal := nApimpneto, aGet[13]:refresh(), .t. ), .f. ) )

saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: refreshing on a get
Posted: Wed Nov 07, 2012 07:18 PM

Enrico Maria Giordano wrote:
Code (fw): Select all Collapse
ON CHANGE  (aGet[8]:Assign(),nApimptotal:= nApimpneto ,aGet[13]:refresh())
EMG

Emg thanks run ok

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

StefanHaupt

Posts: 824

Joined: Thu Oct 13, 2005 07:39 AM

Re: refreshing on a get
Posted: Thu Nov 08, 2012 08:13 AM

Enrico,