Quintiq file version 2.0
|
#parent: #root
|
StaticMethod GetVersionData (
|
GlobalOTDSOP owner,
|
String businessname
|
)
|
{
|
Description: '抽取并处理版本数据'
|
TextBody:
|
[*
|
// Administrator Sep-14-2023 (created)
|
businesstype := GlobalOTDTable::GetBusinessTypeName( businessname );
|
releasetime := DateTime::ActualTime();
|
// Clean exist data
|
traverse( owner, MappingVersionControl, mpc, true ){
|
mpc.Delete();
|
}
|
|
// Get Data From DB
|
//owner.Broker_OTD_VersionControl().Execute();
|
|
// Get Data list to deal
|
listtodeal := selectset( owner, MappingVersionControl, item, item.DataTo() = businesstype );
|
|
traverse( listtodeal, Elements, item, true ){
|
versionid := item.VersionID();
|
existversion := VersionControl::FindByFullVersionID( owner, versionid );
|
if( isnull( existversion ) ){
|
longversionname := item.VersionName();
|
longversionnamelist := longversionname.Tokenize( "-" );
|
shortversionname := longversionnamelist.Element( longversionnamelist.Size() - 1 );
|
caltype := shortversionname.SubString( 0, 10 );
|
shortversionid := versionid.ReplaceAll( "-" + caltype, "" );
|
newversioncontrol := VersionControl::Create( owner,
|
item.DataFrom(),
|
caltype,
|
item.CreateTime(),
|
shortversionid,
|
longversionname,
|
shortversionname,
|
item.User() );
|
newversioncontrol.IsReleased( true );
|
newversioncontrol.ReleaseTime( releasetime );
|
}
|
}
|
*]
|
}
|
