yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Quintiq file version 2.0
#parent: #root
Method PTF_SetCurrentExecutionStatus (
  String status
) id:Method_LibPTF_pnlTestRunner_PTF_SetCurrentExecutionStatus
{
  #keys: '[105690.0.897072056]'
  Body:
  [*
    // Set current execution status
    vhPTFExecutionStatus.Value( status );
    
    // Set the status label
    frame         := Application.Frame();
    formptfstatus := select( frame, SubComponents.astype( LibPTF_frmPTFStatus ), c, true );
    
    if( not isnull( formptfstatus ) )
    {
      formptfstatus.lblStatus().Text( status );
    }
  *]
}