FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Using oRec:Modified() in BUTTON with WHEN
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Using oRec:Modified() in BUTTON with WHEN
Posted: Thu Sep 13, 2018 07:32 PM
Hi,

I have compiled "maria15.prg" with this change "WHEN oRec:Modified()" in btnbmp command.

Code (fw): Select all Collapse
 聽 @ 420,020 BTNBMP PROMPT "Save" 聽 SIZE 150,30 PIXEL FLAT OF oDlg ; 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 ACTION ( If( oRec:Modified(), oRec:Save(), nil ), oDlg:End() ) WHEN oRec:Modified()


It behaved like I expected. When I press add or edit, "Save" button is disable. When I modified any field (with enter or focus another field), "Save" button is enabled. THERE IS NO PROBLEM IN THIS CASE.

Next, I have put all the fields in a folderEx and "Save" button never Enabled when I change fields. WHY?

Thanks in advance.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Fri Sep 14, 2018 06:33 AM

Hakan,

We are checking it

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Fri Sep 14, 2018 09:50 PM
Horizon wrote:Hi,

It behaved like I expected. When I press add or edit, "Save" button is disable. When I modified any field (with enter or focus another field), "Save" button is enabled. THERE IS NO PROBLEM IN THIS CASE.

Next, I have put all the fields in a folderEx and "Save" button never Enabled when I change fields. WHY?

Thanks in advance.


Please, explain better
Your put your BtnBmp in oDlg ( parent of oFolderEx ) or in oFoldeEx:aDialogs[ n ] ( for example n = 1, .... ) ?
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 08:11 AM
cnavarro wrote:
Horizon wrote:Hi,

It behaved like I expected. When I press add or edit, "Save" button is disable. When I modified any field (with enter or focus another field), "Save" button is enabled. THERE IS NO PROBLEM IN THIS CASE.

Next, I have put all the fields in a folderEx and "Save" button never Enabled when I change fields. WHY?

Thanks in advance.


Please, explain better
Your put your BtnBmp in oDlg ( parent of oFolderEx ) or in oFoldeEx:aDialogs[ n ] ( for example n = 1, .... ) ?


Hi Mr. Navarro,

This is modified version of Maria15.prg with folderex. This shows the problem.

Thanks.

Code (fw): Select all Collapse
/*
* Demonstrates oRs:EditBaseRecord( [cFieldList], [lAppend], [bEditDlg], [oBrw] )
* Where RowSet contains only some of the fields. this method can be used
* to edit full record of the table with all fields/selected fields
*
*/

#include "fivewin.ch"
#include "dbcombo.ch"

static aStates

//----------------------------------------------------------------------------//

function Main()

聽 聽local oCn, oRs
聽 聽local oDlg, oBrw

聽 聽FWNumFormat( "A", .t. )

聽 聽oCn 聽 := FW_DemoDB()

聽 聽aStates 聽:= oCn:Execute( "SELECT CODE,NAME FROM states" )
聽 聽oRs 聽 := oCn:RowSet( "SELECT ID,FIRST,CITY,SALARY FROM customer" )

聽 聽DEFINE DIALOG oDlg SIZE 500,600 PIXEL TRUEPIXEL ;
聽 聽 聽 TITLE "EditBaseRecord()"

聽 聽@ 70,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
聽 聽 聽 DATASOURCE oRs AUTOCOLS ;
聽 聽 聽 COLSIZES -4, -20, -20 ;
聽 聽 聽 CELL LINES NOBORDER FOOTERS

聽 聽WITH OBJECT oBrw
聽 聽 聽 :Salary:nFooterType 聽:= AGGR_SUM
聽 聽 聽 :MakeTotals()
聽 聽 聽 :CreateFromCode()
聽 聽END

聽 聽@ 20, 20 BTNBMP PROMPT "ADD" 聽SIZE 100,30 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION oRs:EditBaseRecord( nil, .t., { |oRec| MyEditDlg( oRec ) }, oBrw )

聽 聽@ 20,130 BTNBMP PROMPT "EDIT" SIZE 100,30 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION oRs:EditBaseRecord( nil, .f., { |oRec| MyEditDlg( oRec ) }, oBrw )

聽 聽ACTIVATE DIALOG oDlg CENTERED

return nil

static function MyEditDlg( oRec )

