Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Replicate sending messages to a window
#1
The following routine sends correctly a message to window, the first time it is called :

Function tempf01
Code:
Select All      Help
,if eco.mcase=2 and but(id(27 hDlg))
,,str badescr=F"{eco.daTID}.{eco.daCODE}.{eco.daSERNO} - {eco.daDESCR}"
,,double baposon=eco.daPOSON
,,RCt ecba
,,ecba.bdate=badescr
,,ecba.daPOSON=baposon
,,outt F"{badescr} : {baposon} - {ecba.daPOSON}"
,,int dialogHandle=win("Σ.Ε.Σ. - Διαχείριση Οικονομικών *" "#32770")
,,SendMessage(dialogHandle WM_APP+4 0 &ecba)

Window receives :
Function tempf02
Code:
Select All      Help
,case WM_APP+4 ;; Enter record
,RCt* ecba=+lParam
,double- bnPOSON=ecba.daPOSON
,str- bndescr=ecba.bdate
,outt F"{bndescr} : {bnPOSON}"
,BA_ECAdd

However, the second time it is called, although the proper (new) values are set with tempf01, tempf02 receives the previous values, those set in the first call.

Any advice will be much appreciated. Many thanks in advance.
Reply
#2
OK ! I found my mistake. Corrected version :

Function tempf02
Code:
Select All      Help
,case WM_APP+4 ;; Enter record to bank
,RCt* ecba=+lParam
,double- bnPOSON
,bnPOSON=ecba.daPOSON
,str- bndescr
,bndescr=ecba.bdate
,outt F"{bndescr} : {bnPOSON}"
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)