Click Left Mouse Button on Record selected via KeyDown

[philipq]

Just tried that. Still gives me a zero value

Macro Get Cost Options

Code:

Copy      Help

,;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)
,
,double cost=val(a2.Value 2)
,out cost
,str strCost=cost
,
,Acc a5.Find(w5 "TEXT" "" "class=KCMLEdit32[]xy=256 40[]state=0x100040 0x20000040" 0x1004)
,int checkOption = StrCompare(a5.Value costOptionName)
,if  checkOption=0 ;;If the option selected currently is the same as before then exit loop
,,out a5.Value
,,out costOptionName
,,int w6=win("Vehicle Specification Line Detail" "KCMLMasterForm_32")
,,Acc a7.Find(w6 "PUSHBUTTON" "Cancel" "class=KCMLButton_32[]id=2[]xy=603 63" 0x1005)
,,a7.Mouse(1); 0.5
,,continue
,costOptionName=a5.Value
,,out F"''{strCost}''"
,if val(strCost 2)!=0
,,mes "in now"
,,act w1
,,if onceFlag=0
,,,'R(#14)
,,,onceFlag=1
,,key (costOptionName)
,,'R
,,key (cost)