Add Release & Copy(Save) button

yanweiyuan3

2023-09-15 6982337837db3443d05ada70c0afbf331032cf15

 _Main/BL/Type_GlobalDTOTable/StaticMethod_GetVersionData.qbl

@@ -10,7 +10,7 @@
  [*
    // Administrator Sep-14-2023 (created)
    businesstype := GlobalOTDTable::GetBusinessTypeName( businessname );
    
    releasetime := DateTime::ActualTime();
    // Clean exist data
    traverse( owner, MappingVersionControl, mpc, true ){
      mpc.Delete();
@@ -28,7 +28,7 @@
      if( isnull( existversion ) ){
        longversionname := item.VersionName();
        longversionnamelist := longversionname.Tokenize( "-" );
        shortversionname := longversionnamelist.Element( longversionnamelist.Size() );
        shortversionname := longversionnamelist.Element( longversionnamelist.Size() - 1 );
        caltype := shortversionname.SubString( 0, 10 );
        shortversionid := versionid.ReplaceAll( "-" + caltype, "" );
        newversioncontrol := VersionControl::Create( owner, 
@@ -40,6 +40,7 @@
                                                     shortversionname, 
                                                     item.User() );
        newversioncontrol.IsReleased( true );
        newversioncontrol.ReleaseTime( releasetime );
        } 
      }
  *]