Click Left Mouse Button on Record selected via KeyDown

[philipq]

Ok will try...

In the meanwhile below is the code I just finish while you were on it...
Could you advise if the check I am doing on cost is correct?
Is that the way to check if an option as cost valued above zero?

Macro Get Cost Options

Code:

Copy      Help

,int onceFlag=0
,
,;repFindOptions
,'D; 0.25 ;; Skip first line as it is vehicle base price
,
,scan "color:0xFF9933" child("" "KCMLGridPad_32" w3 0x0 "id=100" 2) 0 1|2|16
,dou; 1
,
,int w5=win("Vehicle Specification Line Detail" "KCMLMasterForm_32")
,Acc a2.Find(w5 "CLIENT" "" "class=KCMLDBEdit_32[]id=26722[]xy=451 264" 0x1004)
,
,int cost=a2.Value
,Acc a5.Find(w5 "TEXT" "" "class=KCMLEdit32[]xy=256 40[]state=0x100040 0x20000040" 0x1004)
,str costOptionName=a5.Value
,if cost<>"0.00"
,,act w1
,,if onceFlag=0
,,,'R(#14)
,,,onceFlag=1
,,key (costOptionName)
,,'R
,,key (cost)
,
,int w4=win("Vehicle Specification Line Detail" "KCMLMasterForm_32")
,Acc a6.Find(w4 "PUSHBUTTON" "Cancel" "class=KCMLButton_32[]id=2[]xy=603 63" 0x1005)
,a6.Mouse(1); 0.5
,goto repFindOptions