refresh say object

Ehab Samir Aziz · Post by **Ehab Samir Aziz** » Fri Feb 23, 2007 4:02 pm

How can I refresh the say object in variable oSay_acct down in the code
I am getting data from combpbox and then serach() the data to get display say variable

Code: Select all

@ 1,1 SAY "&Account Name" OF oDlg PIXEL
   @ 1,50 SAY ":" OF oDlg PIXEL
   @ 1,60 COMBOBOX V_CU_NAME ITEMS aBase1(1,"cust",256,"cu_name") size 150,120 OF oDlg PIXEL ;
ON CHANGE (search("V_CU_NAME","cu_name","cust"),oSay_acct:Refresh(),oDlg:Refresh())


   @ 1,300 SAY "&Account No." OF oDlg PIXEL
   @ 1,340 SAY ":" OF oDlg PIXEL 
   @ 1,350 say V_CU_ACCT  
   @ 1,350 say oSay_acct VAR V_cu_acct OF oDlg PIXEL;

...

function search(variable,field,filename)
//--------------------------------------
use (filename)
locate for (alltrim(variable) == alltrim((filename)->(field)))
if found()
(variable):=((filename)->(field))
? "I am inside search    " + variable
endif
return nil

Rochinha · Post by **Rochinha** » Fri Feb 23, 2007 4:53 pm

Try

Code: Select all

function search(variable,field,filename) 
//-------------------------------------- 
use (filename) 
locate for (alltrim(variable) == alltrim((filename)->(field))) 
if found() 
(variable):=((filename)->(field)) 
? "I am inside search    " + variable 
//

   oSay_acct:SetText( variable )
   oSay_acct:Refresh()

//
endif 
return nil

Ehab Samir Aziz · Post by **Ehab Samir Aziz** » Fri Feb 23, 2007 11:37 pm

program does not the search function . How can I involve a function into on change clause ?
Any other ideas about how can I reach my result ?

ON CHANGE (function_call,("V_CU_NAME","cu_name","cust"),oSay_acct:Refresh(),oDlg:Refresh())

Rochinha · Post by **Rochinha** » Sat Feb 24, 2007 1:28 am

You need this

Run a app TEST4.EXE and click in the button search.

http://www.shoppmarketing.com/forum/ehab.zip