Quintiq file version 2.0
#parent: #root
Method PTF_ValidateGreaterThanZeroInteger (
  String action,
  String value,
  Number parameternr
) as String id:Method_LibPTF_dlgCreateEditTestScript_PTF_ValidateGreaterThanZeroInteger
{
  #keys: '[103546.0.109833573]'
  Body:
  [*
    // Validate the parameter - Greater than zero
    errormsg := "";
    
    if( not value.Regex( "^[0-9]*[1-9][0-9]*$" ) )
    {
      errormsg := 'Parameter #' + [String]parameternr + ' for action "' + action + '" should be a POSITIVE non-zero integer. Found '
                  + value + ' instead.' + String::NewLine();
    }
    
    return errormsg;
  *]
}