From 6982337837db3443d05ada70c0afbf331032cf15 Mon Sep 17 00:00:00 2001
From: yanweiyuan3 <yanweiyuan3@gmail.com>
Date: 星期五, 15 九月 2023 17:43:59 +0800
Subject: [PATCH] Add Release & Copy(Save) button
---
_Main/BL/Type_GlobalDTOTable/StaticMethod_GetVersionData.qbl | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/_Main/BL/Type_GlobalDTOTable/StaticMethod_GetVersionData.qbl b/_Main/BL/Type_GlobalDTOTable/StaticMethod_GetVersionData.qbl
index 0cba7c5..b094140 100644
--- a/_Main/BL/Type_GlobalDTOTable/StaticMethod_GetVersionData.qbl
+++ b/_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 );
}
}
*]
--
Gitblit v1.9.3