Quintiq file version 2.0
|
#parent: #root
|
StaticMethod CreateNewSceneVersion (
|
GlobalOTDSOP owner,
|
String businessname
|
) as VersionControl
|
{
|
Description: '随创建场景进行版本创建'
|
TextBody:
|
[*
|
// Administrator Sep-13-2023 (created)
|
createtime := DateTime::ActualTime();
|
user := QuintiqUser::CurrentUser().Username();
|
starttime := DateTime::Construct(1970,1,1,0,0,0);
|
// Get the local scenario businesstype
|
businesstype := GlobalOTDTable::GetBusinessTypeName( businessname );
|
|
// Get the older version info
|
oldversion_id := "";
|
oldversion_name := "";
|
oldcaltype := "";
|
|
// Calculate new version info
|
additionversionid := ( createtime.MinutesAsReal( starttime ) * 60 * 10 + createtime.SecondOfMinute() ).Round( 0 );
|
newversionid := oldversion_id + [String]additionversionid;
|
newcaltype := GlobalOTDTable::GetNextCalType( oldcaltype, businesstype );
|
newsingleversionname := newcaltype + "(" + createtime.Format( "Y/M2/D2 H:m:s" ) + ")";
|
newversionname := oldversion_name + newsingleversionname;
|
|
// Create new version
|
newversion := VersionControl::Create( owner, businesstype, newcaltype, createtime, newversionid, newversionname, newsingleversionname, user );
|
newversion.IsReleased( true );
|
newversion.ReleaseTime( createtime );
|
|
return newversion;
|
*]
|
}
|
