From 4b60afbb9fe35115958a3560c55b2ae08e267d71 Mon Sep 17 00:00:00 2001
From: yanweiyuan3 <yanweiyuan3@gmail.com>
Date: 星期四, 14 九月 2023 20:25:16 +0800
Subject: [PATCH] Data input & output add
---
_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl b/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl
index c5d5ef1..9c93bdf 100644
--- a/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl
+++ b/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl
@@ -33,8 +33,8 @@
// Calculate new version info
- additionversionid := [Number]( createtime.MinutesAsReal( starttime ) * 60 );
- newversionid := oldversion_id + additionversionid.AsQUILL();
+ 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;
--
Gitblit v1.9.3