M
Mr. Smiley
I hope I don't make this sound too complicated.
What I would like to do is create a form with fields, the values of which
would then be merged into a macro script at the touch of a button. For
example:
Field #1> PO#
Field #2> Date
*****click the button on the form and*****
To a notepad file goes the following:
HostSettleTime = 3000 ; milliseconds
SendKeys "<Pf2>"
Result = WaitForAttrib(4, 48, &H00, &H3C, 3, 3000)
Result = WaitForCursor(4, 49)
Result = WaitForKbdUnlock()
SendKeys "<Down><Down><Down><Right><Right>PO#<Pf2>"
Result = WaitForAttrib(4, 19, &H00, &H3C, 3, 3000)
Result = WaitForCursor(4, 20)
Result = WaitForKbdUnlock()
SendKeys "<Enter>Date"
Result = WaitForAttrib(7, 20, &H08, &H3C, 3, 3000)
Result = WaitForCursor(7, 21)
Result = WaitForKbdUnlock()
SendKeys
"s55<Tab><Tab><Tab><Tab>53202<Tab><Tab><Tab><Tab><Tab>26301<Tab>r. fishel/m.
roberts<Enter>"
Result = WaitForAttrib(21, 47, &H00, &H3C, 3, 3000)
What I would like to do is create a form with fields, the values of which
would then be merged into a macro script at the touch of a button. For
example:
Field #1> PO#
Field #2> Date
*****click the button on the form and*****
To a notepad file goes the following:
HostSettleTime = 3000 ; milliseconds
SendKeys "<Pf2>"
Result = WaitForAttrib(4, 48, &H00, &H3C, 3, 3000)
Result = WaitForCursor(4, 49)
Result = WaitForKbdUnlock()
SendKeys "<Down><Down><Down><Right><Right>PO#<Pf2>"
Result = WaitForAttrib(4, 19, &H00, &H3C, 3, 3000)
Result = WaitForCursor(4, 20)
Result = WaitForKbdUnlock()
SendKeys "<Enter>Date"
Result = WaitForAttrib(7, 20, &H08, &H3C, 3, 3000)
Result = WaitForCursor(7, 21)
Result = WaitForKbdUnlock()
SendKeys
"s55<Tab><Tab><Tab><Tab>53202<Tab><Tab><Tab><Tab><Tab>26301<Tab>r. fishel/m.
roberts<Enter>"
Result = WaitForAttrib(21, 47, &H00, &H3C, 3, 3000)