聽 聽local lNew 聽 聽 := ( oRec:RecNo == 0 )
聽 聽local oDlg, oFont, oFld

聽 聽DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15
聽 聽DEFINE DIALOG oDlg SIZE 400,470 PIXEL 聽FONT oFont ;
聽 聽 聽 TITLE If( lNew, "ADD NEW ", "EDIT" ) + " RECORD"
聽 聽 聽 
聽 聽 @ 2, 3 FOLDERex oFld OF oDlg SIZE 395, 390 PIXEL; 
聽 聽 聽 PROMPTS "Page1", "Page2","Page3","Page4" ;
聽 聽 聽 ROUND 10 
聽 
聽 聽@ 015,010 SAY "ID :" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 030,010 SAY "First" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 045,010 SAY "Last" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 060,010 SAY "Street" 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 075,010 SAY "City" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 090,010 SAY "State" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 105,010 SAY "Zip" 聽 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 120,010 SAY "HireDate" 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 135,010 SAY "Married" 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 150,010 SAY "Age" 聽 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 165,010 SAY "Salary" 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 180,010 SAY "Notes" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT

聽 聽@ 015,055 GET oRec:ID 聽 聽 聽 聽 SIZE 050,12 PIXEL OF oFld:aDialogs[1] READONLY RIGHT
聽 聽@ 030,055 GET oRec:First 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:First )
聽 聽@ 045,055 GET oRec:Last 聽 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:Last )
聽 聽@ 060,055 GET oRec:Street 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:Street )
聽 聽@ 075,055 GET oRec:City 聽 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:City )
聽 聽@ 090,055 DBCOMBO oRec:State 聽SIZE 120,300 PIXEL OF oFld:aDialogs[1] ;
聽 聽 聽 ALIAS aStates ITEMFIELD "1" LISTFIELD "2"
聽 聽@ 105,055 GET oRec:Zip 聽 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:Zip )
聽 聽@ 120,055 GET oRec:HireDate 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:HireDate )
聽 聽@ 135,055 CHECKBOX oRec:Married PROMPT "" SIZE 22,12 PIXEL OF oFld:aDialogs[1]
聽 聽@ 150,055 GET oRec:Age 聽 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] PICTURE "99" RIGHT VALID ( oRec:Age >= 20 )
聽 聽@ 165,055 GET oRec:Salary 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] PICTURE "999,999.99" RIGHT VALID ( oRec:Salary > 0 )
聽 聽@ 180,055 GET oRec:Notes 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1]

聽 聽@ 210,010 BTNBMP PROMPT "Save" 聽 SIZE 75,15 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION ( If( oRec:Modified(), oRec:Save(), nil ), oDlg:End() ) WHEN oRec:Modified()
聽 聽 聽 
聽 聽@ 210,120 BTNBMP PROMPT "Cancel" SIZE 75,15 PIXEL FLAT OF oDlg ACTION oDlg:End()

聽 聽ACTIVATE DIALOG oDlg CENTERED 
聽 聽 聽 //ON PAINT oDlg:Box( 15, 10, 395, 390 )

return nil
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 10:49 AM
Yes, please, look my sample
You are defining the coordinates of the buttons with values that belong to dialog 1 of the folder, so the defined actions do not work, even if you have defined with the OF clause, that belong to the main dialog
I changed any size and coordinates of your sample.
I changed nClrPane of dialogs childs of folder only for control size of folder and dialogs defined
When you define the buttons in the main dialog that contains the folder and not in the dialogs of the folder, the actions that you perform in the gets of each dialog do not refresh the defined buttons in main dialog
If you define buttons of oFld:aDialogs[ 1 ], run ok also ( please look your coordinates in this case )
Therefore, you have to control the refresh of the buttons when these controls are in another dialog different from the one with the focus ( and get defined )
Look get of oRec:Last,
This can be a way to control this

Code (fw): Select all Collapse
/*
* Demonstrates oRs:EditBaseRecord( [cFieldList], [lAppend], [bEditDlg], [oBrw] )
* Where RowSet contains only some of the fields. this method can be used
* to edit full record of the table with all fields/selected fields
*
*/

#include "fivewin.ch"
#include "dbcombo.ch"

static aStates

//----------------------------------------------------------------------------//

function Main()

聽 聽local oCn, oRs
聽 聽local oDlg, oBrw

聽 聽FWNumFormat( "A", .t. )

