GP/QTP Automation: GUI Mapping script

All related posts: Reference Page – GP/QTP Automation 

Purpose: extract object descriptions from Dexterity Dictionary and create custom XML-based GUI Map file for QTP.

XML Service Functions reference page: Service Functions – XML (QTP, VBScript)

Option Explicit
' Purpose: Map GP Dexterity GUI into XML file
' Requirements: GP App started (don't have to login)
'Output: ".....\DexGUI.xml"

Dim GPApp, objForm, objWindow, objWndField
Dim sGPMapXML, sCurrentProduct
Dim FormIter, WinIter, FieldIter
Dim objGPMapXML, objRoot, objFormMapXML, objWndMapXML, objFldMapXML

Set GPApp = GetObject("", "Dynamics.Application")

sCurrentProduct = GPApp.CurrentProduct

'Define or parameterize your output folder here

sGPMapXML = "C:\TEMP\" & "\DexGUI.xml"
Set objGPMapXML = XMLUtil.CreateXML("DexGUI")
Set objRoot = objGPMapXML.GetRootElement

FormIter = 1
Set objForm = GPApp.GetFirstForm()
Do
 If Not (objForm is Nothing) Then
  Set objFormMapXML = CreateChildElementByName(objRoot, "Form", "")
  objFormMapXML.AddAttribute "name", objForm.GetName()
  objFormMapXML.AddAttribute "childcount", CStr(objForm.CountWindows())
  
  WinIter = 1
  Set objWindow = objForm.GetFirstWindow()
  Do
 
   If Not (objWindow is Nothing) Then
    Set objWndMapXML = CreateChildElementByName(objFormMapXML, "Window", "")
    objWndMapXML.AddAttribute "name", objWindow.GetName()
    objWndMapXML.AddAttribute "childcount", CStr(objWindow.CountFields())
    
    FieldIter = 1
    Set objWndField = objWindow.GetFirstWindowField()
    Do
 
     If Not (objWndField is Nothing) Then
      Set objFldMapXML = CreateChildElementByName(objWndMapXML, "Field", "")
      objFldMapXML.AddAttribute "name", objWndField.GetName()
      objFldMapXML.AddAttribute "id", CStr(objWndField.GetID())
     End If
    
     FieldIter = FieldIter +1
     Set objWndField = objWindow.GetNextWindowField()
 
    Loop While FieldIter <= objWindow.CountFields()
 
   End If

  Set objWindow = objForm.GetNextWindow()
  WinIter = WinIter + 1
  Loop While WinIter <= objForm.CountWindows()

 End If
 
 Set objForm = GPApp.GetNextForm()
 FormIter = FormIter + 1

Loop While FormIter <= GPApp.CountForms()

objGPMapXML.SaveFile sGPMapXML
Set GPApp = Nothing
Set objForm = Nothing
Set objWindow  = Nothing
Set objWndField = Nothing
Set objGPMapXML = Nothing
Set objRoot = Nothing
Set objFormMapXML = Nothing
Set objWndMapXML = Nothing
Set objFldMapXML = Nothing