Purpose
Read an SAP grid control with ApplyGuiScript

Solution
We start a VBScript with the ApplyGuiScript statement. In the VBScript we use SAP GUI scripting to read the grid content. For returning values to GuiXT we build up an intermediate file.

Remark
In many cases it is easier to use the "Native Control Interface" of GuiXT Control instead of using SAP GUI scripting.  Especially when dealing with large grid controls, the "lazy loading" strategy of SAP GUI is difficult to handle in the scripting (see example below).
See also the following tips for alternatives.

 Example
In transaction IW38 (plant maintenance orders) we offer a new entry field "Search for" where the user can specify a short text (or a part of the text) to search for. When the user presses a pushbutton "Select rows" we select all grid rows that contain the specified text. In addition, we display the number of matching entries in the message line: 

 

GuiXT Script

if Q[transaction=IW38]
   
   // determine height of grid conrol
    GetFieldAttribute  X[GRID1]  height=h

   // shift grid control 2 rows and decrease its height
    Set V[h] &V[h] - 2
   pos X[GRID1] (2,0) height=&V[h]

  InputField (0,0) "Search for" (0,12) size=20 name="pm_short_text"
  Pushbutton (0,34) "Select rows" process="grid_select_rows.txt"
 endif


InputScript "grid_select_rows.txt"

Screen saplslvc_fullscreen.0500

  // set a temporary filename to return the row count from VBScript
   Set V[return_filename] "&%[TEMP]\guixtscriptreturn.txt"

  // since VBScript works with ANSI literals, we need to convert the searchstring
   // otherwise e.g. Umlauts ä.ö,... are not found in the grid
  set text[searchstring] "&V[pm_short_text]"
  ConvertText "searchstring" fromCodePage="UTF-8" toCodePage="ANSI"
  Set V[searchstring] "&text[searchstring]"

  // start VBScript
   // we use template= to have the GUiXT variables replaced in the VBScript file
   ApplyGuiScript template="select_grid_rows_via_short_text.vbs"

  Enter

label repeat_during_scrolling
Screen saplslvc_fullscreen.0500

  // read the number of rows found and display a message
   OpenFile "&V[return_filename]"

  if Q[ok]
    ReadFile "&V[return_filename]" pm_selcount
     CloseFile "&V[return_filename]"
     Message "I: &V[pm_selcount] rows with short text ""&V[pm_short_text]"""  _                 -statusline

    RemoveFile "&V[return_filename]"
    Enter

  else

    // for large grids, SAP GUI uses "lazy loading" when scrolling and this
    // processes a "Screen" block in tthe InputScript!
     goto repeat_during_scrolling

   endif

 

VBScript "select_grid_rows_via_short_text.vbs"

Set aw = session.activeWindow()
Set GRID1 = aw.FindById("usr/cntlGRID1/shellcont/shell")

Dim myselectedRows
myselectedRows = ""
Dim mycount
mycount = 0

Dim firstLineFound
firstLineFound = 0

For i = 0 To GRID1.rowCount - 1
     
     ' we need to set the visible row, otherwise the row content might be       empty for large grids!
    If i < GRID1.firstVisibleRow Or i > GRID1.firstVisibleRow                   +   GRID1.visibleRowCount-1 Then
         GRID1.firstVisibleRow = i
     End If
    
     If InStr(1, GRID1.getCellValue(i, "KTEXT"), "&V[searchstring]", 1) > 0 Then
         
         If myselectedRows = "" Then
             myselectedRows = CStr(i)
         Else
             myselectedRows = myselectedRows + "," + CStr(i)
         End If
         
         If firstLineFound = 0 Then
             firstLineFound = i
         End If  
         
         mycount = mycount + 1
         
     End If
Next

GRID1.selectedRows = myselectedRows

If firstLineFound > 0 Then
     GRID1.firstVisibleRow = firstLineFound 
End If  

' Generate return file
Dim oFS
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim oTS
Set oTS = oFS.CreateTextFile("&V[return_filename]")
oTS.writeLine(CStr(mycount))
oTS.Close

 

 

Components
InputAssistant