To All
I am trying to insert the literal value of a character string into a method call ..
Example: this is the line I am trying to create
IE:document:forms:item(0):search:Value = cPARTS
cSFD := "document:forms:item(0):search"
IE:&cSFD:Value = cPARTS
The above fails and I can not use a plus (+) or macro (&) to concatenate or insert the variable into the method command ..
Any suggestions ?
Thanks
Rick Lipkin
Maybe you can create a block using macro compiler.
cSFD := "document:forms:item(0):search"
bSFD := &( "{ | cValue | IE:"+cSFD+":Value = cValue }" )
eval( bSFD, cPARTS )
Or maybe
cSFD := "document:forms:item(0):search"
bSFD := &( "{ || IE:"+cSFD+":Value = cPARTS }" )
eval( bSFD )
Just wondering, does the variable IE exist?
If this is an existing Internet Explorer object, then try this.
cSFD := "document:forms:item(0):search"
bSFD := &( "{ | oMyIE | oMyIE:"+cSFD+":Value = cPARTS }" )
eval( bSFD, IE )
I chose a different name for IE variable so it clearer which variable name has the focus.
If there is already a variable IE I did not want another local/block variable with the same name.
If cParts needs to be a string passed to :value then you need to add another set of quotes.
It might be more clear if you try it this way.
bSFD := &( [ { | IE | IE:]+cSFD+[:Value = "]+cPARTS+[" } ] )
Gale
Your examples do run and compile .. but the code does not execute and plug in the value into the web form 
.. Eval() does not seem to fire
*IE:document:forms:item(0):search:Value = cPARTS // this runs
bSFD := &( [ { | IE | IE:]+cSFD+[:Value = "]+cPARTS+[" } ] )
eval( bSFD, IE )
I really appreciate your insite !
Rick Lipkin
The scope on the variable IE might be wrong. Why don't you change the variable name IE to something else inside the block.
// Rick.prg
//
//-------------------------------
Func Main()
LOCAL cURL, cLB, cLD, cPD, cSBLD
LOCAL cSFD, cSSBD
LOCAL cPARTS, IE
PRIVATE cSUB1,cSUB2,cSUB3,cSUB4,cSUB5
//-- from table
cURL := "http://tewarehouse.com"
cSFD := "document:item(0):search"
cSSBD := "document:all:go"
cPARTS := "130794"
IE:= CreateObject("InternetExplorer.Application")
*IE:Visible := .F.
IE:Visible := .t.
IE:Navigate( cURL )
Do While IE:Readystate <> 4
SysWait(1)
SysRefresh()
Loop
Enddo
// "Inserting part number "+cPARTS
IE:document:forms:item(0):search:Value = cPARTS
/* THIS WORKS
cSub1 := "document"
cSub2 := "forms"
cSub3 := "item[0]"
cSub4 := "search"
cSub5 := "Value"
IE:&cSub1:&cSub2:item(0):&cSub4:&cSub5 = cPARTS
*/
/*
bSFD := &( [ { | IE | IE:]+cSFD+[:Value = "]+cPARTS+[" } ] )
eval( bSFD, IE )
*/
/*
cSFD := "document:item(0):search"
bSFD := &( "{ || IE:"+cSFD+":Value = cPARTS }" )
eval( bSFD )
*/
SysWait(4)
// "Clicking Search button"
IE:document:all:go:Click()
SysWait(4)
RETURN(NIL)
// end
bSFD := &( [ { | IE | IE:]+cSFD+[:Value := "]+cPARTS+[" } ] )Gale, Daniel
Thank you VERY much for your timely and resourceful answers !! Indeed the final piece of the puzzle was the inline assignment :
bSFD := &( [ { | IE | IE:]+cSFD+[:Value := "]+cPARTS+[" } ] )
eval( bSFD, IE )
Thank you both !!
Rick Lipkin