1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method PTF_GetCurrentAction () as String id:Method_LibPTF_pnlTestRunner_PTF_GetCurrentAction 
 |  { 
 |    #keys: '[102890.0.1865511916]' 
 |    Body: 
 |    [* 
 |      // Retrieve the current executing action 
 |      currentaction      := ""; 
 |      pendingactions     := vhPendingActions.Value(); 
 |      endindexcurraction := pendingactions.FindString( ";", 0 ); 
 |       
 |      if( endindexcurraction <> -1 ) 
 |      { 
 |        currentaction := pendingactions.SubString( 0, endindexcurraction ).EraseNewLines().TrimBoth(); 
 |      } 
 |       
 |       
 |      return currentaction; 
 |    *] 
 |  } 
 |  
  |