'The following example uses the Approve method to select the "Yes" or "OK" (approval)
'button in the displayed message window.
OracleFormWindow("Purchase Orders").OracleTabbedRegion("Lines").OracleTable("PO_LINES").EnterField 1, "Item", "CM11062"
OracleFormWindow("Purchase Orders").OracleTabbedRegion("Lines").OracleTable("PO_LINES").SetFocus 1, "Rev"
OracleNotification("Note").Approve
OracleFormWindow("Purchase Orders").OracleTabbedRegion("Lines").OracleTable("PO_LINES").EnterField 1, "Rev", "A"

                    'The following example uses the Cancel method to close a message window.

                    If OracleFormWindow("Inventory Accounting Periods").OracleTable("PERIODS").GetFieldValue(1, "Status") <> "Open" Then
    OracleFormWindow("Inventory Accounting Periods").OracleButton("Change Status...").Click
Else
    OracleNotification("Caution").Cancel
End If

                    'The following example uses the Choose method to select the "Yes" button in the message
'window, if the message window is displayed when closing a form.
OracleFormWindow("Service Request").InvokeSoftkey ("EXIT")
If OracleNotification("Forms").Exist Then
    OracleNotification("Forms").Choose ("Yes")
End If

                    'The following example uses the ChooseDefault method to select the default button in a
'displayed error message.
OracleFormWindow("Master Item").OracleTabbedRegion("General Planning").OracleList("Make or Buy").Select "Make"
OracleFormWindow("Master Item").OracleTabbedRegion("General Planning").OracleTextField("Carrying").Enter "10"
OracleFormWindow("Master Item").OracleTabbedRegion("General Planning").OracleList("Method").Select 2
OracleNotification("Error").ChooseDefault
OracleFormWindow("Master Item").OracleTabbedRegion("General Planning").OracleTextField("Percent").Enter "15"

                    'The following example uses the Click method to click the "Attribute Groups" button in
'the "Master Item" form.
OracleFormWindow("Master Item").OracleTable("ORG_ASSIGN").EnterField 2, "Assigned", True
OracleFormWindow("Master Item").OracleButton("Attribute Groups").Click
OracleFormWindow("Master Item").OracleTabRegion("Work In Process").OracleList("Type").Select "Push"
OracleFormWindow("Master Item").Save
OracleFormWindow("Master Item").CloseForm

                    'The following example uses the Click method to perform a left mouse-button click at
'coordinates (5,5) inside the "Item" text field.
OracleFlexWindow("Parameters").OracleTextField("Range").OpenDialog
OracleListOfValues("Range").Select "Specific item"
OracleFlexWindow("Parameters").OracleTextField("Specific Item").SetFocus
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").Enter "NO"
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").CaptureBitmap "c:\temp\capture.bmp", True
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").Check CheckPoint("Engineering Bills")
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").InvokeSoftkey "NEXT FIELD"
OracleFlexWindow("System Items").OracleTextField("Item").Click 5, 5, 0
OracleFlexWindow("System Items").OracleTextField("Item").Enter "AT23808"
If (OracleFlexWindow("System Items").OracleTextField("Item").GetROProperty("Value") = "AT23808") Then
OracleFlexWindow("System Items").OracleTextField("Item").Enter "AT23809"
End If
OracleFlexWindow("System Items").OracleTextField("Item").Output CheckPoint("Item")

                    'The following example uses the Decline method to select the "No" button in a message
'window, thereby not saving any changes that may have been made to the form.
OracleNavigator("OracleNavigator").SelectMenu "File->Close Form"
OracleNotification("Forms").VerifyMessage "Do you want to save the changes you have made?"
OracleNotification("Forms").Decline
OracleNavigator("OracleNavigator").SelectFunction "Transactions:Enter"

                    'The following example uses the InvokeSoftkey method to close the "Navigator" tree.
