| | |
|---|
| | | 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" ) + ")"; |
|---|
| | | 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; |
|---|
| | | *] |
|---|