聽 聽oCn 聽 := FW_DemoDB()

聽 聽aStates 聽:= oCn:Execute( "SELECT CODE,NAME FROM states" )
聽 聽oRs 聽 := oCn:RowSet( "SELECT ID,FIRST,CITY,SALARY FROM customer" )

聽 聽DEFINE DIALOG oDlg SIZE 500,600 PIXEL TRUEPIXEL ;
聽 聽 聽 TITLE "EditBaseRecord()"

聽 聽@ 70,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
聽 聽 聽 DATASOURCE oRs AUTOCOLS ;
聽 聽 聽 COLSIZES -4, -20, -20 ;
聽 聽 聽 CELL LINES NOBORDER FOOTERS

聽 聽WITH OBJECT oBrw
聽 聽 聽 :Salary:nFooterType 聽:= AGGR_SUM
聽 聽 聽 :MakeTotals()
聽 聽 聽 :CreateFromCode()
聽 聽END

聽 聽@ 20, 20 BTNBMP PROMPT "ADD" 聽SIZE 100,30 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION oRs:EditBaseRecord( nil, .t., { |oRec| MyEditDlg( oRec ) }, oBrw )

聽 聽@ 20,130 BTNBMP PROMPT "EDIT" SIZE 100,30 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION oRs:EditBaseRecord( nil, .f., { |oRec| MyEditDlg( oRec ) }, oBrw )

聽 聽ACTIVATE DIALOG oDlg CENTERED

return nil

static function MyEditDlg( oRec )

聽 聽local lNew 聽 聽 := ( oRec:RecNo == 0 )
聽 聽local oDlg, oFont, oFld

聽 聽DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15
聽 聽DEFINE DIALOG oDlg SIZE 400,570 PIXEL 聽FONT oFont ;
聽 聽 聽 TITLE If( lNew, "ADD NEW ", "EDIT" ) + " RECORD"
聽 聽 聽 
聽 聽 //@ 2, 3 FOLDERex oFld OF oDlg SIZE 395, 390 PIXEL; 
聽 聽 @ 2, 3 FOLDERex oFld OF oDlg SIZE 380/2, 440/2 PIXEL; 
聽 聽 聽 PROMPTS "Page1", "Page2","Page3","Page4" ;
聽 聽 聽 ROUND 10 
聽 聽// This for look size of folder and dialogs and not put buttons in a dialog of folder
聽 聽AEVal( oFld:aDialogs, { | o | o:SetColor( CLR_BLUE, CLR_YELLOW ) } )

聽 聽@ 015,010 SAY "ID :" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 030,010 SAY "First" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 045,010 SAY "Last" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 060,010 SAY "Street" 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 075,010 SAY "City" 聽 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 090,010 SAY "State" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 105,010 SAY "Zip" 聽 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 120,010 SAY "HireDate" 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 135,010 SAY "Married" 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 150,010 SAY "Age" 聽 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 165,010 SAY "Salary" 聽 聽 聽 聽SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT
聽 聽@ 180,010 SAY "Notes" 聽 聽 聽 聽 SIZE 40,10 PIXEL OF oFld:aDialogs[1] RIGHT

聽 聽@ 015,055 GET oRec:ID 聽 聽 聽 聽 SIZE 050,12 PIXEL OF oFld:aDialogs[1] READONLY RIGHT
聽 聽@ 030,055 GET oRec:First 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:First )
聽 聽@ 045,055 GET oRec:Last 聽 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID ( oDlg:AEValWhen(), !Empty( oRec:Last ) )
聽 聽@ 060,055 GET oRec:Street 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:Street )
聽 聽@ 075,055 GET oRec:City 聽 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:City )
聽 聽@ 090,055 DBCOMBO oRec:State 聽SIZE 120,300 PIXEL OF oFld:aDialogs[1] ;
聽 聽 聽 ALIAS aStates ITEMFIELD "1" LISTFIELD "2"
聽 聽@ 105,055 GET oRec:Zip 聽 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:Zip )
聽 聽@ 120,055 GET oRec:HireDate 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] VALID !Empty( oRec:HireDate )
聽 聽@ 135,055 CHECKBOX oRec:Married PROMPT "" SIZE 22,12 PIXEL OF oFld:aDialogs[1]
聽 聽@ 150,055 GET oRec:Age 聽 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1] PICTURE "99" RIGHT VALID ( oRec:Age >= 20 )
聽 聽@ 165,055 GET oRec:Salary 聽 聽 SIZE 120,12 PIXEL OF oFld:aDialogs[1] PICTURE "999,999.99" RIGHT VALID ( oRec:Salary > 0 )
聽 聽@ 180,055 GET oRec:Notes 聽 聽 聽SIZE 120,12 PIXEL OF oFld:aDialogs[1]

