Quintiq file version 2.0 
 | 
#parent: #root 
 | 
StaticMethod GetVersionInfo ( 
 | 
  GlobalOTDTable owner, 
 | 
  String businessname 
 | 
) as owning Strings 
 | 
{ 
 | 
  Description: '获取大版本版本号及版本名称' 
 | 
  TextBody: 
 | 
  [* 
 | 
    // Administrator Sep-13-2023 (created) 
 | 
    businesstyoe := GlobalOTDTable::GetBusinessTypeName( businessname ); 
 | 
    result := construct( Strings ); 
 | 
    rootversion := VersionControl::FindLatestVersion( owner, businesstyoe ); 
 | 
     
 | 
    if( not isnull( rootversion ) ){ 
 | 
      result.Add( rootversion.VersionID() ); 
 | 
      result.Add( rootversion.LongVersionName() ); 
 | 
      result.Add( rootversion.VersionID() + "-" + rootversion.CalType() ); 
 | 
      result.Add( rootversion.SingleVersionName() ); 
 | 
      }else{ 
 | 
        result.Add( "" ); 
 | 
        result.Add( "" ); 
 | 
        result.Add( "" ); 
 | 
        result.Add( "" ); 
 | 
        } 
 | 
     
 | 
    return &result; 
 | 
  *] 
 | 
} 
 |