10-08-2014, 02:52 PM
Greetings,
I am trying to integrate data entry from excel into a CRM software.
The data entry window in the CRm is a grid window that identifies as a client of accessible object type.
However, I am unable to get QM to recognize the individual cells in the grid.
What I do is, I make QM click on the scroll bar, which automatically selects the first cell of the grid.
Then I use the get windows method to scroll through the first coloum down to obtain the sales advisor name code.
Each sales person has 2 categories "L" and "J" (Fran)
When I key left in QM, it goes to the left cell.
Now how do I check the value in that cell?
Kindly refer to the screen shot attached of the CRM window.
Below is the code thus far.
Macro Incentive Figures
I am trying to integrate data entry from excel into a CRM software.
The data entry window in the CRm is a grid window that identifies as a client of accessible object type.
However, I am unable to get QM to recognize the individual cells in the grid.
What I do is, I make QM click on the scroll bar, which automatically selects the first cell of the grid.
Then I use the get windows method to scroll through the first coloum down to obtain the sales advisor name code.
Each sales person has 2 categories "L" and "J" (Fran)
When I key left in QM, it goes to the left cell.
Now how do I check the value in that cell?
Kindly refer to the screen shot attached of the CRM window.
Below is the code thus far.
Macro Incentive Figures
ExcelSheet es.Init
ARRAY(str) arrName, figure
int w1, w2, c, r
str range2, name
WindowText wt
str varRep ;;string variable. If need numeric, replace str to int or double.
inp- varRep "Obtains from the user the number of times to repeat this procedure"
rep varRep
,w1=act(win("Microsoft Excel - " "XLMAIN"))
,;act w1
,'D ;; Down
,
,;get selected cells in Excel
,es.GetRangeInfo("<sel>" c r)
,range2.from("R",r)
,es.SelectCell(range2)
,es.CellsToArray(arrName "sel")
,es.SelectCell(c r)
,es.CellsToArray(figure "sel")
,name=arrName
,
,int w=win("Maintain vehicle salemen targets and their incentive parameters " "KCMLMasterForm_32")
,Acc a.Find(w "INDICATOR" "Position" "class=ScrollBar[]id=102" 0x1025)
,a.Mouse(1)
,
,;findSA
,opt slowkeys 0; spe 1
,rep 1000
,,wt.Init(w2)
,,wt.Mouse(4 wt.Find(name))
,,err
,,,'D ;; Down
,,,continue
,,break
,opt slowkeys 1; spe 70
,
,'L
,int w3=win("Maintain vehicle salemen targets and their incentive parameters - Al Tayer - JLR (pjacob/161)" "KCMLMasterForm_32")
,Acc a1.Find(w3 "CLIENT" "" "class=KCMLGridPad_32[]id=100" 0x1004)
Best Regards,
Philip
Philip