聽 聽@ 250,010 BTNBMP PROMPT "Save" 聽 SIZE 75,15 PIXEL FLAT OF oDlg ;
聽 聽 聽 ACTION ( If( oRec:Modified(), oRec:Save(), nil ), oDlg:End() ) WHEN oRec:Modified()
聽 聽 聽 
聽 聽@ 250,120 BTNBMP PROMPT "Cancel" SIZE 75,15 PIXEL FLAT OF oDlg ACTION oDlg:End()

聽 聽ACTIVATE DIALOG oDlg CENTERED 
聽 聽 聽 //ON PAINT oDlg:Box( 15, 10, 395, 390 )

return nil
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 11:58 AM

Thank you Mr. Navarro,

This is only sample for demontranting my problem.

  1. I cannot define save, cancel buton in folder's diyalog. Because this butons are in my class. I Just define The gets.

  2. I also cannot write "odlg:AEvalWhen()" every gets. There are lots of gets.

I belive it should be a short way.

Regards

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 12:46 PM

And you want the status of the button to change the moment you change the value of a get, right? .......................

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 12:54 PM

Yes Mr. Navarro

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 02:13 PM
Or

Code (fw): Select all Collapse
.../...

   AEVal( oFld:aDialogs[ 1 ]:aControls, { | o | o:bLostFocus := { | o | oDlg:AEValWhen() } } )  

   @ 250,010 BTNBMP PROMPT "Save"   SIZE 75,15 PIXEL FLAT OF oDlg ;
      ACTION ( If( oRec:Modified(), oRec:Save(), nil ), oDlg:End() ) WHEN oRec:Modified()
      
   @ 250,120 BTNBMP PROMPT "Cancel" SIZE 75,15 PIXEL FLAT OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sat Sep 15, 2018 05:41 PM

Hi Mr. Navarro,

It seems it works when we don't use bLostFocus locally in get.

Thanks.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sun Sep 16, 2018 07:21 PM
Hi Mr. Navarro,

When I try use below line,
Code (fw): Select all Collapse
AEVal( oFld:aDialogs[ 1 ]:aControls, { | o | o:bLostFocus := { | o | oDlg:AEValWhen() } } )


I think there is a problem like that. When you change a field and tab or using mouse another field. There is not any change in button status. it is still disabled. but when i press tab or using mouse another field second time, button is enabled. Is it normal?

This behavior can also be seen my modified example of maria15.prg.

Thanks.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Sun Sep 16, 2018 09:39 PM
Horizon wrote:Hi Mr. Navarro,

When I try use below line,
Code (fw): Select all Collapse
AEVal( oFld:aDialogs[ 1 ]:aControls, { | o | o:bLostFocus := { | o | oDlg:AEValWhen() } } )


I think there is a problem like that. When you change a field and tab or using mouse another field. There is not any change in button status. it is still disabled. but when i press tab or using mouse another field second time, button is enabled. Is it normal?

This behavior can also be seen my modified example of maria15.prg.

Thanks.


Hakan, for me it's OK

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Mon Sep 17, 2018 07:05 AM

Hi Mr. Navarro,

I think I could not tell my problem.

First, press edit button.

Change OSCAR to OSCAR1 at First field.

click Last field

You can see than Save button is not enabled.

click Street field.

Save button is enabled.

It is not ok.

You have not change any field in your example.

Thanks.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Mon Sep 17, 2018 10:39 AM
Hakan, try with this

Code (fw): Select all Collapse
   AEVal( oFld:aDialogs[ 1 ]:aControls, { | o | if( o:ClassName() == "TGET" .and. !o:lReadOnly, ;
               ( o:bGotFocus := { | o | oDlg:AEValWhen() } ), ) } )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Using oRec:Modified() in BUTTON with WHEN
Posted: Mon Sep 17, 2018 11:11 AM

Hi Mr. Navarro,

It seems It is OK now.

Thank again.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Static archive 路 New replies & topics via GitHub Discussions