OracleFormWindow("Navigator").OracleTree("Navigator").Check CheckPoint("Navigator")
Reporter.ReportEvent micDone, "OracleTree CheckPoint", "Indicates if all captured properties are correct. "
OracleFormWindow("Navigator").OracleTree("Navigator").Select "Personal Shortcuts"
OracleFormWindow("Navigator").OracleTree("Navigator").Expand "Public Shortcuts"
OracleFormWindow("Navigator").OracleTree("Navigator").Collapse "Profiles"
OracleFormWindow("Navigator").OracleTree("Navigator").InvokeSoftkey "EXIT"
OracleNavigator("OracleNavigator").SelectMenu "File->Switch Responsibility..."

                    'The following example uses the InvokeSoftkey method to exit the "Item Costs_2" form
'after modifying the value in the "Rate or Amount" field.
OracleFormWindow("Item Costs_2").OracleTabbedRegion("Cost Information").OracleTextField("Rate or Amount").Enter "100"
OracleNavigator("OracleNavigator").SelectMenu "File->Save"
OracleStatusLine("OracleStatusLine").Check CheckPoint("OracleStatusLine")
OracleFormWindow("Item Costs_2").OracleTabbedRegion("Cost Information").OracleTextField("Rate or Amount").InvokeSoftkey "EXIT"

                    'The following example uses the InvokeSoftkey method to move to the next field in the
'"Parameters" flexfield window.
OracleFlexWindow("Parameters").OracleTextField("Range").OpenDialog
OracleListOfValues("Range").Select "Specific item"
OracleFlexWindow("Parameters").OracleTextField("Specific Item").SetFocus
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").Enter "NO"
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").CaptureBitmap "c:\temp\capture.bmp", True
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").Check CheckPoint("Engineering Bills")
OracleFlexWindow("Parameters").OracleTextField("Engineering Bills").InvokeSoftkey "NEXT FIELD"
OracleFlexWindow("System Items").OracleTextField("Item").Click 5, 5, 0
OracleFlexWindow("System Items").OracleTextField("Item").Enter "AT23808"
If (OracleFlexWindow("System Items").OracleTextField("Item").GetROProperty("Value") = "AT23808") Then
OracleFlexWindow("System Items").OracleTextField("Item").Enter "AT23809"
End If
OracleFlexWindow("System Items").OracleTextField("Item").Output CheckPoint("Item")

                    'The following example uses the InvokeSoftkey method to clear all the fields in the
'"HEADERS_SUMMARY" table.
OracleNavigator("OracleNavigator").SelectFunction "Cash Forecasting:Forecasts"
OracleFormWindow("Find Cash Forecasts").OracleButton("Find").Click
OracleFormWindow("Cash Forecasts").OracleTable("HEADERS_SUMMARY").SetFocus 1, "Template Name"
OracleFormWindow("Cash Forecasts").OracleTable("HEADERS_SUMMARY").InvokeSoftkey "CLEAR BLOCK"

                    'The following example uses the InvokeSoftkey method to close the "Service Request" form.
OracleFormWindow("Service Request").InvokeSoftkey ("EXIT")
If OracleNotification("Forms").Exist Then
    OracleNotification("Forms").Choose ("Yes")
End If

                    'This example uses the SelectFunction method to select a function containing a tree, and navigates to the "Default - Enhancement [40]" node.
'It then uses the SelectPopupMenu method to open the pop-up menu and select the "Find..." option, and enters a search query.

OracleNavigator("OracleNavigator").SelectFunction "Territory Management:Territory Administration"
'Expand the nodes to navigate to an item with a pop-up menu.
OracleFormWindow("Navigator").OracleTree("Navigator").Expand "Territories->Catch All->Oracle Defect Management"
OracleFormWindow("Navigator").OracleTree("Navigator").Expand "Territories->Catch All->Oracle Defect Management->Default - Enhancement [40]"
'Open the pop-up menu and select the Find option.
OracleFormWindow("Navigator").OracleTree("Navigator").SelectPopupMenu "Find..."
'Enter a search query.
OracleFormWindow("Territory Search").OracleTextField("Usage").OpenDialog

                    'The following example uses the VerifyMessage method to check whether the expected text
'"Do you want to save the changes you have made?" is displayed in a message window.
OracleNavigator("OracleNavigator").SelectMenu "File->Close Form"
OracleNotification("Forms").VerifyMessage "Do you want to save the changes you have made?"
OracleNotification("Forms").Decline
OracleNavigator("OracleNavigator").SelectFunction "Transactions:Enter"